Dynamics Community Forum Thread Details

Unable to delete Transfer Order in case of Short Closed=true, Qty Shipped=received, Outstanding QTy=0

Dear Sir/Madam,

I'm stuck over the same issue for a week. Please give me a solution on the same. Please find my code as per below on 'Short Closed Delete' button.

LOCAL DeleteShortClosed()
//IF NOT CONFIRM(GITL01) THEN
CLEAR(TransferLine);
CLEAR(TransferHeader);
TransferLine.RESET;
TransferLine.SETRANGE("Document No.",TransferLine."Document No.");
TransferLine.SETRANGE("Line No.",TransferLine."Line No.");
TransferLine.SETRANGE(Status,TransferLine.Status::Open);
TransferLine.SETRANGE("Short Closed",TRUE);
//TransferLine.SETRANGE("Completely Received",TRUE);
//TransferLine.SETRANGE("Completely Shipped",TRUE);
TransferLine.SETRANGE("Outstanding Qty. (Base)",0);
TransferLine.SETRANGE("Outstanding Quantity",0);

IF TransferLine."Quantity Received" = TransferLine."Quantity Shipped" THEN
IF TransferLine.FINDFIRST THEN
REPEAT
TransferLine.DELETE;
i+=1;
UNTIL TransferLine.NEXT=0;
//REPEAT UNTIL TransferHeader.NEXT=0;
TransferHeader.RESET;
TransferHeader.SETRANGE("No.");
TransferHeader.SETRANGE(Status,TransferHeader.Status::Open);
IF TransferHeader.FINDFIRST THEN
REPEAT
TransferHeader.DELETE;
BEGIN END;
UNTIL TransferHeader.NEXT=0;
IF i <> 0 THEN
MESSAGE('LInes Deleted')
ELSE
MESSAGE('LInes not deleted',i);
BEGIN END;