Skip to content

KVSKBAComLib#

Procedures#

FindCommissionRate(Option, Code[20], Code[20], Code[10], Code[10], Code[10], Enum Sales Line Type, Code[20], Date, Record KVSKBAComRate) : Integer#

procedure FindCommissionRate(calculationForPar: Option; salesPersonCodePar: Code[20]; customerCodePar: Code[20]; custComGrpCodePar: Code[10]; prodComGrpCodePar: Code[10]; ResponsCenterPar: Code[10]; lineTypePar: Enum "Sales Line Type"; lineNoPar: Code[20]; commDatePar: Date; var toComRateTempVar: Record "KVSKBAComRate" temporary): Integer

CreateNewJnlLineToEntryCancel(Record KVSKBACommissionJournalLine, Record KVSKBACommissionEntry, Code[10], Code[10], Integer) :#

Summary: This function will to transfer all Fields from a CommissionEntry to a new CommissionJournalLine to cancel this Entry

procedure CreateNewJnlLineToEntryCancel(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; CommissionEntry: Record "KVSKBACommissionEntry"; JnlTemplateName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer): 

Parameters:

  • CommissionJournalLine: The Commission Journal Line to cancel the entry.
  • CommissionEntry: The Commission Entry to cancel.
  • JnlTemplateName: Journal Template Name that is used for posting
  • JnlBatchName: Journal Batch Name that is used for posting
  • JnlLineNo: Journal Line No. that is used for Commission Journal Line

Events#

OnAfterCreateNewJnlLineToCrMemoLine(Record KVSKBACommissionJournalLine, Code[10], Code[10], Integer, Record Sales Cr.Memo Header, Record Sales Cr.Memo Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateNewJnlLineToCrMemoLine(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer; SalesCrMemoHeader: Record "Sales Cr.Memo Header"; SalesCrMemoLine: Record "Sales Cr.Memo Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAComLib", 'OnAfterCreateNewJnlLineToCrMemoLine', '', false, false)]
local procedure DoSomethingOnAfterCreateNewJnlLineToCrMemoLine(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer; SalesCrMemoHeader: Record "Sales Cr.Memo Header"; SalesCrMemoLine: Record "Sales Cr.Memo Line")
begin
end;

OnAfterCreateNewJnlLineToEntryCancel(Record KVSKBACommissionJournalLine, Record KVSKBACommissionEntry, Code[10], Code[10], Integer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateNewJnlLineToEntryCancel(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; CommissionEntry: Record "KVSKBACommissionEntry"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAComLib", 'OnAfterCreateNewJnlLineToEntryCancel', '', false, false)]
local procedure DoSomethingOnAfterCreateNewJnlLineToEntryCancel(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; CommissionEntry: Record "KVSKBACommissionEntry"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer)
begin
end;

OnAfterCreateNewJnlLineToInvLine(Record KVSKBACommissionJournalLine, Code[10], Code[10], Integer, Record Sales Invoice Header, Record Sales Invoice Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateNewJnlLineToInvLine(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer; SalesInvoiceHeader: Record "Sales Invoice Header"; SalesInvoiceLine: Record "Sales Invoice Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAComLib", 'OnAfterCreateNewJnlLineToInvLine', '', false, false)]
local procedure DoSomethingOnAfterCreateNewJnlLineToInvLine(var CommissionJournalLine: Record "KVSKBACommissionJournalLine"; JnlTemplName: Code[10]; JnlBatchName: Code[10]; JnlLineNo: Integer; SalesInvoiceHeader: Record "Sales Invoice Header"; SalesInvoiceLine: Record "Sales Invoice Line")
begin
end;

OnBeforeFindCommissionRate2(Option, Code[20], Code[20], Code[10], Code[10], Code[10], Enum Sales Line Type, Code[20], Date, Record KVSKBAComRate, Integer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeFindCommissionRate2(CalculationFor: Option; SalesPersonCode: Code[20]; CustomerCode: Code[20]; CustComGrpCode: Code[10]; ProdComGrpCode: Code[10]; ResponsCenter: Code[10]; LineType: Enum "Sales Line Type"; lineNoPar: Code[20]; CommDate: Date; var TempToKVSKBAComRate: Record "KVSKBAComRate" temporary; var CounterRetValue: Integer; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAComLib", 'OnBeforeFindCommissionRate2', '', false, false)]
local procedure DoSomethingOnBeforeFindCommissionRate2(CalculationFor: Option; SalesPersonCode: Code[20]; CustomerCode: Code[20]; CustComGrpCode: Code[10]; ProdComGrpCode: Code[10]; ResponsCenter: Code[10]; LineType: Enum "Sales Line Type"; lineNoPar: Code[20]; CommDate: Date; var TempToKVSKBAComRate: Record "KVSKBAComRate" temporary; var CounterRetValue: Integer; var IsHandled: Boolean)
begin
end;