B4J Question HTTP post error

StarinschiAndrei · Feb 14, 2023

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

B4X:

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 · Feb 14, 2023

StarinschiAndrei said:
Content of post body must be valid xml.

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

StarinschiAndrei said:
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 · Feb 14, 2023

EnriqueGonzalez said:
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 · Feb 14, 2023

StarinschiAndrei said:
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 · Feb 14, 2023

EnriqueGonzalez said:
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 · Feb 14, 2023

StarinschiAndrei said:
and it's works

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

StarinschiAndrei · Feb 14, 2023

EnriqueGonzalez said:
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 · Feb 14, 2023

StarinschiAndrei said:
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 · Feb 15, 2023

EnriqueGonzalez said:
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 · Feb 15, 2023

What does this return?

B4X:

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 · Feb 15, 2023

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 · Feb 15, 2023

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 · Feb 15, 2023

alwaysbusy said:
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

B4X:

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

and also with , i got the same error.

B4X:

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 · Feb 15, 2023

StarinschiAndrei said:
by sending HTTP GET request

so it has to be a GET, not a POST

Have your tried my snippet or not?

StarinschiAndrei · Feb 15, 2023

alwaysbusy said:

What does this return?

B4X:

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 · Feb 15, 2023

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

B4X:

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

StarinschiAndrei · Feb 15, 2023

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

B4X:

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

Than you ! ! ! ! it works

alwaysbusy · Feb 15, 2023

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

B4J Question HTTP post error

StarinschiAndrei

Active Member

EnriqueGonzalez

Expert

StarinschiAndrei

Active Member

EnriqueGonzalez

Expert

StarinschiAndrei

Active Member

EnriqueGonzalez

Expert

StarinschiAndrei

Active Member

EnriqueGonzalez

Expert

StarinschiAndrei

Active Member

alwaysbusy

Expert

aeric

Expert

alwaysbusy

Expert

StarinschiAndrei

Active Member

alwaysbusy

Expert

StarinschiAndrei

Active Member

alwaysbusy

Expert

StarinschiAndrei

Active Member

alwaysbusy

Expert

Similar Threads

B4J Question HTTP post error

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Expert

Expert

Expert

Active Member

Expert

Active Member

Expert

Active Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency