Best Of

Hi,

dotnets are not supported anymore but in AL you can connect to WS.


You can use AL "functions", use for example "waldo´s pack":
https://www.waldo.be/2019/12/05/waldo-restapp/

Also you can use this piece I use.
I just the case 0: but it is handy to have the other methods. You just need request url formed and username/pwd

CallService('myproject', vWSURL, RequestType, payload, T50049.UserName, T50049.Password);

 procedure CallService(ProjectName: Text; RequestUrl: Text; RequestType: Integer; payload: Text; Username: Text; Password: Text): Text
    var
        Client: HttpClient;
        RequestHeaders: HttpHeaders;
        RequestContent: HttpContent;
        ResponseMessage: HttpResponseMessage;
        RequestMessage: HttpRequestMessage;
        ResponseText: Text;
        contentHeaders: HttpHeaders;
    begin
        RequestHeaders := Client.DefaultRequestHeaders();
        RequestHeaders.Add('Authorization', CreateBasicAuthHeader(Username, Password));
        case RequestType of
            0:
                Client.Get(RequestURL, ResponseMessage);
            1:
                begin
                    RequestContent.WriteFrom(payload);
                    RequestContent.GetHeaders(contentHeaders);
                    contentHeaders.Clear();
                    contentHeaders.Add('Content-Type', 'application/json');
                    RequestMessage.Content := RequestContent;

                    RequestMessage.SetRequestUri(RequestURL);
                    // RequestMessage.Method := 'PATCH';
                    RequestMessage.Method := 'PUT';
                    client.Put(RequestURL, RequestContent, ResponseMessage);
                end;
            2:
                begin
                    RequestContent.WriteFrom(payload);

                    RequestContent.GetHeaders(contentHeaders);
                    contentHeaders.Clear();
                    contentHeaders.Add('Content-Type', 'application/json');

                    Client.Post(RequestURL, RequestContent, ResponseMessage);
                end;
            3:
                Client.Delete(RequestURL, ResponseMessage);
        end;

        ResponseMessage.Content().ReadAs(ResponseText);

        if ResponseMessage.HttpStatusCode <> 200 then begin
            if StrPos(ResponseText, '"message"') <> 0 then
                ResponseText := CopyStr(ResponseText, StrPos(ResponseText, '"message"') + 10, StrLen(ResponseText));

            Error(strsubstno(Text50004, ResponseMessage.HttpStatusCode, ResponseText, payload));
        end else
            exit(ResponseText);
    end;

procedure CreateBasicAuthHeader(UserName: Text; Password: Text): Text
    var
        TempBlob: Record TempBlob;
    begin
        TempBlob.WriteAsText(StrSubstNo('%1:%2', UserName, Password), TextEncoding::UTF8);
        exit(StrSubstNo('Basic %1', TempBlob.ToBase64String()));
    end;

And this is an example to write JSON, (I cleared a bit the names because points to real work). To read it I haven´t used but you will find it: vJsonObject.ReadFrom()

vJsonObject: JsonObject;
vJsonValue: JsonValue;
 vJsonArray: JsonArray;

  vJsonObject.Add('path', '/app:company_home/cm:System/');
                                    vJsonObject.Add('type', 'linkedValue');
                                    vJsonObject.Add('lkvValue', Format(vFieldRef.Value));
                                    vJsonObject.Add('erpCode', Format(vFieldRef.Value));
                                    vJsonValue.ReadFrom('1');
                                    vJsonObject.Add('depthLevel', vJsonValue.AsInteger());
                                    vJsonObject.WriteTo(vpayload);

Then, if you want to happen every time they change something in 5404 table, just create an event subscriber.

I hope all this is useful to whatever you are trying to do (send/receive data from nav).

This will show red cross on field
1. Create global boolean variable. Example: FieldMandatory
2. on page in ShowMandatory property of field set variable "FieldMandatory"
3. On OnOpenPage trigger:
IF SomeCase THEN
FieldMandatory := TRUE
ELSE
FieldMandatory := FALSE;

This will check field:
1. On On ClosePage trigger
IF SomeCase THEN
TESTFIELD(Field);

Hi Big_D,

Erik says

The solution, do not mix your development environment. Currently, that means that CU2 is the preferred CU for NAV2018 development.

(The quick fix, is the remove the fields, and RETYPE them (Cut’n’Paste will not work).

So the first paragraph says: do not use your objects in an older version (build) of NAV than the one you have last used to save it in.

The second paragraph (the parentheses) says: Remove any fields that have the new property and re-create them by typing them in. You can cut and past any trigger code, but not the field itself.

My own suggestion is:

• Use a newer development environment to export the object as text.
• Edit the exported object and remove the DataClassification option.
• Import the edited text object into your (older) target version

Hello!
Try this one



IF SalesLine.FINDSET(TRUE) THEN
REPEAT
SalesHeader.Get(SalesLine."Document Type", SalesLine."Document No.");
LastState := SalesHeader.Status; //LastState - integer
SalesHeader.Status := SalesHeader.Status::Open ; //Don't use VALIDATE
SalesHeader.MODIFY; //Don't run MODIFY trigger

SalesLine.Validate("No.", NewItemNo); // Change item no and validate

SalesOrderList += SalesLine."Document No." + ' Line: ' + Format(SalesLine."Line No.") + '\';
SalesLine.MODIFY(TRUE);

SalesHeader.Status := LastState;
SalesHeader.MODIFY;
LineCount := LineCount + 1; // Update line count var
UNTIL SalesLine.NEXT = 0;

But best way:
1. reopen Sales Order using CU 414 "Release Sales Document" function Reopen
2. Release Sales Order after Line modification using same CU

I have encountered same issue and been bothered during past few months, however it is getting closed to be resolved.

1. Get the most recent Cumulative Update, update Codeunit 1501,1502,1509,1510,1511 and 1535. There was a major update in CU13 (26893) and some other minor updates relative with workflow. Basically the most updated CU avoid using Query but use traditional SETRANGE to find records. New code also avoid unnecessary table locks caused by DELETEALL.
The above update shall minimize Workflow Step Instance table lock issue. But then the another Table 1506 Workflow Table Relation Value table lock may happen.

2. NAV out of box Workflow Template will default setup Table 1505 (Workflow - Table Relation) content. For example, Table 36 sales header has Table Relation with table 454, 37, 8000. I have deleted the table relation with Table 37 and 8000 since those relation are not really used in my workflows but just result a lot of records in table 1506 for each approval request. Reduce the number of unnecessary records help a little bit.

However, workflow relative table lock or deadlock still happen occasionally. I plan to do two more modifications:
To-do 1: Modify table 1506's UpdateRelationValue function, to avoid unnecessary record MODIFY.
To-do 2: Get rid of using Query 1501 in Table 1504 SetTableRelationValues function.

Hope the above information helps.

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