Hello,
Please add an event in table 5050 for the function "TouchContact".
The event should call "OnBeforeTouchContact". I marked the new Code in the code below with //Start New Code and //End New Code.
procedure TouchContact(ContactNo: Code[20])
var
Cont: Record Contact;
IsHandled: Boolean; //New Code
begin
//Start New Code
OnBeforeTouchContact(Rec, IsHandled);
if IsHandeled then
exit;
//End New Code
Cont.LockTable();
if Cont.Get(ContactNo) then begin
Cont.SetLastDateTimeModified();
Cont.Modify();
end;
end;
Additional context
Skip the modification of the Contact.
Internal work item: AB#543558
Describe the request
Hello, Please add an event in table 5050 for the function "TouchContact".
The event should call "OnBeforeTouchContact". I marked the new Code in the code below with //Start New Code and //End New Code.
procedure TouchContact(ContactNo: Code[20]) var Cont: Record Contact; IsHandled: Boolean; //New Code begin //Start New Code OnBeforeTouchContact(Rec, IsHandled); if IsHandeled then exit; //End New Code
Additional context
Skip the modification of the Contact. Internal work item: AB#543558