...
LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrPage.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
// Delete the following line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
// End of the deleted line.
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
BEGIN
...
...
LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrPage.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
// Add the following line.
CopyDocMgt.SetProperties(FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
// End of the added line.
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
BEGIN
...