...
SalesDocType::"Posted Credit Memo":
BEGIN
ToSalesHeader.VALIDATE("Sell-to Customer No.",FromSalesCrMemoHeader."Sell-to Customer No.");
// Delete the following line.
TRANSFERFIELDS(FromSalesCrMemoHeader,FALSE);
CopyFromPstdSalesDocDimToHdr(
ToSalesHeader,FromDocType,FromSalesShptHeader,FromSalesInvHeader,
FromReturnRcptHeader,FromSalesCrMemoHeader);
...
...
SalesDocType::"Posted Credit Memo":
BEGIN
ToSalesHeader.VALIDATE("Sell-to Customer No.",FromSalesCrMemoHeader."Sell-to Customer No.");
// Add the following line.
CopySalesCrMemoHeader(ToSalesHeader,FromSalesCrMemoHeader); // PT0001
CopyFromPstdSalesDocDimToHdr(
ToSalesHeader,FromDocType,FromSalesShptHeader,FromSalesInvHeader,
FromReturnRcptHeader,FromSalesCrMemoHeader);
...
...
END;
SalesDocType::"Posted Credit Memo":
BEGIN
// Delete the following line.
FromSalesHeader.TRANSFERFIELDS(FromSalesCrMemoHeader);
FromSalesCrMemoLine.RESET;
FromSalesCrMemoLine.SETRANGE("Document No.",FromSalesCrMemoHeader."No.");
IF MoveNegLines THEN
...
...
END;
SalesDocType::"Posted Credit Memo":
BEGIN
// Add the following line.
CopySalesCrMemoHeader(FromSalesHeader,FromSalesCrMemoHeader); // PT0001
FromSalesCrMemoLine.RESET;
FromSalesCrMemoLine.SETRANGE("Document No.",FromSalesCrMemoHeader."No.");
IF MoveNegLines THEN
...