report 50104 "Value Entries Update"
{
Caption = 'Value Entries Update';
ProcessingOnly = true;
Permissions = tabledata "Value Entry" = rimd;
dataset
{
dataitem(ValueEntry; "Value Entry")
{
trigger OnAfterGetRecord()
var
SystemCreatedAtDate: Date;
IsModified: Boolean;
begin
if ((ValueEntry."Item Ledger Entry Type" = "Item Ledger Entry Type"::Purchase) or (ValueEntry."Item Ledger Entry Type" = "Item Ledger Entry Type"::Sale)) then begin
SystemCreatedAtDate := System.DT2Date(ValueEntry.SystemCreatedAt);
IsModified := false;
if (ValueEntry."Valuation Date" <> SystemCreatedAtDate) then begin
ValueEntry.Validate("Valuation Date", SystemCreatedAtDate);
IsModified := true;
end;
if (ValueEntry."Document Date" <> SystemCreatedAtDate) then begin
ValueEntry.Validate("Document Date", SystemCreatedAtDate);
IsModified := true;
end;
if (ValueEntry."Posting Date" <> SystemCreatedAtDate) then begin
ValueEntry.Validate("Posting Date", SystemCreatedAtDate);
IsModified := true;
end;
if (IsModified) then
ValueEntry.Modify();
end;
end;
}
}
}
