13. Dezember 2023 19:22
13. Dezember 2023 19:24
13. Dezember 2023 23:08
14. Dezember 2023 19:18
6. Januar 2024 18:01
6. Januar 2024 19:10
SubNatural hat geschrieben:... Das Problem ist, dass dieses Feld in alten Versionen von Dynamics NAV nicht verfügbar ist und daher bei der Migration von Daten nach BC nicht gefüllt wird. ...
8. Januar 2024 13:48
codeunit 60750 "Bugfix Unapply"
{
    InherentPermissions = X;
    Permissions = tabledata "Detailed Cust. Ledg. Entry" = RM,
                    tabledata "Detailed Vendor Ledg. Entry" = RM;
    [EventSubscriber(ObjectType::Codeunit, 12, 'OnUnapplyVendLedgEntryOnBeforeSecondLook', '', false, false)]
    local procedure BugfixPostingGroupVendorOnUnapplyBeforeSecondLook(NextDtldLedgEntryNo: Integer; var DtldVendLedgEntry2: Record "Detailed Vendor Ledg. Entry")
    var
        Vendor: Record Vendor;
    begin
        if DtldVendLedgEntry2.FindSet() then
            repeat
                Vendor.Get(DtldVendLedgEntry2."Vendor No.");
                if DtldVendLedgEntry2."Posting Group" = '' then begin
                    DtldVendLedgEntry2."Posting Group" := Vendor."Vendor Posting Group";
                    DtldVendLedgEntry2.Modify();
                end;
            until DtldVendLedgEntry2.Next() = 0;
    end;
    [EventSubscriber(ObjectType::Codeunit, 12, 'OnOnUnapplyCustLedgEntryOnBeforeSecondLook', '', false, false)]
    local procedure BugfixPostingGroupCustomerOnUnapplyBeforeSecondLook(NextDtldLedgEntryNo: Integer; var DtldCustLedgEntry2: Record "Detailed Cust. Ledg. Entry")
    var
        Customer: Record Customer;
    begin
        if DtldCustLedgEntry2.FindSet() then
            repeat
                Customer.Get(DtldCustLedgEntry2."Customer No.");
                if DtldCustLedgEntry2."Posting Group" = '' then begin
                    DtldCustLedgEntry2."Posting Group" := Customer."Customer Posting Group";
                    DtldCustLedgEntry2.Modify();
                end;
            until DtldCustLedgEntry2.Next() = 0;
    end;
}
8. Januar 2024 22:04