B4J Question HTTP post error

[StarinschiAndrei]

Hi everyone,
Could you please help me with the following error?
I try to post with the below code :

Sub Button1_Click
    Submit_Action
End Sub
Sub Submit_Action
    Dim j As HttpJob
    j.Initialize("",Me )
    j.PostString("http://localhost:4444/SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1, DiscAddP = 0, DiscAddV = 0)","")
    'j.GetRequest.SetContentType("application/json")
    Wait For(j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
    End If  
    j.Release
End Sub

this is the error that i get (from browser the link works fine):

Program started.
<Res Code="63">
<Err Source="Server" Type="ClientInvalidPostFormat">
<Message>Root element is missing.
Content of post body must be valid xml. </Message>
</Err>
</Res>

 

[EnriqueGonzalez]

Content of post body must be valid xml.

the server is expecting and XML and you are providing an empty string

SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1, DiscAddP = 0, DiscAddV = 0)

you cant put parenthesis and spaces in a URL,
you have to create an xml and pass these values there not in the URL

 

[StarinschiAndrei]

the server is expecting and XML and you are providing an empty string


you cant put parenthesis and spaces in a URL,
you have to create an xml and pass these values there not in the URL

Could you please tell me how can i do this ?

 

[EnriqueGonzalez]

Could you please tell me how can i do this ?

No.
At Least no, without knowing what you have on the other side.
What software? you may have documentation if not, it is impossible.

 

[StarinschiAndrei]

No.
At Least no, without knowing what you have on the other side.
What software? you may have documentation if not, it is impossible.

This is the link that i send from browser (Chrome) : http://localhost:4444/SellPLUWithSp...ticle1,OptionVATClass=A,Price=10.2,Quantity=1, DiscAddP = 0, DiscAddV = 0) and it's works

 

[EnriqueGonzalez]

and it's works

If it is from the browser then use a GET request (j.download)

 

[StarinschiAndrei]

If it is from the browser then use a GET request (j.download)

i don't think that solution is with GET. i should generare a link exactly the same that i sent previously an post.
In the below image you can see what happen from browser.

 

[EnriqueGonzalez]

In the below image you can see what happen from browser.

Yes. you wrote the URL and issued a GET request, the server responded with an XML string

 

[StarinschiAndrei]

Yes. you wrote the URL and issued a GET request, the server responded with an XML string

Below a short description from documentation.
Development/Testing without using auto-generated library
If a library for specific language is not provided, fiscal device operations can be performed by sending HTTP GET request to ZFPLabServer. The server might be running locally or remotely.
API docs and test environment can be found at the following url location: http://localhost:4444
The end user software sends commands in the format: http://ip:4444/command
Examples:

http://localhost:4444/OpenReceipt(OperNum=1,OperPass=0)

http://localhost:4444/SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=B,Price=1.2,Quantity=2, DiscAddP = 5, DiscAddV = 0)

 

[alwaysbusy]

What does this return?

Dim command As String = "SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1, DiscAddP = 0, DiscAddV = 0)"
Dim su As StringUtils
command = su.EncodeUrl(command, "UTF-8")
    
Dim j As HttpJob
j.Initialize("",Me )
j.Download("http://localhost:4444/" & command)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
     Log(j.GetString)
End If
j.Release

 

[aeric]

I suggest you don't include spaces inside the URL.
Write like this instead

http://localhost:4444/SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=B,Price=1.2,Quantity=2,DiscAddP=5,DiscAddV=0)

 

[alwaysbusy]

Yeah, I would remove the spaces too. Just left them in there as the API seems to allow them, but I would not do it either.

 

[StarinschiAndrei]

Yeah, I would remove the spaces too. Just left them in there as the API seems to allow them, but I would not do it either.

i removed the space

    j.PostString("http://localhost:4444/OpenReceipt(OperNum=1,OperPass=0)","")

and also with , i got the same error.

j.PostString("http://localhost:4444/",$"OpenReceipt(OperNum=1,OperPass=0)"$)

<Res Code="63">
<Err Source="Server" Type="ClientInvalidPostFormat">
<Message>Root element is missing.
Content of post body must be valid xml. </Message>
</Err>
</Res>

 

[alwaysbusy]

by sending HTTP GET request

so it has to be a GET, not a POST

Have your tried my snippet or not?

 

[StarinschiAndrei]

What does this return?

Dim command As String = "SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1, DiscAddP = 0, DiscAddV = 0)"
Dim su As StringUtils
command = su.EncodeUrl(command, "UTF-8")
   
Dim j As HttpJob
j.Initialize("",Me )
j.Download("http://localhost:4444/" & command)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
     Log(j.GetString)
End If
j.Release

Sorry ,
Here is the error :
WARNING: package com.sun.javafx.embed.swing.oldimpl not in javafx.swing
Waiting for debugger to connect...
Program started.
<Res Code="11">
<Err Source="Server" Type="ServArgDefMissing">
<Message>attribute name +DiscAddP+ not found in server definitions</Message>
</Err>
</Res>

 

[alwaysbusy]

Closer. So now try my snippet without the spaces (which causes the +):

Dim command As String = "SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1,DiscAddP=0,DiscAddV=0)"

 

[StarinschiAndrei]

Closer. So now try my snippet without the spaces (which causes the +):

Dim command As String = "SellPLUWithSpecifiedVat(NamePLU=Article1,OptionVATClass=A,Price=10.2,Quantity=1,DiscAddP=0,DiscAddV=0)"

Than you ! ! ! ! it works

 

[alwaysbusy]

Nice! I understand the confusion. Their documentation is not the best, giving an example with spaces in it.