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(); } }

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(); } }

ax set user for no ctrl + g

Set User supaya user tidak perlu ctrl + g saat pencarian


SELECT A.FILTERBYGRIDONBYDEFAULT, A.ID, A.PARTITION , A.RECID FROM userinfo A WHERE A.ID LIKE '%wiwin%' BEGIN TRANSACTION UPDATE USERINFO SET FILTERBYGRIDONBYDEFAULT = 1 WHERE RECID =5637148329 COMMIT