...
CalendarCode@1008 : Code[10];
OriginalDate@1009 : Date;
DayName@1010 : Text[30];
Text001@1015 : TextConst 'ENU=Yes';
Text002@1016 : TextConst 'ENU=No';
PROCEDURE ShowCustomizedCalendar@1(ForSourcetype@1000 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';ForSourceCode@1001 : Code[20];ForAdditionalSourceCode@1003 : Code[20];ForBaseCalendarCode@1002 : Code[10]);
BEGIN
CustCalEntry.DELETEALL;
CustCalEntry.INIT;
...
...
CalendarCode@1008 : Code[10];
OriginalDate@1009 : Date;
DayName@1010 : Text[30];
Text001@1015 : TextConst 'ENU=Yes';
Text002@1016 : TextConst 'ENU=No';
// Add the following lines.
OldSourceType@1010000 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';
OldSourceCode@1010001 : Code[20];
OldAdditionalSourceCode@1010002 : Code[20];
OldCalendarCode@1010003 : Code[10];
// End of the lines.
PROCEDURE ShowCustomizedCalendar@1(ForSourcetype@1000 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';ForSourceCode@1001 : Code[20];ForAdditionalSourceCode@1003 : Code[20];ForBaseCalendarCode@1002 : Code[10]);
BEGIN
CustCalEntry.DELETEALL;
CustCalEntry.INIT;
...