从 Gen Business Posting Group Table 分配一个值

Assign a value from Gen Business Posting Group Table

我有Gen Bus。显示在销售订单子窗体上的过帐组字段。此子表单还显示线路的位置代码。

我正在尝试编写这样的逻辑,如果用户选择位置代码作为 DROPSHIP,则为 Gen Bus。发帖组应该是 LOCAL-DROPSHIP。

LOCAL-DROPSHIP 是 Gen. Bus 中的记录。发帖群。我在编写此代码之前创建了它。但是,它不会分配给我的 rec.Gen 总线。发帖组。

这是子表单上的代码;

modify("Location Code")
    {
        trigger OnAfterValidate()
        var
            recLocation: Record Location;
            recCustomer: Record Customer;
            recSalesLine: Record "Sales Line";
            recGenPosting: Record "Gen. Business Posting Group";

        begin
            recGenPosting.Get('LOCAL-DS');
            if rec."Location Code" = 'DROPSHIP' then begin
                Message(recGenPosting.Code);
               // Validate("Gen. Bus. Posting Group", recGenPosting.Code);
                Rec."Gen. Bus. Posting Group" := recGenPosting.Code;
                CurrPage.Update();
            end;
        end;
    }

您应该将 Table 扩展为 Table 销售行而不是页面扩展。在这种情况下验证很重要。

Extended Sales Line table,在 OnModify 触发器上写道;

   if rec."Location Code" = 'DROPSHIP' then begin
            If recCustomer.Get(REC."Sell-to Customer No.") THEN begin
                if recCustomer."Country/Region Code" = 'CITY' then begin
                    rec."Gen. Bus. Posting Group" := 'DS';
                    rec.Modify();
                end
        end