X++ REVERSE CLOSE TRANSACTION IN VENDOR SETTLEMENT

CODE UNTUK REVERSE TRANSAKSI VENDOR SECARA PROGRAM OTOMATIS
VENDSETTLEMENT

  LedgerJournalTrans ledgerjournaltrans; LedgerJournalTrans ledgerjournaltrans2; LPPJournalLine LPPJournalLine; LPPJournalTable LPPJournalTable; LPPJournalTable LPPJournalTable2; VendTrans invVendTrans ,findCustTrans; VendTable VendTable; vendSettlement vendSettlement; SpecTransManager specTransManager; boolean ret; ret = super(); select invVendTrans order by TransDate asc where invVendTrans.Voucher == vn_LPPCancel_Voucher.text() ; while select findCustTrans where findCustTrans.RecId == invVendTrans.RecId { VendTable = VendTable::find(findCustTrans.AccountNum); select firstonly vendSettlement where vendSettlement.TransCompany == findCustTrans.dataAreaId && vendSettlement.TransRecId == findCustTrans.RecId && vendSettlement.AccountNum == findCustTrans.AccountNum; specTransManager = SpecTransManager::newRefTableId(VendTable,tablenum(vendSettlement), true); specTransManager.insert(vendSettlement.DataAreaId, vendSettlement.TableId, vendSettlement.RecId, vendSettlement.SettleAmountCur, findCustTrans.CurrencyCode); vendSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true); //specTransManager.deleteAll(); if (VendTrans::reverseTransact(VendTable,null,settleDatePrinc::DateOfPayment,vendSettlement.TransDate)) { specTransManager.deleteAll(); } }