Open topic with navigation

Editing codeunit 1 — Dynamics NAV 2013 R2

Add the appropriate Insight code changes to the codeunit design. Carefully editing codeunit 1 can preserve any changes that have already been made to it.

The file COD1.txt resides in the NAS working directory subfolder that holds the Dynamics NAV localization, database version, and build, for example: ..\Microsoft Dynamics NAV\70\Service\Add-Ins\Scribe\ScribeModifications\W1.7.10.35473.

To edit the codeunit, use the .txt file that matches your version of Dynamics NAV. TIBCO suggests that you review COD1.txt before editing codeunit 1.

To edit codeunit 1

1. Open the Microsoft Dynamics NAV Development Environment.
2. Click Tools > Object Designer. The Object Designer appears.
3. Click Codeunit ().

4. From the list of codeunits, select codeunit 1, ApplicationManagement at the top of the list.
5. Click Design to open the C/AL Editor.
6. After it is open, click anywhere in the codeunit design.
7. In Microsoft Dynamics NAV 2013 R2 Development Environment, click View> C/AL Globals.
8. On the Functions tab, select the GetDatabaseTableTriggerSetup global trigger function, then click Locals.
9. On the Variables tab, create a ScribePublisher variable as noted below, then close this window.

   Global trigger functions must have these local variables.

   Name	DataType	Subtype	Length
   ScribePublisher	Codeunit	Scribe Publisher

10. On the Functions tab, select each of the following global trigger functions and repeat step 9 to add the needed variable on the Variables tab:
    • OnDatabaseInsert
    • OnDatabaseModify
    • OnDatabaseDelete
    • OnDatabaseRename
11. Close the C/AL Globals window. You return to the C/AL Editor.
12. In codeunit 1 ApplicationManagement, edit the following global trigger functions:
    • Trigger Function 1

      GetDatabaseTableTriggerSetup(TableID: Integer; VAR OnDatabaseInsert: Boolean; VAR OnDatabaseModify: Boolean; VAR OnDatabaseDelete: Boolean; VAR OnDatabaseRename:Boolean)

      After:

      IntegrationManagement.GetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify, OnDatabaseDelete,OnDatabaseRename);

      IntegrationManagement.GetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify, OnDatabaseDelete,OnDatabaseRename);

      Add:

      //****Scribe Begins *****
      ScribePublisher.GetTableTriggerSetup(TableId,OnDatabaseInsert, OnDatabaseModify,OnDatabaseDelete,OnDatabaseRename);
      //****Scribe Ends *****

    • Trigger Function 2

      OnDatabaseInsert (RecRef : RecordRef)

      After:

      ChangeLogMgt.LogInsertion(RecRef);
      IntegrationManagement.OnDatabaseInsert(RecRef);

      Add:

      //****Scribe Begins *****
      ScribePublisher.PublishInsertion(RecRef);
      //****Scribe Ends *****

    • Trigger Function 3

      OnDatabaseModify (RecRef : RecordRef)

      Before:

      ChangeLogMgt

      Add:

      // *****Scribe Begins*****
      IF xRecRef.GET(RecRef.RECORDID) THEN
      BEGIN
      publishUpdate:=True
      END;
      //*****Scribe Ends*****

      In the View menu, click C\AL locals. > Variables tab and enter:

      Name	DataType	Subtype	Length
      publishUpdate	Boolean

      After:

      ChangeLogMgt.LogModification(RecRef);
      IntegrationManagement.OnDatabaseModify(RecRef);

      Add:

      //****Scribe Begins *****
      ScribePublisher.PublishModification(RecRef,xRecRef);
      //****Scribe Ends *****

      In the View menu, click C\AL locals.> Variables tab and enter:

      Name	DataType	Subtype	Length
      xRecRef	RecordRef

      After:

      ChangeLogMgt.LogDeletion(RecRef);
      IntegrationManagement.OnDatabaseDelete(RecRef);

      Add:

      //****Scribe Begins *****
      if publishUpdate THEN
      ScribePublisher.PublishModification(RecRef,xRecRef);
      //****Scribe Ends *****

    • Trigger Function 4

      OnDatabaseDelete

      After:

      ChangeLogMgt.LogDeletion(RecRef);
      IntegrationManagement.OnDatabaseDelete(RecRef);

      Add:

      //****Scribe Begins *****
      ScribePublisher.PublishDeletion(RecRef);
      //****Scribe Ends *****

    • Trigger Function 5

      OnDatabaseRename (RecRef : RecordRef;xRecRef :

      After:

      ChangeLogMgt.LogRename(RecRef,xRecRef);
      IntegrationManagement.OnDatabaseRename(RecRef,xRecRef);

      Add:

      //****Scribe Begins *****
      ScribePublisher.PublishRename(RecRef,xRecRef);
      //****Scribe Ends *****

13. When you are done, save the codeunit and make sure that it compiles without errors.

    Make a note of the codeunit's new revision level.

    Note: In the Object Designer, in the Version List column, edit the ApplicationManagement codeunit's version to reflect the new revision level.

Next step

See also

Editing the codeunits — Dynamics NAV 2013 R2

TIBCO Scribe® Insight Help Library