RE: [vfp] Re: Metodo POST

[Esteban H]

Proba así:

 

 

Te adjunto en un txt la respuesta del WS.

 

Saludos

Esteban

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Hugo
Enviado el: martes, 10 de marzo de 2020 12:55 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Metodo POST

 

no usando ninguna clase:

 

TEXT TO lcJon NOSHOW

    { "idusuario":2,

      "password":"hg768*/Mic",

      "idempresa":17

    }

ENDTEXT

 

lcURL   = 'www-qa.micamsalud.com.ar/Api_Export_Liquidaciones/proveedor-obtener_todos'

 

oHTTP   = CREATEOBJECT('Msxml2.ServerXMLHTTP.6.0')

oHTTP.OPEN('POST',  lcURL , .F.)

oHTTP.setRequestHeader("Content-Type", "application/json")

oHTTP.SEND(lcJSON)

 

IF oHTTPSTATUS != 200

    cResponse = '{"Error": "No se logró la conexión con el Web Service.'+oHTTPresponseText+'"}'

ELSE

    cResponse = 'Conexion Exitosa'

ENDIF

oHTTP = NULL

MESSAGEBOX(cResponse)

 

el error me da en el OPEN.

 

si me pueden dar algun indicio de lo que puede ser.

 

saludos.

 

Hugo

El martes, 10 de marzo de 2020, 11:24:19 (UTC-3), Hugo escribió:

Hola gente buen día, necesito bajar info con un metodo POST

 

 

URL:

www-qa.micamsalud.com.ar/Api_Export_Liquidaciones/proveedor-obtener_todos

 

 

Datos Acceso:

 

{ "idusuario":2, "password":"hg768*/Mic", "idempresa":17 }

 

lo intento con la libreria de Irwin:

 

CLEAR oRest = NEWOBJECT("Rest","vfpRestClient.prg") cURLWrite = "www-qa.micamsalud.com.ar/Api_Export_Liquidaciones/proveedor-obtener_todos" TEXT TO cBody NOSHOW {"idusuario":2,"password":"hg768*/Mic","idempresa":17 } ENDTEXT oRest.AddRequest(oRest.POST,cURLWrite) oRest.AddHeader("Content-Type","application/json") oRest.addRequestBody(cBody) oRest.SEND()

 

 

 

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4665de42-c1da-4494-abac-022bbea247c6%40googlegroups.com.

[Noris Diaz]

Hola,  yo acabo di crear un programa que consume API di Magento,  no conseguia el errore hasta que me di cuenta que era el envio del TOKEN  a darme errores

dejo aqui il codigo por si a alguno le pueda sevir.

 TEXT TO lcJsonString 

 

 ENDTEXT

    do json

    this.xmlHttp = CREATEOBJECT("MSXML2.ServerXMLHTTP")

    this.xmlHttp.Open("POST",ALLTRIM( this.oParentObject.w_WEBSER ) +"index.php/rest/V1/integration/admin/token", NULL)     

    this.xmlHttp.setRequestHeader("Content-Type","application/json")     

    CREATE CURSOR cCursor( username c(15), password c(15)) 

 *SELECT cCursor 

 SCATTER name oRecord 

 oRecord.username= this.oParentObject.w_USER 

 oRecord.password= this.oParentObject.w_PASSW

    cJSON = JSON.stringify(oRecord)

    this.xmlHttp.send(cJson)     

    this.w_TOKEN = this.xmlHttp.responseText

    if EMPTY( this.w_TOKEN )

      i_retcode = 'stop'

      return

    endif

    this.w_TOKEN = STRTRAN(this.w_TOKEN, '"', "")  && <--- Atencion que el TOKEN regresa como objeto Json  "

    this.xmlHttp = CREATEOBJECT("MSXML2.ServerXMLHTTP")

    this.xmlHttp.Open("POST",ALLTRIM( this.oParentObject.w_WEBSER ) +"rest/V1/inventory/source-items", null)     

    this.xmlHttp.setRequestHeader("Authorization", "Bearer "+this.w_TOKEN)     

    this.xmlHttp.setRequestHeader("Content-Type","application/json")     

 

    _cliptext = alltrim( lcJsonString )

 

    this.xmlHttp.send(lcJsonString)     

 

    if this.xmlHttp.Status <> 200

      public i_ErrorMessage

      i_ErrorMessage=" Risposta > "+ this.xmlHttp.responseText

    endif

    ADDMSGNL( "%0Risposta ... %1%0%2" ,this, this.xmlHttp.Status, this.xmlHttp.responseText)

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.