Skip to content

KVSPSAJobPostLine#

Procedures#

PostGenJnlLine(Record Gen. Journal Line, Record G/L Entry) :#

Summary: This procedure create Job Journal Line from Gen Journal Line and G/L Entry then post it.

procedure PostGenJnlLine(GenJournalLine: Record "Gen. Journal Line"; GLEntry: Record "G/L Entry"):

Parameters:

  • GenJournalLine: Record used for create Job Journal Line
  • GLEntry: Record used for create Job Journal Line

Events#

KVSPSAOnAfterAssignFieldsToJobJnlLine(Record Job Journal Line, Record Purchase Line) :#

Summary: Event fired after assigning fields to job journal line during job posting. Allows extensions to modify job journal line fields after standard assignment from purchase line. This event enables customization of job journal line data after the standard field transfer from purchase line to job journal line has been completed.

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterAssignFieldsToJobJnlLine(var JobJournalLine: Record "Job Journal Line"; var PurchaseLine: Record "Purchase Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobPostLine", 'KVSPSAOnAfterAssignFieldsToJobJnlLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterAssignFieldsToJobJnlLine(var JobJournalLine: Record "Job Journal Line"; var PurchaseLine: Record "Purchase Line")
begin
end;

Parameters:

  • JobJournalLine: The job journal line that received the field assignments (passed by reference for modification).
  • PurchaseLine: The source purchase line that provided the field values for assignment.

KVSPSAOnAfterPostGenJnlLine(Record Gen. Journal Line, Record G/L Entry, Record Job Journal Line, Codeunit Job Jnl.-Post Line, Integer) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterPostGenJnlLine(GenJournalLine: Record "Gen. Journal Line"; GLEntry: Record "G/L Entry"; JobJournalLine: Record "Job Journal Line"; var JobJnlPostLine: Codeunit "Job Jnl.-Post Line"; JobLedgEntryNo: Integer): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobPostLine", 'KVSPSAOnAfterPostGenJnlLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterPostGenJnlLine(GenJournalLine: Record "Gen. Journal Line"; GLEntry: Record "G/L Entry"; JobJournalLine: Record "Job Journal Line"; var JobJnlPostLine: Codeunit "Job Jnl.-Post Line"; JobLedgEntryNo: Integer)
begin
end;

OnBeforeRunJobJnlPostLineRunWithCheck(Record Job Journal Line, Record Gen. Journal Line, Record G/L Entry) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeRunJobJnlPostLineRunWithCheck(var JobJournalLine: Record "Job Journal Line"; GenJournalLine: Record "Gen. Journal Line"; GLEntry: Record "G/L Entry"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobPostLine", 'OnBeforeRunJobJnlPostLineRunWithCheck', '', false, false)]
local procedure DoSomethingOnBeforeRunJobJnlPostLineRunWithCheck(var JobJournalLine: Record "Job Journal Line"; GenJournalLine: Record "Gen. Journal Line"; GLEntry: Record "G/L Entry")
begin
end;