...
TempSalesLine@1003 : TEMPORARY Record 37;
// Delete the following line.
TempSalesLineDisc@1004 : TEMPORARY Record 37;
BEGIN
...
...
TempSalesLine@1003 : TEMPORARY Record 37;
BEGIN
...
...
CLEAR(SalesPost);
// Delete the following line.
CLEAR(TempSalesLineDisc);
VATAmountLine.DELETEALL;
...
...
CLEAR(SalesPost);
VATAmountLine.DELETEALL;
...
...
SalesLine.DELETEALL;
// Delete the following line.
TempSalesLineDisc.DELETEALL;
SalesPost.GetSalesLines("Sales Header",SalesLine,0);
...
...
SalesLine.DELETEALL;
SalesPost.GetSalesLines("Sales Header",SalesLine,0);
...
...
SalesLine.UpdateVATOnLines(0,"Sales Header",SalesLine,VATAmountLine);
// Delete the following lines.
SalesPost.GetSalesLines("Sales Header",TempSalesLineDisc,1);
TempSalesLineDisc.CalcVATAmountLines(1,"Sales Header",TempSalesLineDisc,VATAmountLine);
TempSalesLineDisc.UpdateVATOnLines(1,"Sales Header",TempSalesLineDisc,VATAmountLine);
SalesLine."Inv. Discount Amount" := VATAmountLine."Invoice Discount Amount";
// End of the lines.
VATAmount := VATAmountLine.GetTotalVATAmount;
...
...
SalesLine.UpdateVATOnLines(0,"Sales Header",SalesLine,VATAmountLine);
VATAmount := VATAmountLine.GetTotalVATAmount;
...