...
DimMgt.MoveOneDocDimToPostedDocDim(
TempDocDim,DATABASE::"Purchase Header","Document Type","No.",0,
DATABASE::"Purch. Cr. Memo Hdr.",PurchCrMemoHeader."No.");
ApprovalMgt.MoveApprvalEntryToPosted(TempApprovalEntry,DATABASE::"Purch. Cr. Memo Hdr.",PurchCrMemoHeader."No.");
IF PurchSetup."Copy Cmts Ret.Ord. to Cr. Memo" THEN BEGIN
...
...
DimMgt.MoveOneDocDimToPostedDocDim(
TempDocDim,DATABASE::"Purchase Header","Document Type","No.",0,
DATABASE::"Purch. Cr. Memo Hdr.",PurchCrMemoHeader."No.");
// Add the following lines.
DocSignMgt.MoveDocSignToPostedDocSign(
DocSign,DATABASE::"Purchase Header",
"Document Type","No.",
DATABASE::"Purch. Cr. Memo Hdr.",PurchCrMemoHeader."No.");
// End of the added lines.
ApprovalMgt.MoveApprvalEntryToPosted(TempApprovalEntry,DATABASE::"Purch. Cr. Memo Hdr.",PurchCrMemoHeader."No.");
IF PurchSetup."Copy Cmts Ret.Ord. to Cr. Memo" THEN BEGIN
...