Nunca fiz nada com webservice json.
o manual do webservice é este:
https://deliveryapp.neemo.com.br/api/docs/?integration=true#!/order/POST_version_order
Meu teste, incompleto e nem sei se está certo, é este, baseado em posts do fórum:
PROCEDURE Main
LOCAL cURL, nId, cJSON, cSort := "[id][asc]", cCertCN, cSoapAction
cURL := ""
cSoapAction := "/v1/order"
cJSON := {{] + ;
["token_account": 0,] + ;
["limit": 10,] + ;
["page": 1,] + ;
["modified": "2020-05-28 08:00:00",] + ;
["status": 0,] + ;
["sort": "] + cSort + [",] + ;
["created_at": "2020-05-28 08:00:00"] + ;
[}]
? MicrosoftXMLSoapPost( cURL, cJSON, cSoapAction, cCertCN )
Inkey(0)
RETURN
FUNCTION MicrosoftXmlSoapPost( cURL, cJSON, cSoapAction, cCertCN )
LOCAL oServer, nCont, cRetorno
LOCAL cSoapAction
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0" )
IF cCertCN != NIL
oServer:setOption( 3, "CURRENT_USER\MY\" + cCertCN )
ENDIF
oServer:Open( "POST", cURL, .F. )
IF cSoapAction != NIL .AND. ! Empty( cSoapAction )
oServer:SetRequestHeader( "SOAPAction", cSoapAction )
ENDIF
oServer:SetRequestHeader( "Content-Type", "application/json" )
oServer:Send( cJSON )
oServer:WaitForResponse( 5000 )
cRetorno := oServer:ResponseBody()
RETURN cRetorno
Alguém pode ajudar?