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.
...
ChangeType::Insert,NOT IdenticalArray[2]);
END ELSE BEGIN
// Delete the following lines.
TempReservEntry.SETRANGE("Serial No.",OldTrackingSpecification."Serial No.");
TempReservEntry.SETRANGE("Lot No.",OldTrackingSpecification."Lot No.");
OldTrackingSpecification."Serial No." := '';
OldTrackingSpecification."Lot No." := '';
OldTrackingSpecification."Warranty Date" := 0D;
OldTrackingSpecification."Expiration Date" := 0D;
QtyToAdd :=
CurrentSignFactor *
ReservEngineMgt.AddItemTrackingToTempRecSet(
TempReservEntry,OldTrackingSpecification,
CurrentSignFactor * (OldTrackingSpecification."Quantity (Base)" -
NewTrackingSpecification."Quantity (Base)"),QtyToAddAsBlank,
ItemTrackingCode."SN Specific Tracking",ItemTrackingCode."Lot Specific Tracking");
TempReservEntry.SETRANGE("Serial No.");
TempReservEntry.SETRANGE("Lot No.");
RegisterChange(NewTrackingSpecification,NewTrackingSpecification,
ChangeType::PartDelete,NOT IdenticalArray[2]);
END;
// The end of the deleted lines.
OK := TRUE;
END;
...
...
ChangeType::Insert,NOT IdenticalArray[2]);
END ELSE BEGIN
// Add the following lines.
IF NewTrackingSpecification."Quantity (Base)" <> 0 THEN BEGIN
TempReservEntry.SETRANGE("Serial No.",OldTrackingSpecification."Serial No.");
TempReservEntry.SETRANGE("Lot No.",OldTrackingSpecification."Lot No.");
OldTrackingSpecification."Serial No." := '';
OldTrackingSpecification."Lot No." := '';
OldTrackingSpecification."Warranty Date" := 0D;
OldTrackingSpecification."Expiration Date" := 0D;
QtyToAdd :=
CurrentSignFactor *
ReservEngineMgt.AddItemTrackingToTempRecSet(
TempReservEntry,OldTrackingSpecification,
CurrentSignFactor * (OldTrackingSpecification."Quantity (Base)" -
NewTrackingSpecification."Quantity (Base)"),QtyToAddAsBlank,
ItemTrackingCode."SN Specific Tracking",ItemTrackingCode."Lot Specific Tracking");
TempReservEntry.SETRANGE("Serial No.");
TempReservEntry.SETRANGE("Lot No.");
RegisterChange(NewTrackingSpecification,NewTrackingSpecification,
ChangeType::PartDelete,NOT IdenticalArray[2]);
END;
END;
// The end of the new lines.
OK := TRUE;
END;
...
You cannot remove this hotfix.