Creating/Populating the Sales & Purchase Journal from Ledger/Buffer Table in NAV

Hi all,

Today i came across with different type of requirement, Sometimes we need to populate/Create Journals thru codding.

Bellow are the whole codeunit with business logic.

OBJECT Codeunit 50081 Populate Journals

{

  OBJECT-PROPERTIES

  {

    Date=10/05/16;

    Time=[ 6:33:05 AM];

    Modified=Yes;

    Version List=Sbinesh;

  }

  PROPERTIES

  {

    OnRun=BEGIN

            CLEARLASTERROR;

            IF NOT PopulateSalesJournal THEN

              ERROR('Not populated, for more info read bellow lines\\%1',GETLASTERRORTEXT);

            IF NOT PopulatePurchaseJournal THEN

              ERROR('Not populated, for more info read bellow lines\\%1',GETLASTERRORTEXT);

          END;

  }

  CODE

  {

    [TryFunction]

    PROCEDURE PopulateSalesJournal@1000000000();

    VAR

      GenJournalTemplate@1000000006 : Record 80;

      GenJournalLine@1000000005 : Record 81;

      GenJournalBatch@1000000004 : Record 232;

      CustLedgerEntry@1000000003 : Record 21;

      CustLedgerEntryBuffer@1000000002 : Record 80021;

      GenJournalTemplateName@1000000001 : Text;

      GenJournalBatchName@1000000000 : Text;

      LineNo@1000000007 : Integer;

      MyDialog@1000000008 : Dialog;

      CountL@1000000009 : Integer;

    BEGIN

      IF GenJournalTemplate.GET('SALES') THEN

        GenJournalTemplateName := GenJournalTemplate.Name;

      IF GenJournalBatch.GET(GenJournalTemplateName,'DEFAULT') THEN

        GenJournalBatchName := GenJournalBatch.Name;

      CustLedgerEntryBuffer.RESET;

      IF CustLedgerEntryBuffer.FINDSET THEN BEGIN

        GenJournalLine.RESET;

        GenJournalLine.SETRANGE(GenJournalLine."Journal Template Name",GenJournalTemplateName);

        GenJournalLine.SETRANGE(GenJournalLine."Journal Batch Name",GenJournalBatchName);

        IF GenJournalLine.FINDLAST THEN

          LineNo := GenJournalLine."Line No."

        ELSE

          CLEAR(LineNo);

        MyDialog.OPEN('Record populating... #1###############');

        REPEAT

          LineNo += 10000;

          GenJournalLine.INIT;

          GenJournalLine.VALIDATE(GenJournalLine."Journal Template Name",GenJournalTemplateName);

          GenJournalLine.VALIDATE(GenJournalLine."Journal Batch Name",GenJournalBatchName);

          GenJournalLine.VALIDATE("Line No.",LineNo);

          GenJournalLine.VALIDATE(GenJournalLine."Posting Date",CustLedgerEntryBuffer."Posting Date");

          GenJournalLine.VALIDATE(GenJournalLine."Document Type",CustLedgerEntryBuffer."Document Type");

          GenJournalLine.VALIDATE(GenJournalLine."Document No.",CustLedgerEntryBuffer."Document No.");

          GenJournalLine.VALIDATE(GenJournalLine."Account Type",GenJournalLine."Account Type"::Customer);//Bcoz in Buffer table 1 option is there.

          GenJournalLine.VALIDATE(GenJournalLine."Account No.",CustLedgerEntryBuffer."Account No.");

          GenJournalLine.VALIDATE(GenJournalLine.Description,CustLedgerEntryBuffer.Description);

          GenJournalLine.VALIDATE(GenJournalLine.Amount,CustLedgerEntryBuffer."Remaining Amount");

          GenJournalLine.VALIDATE(GenJournalLine."Bal. Account Type",GenJournalLine."Bal. Account Type"::"G/L Account");

          GenJournalLine.VALIDATE(GenJournalLine."Bal. Account No.",'31040');

          GenJournalLine.VALIDATE(GenJournalLine."External Document No.",CustLedgerEntryBuffer."External Document No.");

          GenJournalLine.VALIDATE(GenJournalLine."Due Date",CustLedgerEntryBuffer."Due Date");

          GenJournalLine.VALIDATE(GenJournalLine."Document Date",CustLedgerEntryBuffer."Document Date");

          GenJournalLine.VALIDATE(GenJournalLine."Territory Code",CustLedgerEntryBuffer."Territory Code");

          GenJournalLine.VALIDATE(GenJournalLine."Ship-to Territory Code",CustLedgerEntryBuffer."Ship-to Territory Code");

          GenJournalLine.VALIDATE(GenJournalLine."Salespers./Purch. Code",CustLedgerEntryBuffer."Salesperson Code");

          GenJournalLine.VALIDATE(GenJournalLine."Ship-to Salesperson Code",CustLedgerEntryBuffer."Ship-to Salesperson Code");

          GenJournalLine.VALIDATE(GenJournalLine."Mark Text",CustLedgerEntryBuffer."Mark Text");

          GenJournalLine.VALIDATE(GenJournalLine."Payment Terms Code",CustLedgerEntryBuffer."Payment Terms Code");

          GenJournalLine.INSERT(TRUE);

          CountL += 1;

          MyDialog.UPDATE(1,CountL);

        UNTIL CustLedgerEntryBuffer.NEXT = 0;

      END;

      MyDialog.CLOSE();

      MESSAGE('[%1] record(s) populated!',CountL);

    END;

    [TryFunction]

    PROCEDURE PopulatePurchaseJournal@1000000002();

    VAR

      GenJournalTemplate@1000000006 : Record 80;

      GenJournalLine@1000000005 : Record 81;

      GenJournalBatch@1000000004 : Record 232;

      VendorLedgerEntry@1000000003 : Record 25;

      VendorLedgerEntryBuffer@1000000002 : Record 80025;

      GenJournalTemplateName@1000000001 : Text;

      GenJournalBatchName@1000000000 : Text;

      LineNo@1000000007 : Integer;

      MyDialog@1000000008 : Dialog;

      CountL@1000000009 : Integer;

    BEGIN

      IF GenJournalTemplate.GET('PURCHASES') THEN

        GenJournalTemplateName := GenJournalTemplate.Name;

      IF GenJournalBatch.GET(GenJournalTemplateName,'DEFAULT') THEN

        GenJournalBatchName := GenJournalBatch.Name;

      VendorLedgerEntryBuffer.RESET;

      IF VendorLedgerEntryBuffer.FINDSET THEN BEGIN

        GenJournalLine.RESET;

        GenJournalLine.SETRANGE(GenJournalLine."Journal Template Name",GenJournalTemplateName);

        GenJournalLine.SETRANGE(GenJournalLine."Journal Batch Name",GenJournalBatchName);

        IF GenJournalLine.FINDLAST THEN

          LineNo := GenJournalLine."Line No."

        ELSE

          CLEAR(LineNo);

        MyDialog.OPEN('Record populating... #1###############');

        REPEAT

          LineNo += 10000;

          GenJournalLine.INIT;

          GenJournalLine.VALIDATE(GenJournalLine."Journal Template Name",GenJournalTemplateName);

          GenJournalLine.VALIDATE(GenJournalLine."Journal Batch Name",GenJournalBatchName);

          GenJournalLine.VALIDATE("Line No.",LineNo);

          GenJournalLine.VALIDATE(GenJournalLine."Posting Date",VendorLedgerEntryBuffer."Posting Date");

          GenJournalLine.VALIDATE(GenJournalLine."Document Type",VendorLedgerEntryBuffer."Document Type");

          GenJournalLine.VALIDATE(GenJournalLine."Document No.",VendorLedgerEntryBuffer."Document No.");

          GenJournalLine.VALIDATE(GenJournalLine."Account Type",GenJournalLine."Account Type"::Vendor);

          GenJournalLine.VALIDATE(GenJournalLine."Account No.",VendorLedgerEntryBuffer."Account No.");

          GenJournalLine.VALIDATE(GenJournalLine.Description,VendorLedgerEntryBuffer.Description);

          GenJournalLine.VALIDATE(GenJournalLine.Amount,VendorLedgerEntryBuffer."Remaining Amount");

          GenJournalLine.VALIDATE(GenJournalLine."Bal. Account Type",GenJournalLine."Bal. Account Type"::"G/L Account");

          GenJournalLine.VALIDATE(GenJournalLine."Bal. Account No.",'31040');

          GenJournalLine.VALIDATE(GenJournalLine."External Document No.",VendorLedgerEntryBuffer."External Document No.");

          GenJournalLine.VALIDATE(GenJournalLine."Due Date",VendorLedgerEntryBuffer."Due Date");

          GenJournalLine.VALIDATE(GenJournalLine."Document Date",VendorLedgerEntryBuffer."Document Date");

          GenJournalLine.VALIDATE(GenJournalLine."Payment Terms Code",VendorLedgerEntryBuffer."Payment Terms Code");

          GenJournalLine.VALIDATE(GenJournalLine."Salespers./Purch. Code",VendorLedgerEntryBuffer."Purchaser Code");

          GenJournalLine.INSERT(TRUE);

          CountL += 1;

          MyDialog.UPDATE(1,CountL);

        UNTIL VendorLedgerEntryBuffer.NEXT = 0;

      END;

      MyDialog.CLOSE();

      MESSAGE('[%1] record(s) populated!',CountL);

    END;

    BEGIN

    {

      October, 05 2016 :  This codeunit is developed for creating the Sales & Purchase Journal from buffer table.

                          Cust. Ledger Entry Buffer table contains the mandatory fields from Cust. Ledger Entry.

                          Vendor Ledger Entry Buffer table contains the mandatory fields from Vendor Ledger Entry.

      Solution Developed by Binesh Singh Rajput

    }

    END.

  }

}

You can download this solution from here.

 

Print & Open any document in NAV using DotNet Variables.

Hi all,
Today i came across with different type of requirement, where someone asking for how could we Print & Open any document in NAV using DotNet Variables.

This Generic solution for Running/Opening and Printing any document, without any custom dlls, that always works, whenever, however, with any software, as long as you have “any” software installed that can Open & print that “any”-document with any extension ...
In-case if not Open or Print, it should give an error notification regarding failure...

To achieve these requirement i created two functions, and declared local dotnet variables for both functions, where as FileNameWithPathG is a Global Text variable.

See the bellow screenshot for better understanding.

How You Can Take Input From End User In Codeunit Object

How You Can Take Input From End User In Codeunit Object

Hi all,

Today i came across with different type of requirement, where someone asking for how could we input from codeunit.

This example illustrates how you can take input from end user in Codeunit Object.

And update the excel sheet from inputted data, using dotnet variables.

To achieve these requirement follow these steps:

Step 1:  Create a new codeunit.

Step 2:  Create function "CreatePopOfWindow" and  "UpdateExcelData" See the bellow screenshot].

Excel Function:

Excel Variable:

Step 3:  Save, Compile and run the newly created codeunit, See the bellow screenshot].

Scenario - 1:

Scenario - 2:

Click Here for download Object.

Note: 

    It might be changed the version of variables, so better to Re-define/declare the DotNet variables.

How to: Implement Location in C/AL NAV 2016

How to: Implement Location in C/AL NAV 2016

This example illustrates how you can retrieve location information. The example implements a GetLocation action on the Customer Card (page 21) that returns the GPS coordinates of the current customers address. It does not save this information to the database. Scenarios in which this functionality could be useful would be displaying a map that shows where your customer is located based on the GPS coordinates. Or, functionality to plan the next round of customer visits based on the addresses of your customers.

Important

The location information is only available on devices that run the Microsoft Dynamics NAV Universal App and have GPS capabilities. This means that location information is not available from the Microsoft Dynamics NAV Windows client or from a browser.

To implement location in C/AL

1. In the development environment, on the Tools menu, choose Object Designer to open the Object Designer window.
2. In Object Designer, choose Pages, select the Customer Card (page 21) and then choose the Design button.
3. From the Page Designer window, on the View menu, choose C/AL Globals.
4. Create the following variable:

Variable name	DataType	SubType
Location	DotNet	Microsoft.Dynamics.Nav.Client.Capabilities.LocationProvider Important Choose the Microsoft.Dynamics.Nav.ClientExtensions dll on the Server tab, and then choose Microsoft.Dynamics.Nav.Client.Capabilities.LocationProvider Make sure to set the properties RunOnClient and WithEvents to Yes.
LocationAvailable	Boolean

5. On the View menu, select C/AL Code and in the C/AL Editor locate the OnOpenPage trigger.
6. Instantiate the Location variable by adding the following code to the OnOpenPage trigger.

Copy Code

IF Location.IsAvailable THEN BEGIN   Location := Location.Create;   LocationAvailable := TRUE; END;

             

           See the bellow screenshot of OnOpenPage Trigger

7. Next, create the page action. Choose the View menu, and then select Page Actions. 

8. Locate the ActionGroup named Customer and create a new action; GetLocation with the following properties.

Property	Value
Name	GetLocation
Visible	LocationAvailable
Promoted	Yes
PromotedCategory	Process
PromotedIsBig	Yes

           See the bellow screenshot of GetLocation action Trigger

9. Now, in the C/AL Editor, on the GetLocation - OnAction trigger, insert the following line of code.

Copy Code

Location.RequestLocationAsync;

        See the bellow screenshot of GetLocation - OnAction Trigger

10. While still in the C/AL Editor, on the LocationChanged trigger add the following code to handle the GPS coordinates. LocationChanged is called when the device has obtained a status.

Copy Code

Location::LocationChanged(Location : DotNet "Microsoft.Dynamics.Nav.Client.Capabilities.Location") IF(Location.Status = 0) THEN   MESSAGE('Your position: %1 %2',   Location.Coordinate.Latitude,Location.Coordinate.Longitude)                                ELSE   MESSAGE('Position not available');

Important

Location.Status can be 0 = Available, 1 = NoData (no data could be obtained), 2 = TimedOut (location information not obtained in due time), or 3 = NotAvailable (for example user denied app access to location).

           See the bellow screenshot of Location::LocationChanged Trigger

11. Close the C/AL Editor, and then save and compile the page.
12. You can now test the modified Customer Card page in the Microsoft Dynamics NAV Universal App from either a tablet or a phone with GPS capabilities.

LocationOptions Overview

Microsoft Dynamics NAV 2016

When implementing location from C/AL, there are some options that you can optionally pass toLocationProvider.RequestLocationAsync(options). 

The options can be accessed by usingMicrosoft.Dynamics.Nav.Client.Capabilities.LocationOptions found in the Microsoft.Dynamics.Nav.ClientExtensionsdll.

For most scenarios it is not necessary to specify options.

Location Options List

bool EnableHighAccuracy A value to provide a hint to the device that this request must have the best possible location accuracy.

int Timeout The maximum length of time (milliseconds) that is allowed to pass to a location request.

int MaximumAge The maximum length of time (milliseconds) of a cached location.

References:   MSDN