Dynamics Community Forum Thread Details

Issue with AL Code

Hi BC Guru's,

We have some custom code written for us but unfortunately it is not working properly, and we cannot seem to find the issue. It seems that the code is always using the marketing G/L accounts regardless of the criteria.

The criteria that must be met to use the marketing G/L is below:

The Cost of Goods Sold G/L Account Reassignment functionality uses the Return Reason code and the line amount field values specified in the Sales Line to determine if posting to the Marketing G/L Account is required. The following are the scenarios:

#1) If the good is sold for $0, and the return reason is blank, then the COG will flow through to the appropriate Market COGS G/L Account.

#2) If the good is sold for $0, and the return reason is populated with an option on the table, but it is not checked off; then it does NOT flow to the Market COGS G/L Account, and it stays in the general posting group of cost of goods. As an example, if someone receives a damaged product and we send a new one at $0, this COGS G/L Account will remain in the general posting group of cost of goods; and it would not be charged to marketing.

#3) If the good is sold for $0, and the return reason is populated with an option on the table that is checked in the box, then it does flow to the Market COGS G/L Account.

I have attached our code below:

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Inventory Posting To G/L", 'OnBeforeSetAccNo', '', true, true)]
    local procedure OnBeforeSetAccNo(var InvtPostBuf: Record "Invt. Posting Buffer"; ValueEntry: Record "Value Entry"; var IsHandled: Boolean)
    var
        lrecItem: Record Item;
        lrecItemDiscountGroup: Record "Item Discount Group";
        lrecReturnReason: Record "Return Reason";
        bMarketing: Boolean;
    begin
        bMarketing := false;
        IsHandled := false;
        if InvtPostBuf."Account Type" <> InvtPostBuf."Account Type"::COGS then
            exit;
        if ValueEntry."Return Reason Code" <> '' then
            if lrecReturnReason.Get(ValueEntry."Return Reason Code") then
                bMarketing := lrecReturnReason."INT-Marketing";

        if lrecItem.Get(ValueEntry."Item No.") then
            if lrecItem."Item Disc. Group" <> '' then
                if lrecItemDiscountGroup.Get(lrecItem."Item Disc. Group") then
                    if ((ValueEntry."Sales Amount (Actual)" = 0) and (ValueEntry."Sales Amount (Expected)" = 0)) then
                        if ((ValueEntry."Return Reason Code" = '') or ((ValueEntry."Return Reason Code" <> '') and bMarketing)) then
                            case ValueEntry."Gen. Bus. Posting Group" of
                                'GENERAL':
                                    If lrecItemDiscountGroup."INT-General G/L" <> '' then begin
                                        InvtPostBuf."Account No." := lrecItemDiscountGroup."INT-General G/L";
                                        IsHandled := true;
                                    end;
                                'INTERCO':
                                    If lrecItemDiscountGroup."INT-Intercompany G/L" <> '' then begin
                                        InvtPostBuf."Account No." := lrecItemDiscountGroup."INT-Intercompany G/L";
                                        IsHandled := true;
                                    end;
                            end;
    end;
}

Quick Links

Leaderboard