Skip to content

KVSADVAutoPostingSales#

Procedures#

OnRun#

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

CreateCorrectionAdvanceCreditMemoForPostedInvoice(Record Sales Invoice Header, Boolean) : Code[20]#

procedure CreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Sales Invoice Header"; OpenCreatedCrMemo: Boolean): Code[20]

CalcRealAmt(Record Cust. Ledger Entry) : Decimal#

procedure CalcRealAmt(CVLedgerEntryToCalc: Record "Cust. Ledger Entry"): Decimal

CalcRealAmt(Record Cust. Ledger Entry, Option) : Decimal#

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

Events#

OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(Record Sales Header, Record Cust. Ledger Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(ApplDocumentHeader: Record "Sales Header"; var CVLedgerEntry: Record "Cust. Ledger Entry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo', '', false, false)]
local procedure DoSomethingOnAfterSetFilterCVLedgerEntriesForInsertCloseCredMemo(ApplDocumentHeader: Record "Sales Header"; var CVLedgerEntry: Record "Cust. Ledger Entry")
begin
end;

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

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

OnBeforeInsertCloseCredMemo(Record Sales Header, Record Sales Header, Record Cust. Ledger Entry, Boolean) :#

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

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

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

OnBeforeCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(Record Cust. Ledger Entry, Record Sales Header, Code[20], Boolean, Boolean, Boolean) :#

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

OnAfterCreateAdvCrMemoHeaderFromInvoiceCVLedgerEntry(Record Sales Header, Record Cust. Ledger Entry, Record Sales Header) :#

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

OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(Record Sales Invoice Header, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Sales Invoice Header"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice', '', false, false)]
local procedure DoSomethingOnBeforeCreateCorrectionAdvanceCreditMemoForPostedInvoice(PostedInvoiceHeader: Record "Sales Invoice Header"; var IsHandled: Boolean)
begin
end;

OnBeforePostExRateDiffbyClCMGenJnlLine(Record Gen. Journal Line, Codeunit Gen. Jnl.-Post Line, Record KVSADVAdvClosingCredMemoEntry, Record Sales Header, Record Sales 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 "Sales Header"; DocumentLine: Record "Sales Line"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnBeforePostExRateDiffbyClCMGenJnlLine', '', false, false)]
local procedure DoSomethingOnBeforePostExRateDiffbyClCMGenJnlLine(var GenJnlLine: Record "Gen. Journal Line"; var GenJnlLinePost: Codeunit "Gen. Jnl.-Post Line"; AdvClosingCMEntry: Record "KVSADVAdvClosingCredMemoEntry"; DocumentHeader: Record "Sales Header"; DocumentLine: Record "Sales Line"; var IsHandled: Boolean)
begin
end;

OnAfterCalcClosedAmtWithRemAmt(Record Sales Cr.Memo Header, Decimal, Decimal) :#

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

OnBeforeCreateAndPostRealInvoice(Record Sales Cr.Memo Header, Code[20], Boolean, Boolean, Boolean) :#

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

OnAfterCreateRealInvoiceHeader(Record Sales Cr.Memo Header, Record Cust. Ledger Entry, Record Sales Header) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateRealInvoiceHeader(AdvCredMemo: Record "Sales Cr.Memo Header"; CVLedgerEntry: Record "Cust. Ledger Entry"; var RealInvHeader: Record "Sales Header"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnAfterCreateRealInvoiceHeader', '', false, false)]
local procedure DoSomethingOnAfterCreateRealInvoiceHeader(AdvCredMemo: Record "Sales Cr.Memo Header"; CVLedgerEntry: Record "Cust. Ledger Entry"; var RealInvHeader: Record "Sales Header")
begin
end;

OnAfterCreateRealInvoiceLine(Record Sales Cr.Memo Header, Record Sales Cr.Memo Line, Record Sales Header, Record Sales Line) :#

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

OnBeforePostRealInvoice(Record Sales Cr.Memo Header, Record Cust. Ledger Entry, Record Sales Header, Boolean, Code[20], Boolean) :#

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

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

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

OnAfterCreateCorrInvOfClCrMemoHeader(Record Sales Cr.Memo Header, Record Sales Header) :#

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

OnAfterCreateCorrInvOfClCrMemoLine(Record Sales Cr.Memo Header, Record Sales Cr.Memo Line, Record Sales Header, Record Sales Line) :#

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

OnAfterCreateCorrInvClosCreditMemoEntry(Record Sales Cr.Memo Header, Record Sales Cr.Memo Line, Record Sales Header, Record Sales Line, Record KVSADVPostedAdvClosCrMemoEntry, Record KVSADVAdvClosingCredMemoEntry) :#

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

OnAfterCalcRealAmt(Record Cust. Ledger Entry, Option, Record Sales Invoice Header, Record Sales Cr.Memo Header, Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCalcRealAmt(CVLedgerEntryToCalc: Record "Cust. Ledger Entry"; AmountType: Option; var RealInvHeader: Record "Sales Invoice Header"; var RealCMHeader: Record "Sales Cr.Memo Header"; var RealAmt: Decimal): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnAfterCalcRealAmt', '', false, false)]
local procedure DoSomethingOnAfterCalcRealAmt(CVLedgerEntryToCalc: Record "Cust. Ledger Entry"; AmountType: Option; var RealInvHeader: Record "Sales Invoice Header"; var RealCMHeader: Record "Sales Cr.Memo Header"; var RealAmt: Decimal)
begin
end;

OnAfterCalcOverpaidAdvanceAmount(Record Cust. Ledger Entry, Decimal, Boolean) :#

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

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

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

OnAfterCreateOverpaidCreditMemoHeader(Record Sales Header, Record Sales Invoice Header, Record Cust. Ledger Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateOverpaidCreditMemoHeader(var CredMemoHeader: Record "Sales Header"; AdvInvoiceHeader: Record "Sales Invoice Header"; FromCVLedgEntry: Record "Cust. Ledger Entry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnAfterCreateOverpaidCreditMemoHeader', '', false, false)]
local procedure DoSomethingOnAfterCreateOverpaidCreditMemoHeader(var CredMemoHeader: Record "Sales Header"; AdvInvoiceHeader: Record "Sales Invoice Header"; FromCVLedgEntry: Record "Cust. Ledger Entry")
begin
end;

OnAfterCreateOverpaidCreditMemoLine(Record Sales Header, Record Sales Invoice Header, Record Sales Invoice Line, Record Sales Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateOverpaidCreditMemoLine(CredMemoHeader: Record "Sales Header"; AdvInvoiceHeader: Record "Sales Invoice Header"; AdvInvoiceLine: Record "Sales Invoice Line"; var CredMemoLine: Record "Sales Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAutoPostingSales", 'OnAfterCreateOverpaidCreditMemoLine', '', false, false)]
local procedure DoSomethingOnAfterCreateOverpaidCreditMemoLine(CredMemoHeader: Record "Sales Header"; AdvInvoiceHeader: Record "Sales Invoice Header"; AdvInvoiceLine: Record "Sales Invoice Line"; var CredMemoLine: Record "Sales Line")
begin
end;

OnBeforePostClosingCreditMemo(Record Sales Header, Record Sales Header, Codeunit Sales-Post) :#

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

OnBeforePostRemainingAmountCreditMemo(Record Sales Header, Record Sales Header, Codeunit Sales-Post) :#

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

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

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

OnAfterPostRemainingAmountCreditMemo(Record Sales Header, Record Sales Header, Codeunit Sales-Post, Boolean) :#

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