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 install this hotfix, change the code in the G/L Account table (15) as follows:
...
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,0);
END;
// Delete the following lines.
OnModify=BEGIN
"Last Date Modified" := TODAY;
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,1);
// End of the lines.
END;
OnDelete=VAR
GLBudgetEntry@1000 : Record 96;
CommentLine@1001 : Record 97;...
...
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,0);
END;
// Add the following lines.
OnModify=VAR
LicensePermission@1150000 : Record 2000000043;
BEGIN
"Last Date Modified" := TODAY;
IF LicensePermission.GET(LicensePermission."Object Type"::Table, DATABASE::"Cost Accounting Setup") THEN
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,1);
// End of the lines.
END;
OnDelete=VAR
GLBudgetEntry@1000 : Record 96;
CommentLine@1001 : Record 97;...
...
AnalysisViewBudgetEntry.DELETEALL;
DimMgt.DeleteDefaultDim(DATABASE::"G/L Account","No.");
END;
// Delete the following lines.
OnRename=BEGIN
"Last Date Modified" := TODAY;
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,3);
// End of the lines.
END;
CaptionML=[ENU=G/L Account;
ESP=Cuenta];
LookupFormID=Form18;
...
...
AnalysisViewBudgetEntry.DELETEALL;
DimMgt.DeleteDefaultDim(DATABASE::"G/L Account","No.");
END;
// Add the following lines.
OnRename=VAR
LicensePermission@1150000 : Record 2000000043;
BEGIN
"Last Date Modified" := TODAY;
IF LicensePermission.GET(LicensePermission."Object Type"::Table, DATABASE::"Cost Accounting Setup") THEN
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
IF CaSetup.READPERMISSION THEN
CostAccMgt.UpdateCostTypeFromGlAcc(Rec,xRec,3);
// End of the lines.
END;
CaptionML=[ENU=G/L Account;
ESP=Cuenta];
LookupFormID=Form18;
...