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 Fields section in the Prod. Order Line table (5406) as follows:
...
IF "Routing No." <> xRec."Routing No." THEN BEGIN
// Delete the following lines.
IF CheckCapLedgEntry THEN
ERROR(
Text99000004,
FIELDCAPTION("Routing No."),xRec."Routing No.",CapLedgEntry.TABLECAPTION);
IF CheckSubcontractPurchOrder THEN
ERROR(
Text99000004,
FIELDCAPTION("Routing No."),xRec."Routing No.",PurchLine.TABLECAPTION);
END;
// End of the lines.
IF "Routing No." = '' THEN
EXIT;
...
...
IF "Routing No." <> xRec."Routing No." THEN BEGIN
// Add the following lines.
IF Status = Status::Released THEN BEGIN
IF CheckCapLedgEntry THEN
ERROR(
Text99000004,
FIELDCAPTION("Routing No."),xRec."Routing No.",CapLedgEntry.TABLECAPTION);
IF CheckSubcontractPurchOrder THEN
ERROR(
Text99000004,
FIELDCAPTION("Routing No."),xRec."Routing No.",PurchLine.TABLECAPTION);
END;
ProdOrderRtngLine.SETRANGE(Status,Status);
ProdOrderRtngLine.SETRANGE("Prod. Order No.","Prod. Order No.");
ProdOrderRtngLine.SETRANGE("Routing No.",xRec."Routing No.");
ProdOrderRtngLine.SETRANGE("Routing Reference No.","Line No.");
ProdOrderRtngLine.DELETEALL(TRUE);
END;
// End of the lines.
IF "Routing No." = '' THEN
EXIT;
...