从 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
我有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