Wie bekomme ich es hin, dass das Setzen von SetRange auf einer Page einen Effekt hat?
Mein Code in Page (B):
- Code: Alles auswählen
trigger OnAfterGetRecord()
var
ItemAttributeValue: Record "Item Attribute Value";
ItemAttribute: Record "Item Attribute";
begin
if ItemAttributeValue.Get(Rec."Item Attribute ID", Rec."Item Attribute Value ID") then begin
if ItemAttribute.Get(Rec."Item Attribute ID") then begin
Name := ItemAttribute."Name";
Value := ItemAttributeValue.Value;
"Valid Values" := ItemAttributeValue."Valid Values";
end;
end;
end;
procedure UpdateLineNo(LineNo: Integer)
var
MergedCode: Code[20];
Utilities: Codeunit Utilities;
begin
Clear(Rec);
CurrPage.Update(False);
MergedCode := Utilities.MergeCodes(HeaderNo, Format(LineNo));
Rec.SetRange("No.", MergedCode);
Rec.SetRange("Table ID", Database::"Production BOM Template Line");
CurrPage.Update(False);
end;
Mein Code in Page (A):
- Code: Alles auswählen
local procedure OnSelectedLineChanged(LineNo: Integer)
begin
LinkedFactbox.UpdateLineNo(LineNo);
end;