pgsql/investigations/ar-arapply.sql

diff --git a/pgsql/investigations/ar-arapply.sql b/pgsql/investigations/ar-arapply.sql
deleted file mode 100644 (file)
index 95a9f83..0000000
--- a/pgsql/investigations/ar-arapply.sql
+++ /dev/null
@@ -1,85 +0,0 @@
--- another idea to solve the big ar problem
-
--- see if we can match each ar transaction type against invoices.
-
-
-
-CREATE OR REPLACE FUNCTION x_ar_verify_arapply(i_arapply_id integer)
-    RETURNS  TEXT
-AS $BODY$
-DECLARE    
-    _ar RECORD;
-    
-    v_ar_accnt_id INTEGER;
-    
-    v_gl_id  INTEGER;
-    v_gl_misc_id  INTEGER;
-    v_new_rate NUMERIC;
-    v_gltrans_amount NUMERIC;
-    v_diff NUMERIC;
-    v_order_number TEXT;
-    
-     v_c_amount NUMERIC;
-    v_c_rate NUMERIC;
-    v_c_base_amount NUMERIC;
-    
-    v_gl_seq INTEGER;
-    v_gl_ar_amount NUMERIC;
-    
-----    
-    v_asset_accnt_id INTEGER;
-    v_resultbool BOOLEAN;
-    v_count INTEGER := 0;
-    v_skip_count INTEGER := 0;
-    v_gltrans_sequence INTEGER;
-    v_item_number TEXT;
-    
-    
-    
-BEGIN
-   
-    SELECT * INTO _ar FROM arapply where arapply_id = i_arapply_id;
-    
-    
-    IF NOT FOUND THEN
-        RAISE EXCEPTION 'not a valid apply id..';
-    END IF;
-    
-    IF _ar.aropen_journalnumber IS NULL THEN
-        RAISE EXCEPTION 'not a valid apply id..';
-    END IF;
-
-    SELECT
-          --araccnt_freight_accnt_id  
-            araccnt_ar_accnt_id   -- 159
-           -- araccnt_prepaid_accnt_id ,
-           -- araccnt_deferred_accnt_id ,
-           -- araccnt_discount_accnt_id ,
-            
-        INTO
-            v_ar_accnt_id
-        FROM
-            araccnt
-        ORDER BY
-            araccnt_id ASC
-        LIMIT 1;
-
-     
-END
-
-$BODY$
-  LANGUAGE plpgsql VOLATILE
-  COST 100;
-  
-ALTER FUNCTION  x_ar_verify_arapply(integer)
-  OWNER TO admin;
-
-
-    
-    
-SELECT x_ar_verify_arapply(arapply_id) FROM arapply order by arapply_id asc;
-
-
-
-
-