Skip to content

KVSADVAutoPostingPurchase#

Procedures#

OnRun#

procedure OnRun(Rec: Record "#437dbf0e84ff417a965ded2bb9650972#Purchase Header")

CreateCorrectionAdvanceCreditMemoForPostedInvoice(Record Purch. Inv. Header, Boolean) : Code[20]#

procedure CreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Purch. Inv. Header"; OpenCreatedCrMemo: Boolean): Code[20]

CalcRealAmt(Record Vendor Ledger Entry) : Decimal#

procedure CalcRealAmt(CVLedgerEntryToCalc: Record "Vendor Ledger Entry"): Decimal

CalcRealAmt(Record Vendor Ledger Entry, Option) : Decimal#

procedure CalcRealAmt(CVLedgerEntryToCalc: Record "Vendor Ledger Entry"; AmountType: Option): Decimal

Events#

OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(Record Purchase Header, Record Vendor Ledger Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(ApplDocumentHeader: Record "Purchase Header"; var CVLedgerEntry: Record "Vendor Ledger Entry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo', '', false, false)]
local procedure DoSomethingOnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(ApplDocumentHeader: Record "Purchase Header"; var CVLedgerEntry: Record "Vendor Ledger Entry")
begin
end;

OnAfterInsertCloseCredMemo(Record Purchase Header, Record Purchase Header) :#

[IntegrationEvent(false, false)]
local procedure OnAfterInsertCloseCredMemo(var CloseCredMemo: Record "Purchase Header"; ApplDocumentHeader: Record "Purchase Header"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterInsertCloseCredMemo', '', false, false)]
local procedure DoSomethingOnAfterInsertCloseCredMemo(var CloseCredMemo: Record "Purchase Header"; ApplDocumentHeader: Record "Purchase Header")
begin
end;

OnBeforeInsertCloseCredMemo(Record Purchase Header, Record Purchase Header, Record Vendor Ledger Entry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertCloseCredMemo(var CloseCredMemo: Record "Purchase Header"; ApplDocumentHeader: Record "Purchase Header"; CVLedgerEntry: Record "Vendor Ledger Entry"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeInsertCloseCredMemo', '', false, false)]
local procedure DoSomethingOnBeforeInsertCloseCredMemo(var CloseCredMemo: Record "Purchase Header"; ApplDocumentHeader: Record "Purchase Header"; CVLedgerEntry: Record "Vendor Ledger Entry"; var IsHandled: Boolean)
begin
end;

OnBeforeInsertRemCredMemoWithBuffer(Record Purchase Header, Record KVSADVAutoCreatedDocsBuffer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertRemCredMemoWithBuffer(ClosingInvHeader: Record "Purchase Header"; var AutoCreatedDocsBuffer: Record "KVSADVAutoCreatedDocsBuffer"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeInsertRemCredMemoWithBuffer', '', false, false)]
local procedure DoSomethingOnBeforeInsertRemCredMemoWithBuffer(ClosingInvHeader: Record "Purchase Header"; var AutoCreatedDocsBuffer: Record "KVSADVAutoCreatedDocsBuffer"; var IsHandled: Boolean)
begin
end;

OnBeforeCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(Record Vendor Ledger Entry, Record Purchase Header, Code[20], Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(CVLedgerEntry: Record "Vendor Ledger Entry"; InvoiceHeader: Record "Purchase Header"; var CreatedDocHeaderNo: Code[20]; var Result: Boolean; var IsHandled: Boolean; ManualCancel: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry', '', false, false)]
local procedure DoSomethingOnBeforeCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(CVLedgerEntry: Record "Vendor Ledger Entry"; InvoiceHeader: Record "Purchase Header"; var CreatedDocHeaderNo: Code[20]; var Result: Boolean; var IsHandled: Boolean; ManualCancel: Boolean)
begin
end;

OnAfterCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(Record Purchase Header, Record Vendor Ledger Entry, Record Purchase Header) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(var CreditMHeader: Record "Purchase Header"; CVLedgerEntry: Record "Vendor Ledger Entry"; InvoiceHeader: Record "Purchase Header"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry', '', false, false)]
local procedure DoSomethingOnAfterCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(var CreditMHeader: Record "Purchase Header"; CVLedgerEntry: Record "Vendor Ledger Entry"; InvoiceHeader: Record "Purchase Header")
begin
end;

OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(Record Purch. Inv. Header, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Purch. Inv. Header"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice', '', false, false)]
local procedure DoSomethingOnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Purch. Inv. Header"; var IsHandled: Boolean)
begin
end;

OnBeforePostExRateDiffbyClCMGenJnlLine(Record Gen. Journal Line, Codeunit Gen. Jnl.-Post Line, Record KVSADVAdvClosingCredMemoEntry, Record Purchase Header, Record Purchase Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforePostExRateDiffbyClCMGenJnlLine(var GenJnlLine: Record "Gen. Journal Line"; var GenJnlLinePost: Codeunit "Gen. Jnl.-Post Line"; AdvClosingCMEntry: Record "KVSADVAdvClosingCredMemoEntry"; DocumentHeader: Record "Purchase Header"; DocumentLine: Record "Purchase Line"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforePostExRateDiffbyClCMGenJnlLine', '', false, false)]
local procedure DoSomethingOnBeforePostExRateDiffbyClCMGenJnlLine(var GenJnlLine: Record "Gen. Journal Line"; var GenJnlLinePost: Codeunit "Gen. Jnl.-Post Line"; AdvClosingCMEntry: Record "KVSADVAdvClosingCredMemoEntry"; DocumentHeader: Record "Purchase Header"; DocumentLine: Record "Purchase Line"; var IsHandled: Boolean)
begin
end;

OnAfterCalcClosedAmtWithRemAmt(Record Purch. Cr. Memo Hdr., Decimal, Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCalcClosedAmtWithRemAmt(var AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var OverHeadClosAmt: Decimal; var RealAmt: Decimal): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCalcClosedAmtWithRemAmt', '', false, false)]
local procedure DoSomethingOnAfterCalcClosedAmtWithRemAmt(var AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var OverHeadClosAmt: Decimal; var RealAmt: Decimal)
begin
end;

OnBeforeCreateAndPostRealInvoice(Record Purch. Cr. Memo Hdr., Code[20], Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateAndPostRealInvoice(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var PostedRealInvNo: Code[20]; var InsertRI: Boolean; var RIHasBeenPosted: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeCreateAndPostRealInvoice', '', false, false)]
local procedure DoSomethingOnBeforeCreateAndPostRealInvoice(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var PostedRealInvNo: Code[20]; var InsertRI: Boolean; var RIHasBeenPosted: Boolean; var IsHandled: Boolean)
begin
end;

OnAfterCreateRealInvoiceHeader(Record Purch. Cr. Memo Hdr., Record Vendor Ledger Entry, Record Purchase Header) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateRealInvoiceHeader(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; CVLedgerEntry: Record "Vendor Ledger Entry"; var RealInvHeader: Record "Purchase Header"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateRealInvoiceHeader', '', false, false)]
local procedure DoSomethingOnAfterCreateRealInvoiceHeader(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; CVLedgerEntry: Record "Vendor Ledger Entry"; var RealInvHeader: Record "Purchase Header")
begin
end;

OnAfterCreateRealInvoiceLine(Record Purch. Cr. Memo Hdr., Record Purch. Cr. Memo Line, Record Purchase Header, Record Purchase Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateRealInvoiceLine(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; RealInvHeader: Record "Purchase Header"; var RealInvLine: Record "Purchase Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateRealInvoiceLine', '', false, false)]
local procedure DoSomethingOnAfterCreateRealInvoiceLine(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; RealInvHeader: Record "Purchase Header"; var RealInvLine: Record "Purchase Line")
begin
end;

OnBeforePostRealInvoice(Record Purch. Cr. Memo Hdr., Record Vendor Ledger Entry, Record Purchase Header, Boolean, Code[20], Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforePostRealInvoice(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; CVLedgerEntry: Record "Vendor Ledger Entry"; var RealInvHeader: Record "Purchase Header"; var RIHasBeenPosted: Boolean; var PostedRealInvNo: Code[20]; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforePostRealInvoice', '', false, false)]
local procedure DoSomethingOnBeforePostRealInvoice(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; CVLedgerEntry: Record "Vendor Ledger Entry"; var RealInvHeader: Record "Purchase Header"; var RIHasBeenPosted: Boolean; var PostedRealInvNo: Code[20]; var IsHandled: Boolean)
begin
end;

OnBeforeInsertCorrInvOfClCrMemo(Record Purch. Cr. Memo Hdr., Code[20], Date, Code[20], Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertCorrInvOfClCrMemo(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; NewDocNo: Code[20]; NewPostingDate: Date; var PostedCorrInvNo: Code[20]; var PostCorrInv: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeInsertCorrInvOfClCrMemo', '', false, false)]
local procedure DoSomethingOnBeforeInsertCorrInvOfClCrMemo(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; NewDocNo: Code[20]; NewPostingDate: Date; var PostedCorrInvNo: Code[20]; var PostCorrInv: Boolean; var IsHandled: Boolean)
begin
end;

OnAfterCreateCorrInvOfClCrMemoHeader(Record Purch. Cr. Memo Hdr., Record Purchase Header) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateCorrInvOfClCrMemoHeader(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var CorrInvHeader: Record "Purchase Header"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateCorrInvOfClCrMemoHeader', '', false, false)]
local procedure DoSomethingOnAfterCreateCorrInvOfClCrMemoHeader(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; var CorrInvHeader: Record "Purchase Header")
begin
end;

OnAfterCreateCorrInvOfClCrMemoLine(Record Purch. Cr. Memo Hdr., Record Purch. Cr. Memo Line, Record Purchase Header, Record Purchase Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateCorrInvOfClCrMemoLine(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; CorrInvHeader: Record "Purchase Header"; var CorrInvLine: Record "Purchase Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateCorrInvOfClCrMemoLine', '', false, false)]
local procedure DoSomethingOnAfterCreateCorrInvOfClCrMemoLine(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; CorrInvHeader: Record "Purchase Header"; var CorrInvLine: Record "Purchase Line")
begin
end;

OnAfterCreateCorrInvClosCreditMemoEntry(Record Purch. Cr. Memo Hdr., Record Purch. Cr. Memo Line, Record Purchase Header, Record Purchase Line, Record KVSADVPostedAdvClosCrMemoEntry, Record KVSADVAdvClosingCredMemoEntry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateCorrInvClosCreditMemoEntry(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; CorrInvHeader: Record "Purchase Header"; CorrInvLine: Record "Purchase Line"; AdvPostExchRateCMEntry: Record "KVSADVPostedAdvClosCrMemoEntry"; var AdvExchRateCMEntry: Record "KVSADVAdvClosingCredMemoEntry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateCorrInvClosCreditMemoEntry', '', false, false)]
local procedure DoSomethingOnAfterCreateCorrInvClosCreditMemoEntry(AdvCredMemo: Record "Purch. Cr. Memo Hdr."; AdvCredMemoLine: Record "Purch. Cr. Memo Line"; CorrInvHeader: Record "Purchase Header"; CorrInvLine: Record "Purchase Line"; AdvPostExchRateCMEntry: Record "KVSADVPostedAdvClosCrMemoEntry"; var AdvExchRateCMEntry: Record "KVSADVAdvClosingCredMemoEntry")
begin
end;

OnAfterCalcRealAmt(Record Vendor Ledger Entry, Option, Record Purch. Inv. Header, Record Purch. Cr. Memo Hdr., Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCalcRealAmt(CVLedgerEntryToCalc: Record "Vendor Ledger Entry"; AmountType: Option; var RealInvHeader: Record "Purch. Inv. Header"; var RealCMHeader: Record "Purch. Cr. Memo Hdr."; var RealAmt: Decimal): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCalcRealAmt', '', false, false)]
local procedure DoSomethingOnAfterCalcRealAmt(CVLedgerEntryToCalc: Record "Vendor Ledger Entry"; AmountType: Option; var RealInvHeader: Record "Purch. Inv. Header"; var RealCMHeader: Record "Purch. Cr. Memo Hdr."; var RealAmt: Decimal)
begin
end;

OnAfterCalcOverpaidAdvanceAmount(Record Vendor Ledger Entry, Decimal, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCalcOverpaidAdvanceAmount(AdvInvCVLedgEntry: Record "Vendor Ledger Entry"; var AmtOverPaid: Decimal; var ClosingInvoiced: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCalcOverpaidAdvanceAmount', '', false, false)]
local procedure DoSomethingOnAfterCalcOverpaidAdvanceAmount(AdvInvCVLedgEntry: Record "Vendor Ledger Entry"; var AmtOverPaid: Decimal; var ClosingInvoiced: Boolean)
begin
end;

OnBeforeInsertOverPaidCredMemo(Record Vendor Ledger Entry, Decimal, Code[20], Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertOverPaidCredMemo(FromCVLedgEntry: Record "Vendor Ledger Entry"; OverPaidAmt: Decimal; var CreatedCreditMemoNo: Code[20]; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforeInsertOverPaidCredMemo', '', false, false)]
local procedure DoSomethingOnBeforeInsertOverPaidCredMemo(FromCVLedgEntry: Record "Vendor Ledger Entry"; OverPaidAmt: Decimal; var CreatedCreditMemoNo: Code[20]; var IsHandled: Boolean)
begin
end;

OnAfterCreateOverpaidCreditMemoHeader(Record Purchase Header, Record Purch. Inv. Header, Record Vendor Ledger Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateOverpaidCreditMemoHeader(var CredMemoHeader: Record "Purchase Header"; AdvInvoiceHeader: Record "Purch. Inv. Header"; FromCVLedgEntry: Record "Vendor Ledger Entry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateOverpaidCreditMemoHeader', '', false, false)]
local procedure DoSomethingOnAfterCreateOverpaidCreditMemoHeader(var CredMemoHeader: Record "Purchase Header"; AdvInvoiceHeader: Record "Purch. Inv. Header"; FromCVLedgEntry: Record "Vendor Ledger Entry")
begin
end;

OnAfterCreateOverpaidCreditMemoLine(Record Purchase Header, Record Purch. Inv. Header, Record Purch. Inv. Line, Record Purchase Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateOverpaidCreditMemoLine(CredMemoHeader: Record "Purchase Header"; AdvInvoiceHeader: Record "Purch. Inv. Header"; AdvInvoiceLine: Record "Purch. Inv. Line"; var CredMemoLine: Record "Purchase Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterCreateOverpaidCreditMemoLine', '', false, false)]
local procedure DoSomethingOnAfterCreateOverpaidCreditMemoLine(CredMemoHeader: Record "Purchase Header"; AdvInvoiceHeader: Record "Purch. Inv. Header"; AdvInvoiceLine: Record "Purch. Inv. Line"; var CredMemoLine: Record "Purchase Line")
begin
end;

OnBeforePostClosingCreditMemo(Record Purchase Header, Record Purchase Header, Codeunit Purch.-Post) :#

[IntegrationEvent(false, false)]
local procedure OnBeforePostClosingCreditMemo(InvoiceHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvanceDocumentPost: Codeunit "Purch.-Post"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforePostClosingCreditMemo', '', false, false)]
local procedure DoSomethingOnBeforePostClosingCreditMemo(InvoiceHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvanceDocumentPost: Codeunit "Purch.-Post")
begin
end;

OnBeforePostRemainingAmountCreditMemo(Record Purchase Header, Record Purchase Header, Codeunit Purch.-Post) :#

[IntegrationEvent(false, false)]
local procedure OnBeforePostRemainingAmountCreditMemo(InvoiceHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvanceDocumentPost: Codeunit "Purch.-Post"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnBeforePostRemainingAmountCreditMemo', '', false, false)]
local procedure DoSomethingOnBeforePostRemainingAmountCreditMemo(InvoiceHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvanceDocumentPost: Codeunit "Purch.-Post")
begin
end;

OnAfterPostClosingCreditMemo(Record Purchase Header, Record Purchase Header, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterPostClosingCreditMemo(DocumentHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvCloseCMPost: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterPostClosingCreditMemo', '', false, false)]
local procedure DoSomethingOnAfterPostClosingCreditMemo(DocumentHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; var AdvCloseCMPost: Boolean)
begin
end;

OnAfterPostRemainingAmountCreditMemo(Record Purchase Header, Record Purchase Header, Codeunit Purch.-Post, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterPostRemainingAmountCreditMemo(DocumentHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; AdvanceDocumentPost: Codeunit "Purch.-Post"; var AdvRemCMPost: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingPurchase", 'OnAfterPostRemainingAmountCreditMemo', '', false, false)]
local procedure DoSomethingOnAfterPostRemainingAmountCreditMemo(DocumentHeader: Record "Purchase Header"; var CreditMemoHeader: Record "Purchase Header"; AdvanceDocumentPost: Codeunit "Purch.-Post"; var AdvRemCMPost: Boolean)
begin
end;