Skip to content

KVSADVJobPostingBase#

Procedures#

InitAdvanceJobLedgerEntryFromGenJnlLine(Record KVSADVAdvanceJobLedgerEntry, Record Gen. Journal Line, Enum KVSADVSourceAccountType, Code[20], Option) :#

procedure InitAdvanceJobLedgerEntryFromGenJnlLine(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; GenJnlLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; CustVendNo: Code[20]; EntryType: Option): 

InsertAdvanceJobLedgerEntry(Record KVSADVAdvanceJobLedgerEntry) :#

procedure InsertAdvanceJobLedgerEntry(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"): 

DoesDocumentHeaderRequireJobPostingAsAdvance(Enum KVSADVSourceAccountType, Variant) : Boolean#

procedure DoesDocumentHeaderRequireJobPostingAsAdvance(AccountType: Enum "KVSADVSourceAccountType"; DocHeaderVariant: Variant): Boolean

Events#

OnBeforeCheckAdvJobLedgerEntryMandatoryFieldsAreFilled(Record KVSADVAdvanceJobLedgerEntry) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckAdvJobLedgerEntryMandatoryFieldsAreFilled(AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeCheckAdvJobLedgerEntryMandatoryFieldsAreFilled', '', false, false)]
local procedure DoSomethingOnBeforeCheckAdvJobLedgerEntryMandatoryFieldsAreFilled(AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry")
begin
end;

OnAfterSetFiltersForPaymentRealizationAdvJobLedgerBySalesInvoiceLine(Record KVSADVAdvanceJobLedgerEntry, Record Sales Invoice Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetFiltersForPaymentRealizationAdvJobLedgerBySalesInvoiceLine(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; SalesInvLine: Record "Sales Invoice Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterSetFiltersForPaymentRealizationAdvJobLedgerBySalesInvoiceLine', '', false, false)]
local procedure DoSomethingOnAfterSetFiltersForPaymentRealizationAdvJobLedgerBySalesInvoiceLine(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; SalesInvLine: Record "Sales Invoice Line")
begin
end;

OnAfterSetFiltersForPaymentRealizationAdvJobLedgerByPurchInvoiceLine(Record KVSADVAdvanceJobLedgerEntry, Record Purch. Inv. Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetFiltersForPaymentRealizationAdvJobLedgerByPurchInvoiceLine(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PurchInvLine: Record "Purch. Inv. Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterSetFiltersForPaymentRealizationAdvJobLedgerByPurchInvoiceLine', '', false, false)]
local procedure DoSomethingOnAfterSetFiltersForPaymentRealizationAdvJobLedgerByPurchInvoiceLine(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PurchInvLine: Record "Purch. Inv. Line")
begin
end;

OnCheckAdvLedgerEntriesPostedTowardsDifferentJobTaskLines(Record KVSADVAdvanceJobLedgerEntry, Record KVSADVAdvanceJobLedgerEntry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnCheckAdvLedgerEntriesPostedTowardsDifferentJobTaskLines(FirstAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; SecondAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; var EntriesArePostedTowardsDifferentJobLines: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnCheckAdvLedgerEntriesPostedTowardsDifferentJobTaskLines', '', false, false)]
local procedure DoSomethingOnCheckAdvLedgerEntriesPostedTowardsDifferentJobTaskLines(FirstAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; SecondAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; var EntriesArePostedTowardsDifferentJobLines: Boolean)
begin
end;

OnAfterInitPaymentAdvanceLedgerEntryFromInvoiceAdvanceLedgerEntry(Record KVSADVAdvanceJobLedgerEntry, Record KVSADVAdvanceJobLedgerEntry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterInitPaymentAdvanceLedgerEntryFromInvoiceAdvanceLedgerEntry(InvoiceAdvLedgEntry: Record "KVSADVAdvanceJobLedgerEntry"; var PaymentAdvLedgEntry: Record "KVSADVAdvanceJobLedgerEntry"; ReversalForInvoice: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterInitPaymentAdvanceLedgerEntryFromInvoiceAdvanceLedgerEntry', '', false, false)]
local procedure DoSomethingOnAfterInitPaymentAdvanceLedgerEntryFromInvoiceAdvanceLedgerEntry(InvoiceAdvLedgEntry: Record "KVSADVAdvanceJobLedgerEntry"; var PaymentAdvLedgEntry: Record "KVSADVAdvanceJobLedgerEntry"; ReversalForInvoice: Boolean)
begin
end;

OnAfterInitAdvanceJobLedgerEntryFromGenJnlLine(Record KVSADVAdvanceJobLedgerEntry, Record Gen. Journal Line, Enum KVSADVSourceAccountType, Code[20], Option) :#

[IntegrationEvent(false, false)]
local procedure OnAfterInitAdvanceJobLedgerEntryFromGenJnlLine(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; GenJnlLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; CustVendNo: Code[20]; EntryType: Option): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterInitAdvanceJobLedgerEntryFromGenJnlLine', '', false, false)]
local procedure DoSomethingOnAfterInitAdvanceJobLedgerEntryFromGenJnlLine(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; GenJnlLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; CustVendNo: Code[20]; EntryType: Option)
begin
end;

OnBeforeInsertAdvanceJobLedgerEntry(Record KVSADVAdvanceJobLedgerEntry) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertAdvanceJobLedgerEntry(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeInsertAdvanceJobLedgerEntry', '', false, false)]
local procedure DoSomethingOnBeforeInsertAdvanceJobLedgerEntry(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry")
begin
end;

OnAfterTransferFieldsFromJobToAdvLedgerEntry(Record KVSADVAdvanceJobLedgerEntry, Record Job) :#

[IntegrationEvent(false, false)]
local procedure OnAfterTransferFieldsFromJobToAdvLedgerEntry(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; Job: Record "Job"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterTransferFieldsFromJobToAdvLedgerEntry', '', false, false)]
local procedure DoSomethingOnAfterTransferFieldsFromJobToAdvLedgerEntry(var NewAdvanceJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; Job: Record "Job")
begin
end;

OnBeforeCreateAdvanceJobLedgerEntryFromPayment(Record G/L Entry, Enum KVSADVSourceAccountType, Boolean, Code[20], Decimal, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateAdvanceJobLedgerEntryFromPayment(VATGLEntry: Record "G/L Entry"; AccountType: Enum "KVSADVSourceAccountType"; IsUnapply: Boolean; OriginalDocNo: Code[20]; CurrencyFactor: Decimal; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeCreateAdvanceJobLedgerEntryFromPayment', '', false, false)]
local procedure DoSomethingOnBeforeCreateAdvanceJobLedgerEntryFromPayment(VATGLEntry: Record "G/L Entry"; AccountType: Enum "KVSADVSourceAccountType"; IsUnapply: Boolean; OriginalDocNo: Code[20]; CurrencyFactor: Decimal; var IsHandled: Boolean)
begin
end;

OnBeforeCreatePaymentAdvJobLedgerEntryForInvoice(Record KVSADVAdvanceJobLedgerEntry, Decimal, Decimal, Decimal, Decimal, Record KVSADVAdvanceJobLedgerEntry, Record G/L Entry, Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePaymentAdvJobLedgerEntryForInvoice(var NewAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PaymentAmountLCY: Decimal; PaymentAmountFCY: Decimal; AdvJobLedgerEntryAmountShareFactor: Decimal; AdvJobLedgerEntryTotalAmount: Decimal; var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; VATGLEntry: Record "G/L Entry"; CurrencyFactor: Decimal): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeCreatePaymentAdvJobLedgerEntryForInvoice', '', false, false)]
local procedure DoSomethingOnBeforeCreatePaymentAdvJobLedgerEntryForInvoice(var NewAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PaymentAmountLCY: Decimal; PaymentAmountFCY: Decimal; AdvJobLedgerEntryAmountShareFactor: Decimal; AdvJobLedgerEntryTotalAmount: Decimal; var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; VATGLEntry: Record "G/L Entry"; CurrencyFactor: Decimal)
begin
end;

OnBeforeCreatePaymentAdvJobLedgerEntryForPayment(Record KVSADVAdvanceJobLedgerEntry, Decimal, Decimal, Decimal, Decimal, Record KVSADVAdvanceJobLedgerEntry, Record G/L Entry, Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePaymentAdvJobLedgerEntryForPayment(var NewAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PaymentAmountLCY: Decimal; PaymentAmountFCY: Decimal; AdvJobLedgerEntryAmountShareFactor: Decimal; AdvJobLedgerEntryTotalAmount: Decimal; var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; VATGLEntry: Record "G/L Entry"; CurrencyFactor: Decimal): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeCreatePaymentAdvJobLedgerEntryForPayment', '', false, false)]
local procedure DoSomethingOnBeforeCreatePaymentAdvJobLedgerEntryForPayment(var NewAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; PaymentAmountLCY: Decimal; PaymentAmountFCY: Decimal; AdvJobLedgerEntryAmountShareFactor: Decimal; AdvJobLedgerEntryTotalAmount: Decimal; var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; VATGLEntry: Record "G/L Entry"; CurrencyFactor: Decimal)
begin
end;

OnBeforeFindAdvInvoiceJobLedgerEntryForPaymentRealization(Record KVSADVAdvanceJobLedgerEntry, Enum KVSADVSourceAccountType, Code[20], Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeFindAdvInvoiceJobLedgerEntryForPaymentRealization(var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; AccountType: Enum "KVSADVSourceAccountType"; InvoiceDocNo: Code[20]; var ShowMessage: Boolean; var sResult: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeFindAdvInvoiceJobLedgerEntryForPaymentRealization', '', false, false)]
local procedure DoSomethingOnBeforeFindAdvInvoiceJobLedgerEntryForPaymentRealization(var TempAdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry" temporary; AccountType: Enum "KVSADVSourceAccountType"; InvoiceDocNo: Code[20]; var ShowMessage: Boolean; var sResult: Boolean; var IsHandled: Boolean)
begin
end;

OnAfterTransferFieldsFromPaymentGLEntryToAdvJobLedgerEntry(Record G/L Entry, Record KVSADVAdvanceJobLedgerEntry, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterTransferFieldsFromPaymentGLEntryToAdvJobLedgerEntry(GLEntry: Record "G/L Entry"; var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; IncludeGLAccount: Boolean; IncludeDimensions: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterTransferFieldsFromPaymentGLEntryToAdvJobLedgerEntry', '', false, false)]
local procedure DoSomethingOnAfterTransferFieldsFromPaymentGLEntryToAdvJobLedgerEntry(GLEntry: Record "G/L Entry"; var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; IncludeGLAccount: Boolean; IncludeDimensions: Boolean)
begin
end;

OnBeforePostAdvExchRateToJob(Record Gen. Journal Line, Enum KVSADVSourceAccountType, Code[20], Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforePostAdvExchRateToJob(GenJournalLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; AccountNo: Code[20]; ByClosingCreditMemo: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforePostAdvExchRateToJob', '', false, false)]
local procedure DoSomethingOnBeforePostAdvExchRateToJob(GenJournalLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; AccountNo: Code[20]; ByClosingCreditMemo: Boolean; var IsHandled: Boolean)
begin
end;

OnAfterInitAdvanceJobLedgerEntryForAdvExchRateToJob(Record KVSADVAdvanceJobLedgerEntry, Record Gen. Journal Line, Enum KVSADVSourceAccountType, Code[20], Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterInitAdvanceJobLedgerEntryForAdvExchRateToJob(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; GenJournalLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; AccountNo: Code[20]; ByClosingCreditMemo: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnAfterInitAdvanceJobLedgerEntryForAdvExchRateToJob', '', false, false)]
local procedure DoSomethingOnAfterInitAdvanceJobLedgerEntryForAdvExchRateToJob(var AdvJobLedgerEntry: Record "KVSADVAdvanceJobLedgerEntry"; GenJournalLine: Record "Gen. Journal Line"; AccountType: Enum "KVSADVSourceAccountType"; AccountNo: Code[20]; ByClosingCreditMemo: Boolean)
begin
end;

OnBeforeUpdateAdvanceJobLedgerEntryTransactionNo(Code[20], Date, Integer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeUpdateAdvanceJobLedgerEntryTransactionNo(DocumentNo: Code[20]; PostingDate: Date; var TransactionNo: Integer; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVJobPostingBase", 'OnBeforeUpdateAdvanceJobLedgerEntryTransactionNo', '', false, false)]
local procedure DoSomethingOnBeforeUpdateAdvanceJobLedgerEntryTransactionNo(DocumentNo: Code[20]; PostingDate: Date; var TransactionNo: Integer; var IsHandled: Boolean)
begin
end;