[ExtensionOf(classStr(SalesPackingSlipJournalPost))]
final class SalesPackingSlipJournalPost_Extension
{
public void postJournalPost()
{
next postJournalPost();
SalesTable salesTable = custPackingSlipJour.salesTable();
SalesLine sales_line;
select * from sales_line
where sales_line.SalesId == salesTable.SalesId;
SalesPackingSlipJournalPost::salesOrderInvoiceByLine(sales_line);
}
Public static void salesOrderInvoiceByLine(SalesLine _salesline) //it doing selected delivery invoicing but not deducting discount
{
salesFormLetter salesFormLetter;
salesFormletterParmData salesFormLetterParmData;
salesParmUpdate salesParmUpdate;
salesParmTable salesParmTable;
salesParmLine salesParmLine, salesparmlinelast,packingParmLine;
salesTable salesTable;
SalesLine _line;
ttsbegin;
salesTable = salesTable::find(_salesline.SalesId);
salesFormLetterParmData = salesFormletterParmData::newData(DocumentStatus::Invoice, VersioningUpdateType::Initial);
salesFormLetterParmData.parmOnlyCreateParmUpdate(true);
salesFormLetterParmData.createData(false);
salesParmUpdate = salesFormLetterParmData.parmParmUpdate();
salesParmTable.clear();
salesParmTable.TransDate = _salesline.ReceiptDateRequested;
salesParmTable.Ordering = DocumentStatus::Invoice;
salesParmTable.ParmJobStatus = ParmJobStatus::Waiting;
salesParmTable.salesId = salesTable.salesId;
salesParmTable.salesName = salesTable.salesName;
salesParmTable.DeliveryName = salesTable.DeliveryName;
salesParmTable.DeliveryPostalAddress = salesTable.DeliveryPostalAddress;
salesParmTable.CustAccount = salesTable.CustAccount;
salesParmTable.CurrencyCode = salesTable.CurrencyCode;
salesParmTable.InvoiceAccount = salesTable.InvoiceAccount;
salesParmTable.ParmId = salesParmUpdate.ParmId;
salesParmTable.insert();
if (_salesline)
{
salesParmLine.InitFromsalesLine(_salesline);
salesParmLine.DeliverNow = _salesline.SalesQty;
salesParmLine.ParmId = salesParmTable.ParmId;
salesParmLine.TableRefId = salesParmTable.TableRefId;
salesParmLine.setQty(DocumentStatus::Invoice, false, true);
salesParmLine.setLineAmount(_salesline);
salesParmLine.insert();
}
ttscommit;
select * from salesparmlinelast //GET LAST packing LINES
order by salesparmlinelast.PARMiD DESC
where salesparmlinelast.origsalesid == salesTable.SalesId
join SalespARMTABLE
where salesparmlinelast.ParmId == salesParmTable.parmid
&& salesParmTable.Ordering == DocumentStatus::PackingSlip;
select * from _line
where _line.RecId == salesParmLine.SalesLineRecId;
real qty = _line.SalesQty;
real remainders = qty - salesparmlinelast.DeliverNow;
ttsbegin;
salesParmLine.selectForUpdate(true);
salesParmLine.DeliverNow = salesparmlinelast.DeliverNow;
salesParmLine.RemainAfter =remainders;
salesParmLine.RemainAfterInvent =remainders;
salesParmLine.InventNow = salesparmlinelast.DeliverNow;
salesParmLine.LineAmount = salesparmlinelast.LineAmount;
salesParmLine.doUpdate();
ttscommit;
salesFormLetter = salesFormLetter::construct(DocumentStatus::Invoice);
salesFormLetter.transDate(_salesline.ReceiptDateRequested);
salesFormLetter.proforma(false);
salesFormLetter.specQty(salesUpdate::all);
salesFormLetter.salesTable(salesTable);
salesFormLetter.parmId(salesParmTable.ParmId);
salesFormLetter.salesParmUpdate(salesFormLetterParmData.parmParmUpdate());
salesFormLetter.run(); //error here at this line
}
}
hi
erorr are
Posting
Posting
Sales order: 004835
Posting
Posting
Sales order: 004835
Voucher INV-10000774
The transactions on voucher INV-10000774 do not balance as per 5/22/2025. (accounting currency: -40.00 - reporting currency: -40.00)
Voucher transactions
Voucher INV-10000774, date 5/22/2025, account 140100--, transaction currency amount 374.96, accounting currency amount 374.96, reporting currency amount 374.96, currency USD, text
Voucher INV-10000774, date 5/22/2025, account 500150----, transaction currency amount -374.96, accounting currency amount -374.96, reporting currency amount -374.96, currency USD, text
Voucher INV-10000774, date 5/22/2025, account 140100--, transaction currency amount -374.96, accounting currency amount -374.96, reporting currency amount -374.96, currency USD, text
Voucher INV-10000774, date 5/22/2025, account 500100----, transaction currency amount 374.96, accounting currency amount 374.96, reporting currency amount 374.96, currency USD, text
Voucher INV-10000774, date 5/22/2025, account 401100----, transaction currency amount -400.00, accounting currency amount -400.00, reporting currency amount -400.00, currency USD, text
Voucher INV-10000774, date 5/22/2025, account 130100--, transaction currency amount 360.00, accounting currency amount 360.00, reporting currency amount 360.00, currency USD, text
Posting has been canceled.
360 is a line amount of sales parm line after deduction of discount 40
now in transactions, there is difference of 40 credit and debit
thats the isse
please guide me