To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
LOCAL PROCEDURE UpdateAttendeeTodos@12(OldTodoNo@1003 : Code[20]);
VAR
Todo2@1001 : Record 5080;
TodoBuffer@1002 : TEMPORARY Record 5080;
//Delete the following lines.
BEGIN
Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
//End of the lines.
Todo2.SETRANGE("Organizer To-do No.",OldTodoNo);
IF "Team Code" = '' THEN
Todo2.SETFILTER(
"System To-do Type",
...
...
LOCAL PROCEDURE UpdateAttendeeTodos@12(OldTodoNo@1003 : Code[20]);
VAR
Todo2@1001 : Record 5080;
TodoBuffer@1002 : TEMPORARY Record 5080;
//Add the following lines.
Todo3@1102601000 : Record 5080;
BEGIN
Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
Todo3.RESET;
//End of the lines.
Todo2.SETRANGE("Organizer To-do No.",OldTodoNo);
IF "Team Code" = '' THEN
Todo2.SETFILTER(
"System To-do Type",
...
...
ELSE
Todo2."Salesperson Code" := TodoBuffer."Salesperson Code";
Todo2.MODIFY(TRUE);
TodoBuffer.DELETE;
//Delete the following line.
UNTIL Todo2.NEXT = 0
END;
PROCEDURE UpdateInteractionTemplate@13(VAR Todo@1004 : Record 5080;VAR TodoInteractionLanguage@1007 : Record 5196;VAR Attachment@1001 : Record 5062;InteractTmplCode@1006 : Code[10];AttachmentTemporary@1005 : Boolean);
VAR
...
... ELSE Todo2."Salesperson Code" := TodoBuffer."Salesperson Code"; Todo2.MODIFY(TRUE); TodoBuffer.DELETE; //Add the following lines. UNTIL Todo2.NEXT = 0; IF ISSERVICETIER THEN BEGIN Todo3.SETCURRENTKEY("Organizer To-do No.","System To-do Type"); Todo3.SETRANGE ("Organizer to do no.", OldTodoNo);
IF Todo3.FINDSET THEN
REPEAT
IF Todo3."No." <> "No." THEN BEGIN
TodoBuffer.INIT;
TodoBuffer.TRANSFERFIELDS(Todo3,FALSE);
TodoBuffer.INSERT;
Todo3.TRANSFERFIELDS(Rec,FALSE);
Todo3."System To-do Type" := TodoBuffer."System To-do Type";
IF Todo3."System To-do Type" = Todo3."System To-do Type"::"Contact Attendee" THEN
Todo3.VALIDATE("Contact No.",TodoBuffer."Contact No.")
ELSE
Todo3."Salesperson Code" := TodoBuffer."Salesperson Code";
SearchManagement.ParseToDo(Todo3, FALSE);
Todo3."Last Date Modified" := TODAY;
Todo3."Last Time Modified" := TIME;
MobSalesMgt.TodoOnModify(Todo3);
Todo3.MODIFY;
TodoBuffer.DELETE;
END;
UNTIL Todo3.NEXT = 0;
END;
//End of the lines.
END;
PROCEDURE UpdateInteractionTemplate@13(VAR Todo@1004 : Record 5080;VAR TodoInteractionLanguage@1007 : Record 5196;VAR Attachment@1001 : Record 5062;InteractTmplCode@1006 : Code[10];AttachmentTemporary@1005 : Boolean);
VAR
...