Code: Select all
Procedure HttpGetEvent1(Success, Result$, UserData)
If Success
debug result$
Debug "Successful connection for PDF file calculation".
Else
debug result$
Debug "Error: No Connection" + "Line 3995
EndIf
EndProcedure
NewMap Headers$()
Headers$("Access-Control-Allow-Origin") = "*"
Headers$("HeaderContentType") = "application/xml"
Headers$("Accept") = "application/xml"
Global url.s="https://xxxx/xx.xml"
HTTPRequest(#PB_HTTP_Post,url,"",@HttpGetEvent1(),0,Headers$())