Event Hooks

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.

Report 6052638 - CCM Suggest Collections

Event Name:
OnBeforeCountCust
Event Type: IntegrationEvent(IncludeSender : false, GlobalVarAccess : false)
Parameters:
EnteredFirstDueDate : Date
EnteredDueDate : Date
EnteredFirstCollDate : Date
Published Version: 25.00.00 / 25.0.0.0
Event Name:
OnBeforeFindCLE
Event Type: IntegrationEvent(IncludeSender : false, GlobalVarAccess : false)
Parameters:
Customer : Record Customer
Published Version: 25.00.00 / 25.0.0.0
Event Name:
OnAfterInsertCollJnlLine
Event Type: IntegrationEvent(IncludeSender : false, GlobalVarAccess : false)
Parameters:
NewCollJnlLine : Record "Gen. Journal Line"
CustLedgEntry : Record "Cust. Ledger Entry"
Published Version: 25.00.00 / 25.0.0.0
Event Name:
OnBeforeFilterOnOpen
Event Type: IntegrationEvent(IncludeSender : false, GlobalVarAccess : false)
Parameters:
NewCollJnlLine : Record "Gen. Journal Line"
CustLedgEntry : Record "Cust. Ledger Entry"
Published Version: 25.00.00 / 25.0.0.0

Bemærk

Please note that the event hook descriptions below follow an older format. We are in the process of updating all event hooks to align with a new structure that enhances clarity and consistency.

Event Description:
The event is published to alter address information when exporting collection lines for Betalingsservice.
Codeunit: 6052692
Event Name: OnBeforeWriteAddressToNode
Event Type: Integration
Parameters: (Customer : Record Customer;CollJnlLine : Record Gen. Journal Line;VAR VarName : Text;VAR VarName2 : Text;VAR VarAddress : Text;VAR VarAddress2 : Text;VAR VarPostCode : Code[20];VAR VarCountryCode : Code[10];VAR VarContact : Text;VAR VarPostAndCity : Text)
Published Version: 25.00.00 / 25.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052692,OnBeforeWriteAddressToNode)]
LOCAL PROCEDURE OnBeforeWriteAddressToNodeTest(Customer : Record 18;CollJnlLine : Record 81;VAR VarName : Text;VAR VarName2 : Text;VAR VarAddress : Text;VAR VarAddress2 : Text;VAR VarPostCode : Code[20];VAR VarCountryCode : Code[10];VAR VarContact : Text;VAR VarPostAndCity : Text);
BEGIN
  IF Customer."No." = '10000' THEN BEGIN
    VarName := 'Test Name';
    VarName2 := 'Test Name 2';
    VarAddress := 'Test Address';
    VarAddress2 := 'Test Address 2';
    VarPostCode := '1234';
    VarCountryCode := 'DK';
    VarContact := 'Test Contact';
    VarPostAndCity := '1234 Test City';
  END;
END;
Event Description:
Use this event to manage which Collection Agreement Journal Batches will be exported by the Bambora Send Agreements Job Queue Entry.
Codeunit: 6052770 - CCM Bambora Send Agr Batch Job
Event Name: OnBeforeSetFilterOnCollAgreeJnlBatch
Event Type: Integration
Parameters: var CollAgreeJnlBatch: Record "CCM Coll. Agreement Jnl. Batch"
Published Version: NA / 25.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052770, OnBeforeSetFilterOnCollAgreeJnlBatch)]
local procedure OnBeforeSetFilterOnCollAgreeJnlBatch (var CollAgreeJnlBatch: Record CCM Coll. Agreement Jnl. Batch);
Var
    Setup: Record “Setup”;
begin
    Setup.Get();
    CollAgreeJnlBatch.SetRange(“Journal Batch Name”, Setup.”Defined Export Jnl Batch Name”);
end;
Event Description:
Use this event to manage which Collection Agreement Journal Lines will be exported by the Bambora Send Agreements Job Queue Entry
Codeunit: 6052770 - CCM Bambora Send Agr Batch Job
Event Name: OnBeforeSetFilterOnCollAgreeJnlBatch
Event Type: Integration
Parameters: var SuggAgreeForTransfer: Report "CCM Sugg. Agree. for Trans"
Published Version: NA / 25.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052770, OnBeforeRunSuggAgreeForTransfer)]
local procedure OnBeforeRunSuggAgreeForTransfer (var SuggAgreeForTransfer: Report "CCM Sugg. Agree. for Trans");
Var
    CCMCollectionAgreement: Record “CCM Collection Agreement”;
Begin
    CCMCollectionAgreement.Get(CustomerNo, CustomerGroup,PaymentMethodCode,CollMethod);
    SuggAgreeForTransfer.SetTableView(CCMCollectionAgreement);
end;
Event Description:
The event is published to modify the customer when validating collection agreements.
This event can be used to insert a social security number into the customer."VAT Registration No." field.
Codeunit: 6052639
Event Name: OnValidateAgreementAfterCustomerGet
Event Type: Integration
Parameters: (VAR Customer : Record Customer)
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052639,OnValidateAgreementAfterCustomerGet)]
LOCAL PROCEDURE TestOnValidateAgreementAfterCustomerGet(VAR Customer : Record 18);
BEGIN
  IF Customer."No." = '10000' THEN
    Customer."VAT Registration No." := '0101000001'; // Insert a social security number - dont Customer.MODIFY
  // Can be used with events:
  // Codeunit 6052692 CreateNewAgreementSetCustVatRegNo
  // Codeunit 6052692 ExportCollectionsSetDebtorCVROrCPRNr
  // Codeunit 6052639 OnValidateCollGenerelAfterCustomerGet
END;
Event Description:
The event is published to modify the customer when validating collection lines.
This event can be used to insert a social security number into the customer."VAT Registration No." field.
Codeunit: 6052639
Event Name: OnValidateCollGenerelAfterCustomerGet
Event Type: Integration
Parameters: (VAR Customer : Record Customer)
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052639,OnValidateCollGenerelAfterCustomerGet)]
LOCAL PROCEDURE TestOnValidateCollGenerelAfterCustomerGet(VAR Customer : Record 18);
BEGIN
  IF Customer."No." = '10000' THEN
    Customer."VAT Registration No." := '0101000001'; // Insert a social security number - dont Customer.MODIFY
  // Can be used with events:
  // Codeunit 6052692 CreateNewAgreementSetCustVatRegNo
  // Codeunit 6052692 ExportCollectionsSetDebtorCVROrCPRNr
  // Codeunit 6052639 OnValidateAgreementAfterCustomerGet
END;
Event Description:
The event is published to modify the customer when validating collection lines.
This event can be used to insert a social security number into the customer."VAT Registration No." field.
Codeunit: 6052639
Event Name: OnValidateCollGenerelAfterCustomerGet
Event Type: Integration
Parameters: (VAR Customer : Record Customer)
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052639,OnValidateCollGenerelAfterCustomerGet)]
LOCAL PROCEDURE TestOnValidateCollGenerelAfterCustomerGet(VAR Customer : Record 18);
BEGIN
  IF Customer."No." = '10000' THEN
    Customer."VAT Registration No." := '0101000001'; // Insert a social security number - dont Customer.MODIFY
  // Can be used with events:
  // Codeunit 6052692 CreateNewAgreementSetCustVatRegNo
  // Codeunit 6052692 ExportCollectionsSetDebtorCVROrCPRNr
  // Codeunit 6052639 OnValidateAgreementAfterCustomerGet
END;
Event Description:
Use this event to skip the automatic creation of attached pdf files when sending an e-mail.
With the event you also get access to the customer ledger entry and a TempFile in which you can insert your own attached documents.
Codeunit: 6052645
Event Name: OnBeforeCreatePDFAttachments
Event Type: Integration
Parameters: VAR CustLE : Record 21;VAR TempFile : Record 6052664;VAR SkipPDFCreation : Boolean
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

    [EventSubscriber(Codeunit,6052645,OnBeforeCreatePDFAttachments)]
    LOCAL PROCEDURE TestOnBeforeCreatePDFAttachments@1(VAR CustLE : Record 21;VAR TempFile : Record 6052664;VAR SkipPDFCreation : Boolean);
    VAR
      MyOutStream : OutStream;
    BEGIN
      SkipPDFCreation := TRUE;
      IF CustLE.FINDSET THEN 
        REPEAT
          TempFile.CreateEmpty('AFilename.PDF');
          TempFile.Data.CREATEOUTSTREAM(MyOutStream);
          // Use the MyOutStream to add your PDF to the TempFile...
          TempFile.INSERT(TRUE);
        UNTIL CustLE.NEXT = 0;
    END;
Event Description:
Use this event to modify the Collection System before we create a Collection Journal line when posting a sales document.
Codeunit: 6052738
Event Name: OnAfterSalesPostPreCollJournalCheck
Event Type: Integration
Parameters: VAR CollSystem : Record "CCM Collection System";VAR CustLE: Record "Cust. Ledger Entry"
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

  	[EventSubscriber(Codeunit,6052738,OnAfterSalesPostPreCollJournalCheck)]
    LOCAL PROCEDURE TestOnAfterSalesPostPreCollJournalCheck(VAR CollSystem : Record 6052637;VAR CustLE : Record 21);
    BEGIN
      IF CustLE.FINDFIRST THEN
        IF CustLE."Customer No." = '10000' THEN
          CollSystem."Journal Batch Name" := 'BatchA';
    END;
Event Description:
Use this event to add code that will be triggered before the Reimbursed collections are transferred to the Collection Journal.
Codeunit: 6052648
Event Name: OnBeforeUnApplyCustLedgEntry
Event Type: Integration
Parameters: CollImpJnlLine : Record "CCM Import Journal Line";VAR ClosedByEntryNo : Integer
Published Version: 24.00.00 / 24.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052648,OnBeforeUnApplyCustLedgEntry)]
LOCAL PROCEDURE OnBeforeUnApplyCustLedgEntry(CollImpJnlLine : Record 6052667;VAR ClosedByEntryNo : Integer);
VAR
  CollEntry : Record 6052647;
BEGIN
  IF CollImpJnlLine."Coll. Ledg. Entry No." <> 0 THEN BEGIN
    CollEntry.GET(CollImpJnlLine."Coll. Ledg. Entry No.")
    // With CollEntry you can find the info needed...
    // If needed you can set the ColsedByEntryNo
  END;
END;
Event Description:
Use this event if you need to get the Collection agreement in a special way when creating collections based on reminders.
IsHandled must be True if you don't want the normal collection code to get an agreement after this event.
Codeunit: 6052638
Event Name: OnFindCollectionAgreementSuggestCollRem
Event Type: Integration
Parameters: VAR CollJnlLine : Record 81;VAR CollAgreement : Record 6052640;VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Report,6052638,OnFindCollectionAgreementRem,"",Skip)]
LOCAL PROCEDURE OnFindCollectionAgreementSuggestCollRem@12(VAR CollJnlLine@1000 : Record 81;VAR CollAgreement@1001 : Record 6052640;VAR IsHandled@1002 : Boolean);
BEGIN
	// Creating collections based on Reminders
  	// Get Agreement in a special way if needed...
  	CollAgreement.GET(CollJnlLine."Account No.",CollJnlLine."CCM Customer Group",CollJnlLine."Payment Method Code",CollJnlLine."CCM Collection Method");
  	IsHandled := TRUE;
END;
Event Description:
Use this event if you need to get the Collection agreement in a special way when creating collections based on customer ledger entries.
IsHandled must be True if you dont want the normal collection code to get an agreement after this event.
Codeunit: 6052638
Event Name: OnFindCollectionAgreementSuggestColl
Event Type: Integration
Parameters: VAR CustLedgEntry : Record 21;VAR CollAgreement : Record 6052640;VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Report,6052638,OnFindCollectionAgreement,"",Skip)]
LOCAL PROCEDURE OnFindCollectionAgreementSuggestColl@10(VAR CustLedgEntry@1000 : Record 21;VAR CollAgreement@1001 : Record 6052640;VAR IsHandled@1002 : Boolean);
BEGIN
	// Creating collections based on Customer Ledger Entries
	// Get Agreement in a special way if needed...
  	CollAgreement.GET(CustLedgEntry."Customer No.",CustLedgEntry."CCM Customer Group",CustLedgEntry."Payment Method Code",CustLedgEntry."CCM Collection Method");
  	IsHandled := TRUE;
END;
Event Description:
Use this event if you need to get the Collection agreement in a special way during validation of normal/stop collections.
IsHandled must be True if you don't want the normal collection code to get an agreement after this event.
Codeunit: 6052639
Event Name: OnFindCollectionAgreement
Event Type: Integration
Parameters: VAR CollJnlLine : Record 81;VAR CollAgreement : Record 6052640;VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052639,OnFindCollectionAgreement,"",Skip)]
LOCAL PROCEDURE OnFindCollectionAgreementValidate@11(VAR CollJnlLine@1000 : Record 81;VAR CollAgreement@1001 : Record 6052640;VAR IsHandled@1002 : Boolean);
BEGIN
	// Works on Normal and Stop collections.
	// Get Agreement in a special way if needed... 
	CollAgreement.GET(CollJnlLine."Account No.",CollJnlLine."CCM Customer Group",CollJnlLine."Payment Method Code",CollJnlLine."CCM Collection Method");
      IsHandled := TRUE;
END;
Event Description:
Betalingsservice
Find an alternative agreement when exporting normal/stop collections
IsHandled must be True if you don't want the normal collection code to get an agreement after this event.
Codeunit: 6052692
Event Name: OnFindCollectionAgreement
Event Type: Integration
Parameters: VAR CollJnlLine : Record 81;VAR CollAgreement : Record 6052640;VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052692,OnFindCollectionAgreement,"",Skip)]
    LOCAL PROCEDURE OnFindCollectionAgreement@9(VAR CollJnlLine@1000 : Record 81;VAR CollAgreement@1001 : Record 6052640;VAR IsHandled@1002 : Boolean);
    BEGIN
      // Works on Normal and Stop collections.
      // Get Agreement in a special way if needed... 
      CollAgreement.GET(CollJnlLine."Account No.",CollJnlLine."CCM Customer Group",CollJnlLine."Payment Method Code",CollJnlLine."CCM Collection Method");
      IsHandled := TRUE;
    END;
Event Description:
Sales Header, Service Header - Validate before post.
Add extra validation before post.
If IsHandled is true Collection Management validation will be skipped.
Codeunit: 6052639
Event Name: OnBeforeValidateBeforePost
Event Type: Integration
Parameters: VAR SalesHeader : Record "Sales Header";VAR ServiceHeader;VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052639,OnBeforeValidateBeforePost,"",Skip)]
    LOCAL PROCEDURE OnBeforeValidateBeforePostTest@7(VAR SalesHeader@1000 : Record 36;VAR ServHeader@1001 : Record 5900;VAR IsHandled@1002 : Boolean);
    BEGIN
      // Add your own before post validation here...
      IsHandled := FALSE;
    END;
Event Description:
Sales Header, Payment Method Code - OnAfterValidate.
Help to handle no default agreement found in another way.
IsHandled should be True if you don't want a "no default agreement found" message and don't want to clear the fields CCM Customer Group and CCM Collection Method.
Codeunit: 6052731
Event Name: OnBeforeDefaultAgreementMessage
Event Type: Integration
Parameters: VAR SalesHeader : Record "Sales Header";VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052731,OnBeforeDefaultAgreementMessage,"",Skip)]
LOCAL PROCEDURE OnBeforeDefaultAgreementMessageSalesHeaderTest@6(VAR SalesHeader@1000 : Record 36;VAR IsHandled@1001 : Boolean);
	BEGIN
  		// No Message :)
      	SalesHeader."CCM Customer Group" := '';
      	SalesHeader."CCM Collection Method" := '';
      	IsHandled := TRUE;
    END;
Event Description:
Gen. Journal Line, Payment Method Code - OnAfterValidate.
Help to handle no default agreement found in another way.
IsHandled should be True if you don't want a "no default agreement found" message and don't want to clear the fields CCM Customer Group and CCM Collection Method.
Codeunit: 6052735
Event Name: OnBeforeDefaultAgreementMessage
Event Type: Integration
Parameters: VAR GenJournalLine : Record "Gen. Journal Line";VAR IsHandled : Boolean
Published Version: 9.00.00 / 9.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052735,OnBeforeDefaultAgreementMessage,"",Skip)]
LOCAL PROCEDURE OnBeforeDefaultAgreementMessageTest@4(VAR GenJournalLine@1000 : Record 81;VAR IsHandled@1001 : Boolean);
BEGIN
	// No Message :)
    GenJournalLine."CCM Customer Group" := '';
    GenJournalLine."CCM Collection Method" := '';
    IsHandled := TRUE;
END;
Event Description:
The event is published to add notification lines before the header line notification.
Codeunit: 6052637
Event Name: OnBeforeCreateCollJnlAdviceHeaderInfo
Event Type: Integration
Parameters: GlobalCollAdviceDef : Record "CCM Coll. Notification Def.";CollJnlLine : Record "Gen. Journal Line";CustLedgEntry : Record "Cust. Ledger Entry";NoOfAdvChar : Integer;VAR AdvLineNo : Integer;CollEntryNo : Integer
Published Version: 8.02.00 / 8.2.0.0

Example of how to utilize the event

    [EventSubscriber(Codeunit,6052637,OnBeforeCreateCollJnlAdviceHeaderInfo)]
    LOCAL PROCEDURE OnBeforeCreateCollJnlAdviceHeaderInfoTest@3(GlobalCollAdviceDef@1000 : Record 6052642;CollJnlLine@1001 : Record 81;CustLedgEntry@1002 : Record 21;NoOfAdvChar@1003 : Integer;VAR AdvLineNo@1004 : Integer;CollEntryNo@1005 : Integer);
    VAR
      CollEntryAdvice@1006 : Record 6052648;
    BEGIN
      CollEntryAdvice."Coll. Entry No." := CollEntryNo;
      AdvLineNo += 10000;
      CollEntryAdvice."Line No." := AdvLineNo;
      CollEntryAdvice.Type := CollEntryAdvice.Type::Normal;
      CollEntryAdvice."Advice Description" := 'Some extra info';
      CollEntryAdvice.INSERT;
    END;

Event Description:
The event is published to add notification lines after the header line notification.
Codeunit: 6052637
Event Name: OnAfterCreateCollJnlAdviceHeaderInfo
Event Type: Integration
Parameters: (CollJnlLine : Record "Gen. Journal Line";CustLedgEntry : Record "Cust. Ledger Entry";NoOfAdvChar : Integer;VAR AdvLineNo : Integer;CollEntryNo : Integer)
Published Version: 7.00.00 / 7.0.0.0

Example of 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;
Event Description:
The event is published to add notification lines at the end of the notification for collected lines (Applies-to ID) and reminders.
Codeunit: 6052637
Event Name: OnAfterCreateAdviceDocPrCollection
Event Type: Integration
Parameters: GlobalCollAdviceDef : Record 6052642;CollJnlLine : Record 81;CustLedgEntry : Record 21;AmountExclVAT : Decimal;VATAmount : Decimal;AmountInclVAT : Decimal;NoOfAdvChar : Integer;VAR AdvLineNo : Integer;CollEntryNo : Integer
Published Version: 8.02.00 / 8.2.0.0

Example of how to utilize the event

    [EventSubscriber(Codeunit,6052637,OnAfterCreateAdviceDocPrCollection)]
    LOCAL PROCEDURE OnAfterCreateAdviceDocPrCollectionTest@1(GlobalCollAdviceDef@1000 : Record 6052642;CollJnlLine@1001 : Record 81;CustLedgEntry@1002 : Record 21;AmountExclVAT@1003 : Decimal;VATAmount@1004 : Decimal;AmountInclVAT@1005 : Decimal;NoOfAdvChar@1006 : Integer;VAR AdvLineNo@1007 : Integer;CollEntryNo@1008 : Integer);
    VAR
      CollEntryAdvice@1009 : Record 6052648;
    BEGIN
      CollEntryAdvice."Coll. Entry No." := CollEntryNo;
      AdvLineNo += 10000;
      CollEntryAdvice."Line No." := AdvLineNo;
      CollEntryAdvice.Type := CollEntryAdvice.Type::Normal;
      CollEntryAdvice."Advice Description" := CustLedgEntry."Applies-to ID" + ' (' + FORMAT(AmountInclVAT) + ')';
      CollEntryAdvice.INSERT;
    END;
Event Description:
The event is published to add notification lines at the end of the notification for single document lines (Applies-to Doc. Type/Applies-to Doc. No.)
Codeunit: 6052637
Event Name: OnAfterCreateAdvicePrInvoice
Event Type: Integration
Parameters: GlobalCollAdviceDef : Record 6052642;CollJnlLine : Record 81;CustLedgEntry : Record 21;AmountExclVAT : Decimal;VATAmount : Decimal;AmountInclVAT : Decimal;NoOfAdvChar : Integer;VAR AdvLineNo : Integer;CollEntryNo : Integer
Published Version: 8.02.00 / 8.2.0.0

Example of how to utilize the event

    [EventSubscriber(Codeunit,6052637,OnAfterCreateAdvicePrInvoice)]
    LOCAL PROCEDURE OnAfterCreateAdvicePrInvoiceTest@8(GlobalCollAdviceDef@1000 : Record 6052642;CollJnlLine@1001 : Record 81;CustLedgEntry@1002 : Record 21;AmountExclVAT@1003 : Decimal;VATAmount@1004 : Decimal;AmountInclVAT@1005 : Decimal;NoOfAdvChar@1006 : Integer;VAR AdvLineNo@1007 : Integer;CollEntryNo@1008 : Integer);
    VAR
      CollEntryAdvice@1009 : Record 6052648;
    BEGIN
      CollEntryAdvice."Coll. Entry No." := CollEntryNo;
      AdvLineNo += 10000;
      CollEntryAdvice."Line No." := AdvLineNo;
      CollEntryAdvice.Type := CollEntryAdvice.Type::Normal;
      CollEntryAdvice."Advice Description" := 'Amount Incl. VAT: ' + FORMAT(AmountInclVAT);
      CollEntryAdvice.INSERT;
    END;
Event Description:
The event is published to add notification lines at the end of the Collection Journal Line notification.
Codeunit: 6052637
Event Name: OnCreateAdvice
Event Type: Integration
Parameters: (CollJnlLine : Record "Gen. Journal Line";CollEntryNo : Integer;VAR AdvLineNo : Integer)
Published Version: 5.00.00 / 5.0.0.0

Example of 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;  
Event Description:
The event is published to add notification lines after the document no. line.
On the Notification template the field "Limit to document no." must be activated.
Codeunit: 6052637
Event Name: OnAfterCreateCollJnlAdviceDocNosOnly
Event Type: Integration
Parameters: (CollJnlLine : Record "Gen. Journal Line";NoOfAdvChar : Integer;VAR AdvLineNo : Integer;CollEntryNo : Integer)
Published Version: 7.00.00 / 7.0.0.0

Example of 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;
Event Description:
The event is published to modify the Gen. Journal Line before the the Status field is updated.
Codeunit: 6052637
Event Name: OnBeforeCollJnlUpdateStatus
Event Type: Integration
Parameters: (VAR CollJnlLine : Record "Gen. Journal Line",ExitUpdateStatus : Boolean)
Published Version: 7.01.00 / 7.1.0.0

Example of 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;
Event Description:
The event is published to modify the Gen. Journal Line before the Balance Entry is created.
Codeunit: 6052637
Event Name: OnCreateBalEntry
Event Type: Integration
Parameters: (VAR CollJnlLine : Record "Gen. Journal Line")
Published Version: 7.00.00 / 7.0.0.0

Example of 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;
Event Description:
The event is published to modify the Gen. Journal Line before the Collected line in the Collection Journal is Modified.
Codeunit: 6052637
Event Name: OnCollectCollJnlLines
Event Type: Integration
Parameters: (VAR CollJnlLine : Record "Gen. Journal Line")
Published Version: 7.00.00 / 7.0.0.0

Example of 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;
Event Description:
The event is published to alter the collection journal lines before they are inserted into the Collection Journal.
The Collection Journal lines are based on invoices/credit memos.
Report: 6052638
Event Name: OnBeforeInsertColJnlLine
Event Type: Integration
Parameters: (VAR NewCollJnlLine : Record "Gen. Journal Line";CustLedgEntry : Record "Cust. Ledger Entry")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to alter the collection journal lines before they are inserted into the Collection Journal.
The Collection Journal lines are based on reminders.
Report: 6052638
Event Name: OnBeforeInsertCollJnlLineReminder
Event Type: Integration
Parameters: (VAR NewCollJnlLine : Record "Gen. Journal Line";IssRemHeader : Record "Issued Reminder Header")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to alter the PDF templates that are to be applied to the mail notifications.
Codeunit: 6052645
Event Name: OnBeforePrintToFile
Event Type: Integration
Parameters: (CustLE : Record "Cust. Ledger Entry";VAR ReportID : Integer)
Published Version: 4.00.00 / 4.0.0.0

Example of 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;
Event Description:
The event is published to modify the Coll. Entry when a line is created in Collection Journal.
Codeunit: 6052647
Event Name: OnAfterInsertEntry
Event Type: Integration
Parameters: (VAR CollEntry : Record "CCM Collection Entry";CollJnlLine : Record "Gen. Journal Line")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to modify the Coll. Entry when the funcition ModifyEntry on Table CCM Coll. Entry is called.
Codeunit: 6052647
Event Name: OnAfterUpdateEntry
Event Type: Integration
Parameters: (VAR CollEntry : Record "CCM Collection Entry";CollJnlLine : Record "Gen. Journal Line")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to modify the Gen. Journal Line created when using the function "Transfer to Cash receipt Jnl." from the Collection Import Journal.
Codeunit: 6052648
Event Name: OnAfterCreateCashReceipt
Event Type: Integration
Parameters: (VAR GenJnlLine : Record "Gen. Journal Line";CollImportJnlLine : Record "CCM Import Journal Line")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to modify the Gen. Journal Line before the Refund line is inserted into the Collection Journal from the Collection Import Journal.
Codeunit: 6052648
Event Name: OnBeforeInsertRefundLinesInCollJnl
Event Type: Integration
Parameters: (VAR GenJnlLine : Record "Gen. Journal Line";CollImportJnlLine : Record "CCM Import Journal Line")
Published Version: 7.00.00 / 7.0.0.0

Example of 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;
Event Description:
Export collection file BS XML000 (Collection system Betalingsservice med FI and Betalingsservice uden FI)
**This event can be used to insert a social security number into the customer."VAT Registration No." field.
Codeunit: 6052692
Event Name: ExportCollectionsSetDebtorCVROrCPRNr
Event Type: Integration
Parameters: (Customer : Record Customer;VAR CVROrCPR : Text)
Published Version: 7.00.00 / 7.0.0.0

Example of how to utilize the event

[EventSubscriber(Codeunit,6052692,ExportCollectionsSetDebtorCVROrCPRNr)]
LOCAL PROCEDURE TestExportCollectionsSetDebtorCVROrCPRNr@8(Customer@1000 : Record 18;VAR CVROrCPR@1001 : Text);
BEGIN
  IF Customer."No." = '10000' THEN
    CVROrCPR := '0101000001';
  // Can be used with events:
  // Codeunit 6052692 CreateNewAgreementSetCustVatRegNo
  // Codeunit 6052639 OnValidateAgreementAfterCustomerGet
  // Codeunit 6052639 OnValidateCollGenerelAfterCustomerGet
END;<
Event Description:
The event is published to alter Customer."VAT Registration No." when exporting collection lines for Betalingsservice.
Codeunit: 6052692
Event Name: ExportCollectionsSetCustValues
Event Type: Integration
Parameters: (VAR Customer : Record Customer)
Published Version: 6.03.00 / 6.3.0.0

Example of 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;
Event Description:
**This event can be used to insert a social security number into the customer."VAT Registration No." field.
Codeunit: 6052692
Event Name: CreateNewAgreementSetCustVatRegNo
Event Type: Integration
Parameters: (VAR Customer : Record Customer)
Published Version: 6.03.00 / 6.3.0.0

Example of how to utilize the event

    [EventSubscriber(Codeunit,6052692,CreateNewAgreementSetCustVatRegNo)]
    LOCAL PROCEDURE TestCreateNewAgreementSetCustVatRegNo@12(VAR Customer@1000 : Record 18);
    BEGIN
      IF Customer."No." = '10000' THEN
        Customer."VAT Registration No." := '0101000001'; // Insert a social security number - dont Customer.MODIFY
      // Can be used with events:
      // Codeunit 6052639 OnValidateAgreementAfterCustomerGet
      // Codeunit 6052639 OnValidateCollGenerelAfterCustomerGet
      // Codeunit 6052692 ExportCollectionsSetDebtorCVROrCPRNr
    END;
Event Description:
The event is published to modify the Collection Agreements being created from the Agreement Export Journal.
Codeunit: 6052692
Event Name: ExportAgreementsCreateOnBeforeModifyAgree
Event Type: Integration
Parameters: (VAR CollAgree : Record "CCM Collection Agreement";AgreeJnlLine : Record "CCM Coll. Agreement Jnl. Line")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to set your own value for the tag in the Collection file exported to Nets BetalingsService.
Codeunit: 6052692
Event Name: ExportCollectionsSetDebtorCustomerNr
Event Type: Integration
Parameters: (CollJnlLine : Record "Gen. Journal Line";VAR DebtorCustomerNr : Code[30])
Published Version: 5.00.00 / 5.0.0.0

Example of 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;
Event Description:
The event is published to get the Coll. Journal Line after the line is exported to Nets BetalingsService.
Codeunit: 6052692
Event Name: ExportCollectionsOnAfterModify
Event Type: Integration
Parameters: (VAR CollJnlLine : Record "Gen. Journal Line")
Published Version: 5.00.00 / 5.0.0.0

Example of 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;