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 this problem, change the code Fields in the Prod. Order Component table (5407) as follows:
...
ProdOrderRtngLine@1001 : Record 5409;
Vendor@1130000 : Record 23;
SKU@1130001 : Record 5700;
GetPlanningParameters@1130002 : Codeunit 99000855;
SubcontractingManagement@1130003 : Codeunit 12152;
BEGIN
VALIDATE("Expected Quantity",Quantity * ProdOrderNeeds);
ProdOrderLine.GET(Status,"Prod. Order No.","Prod. Order Line No.");
...
...
ProdOrderRtngLine@1001 : Record 5409;
Vendor@1130000 : Record 23;
SKU@1130001 : Record 5700;
GetPlanningParameters@1130002 : Codeunit 99000855;
SubcontractingManagement@1130003 : Codeunit 12152;
// Add the following line.
LicensePermission@1002 : Record 2000000043;
// End of the line.
BEGIN
VALIDATE("Expected Quantity",Quantity * ProdOrderNeeds);
ProdOrderLine.GET(Status,"Prod. Order No.","Prod. Order Line No.");
...
...
ProdOrderRtngLine.SETRANGE("Routing Reference No.",ProdOrderLine."Routing Reference No.");
ProdOrderRtngLine.SETRANGE("Routing Link Code","Routing Link Code");
IF ProdOrderRtngLine.FIND('-') THEN BEGIN
"Due Date" := ProdOrderRtngLine."Starting Date";
"Due Time" := ProdOrderRtngLine."Starting Time";
// Delete the following lines.
IF SubcontractorPrices.READPERMISSION THEN
IF (ProdOrderRtngLine.Type = ProdOrderRtngLine.Type::"Work Center") THEN
IF SubcontractingManagement.GetSubcontractor(ProdOrderRtngLine."No.",Vendor) THEN
IF Vendor."Subcontractor Procurement" THEN
VALIDATE("Location Code",Vendor."Subcontracting Location Code");
// End of the lines.
END;
END ELSE BEGIN
IF xRec."Routing Link Code" <> '' THEN BEGIN
GetPlanningParameters.AtSKU(
SKU,
...
...
ProdOrderRtngLine.SETRANGE("Routing Reference No.",ProdOrderLine."Routing Reference No.");
ProdOrderRtngLine.SETRANGE("Routing Link Code","Routing Link Code");
IF ProdOrderRtngLine.FIND('-') THEN BEGIN
"Due Date" := ProdOrderRtngLine."Starting Date";
"Due Time" := ProdOrderRtngLine."Starting Time";
// Add the following lines.
IF LicensePermission.GET(LicensePermission."Object Type"::TableData, DATABASE::"Subcontractor Prices") THEN
IF LicensePermission."Execute Permission" <> LicensePermission."Execute Permission"::" " THEN
IF (ProdOrderRtngLine.Type = ProdOrderRtngLine.Type::"Work Center") THEN
IF SubcontractingManagement.GetSubcontractor(ProdOrderRtngLine."No.",Vendor) THEN
IF Vendor."Subcontractor Procurement" THEN
VALIDATE("Location Code",Vendor."Subcontracting Location Code");
// End of the lines.
END;
END ELSE BEGIN
IF xRec."Routing Link Code" <> '' THEN BEGIN
GetPlanningParameters.AtSKU(
SKU,
...