Best Of

denpar wrote: »

@wait My question is not complete... I want to return multiple levels (item -> item variant) in the JSON, I don't think that's possible with API page

Yes you can, that is what the API does very well and easily, you are limited to three levels though, you can return Page, SubPage and then you can also return Complex Types

Good example would be Sales Invoice Entity (Page 5475) and Sales Invoice Line Entity (Page 5476) and The Sales Invoice Line Entity has field LineObjectDetailsJSON which is complex type.

To get the sales invoices and sales invoice lines your url would be something like the following

{{http}}://{{url}}/{{service}}//API/beta/companies({{companyId}})/salesInvoices?$expand=salesInvoiceLines

Here's tutorial I did a while back on complex type, https://forum.mibuso.com/discussion/72539/nav-2018-api-complex-types#latest

@MarharytaMykytenko I never tried but what you can do is OnQueryClose trigger write -

If GETLASTERRORTEXT <> '' THEN
ERROR('');

Hi

Thanks for your answers.

You have both right. I also have to change the configuration file property
<NetFx40_LegacySecurityPolicy enabled="false" />

Now it is working perfect.

Hello,

Instead of

RecordLink.Note.CreateOutStream(outStr, TextEncoding::UTF8);
outStr.WRITETEXT('AAA BBB CCC DDD EEE FFF');

you should use

TypeHelper.WriteRecordLinkNote(RecordLink,'AAA BBB CCC DDD EEE FFF');

TypeHelper is Codeunit 10 "Type Helper".
You can see an example of use in Codeunit 454.

Hello,

You can use Excel.Interop to open the file and save it in the required format.
Below is an example how to do this in Nav 2017, in other versions you have to change version of xlHelper variable, you can see your version in "Excel Buffer" table or just copy it from there.

In this example, file is opened on the client side. if you want to do this on the service side, then Excel must be installed on the server.

OBJECT Codeunit 50001 Save as xls
{
  OBJECT-PROPERTIES
  {
    Date=03.06.20;
    Time=09:00:00;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    OnRun=VAR
            [email protected] : Codeunit 419;
            [email protected] : Text;
            [email protected] : Text;
          BEGIN
            FileName := FileMgt.OpenFileDialog('Select xlsx file','*.xlsx','');

            IF FileName = '' THEN
              EXIT;

            NewFileName := SaveAsXls(FileName);

            MESSAGE('File %1 has been exported to %2',FileName,NewFileName);
          END;

  }
  CODE
  {

    LOCAL PROCEDURE [email protected]([email protected] : Text) : Text;
    VAR
      [email protected] : Codeunit 419;
      [email protected] : DotNet "'Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'.Microsoft.Office.Interop.Excel.ApplicationClass" RUNONCLIENT;
      [email protected] : DotNet "'Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'.Microsoft.Office.Interop.Excel.Workbook" RUNONCLIENT;
      [email protected] : DotNet "'Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'.Microsoft.Office.Interop.Excel.XlFileFormat" RUNONCLIENT;
      [email protected] : DotNet "'Microsoft.Dynamics.Nav.Integration.Office, Version=10.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.Microsoft.Dynamics.Nav.Integration.Office.Excel.ExcelHelper" RUNONCLIENT;
      [email protected] : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Path";
    BEGIN
      XlApp := XlApp.ApplicationClass;
      XlWrkBk := XlHelper.CallOpen(XlApp,FileName);

      FileName := PathHelper.ChangeExtension(FileName,'xls');
      IF FileMgt.ClientFileExists(FileName) THEN
        FileMgt.DeleteClientFile(FileName);

      XlHelper.CallSaveAsFormat(XlWrkBk,FileName,XlFileFormat.xlExcel8);

      CLEAR(XlWrkBk);

      XlHelper.CallQuit(XlApp);
      CLEAR(XlApp);

      EXIT(FileName);
    END;

    BEGIN
    END.
  }
}

always happy to help

Hello @dep_cornator ,

You can use something like that:

        DirectoryPath := 'C:\run';
        fileMgt.GetServerDirectoryFilesListInclSubDirs(TempNameValueBuffer, DirectoryPath);
        if TempNameValueBuffer.FindSet() then
            repeat
                if fileMgt.GetFileName(TempNameValueBuffer.Name) = 'start.ps1' then begin
                    fileMgt.BLOBImportFromServerFile(TempBlob, TempNameValueBuffer.Name);
                    if TempBlob.HasValue() then begin
                        TempBlob.CreateInStream(InStr);
                        InStr.ReadText(qTexto);
                    end;
                    exit;
                end;
            until TempNameValueBuffer.Next() = 0;

But the paths and files must be in the server, you don't have access to the client file system, later on with the InStream you can do whatever you want.

Regards