Dynamics Community Forum Thread Details

Update Gen. Journal Line gives Nothing to Post however is does post.

I've added an Applies-to Purh Order field on a release purchase order, it is posted and then the Gen. Journal Line is updated. I receive the error "Nothing to Post", however it did post

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Gen. Jnl.-Post Line", 'OnBeforeCode', '', true, true)]
    local procedure GenJnlPostLine_OnBeforeStartOrContinuePosting(var GenJnlLine: Record "Gen. Journal Line"; var GLReg: Record "G/L Register"; CheckLine: Boolean; var IsPosted: Boolean)
    var
        PurchaseHeader: Record "Purchase Header";
        PurchaseManagement: Codeunit "Purchase ManagementBSNAP";
        PurchInvNo: Code[20];
    begin
        if GenJnlLine."Applies-to Purh OrderBSNAP" <> '' then begin
            PurchaseHeader.Get(PurchaseHeader."Document Type"::Order, GenJnlLine."Applies-to Purh OrderBSNAP");
            PurchInvNo := PurchaseManagement.PostGLAppliedPO(PurchaseHeader);
            if (PurchInvNo = '') then
                Error(GetLastErrorText());
            Commit();
            GenJnlLine.Validate("Applies-to Doc. Type", GenJnlLine."Applies-to Doc. Type"::Invoice);
            GenJnlLine.Validate("Applies-to Doc. No.", PurchInvNo);
            GenJnlLine."Applies-to Purh OrderBSNAP" := '';
            GenJnlLine.Modify(true);
        end;
        IsPosted := false;

Quick Links