Article := GetServiceArticleNo();
SalesLine.SetRange(/Document Type/, Rec./Document Type/);
SalesLine.SetRange(/Document No./, Rec./Document No./);
SalesLine.SetFilter(/No./, '=%1', Article);
if (SalesLine.Count <> 0) and (SalesLine.FindFirst()) then begin
PriceListLine.SetRange(Status, PriceStatus::Active);
PriceListLine.SetRange(/Product No./, SalesLine./No./);
PriceListLine.SetRange(/Source Type/, SourceType::/All Vendors/);
PriceListLine.SetFilter(/Starting Date/, '<=%1', DueDate);
PriceListLine.SetFilter(/Ending Date/, '>=%1', DueDate);
if PriceListLine.FindFirst() then begin
SalesLine.Validate(Quantity, Round(MontageSum / 60, 0.01));
SalesLine.Validate(/Unit Price/, Round(MontagePrice / SalesLine.Quantity, 0.01));
SalesLine.Modify;
end;
end
I have the issue with update Subtotal Excl. VAT after this code, is not updated after recalculation