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.
To resolve the problem, change the code in the Calendar Management codeunit (7600) as follows:
...
Customer@1003 : Record 18;
Vendor@1004 : Record 23;
Location@1005 : Record 14;
CompanyInfo@1006 : Record 79;
ServMgtSetup@1014 : Record 5911;
Shippingagent@1007 : Record 5790;
BaseCalChange@1011 : Record 7601;
CustCalChange@1001 : Record 7602;
// Delete the following line.
CustCalEntry@1000 : Record 7603;
TempCustChange@1002 : TEMPORARY Record 7602;
TempCounter@1013 : Integer;
CalculatedDays@1012 : Integer;
CalendarCode@1008 : Code[10];
OriginalDate@1009 : Date;
DayName@1010 : Text[30];
Text001@1015 : TextConst 'ENU=Yes';
Text002@1016 : TextConst 'ENU=No';
OldSourceType@1050 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';
OldSourceCode@1051 : Code[20];
OldAdditionalSourceCode@1052 : Code[20];
OldCalendarCode@1053 : Code[10];
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
// Delete the following lines.
CustCalEntry.DELETEALL;
CustCalEntry.INIT;
CustCalEntry."Source Type" := ForSourcetype;
CustCalEntry."Source Code" := ForSourceCode;
CustCalEntry."Additional Source Code" := ForAdditionalSourceCode;
CustCalEntry."Base Calendar Code" := ForBaseCalendarCode;
CustCalEntry.INSERT;
FORM.RUN(FORM::"Customized Calendar Entries",CustCalEntry);
// End of the lines.
END;
...
...
Customer@1003 : Record 18;
Vendor@1004 : Record 23;
Location@1005 : Record 14;
CompanyInfo@1006 : Record 79;
ServMgtSetup@1014 : Record 5911;
Shippingagent@1007 : Record 5790;
BaseCalChange@1011 : Record 7601;
CustCalChange@1001 : Record 7602;
TempCustChange@1002 : TEMPORARY Record 7602;
TempCounter@1013 : Integer;
CalculatedDays@1012 : Integer;
CalendarCode@1008 : Code[10];
OriginalDate@1009 : Date;
DayName@1010 : Text[30];
Text001@1015 : TextConst 'ENU=Yes';
Text002@1016 : TextConst 'ENU=No';
OldSourceType@1050 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';
OldSourceCode@1051 : Code[20];
OldAdditionalSourceCode@1052 : Code[20];
OldCalendarCode@1053 : Code[10];
PROCEDURE ShowCustomizedCalendar@1(ForSourcetype@1000 : 'Company,Customer,Vendor,Location,Shipping Agent,Service';ForSourceCode@1001 : Code[20];ForAdditionalSourceCode@1003 : Code[20];ForBaseCalendarCode@1002 : Code[10]);
// Add the following lines.
VAR
TempCustCalEntry@1004 : TEMPORARY Record 7603;
// End of the lines.
BEGIN
// Add the following lines.
TempCustCalEntry.DELETEALL;
TempCustCalEntry.INIT;
TempCustCalEntry."Source Type" := ForSourcetype;
TempCustCalEntry."Source Code" := ForSourceCode;
TempCustCalEntry."Additional Source Code" := ForAdditionalSourceCode;
TempCustCalEntry."Base Calendar Code" := ForBaseCalendarCode;
TempCustCalEntry.INSERT;
FORM.RUN(FORM::"Customized Calendar Entries",TempCustCalEntry);
// End of the lines.
END;
...