midsuit
/
core-jgi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migration script for [ 1866214 ] Adempiere need can void a Cash Journal 

pl/sql and pl/pgsql port of org.eevolution.process.FixPaymentCashLine
This commit is contained in:
Carlos Ruiz 2008-05-29 05:38:06 +00:00
parent 3c91e3e397
commit a1c7ef4d84
2 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
migration/340s-trunk/166_BF_1866214_cont064.sql Normal file
View File

@ -0,0 +1,30 @@
-- Fix Payment Cash Line
-- [ 1866214 ] Adempiere need can void a Cash Journal
-- https://sourceforge.net/tracker/?func=detail&atid=879335&aid=1866214&group_id=176962
-- pl/sql translation of FixPaymentCashLine
BEGIN
FOR rc IN (SELECT cl.C_CashLine_ID, c.NAME, cl.amount,
cl.C_BankAccount_ID, cl.AD_Client_ID
FROM C_CASHLINE cl INNER JOIN C_CASH c
ON (c.C_Cash_ID = cl.C_Cash_ID)
WHERE cl.CashType = 'T' AND cl.C_Payment_ID IS NULL)
LOOP
FOR rp IN (SELECT c_payment_id
FROM C_PAYMENT p
WHERE p.DocumentNo = rc.NAME
AND R_PnRef = rc.NAME
AND PayAmt = -rc.amount
AND C_BankAccount_ID = rc.C_BankAccount_ID
AND AD_Client_ID = rc.AD_Client_ID
AND TrxType = 'X'
AND TenderType = 'X')
LOOP
UPDATE C_CASHLINE
SET C_Payment_ID = rp.C_Payment_ID
WHERE C_CASHLINE_ID = rc.C_CashLine_ID;
END LOOP;
END LOOP;
COMMIT;
END;

37
migration/340s-trunk/postgresql/166_BF_1866214_cont064.sql Normal file
View File

@ -0,0 +1,37 @@
-- Fix Payment Cash Line
-- [ 1866214 ] Adempiere need can void a Cash Journal
-- https://sourceforge.net/tracker/?func=detail&atid=879335&aid=1866214&group_id=176962
-- pl/sql translation of FixPaymentCashLine
CREATE OR REPLACE FUNCTION migr_fix_payment_cashline() RETURNS void as $func$
DECLARE
rc RECORD;
rp RECORD;
BEGIN
FOR rc IN (SELECT cl.C_CashLine_ID, c.NAME, cl.amount,
cl.C_BankAccount_ID, cl.AD_Client_ID
FROM C_CASHLINE cl INNER JOIN C_CASH c
ON (c.C_Cash_ID = cl.C_Cash_ID)
WHERE cl.CashType = 'T' AND cl.C_Payment_ID IS NULL)
LOOP
FOR rp IN (SELECT c_payment_id
FROM C_PAYMENT p
WHERE p.DocumentNo = rc.NAME
AND R_PnRef = rc.NAME
AND PayAmt = -rc.amount
AND C_BankAccount_ID = rc.C_BankAccount_ID
AND AD_Client_ID = rc.AD_Client_ID
AND TrxType = 'X'
AND TenderType = 'X')
LOOP
UPDATE C_CASHLINE
SET C_Payment_ID = rp.C_Payment_ID
WHERE C_CASHLINE_ID = rc.C_CashLine_ID;
END LOOP;
END LOOP;
END;
$func$ LANGUAGE plpgsql;
select migr_fix_payment_cashline();
commit;