tableextension 80023 PurchaseHeaderMK extends "Purchase Header"
{
trigger OnAfterModify()
var
RecEmailM: Codeunit "Email Message";
RecEmail: Codeunit Email;
Body: Text;
Msg: Label 'Hello <br><br>The Purchase Order No. is <strong>%1</strong> from Vendor <strong>%2</strong>.<br><br>The Expected Receipt date is changed from <strong>%3</strong> to <strong>%4</strong>.';
UserSetup: Record "User Setup";
UserIdVar: Text[100];
EmailCreated: Boolean;
begin
if (Rec."Expected Receipt Date" <> xRec."Expected Receipt Date") AND (xRec."Expected Receipt Date" <> 0D) then begin
UserSetup.SETRANGE(PORNotify, TRUE);
if UserSetup.FINDSET THEN BEGIN
REPEAT
UserIdVar := FORMAT(UserSetup."User ID");
Body := StrSubstNo(Msg, Rec."No.", rec."Buy-from Vendor Name", xRec."Expected Receipt Date", Rec."Expected Receipt Date");
RecEmailM.Create(UserSetup."E-Mail", 'Purchase Order - Email Notification', Body, true);
IF NOT RecEmail.Send(RecEmailM) THEN BEGIN
ERROR('Failed to send email to user: %1', UserIdVar);
END;
UNTIL UserSetup.NEXT = 0;
END;
Message('Expected Date changed from %1 to %2', xRec."Expected Receipt Date", rec."Expected Receipt Date");
end;
end;
}
