pgsql/investigations/ar-cash.sql

diff --git a/pgsql/investigations/ar-cash.sql b/pgsql/investigations/ar-cash.sql
index a3065a3..091b776 100644 (file)
--- a/pgsql/investigations/ar-cash.sql
+++ b/pgsql/investigations/ar-cash.sql
@@ -10,7 +10,6 @@ AS $BODY$
 DECLARE    
     _ar RECORD;
     _citem RECORD;
-    _rcpt RECORD;
 
     v_sales_accnt_id INTEGER;
     v_ar_accnt_id INTEGER;
@@ -54,6 +53,25 @@ BEGIN
         RAISE EXCEPTION 'not a valid apply id..';
     END IF;
 
+    SELECT 
+            * 
+    INTO 
+            _citem 
+    FROM 
+            cashrcptitem 
+    LEFT JOIN
+            cashrcpt
+    ON
+            cashrcptitem_cashrcpt_id = cashrcpt_id
+    WHERE
+            cashrcptitem_id = _ar.arapply_ref_id;
+
+    IF NOT FOUND THEN
+        RAISE EXCEPTION 'cashrcpt item not found';
+    END IF;
+
+
+
     SELECT
           --araccnt_freight_accnt_id  
             araccnt_ar_accnt_id   -- 159