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.
...
UNTIL ServLine.NEXT = 0;
END;
LOCAL PROCEDURE CheckCloseCondition@13(Qty@1000 : Decimal;QtytoInv@1001 : Decimal;QtyToCsm@1002 : Decimal;QtyInvd@1003 : Decimal;QtyCsmd@1004 : Decimal) : Boolean;
// Delete the following lines.
BEGIN
EXIT(Qty = QtyToCsm + QtytoInv + QtyCsmd + QtyInvd);
// End of the deleted lines.
END;
LOCAL PROCEDURE CheckSysCreatedEntry@45();
BEGIN
WITH ServLine DO BEGIN
...
...
UNTIL ServLine.NEXT = 0;
END;
LOCAL PROCEDURE CheckCloseCondition@13(Qty@1000 : Decimal;QtytoInv@1001 : Decimal;QtyToCsm@1002 : Decimal;QtyInvd@1003 : Decimal;QtyCsmd@1004 : Decimal) : Boolean;
// Add the following lines.
VAR
QtyClosedCondition@1102601000 : Boolean;
ServiceItemClosedCondition@1102601001 : Boolean;
ServiceItemLineTemp@1102601002 : Record 5901;
ServiceLineTemp@1102601003 : Record 5902;
BEGIN
QtyClosedCondition:= (Qty = QtyToCsm + QtytoInv + QtyCsmd + QtyInvd);
ServiceItemClosedCondition := TRUE;
ServiceItemLineTemp.SETCURRENTKEY("Document Type","Document No.","Line No.");
ServiceItemLineTemp.SETRANGE("Document Type", ServItemLine."Document Type");
ServiceItemLineTemp.SETRANGE("Document No.", ServItemLine."Document No.");
IF ServiceItemLineTemp.FIND('-') THEN
REPEAT
ServiceLineTemp.SETCURRENTKEY("Document Type","Document No.","Service Item No.");
ServiceLineTemp.SETRANGE("Document Type", ServiceItemLineTemp."Document Type");
ServiceLineTemp.SETRANGE("Document No.", ServiceItemLineTemp."Document No.");
ServiceLineTemp.SETRANGE("Service Item No.", ServiceItemLineTemp."Service Item No.");
IF NOT ServiceLineTemp.FIND('-') THEN
ServiceItemClosedCondition := FALSE
UNTIL (ServiceItemLineTemp.NEXT = 0) OR (NOT ServiceItemClosedCondition);
EXIT(QtyClosedCondition AND ServiceItemClosedCondition);
// End of the added lines.
END;
LOCAL PROCEDURE CheckSysCreatedEntry@45();
BEGIN
WITH ServLine DO BEGIN
...