...
BEGIN
//Delete the following lines.
Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
Todo3.RESET;
Todo2.SETRANGE("Organizer To-do No.",OldTodoNo);
IF "Team Code" = '' THEN
Todo2.SETFILTER(
"System To-do Type",
'%1|%2',
Todo2."System To-do Type"::"Salesperson Attendee",
Todo2."System To-do Type"::"Contact Attendee")
ELSE
Todo2.SETFILTER("System To-do Type",'<>%1',Todo2."System To-do Type"::Team);
IF Todo2.FIND('-') THEN
REPEAT
TodoBuffer.INIT;
TodoBuffer.TRANSFERFIELDS(Todo2,FALSE);
TodoBuffer.INSERT;
Todo2.TRANSFERFIELDS(Rec,FALSE);
Todo2."System To-do Type" := TodoBuffer."System To-do Type";
IF Todo2."System To-do Type" = Todo2."System To-do Type"::"Contact Attendee" THEN
Todo2.VALIDATE("Contact No.",TodoBuffer."Contact No.")
ELSE
Todo2."Salesperson Code" := TodoBuffer."Salesperson Code";
Todo2.MODIFY(TRUE);
TodoBuffer.DELETE;
UNTIL Todo2.NEXT = 0;
IF ISSERVICETIER THEN BEGIN
// End of the deleted lines.
Todo3.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
Todo3.SETRANGE("Organizer To-do No.","Organizer To-do No.");
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;
...
...
BEGIN
// Add the following lines.
IF ISSERVICETIER THEN BEGIN
Todo3.RESET;
// End of the added lines.
Todo3.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
Todo3.SETRANGE("Organizer To-do No.","Organizer To-do No.");
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;
// Add the following lines.
END ELSE BEGIN
Todo2.SETCURRENTKEY("Organizer To-do No.","System To-do Type");
Todo2.SETRANGE("Organizer To-do No.",OldTodoNo);
IF "Team Code" = '' THEN
Todo2.SETFILTER(
"System To-do Type",
'%1|%2',
Todo2."System To-do Type"::"Salesperson Attendee",
Todo2."System To-do Type"::"Contact Attendee")
ELSE
Todo2.SETFILTER("System To-do Type",'<>%1',Todo2."System To-do Type"::Team);
IF Todo2.FIND('-') THEN
REPEAT
TodoBuffer.INIT;
TodoBuffer.TRANSFERFIELDS(Todo2,FALSE);
TodoBuffer.INSERT;
Todo2.TRANSFERFIELDS(Rec,FALSE);
Todo2."System To-do Type" := TodoBuffer."System To-do Type";
IF Todo2."System To-do Type" = Todo2."System To-do Type"::"Contact Attendee" THEN
Todo2.VALIDATE("Contact No.",TodoBuffer."Contact No.")
ELSE
Todo2."Salesperson Code" := TodoBuffer."Salesperson Code";
Todo2.MODIFY(TRUE);
TodoBuffer.DELETE;
UNTIL Todo2.NEXT = 0;
// End of the added lines.
END;
END;
...