Index: AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml =================================================================== diff -u -r35602 -r35614 --- AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35602) +++ AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml (.../SalesInvoiceConverter.cls.xml) (revision 35614) @@ -258,22 +258,13 @@ Set LedgerJournalTableIterator = ##class(TECH.ListIterator).%New(Table.LedgerJournalTrans) While LedgerJournalTableIterator.HasNext() { #dim LedgerJournalTrans As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = LedgerJournalTableIterator.Next() - - If LedgerJournalTrans.AccountType = "Cust" { - Set TotaalLedgerJournalTrans = LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit - } - If LedgerJournalTrans.AccountType = "Ledger" { - Set SomLedgerMVH = SomLedgerMVH + LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit - } + Set:LedgerJournalTrans.AccountType="Cust" TotaalLedgerJournalTrans = LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit + Set:LedgerJournalTrans.AccountType="Ledger" SomLedgerMVH = SomLedgerMVH + LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit } If SomLedgerMVH '= TotaalLedgerJournalTrans { - If LedgerJournalTrans.AmountCurCredit '= "" { - Set LedgerJournalTrans.AmountCurCredit = LedgerJournalTrans.AmountCurCredit - (SomLedgerMVH - TotaalLedgerJournalTrans) - } - If LedgerJournalTrans.AmountCurDebit '= "" { - Set LedgerJournalTrans.AmountCurDebit = LedgerJournalTrans.AmountCurDebit - (SomLedgerMVH - TotaalLedgerJournalTrans) - } + Set:LedgerJournalTrans.AmountCurCredit'="" LedgerJournalTrans.AmountCurCredit = LedgerJournalTrans.AmountCurCredit - (SomLedgerMVH - TotaalLedgerJournalTrans) + Set:LedgerJournalTrans.AmountCurDebit'="" LedgerJournalTrans.AmountCurDebit = LedgerJournalTrans.AmountCurDebit - (SomLedgerMVH - TotaalLedgerJournalTrans) } ]]>