X++ REVERSE CLOSE TRANSACTION IN CUSTOMER SETTLEMENT

CODE UNTUK REVERSE TRANSAKSI CUSTOMER SECARA PROGRAM OTOMATIS : CUSTSETTLEMENT

LedgerJournalTrans LedgerJournalTransUpdate; LedgerJournalTrans LedgerJournalTransinsert; Custtrans invVendTrans ,findCustTrans, custtrans2; CustTable CustTable; custSettlement custSettlement, custSettlement2; SpecTransManager specTransManager; select invVendTrans order by TransDate asc where invVendTrans.Voucher == Voucher_Copy.text() ; while select findCustTrans where findCustTrans.RecId == invVendTrans.RecId { CustTable = CustTable::find(findCustTrans.AccountNum); select firstonly custSettlement where custSettlement.TransCompany == findCustTrans.dataAreaId && custSettlement.TransRecId == findCustTrans.RecId && custSettlement.AccountNum == findCustTrans.AccountNum; specTransManager = SpecTransManager::newRefTableId(CustTable,tablenum(custSettlement), true); specTransManager.insert(custSettlement.DataAreaId, custSettlement.TableId, custSettlement.RecId, custSettlement.SettleAmountCur, findCustTrans.CurrencyCode); custSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true); //specTransManager.deleteAll(); select * from custtrans2 where custtrans2.RecId == custSettlement.OffsetRecid; invoiceSettle.text( invoiceSettle.text() +", " + custtrans2.Invoice) ;//= "";//invoiceSettle. + ", " + custtrans2.Invoice; if (custtrans::reverseTransact(CustTable,null,settleDatePrinc::DateOfPayment,custSettlement.TransDate)) { specTransManager.deleteAll(); } }