Reference to the old issue marked as complete: https://github.com/microsoft/ALAppExtensions/issues/19514 Not included in the Build ID 48357 (Update 1 for BC 2022 Wave 2)

please add new event in codeunit 550 "VAT Rate Change Conversion"

[IntegrationEvent(false, false)]
local procedure OnAddNewSalesLineOnAfterNewSalesLineInit(SalesLine: Record "Sales Line"; var NewSalesLine: Record "Sales Line")
begin
end;
local procedure AddNewSalesLine(SalesLine: Record "Sales Line"; VATProdPostingGroup: Code[20]; GenProdPostingGroup: Code[20])
var
    NewSalesLine: Record "Sales Line";
    OldSalesLine: Record "Sales Line";
    SalesHeader: Record "Sales Header";
    OldReservationEntry: Record "Reservation Entry";
    NewReservationEntry: Record "Reservation Entry";
    OldItemChargeAssignmentSales: Record "Item Charge Assignment (Sales)";
    NewItemChargeAssignmentSales: Record "Item Charge Assignment (Sales)";
    VATRateChangeLogEntry: Record "VAT Rate Change Log Entry";
    RecRef: RecordRef;
    NewLineNo: Integer;
    QtyRemainder: Decimal;
    AmountRemainder: Decimal;
    RoundingPrecision: Decimal;
begin
    if not GetNextSalesLineNo(SalesLine, NewLineNo) then
        exit;
    with NewSalesLine do begin
        Init;
        NewSalesLine := SalesLine;
        "Line No." := NewLineNo;
        "Quantity Shipped" := 0;
        "Qty. Shipped (Base)" := 0;
        "Return Qty. Received" := 0;
        "Return Qty. Received (Base)" := 0;
        "Quantity Invoiced" := 0;
        "Qty. Invoiced (Base)" := 0;
        "Reserved Quantity" := 0;
        "Reserved Qty. (Base)" := 0;
        "Qty. to Ship" := 0;
        "Qty. to Ship (Base)" := 0;
        "Return Qty. to Receive" := 0;
        "Return Qty. to Receive (Base)" := 0;
        "Qty. to Invoice" := 0;
        "Qty. to Invoice (Base)" := 0;
        "Qty. Shipped Not Invoiced" := 0;
        "Return Qty. Rcd. Not Invd." := 0;
        "Shipped Not Invoiced" := 0;
        "Return Rcd. Not Invd." := 0;
        "Qty. Shipped Not Invd. (Base)" := 0;
        "Ret. Qty. Rcd. Not Invd.(Base)" := 0;
        "Shipped Not Invoiced (LCY)" := 0;
        "Return Rcd. Not Invd. (LCY)" := 0;
        OnAddNewSalesLineOnAfterNewSalesLineInit(SalesLine, NewSalesLine);
0
© 2022 pullanswer.com - All rights reserved.