Event Hooks

• 01/04/2023
• 13 minutter at læse

On this page, you will find information for implementing Event Publishers to Collection Management.

If the need for other event points emerge, send us a request for new ones by creating a ticket in our support system.

Example on how to utilize the event

[EventSubscriber(Codeunit,6052637,OnBeforeCollJnlUpdateStatus)]
LOCAL PROCEDURE OnBeforeCollJnlUpdateStatus@7(VAR CollJnlLine@1000 : Record 81;VAR ExitUpdateStatus@1001 : Boolean);
BEGIN
// Demosystem code:
    ExitUpdateStatus := TRUE; // Will stop the Import Status function.
    CollJnlLine."CCM Status" := CollJnlLine."CCM Status"::Processing;
    CollJnlLine.MODIFY;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052692,ExportCollectionsSetDebtorCVROrCPRNr)]
LOCAL PROCEDURE BetalingsserviceCVRCPRTest@3(Customer@1000 : Record 18;VAR CVROrCPR@1001 : Text);
BEGIN
  IF Customer."No." = '10000' THEN
    CVROrCPR := '0101011234';
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052637,OnAfterCreateCollJnlAdviceDocNosOnly)]
LOCAL PROCEDURE DocNosOnlyTest@2(CollJnlLine@1000 : Record 81;NoOfAdvChar@1001 : Integer;VAR AdvLineNo@1002 : Integer;CollEntryNo@1003 : Integer);
VAR
  CollEntryAdvice@1005 : Record 6052648;
  CustLedgEntry@1004 : Record 21;
  DescriptionText@1006 : Text;
BEGIN
  //NB!
  // IF CollJnlLine."Applies-to ID" <> '' THEN multiple Customer Ledger Entries is collected to one Collection Journal Line.
  // Use CollJnlLine."Applies-to ID" to find all Customer Ledger Entries if needed.
  // Find Customer Ledger Entries if needed...
  IF CollJnlLine."Applies-to ID" <> '' THEN BEGIN
    CustLedgEntry.SETCURRENTKEY("Customer No.","Applies-to ID",Open,Positive,"Due Date");
    CustLedgEntry.SETRANGE("Customer No.",CollJnlLine."Account No.");
    CustLedgEntry.SETRANGE(Open,TRUE);
    CustLedgEntry.SETRANGE("Applies-to ID",CollJnlLine."Applies-to ID");
    IF CustLedgEntry.FINDSET THEN
      REPEAT
        DescriptionText += CustLedgEntry.Description + ', ';
      UNTIL CustLedgEntry.NEXT = 0;
  END ELSE BEGIN
    IF CollJnlLine."CCM Cust. Ledger Entry No." <> 0 THEN
      CustLedgEntry.GET(CollJnlLine."CCM Cust. Ledger Entry No.");
      DescriptionText := CustLedgEntry.Description;
  END;
  CollEntryAdvice."Coll. Entry No." := CollEntryNo;
  AdvLineNo += 10000;
  CollEntryAdvice."Line No." := AdvLineNo;
  CollEntryAdvice.Type := CollEntryAdvice.Type::Normal;
  CollEntryAdvice.Bold := TRUE;
  CollEntryAdvice."Advice Description" := DescriptionText;
  CollEntryAdvice.INSERT;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052637,OnAfterCreateCollJnlAdviceHeaderInfo)]
LOCAL PROCEDURE HeaderInfoTest@1(CollJnlLine@1000 : Record 81;CustLedgEntry@1001 : Record 21;NoOfAdvChar@1002 : Integer;VAR AdvLineNo@1003 : Integer;CollEntryNo@1004 : Integer);
VAR
  CollEntryAdvice@1005 : Record 6052648;
BEGIN
  CollEntryAdvice."Coll. Entry No." := CollEntryNo;
  AdvLineNo += 10000;
  CollEntryAdvice."Line No." := AdvLineNo;
  CollEntryAdvice.Type := CollEntryAdvice.Type::Normal;
  CollEntryAdvice.Bold := TRUE;
  CollEntryAdvice."Advice Description" := CustLedgEntry.Description;
  CollEntryAdvice.INSERT;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052637,OnCreateBalEntry)]
LOCAL PROCEDURE OnCreateBalEntryTest@1160040000(VAR CollJnlLine@1000 : Record 81);
BEGIN
  CollJnlLine.Description = 'Ny modpost beskrivelse - test’;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052637,OnCollectCollJnlLines)]
LOCAL PROCEDURE OnCollectLineTest@1160040000(VAR CollJnlLine@1000 : Record 81);
BEGIN
  CollJnlLine.Description = 'Samlede opkrævninger - test’;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052648,OnBeforeInsertRefundLinesInCollJnl)]
LOCAL PROCEDURE BeforeReminderInsertTest@1160040002(VAR GenJnlLine@1160040000 : Record 81;CollImportJnlLine@1160040001 : Record 6052667);
BEGIN
  GenJnlLine.Description = 'LS-tilbageført betaling’;
END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052692,ExportCollectionsSetCustValues,"",Skip,Skip)]
  LOCAL PROCEDURE Test2@3(VAR Customer@1000 : Record 18);
    BEGIN
      Customer."VAT Registration No." := CPRFunctions.GetCustCPRNo(Customer."No.");
      Customer.Name += ' Test';
    END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052692,CreateNewAgreementSetCustVatRegNo,"",Skip,Skip)]
LOCAL PROCEDURE Test@1(VAR Customer@1000 : Record 18);
  BEGIN
    Customer."VAT Registration No." := CPRFunctions.GetCustCPRNo(Customer."No.");
  END;

Example on how to utilize the event

[EventSubscriber(Codeunit,6052645,OnBeforePrintToFile)]

LOCAL PROCEDURE test@1160040000(CustLE@1160040000 : Record 21;VAR ReportID@1160040001 : Integer)
  BEGIN
   CASE CustLE."Document Type" OF
    CustLE."Document Type"::Invoice: ReportID := 206;
    CustLE."Document Type"::"Credit Memo": ReportID := 207;
    CustLE."Document Type"::Reminder: ReportID := 117;
   END;
  END;

Example on how to utilize the event

[EventSubscriber(Report,6052638,OnBeforeInsertCollJnlLine)]
LOCAL PROCEDURE test@1160040001(VAR NewCollJnlLine@1160040000 : Record 81;CustLedgEntry@1160040001 : Record 21);
BEGIN
  IF CustLedgEntry."Customer No." = '10000' THEN
    NewCollJnlLine.Description := 'Test tekst';
END;

Example on how to utilize the event

[EventSubscriber(Report,6052638,OnBeforeInsertCollJnlLineReminder)]
LOCAL PROCEDURE test2@1160040004(VAR NewCollJnlLine@1160040000 : Record 81;IssRemHeader@1160040001 : Record 297);
BEGIN
  IF IssRemHeader."Customer No." = '10000' THEN
    NewCollJnlLine.Description := 'Test rykker tekst';
END;

Example on how to utilize the events

[EventSubscriber(Codeunit,6052637,OnCreateAdvice)]
LOCAL PROCEDURE AdviceTest@1160040000(CollJnlLine@1160040000 : Record 81;CollEntryNo@1160040001 : Integer;VAR AdvLineNo@1160040002 : Integer);
VAR
  CollEntryAdvice@1160040004 : Record 6052648;
BEGIN
  IF CollJnlLine."Account No." = '10000' THEN BEGIN
    CollEntryAdvice.INIT;
    CollEntryAdvice."Coll. Entry No." := CollEntryNo;
    AdvLineNo += 10000;
    CollEntryAdvice."Line No." := AdvLineNo;
    CollEntryAdvice."Advice Description" := 'Test advisering';
    CollEntryAdvice.INSERT;

    AdvLineNo += 10000;
    CollEntryAdvice."Line No." := AdvLineNo;
    CollEntryAdvice."Advice Description" := 'Test advisering - linje 2';
    CollEntryAdvice.INSERT;
  END;
END;  

Example on how to utilize the events

[EventSubscriber(Codeunit,6052648,OnAfterCreateCashReceipt)]
LOCAL PROCEDURE AfterCashReceiptTest@1160040002(VAR GenJnlLine@1160040000 : Record 81;CollImportJnlLine@1160040001 : Record 6052667);
BEGIN
  IF GenJnlLine."Account No." = '10000' THEN BEGIN
    GenJnlLine.Comment := 'Test';
  END;
END;

Example on how to utilize the events

[EventSubscriber(Table,6052647,OnAfterInsertEntry)]
LOCAL PROCEDURE InsertEntryTest@1160040003(VAR CollEntry@1160040000 : Record 6052647;CollJnlLine@1160040001 : Record 81);
BEGIN
  IF CollJnlLine."Account No." = '10000' THEN
    CollEntry."E-Mail advice Sent" := TRUE;
END;

Example on how to utilize the events

[EventSubscriber(Table,6052647,OnAfterUpdateEntry)]
LOCAL PROCEDURE UpdateEntryTest@1160040005(VAR CollEntry@1160040000 : Record 6052647;CollJnlLine@1160040001 : Record 81);
BEGIN
  IF CollJnlLine."Account No." = '10000' THEN
    CollEntry."Recipient Email" := 'testmail@continia.dk';
END;

Example on how to utilize the events

[EventSubscriber(Codeunit,6052692,ExportAgreementsCreateOnBeforeModifyAgree)]
LOCAL PROCEDURE ExportAgreementTest@1160040006(VAR CollAgree@1160040000 : Record 6052640;AgreeJnlLine@1160040001 : Record 6052654);
BEGIN
  IF CollAgree."Customer No." = '10000' THEN
    CollAgree.Description :=  'Agreement export test'
END;

Example on how to utilize the events

[EventSubscriber(Codeunit,6052692,ExportCollectionsSetDebtorCustomerNr)]
LOCAL PROCEDURE SetDebtorCustomerNrTest@1160040007(CollJnlLine@1160040000 : Record 81;VAR DebtorCustomerNr@1160040001 : Code[30]);
BEGIN
  DebtorCustomerNr := CollJnlLine."Contract No.";
END;

Example on how to utilize the events

[EventSubscriber(Codeunit,6052692,ExportCollectionsOnAfterModifyCollJnlLine)]
LOCAL PROCEDURE GetCollJnlLineAferExportCollectionTest@1160040008(VAR CollJnlLine@1160040000 : Record 81);
BEGIN
  CollJnlLine.Description := 'Exported';
  CollJnlLine.MODIFY;
END;