FiveTech Software tech support forums

Posted: **Fri Aug 18, 2023 7:38 pm**

Que tal a Todos
Ando con esto que me acaban de mandar
(De un banco de aqui en Mexico)

<html>
  <title>Cobro/Venta - M5G</title>
<body>
  <head><h1>Cobro/Venta</h1></head>
    <form action="http://localhost:8081/upay/" method="POST">
    <p style="font-family:'Courier New'">    
    <input type="hidden"    value="T060S000"    name="dcs_form">
    Monto............:
    <input value="11.00"    name="trn_amount"><br>        
    Pago Directo/MSI.:
    <input value="1"        name="trn_qty_pay"><br>
    Moneda (MXN: 484):
    <input value="484"      name="trn_cur_id1"><br>
    <input type="hidden"    value="http://www.google.com.mx/"  name="dcs_reply_get">
    <input type="submit">
    </p>
    </form>
</body>
</html>

Alguien me puede echar la mano para hacerlo en Fivewin?

Gracias.

Posted: **Sat Aug 19, 2023 3:25 pm**

¿Qué quieres hacer es esto? Explicar con más detalle.

https://imgur.com/kks0ko0

Regards, saludos.

Posted: **Sat Aug 19, 2023 6:25 pm**

es un método POST xHarbour
hay que saber al momento de darle enviar como se compone la URL
aquí un ejemplo de como se realiza el método POST

Code: Select all | Expand

LOCAL cUrl := "http://localhost:8081/upay/"
LOCAL cHttps   := cUrl
LOCAL hJson := {=>}
LOCAL hResult := {=>}
LOCAL cResp := ""
hJson["trn_amount"] := 11.00
hJson["trn_qty_pay"] := "1"
hJson["trn_cur_id1"] := 484.00
cJson := hb_jsonencode( hJson )

? cJson
Try
   oHttp := CreateObject("winhttp.winhttprequest.5.1")
   oHttp:Open("POST", cHttps ,.f.)
   oHttp:SetRequestHeader("Content-Type","application/json")
   oHttp:Send( cJson )

   cResp := oHttp:ResponseText()
   ? "resp", cResp
   hb_jsondecode( cResp, @hResult )
      ? hResult["trn_cur_id1"]

Catch
      MsgStop( "Error" )
      Return cResp
END

SALUDOS !

FiveTech Software tech support forums

Ayuda, convertir a Fivewin

Ayuda, convertir a Fivewin

Re: Ayuda, convertir a Fivewin

Re: Ayuda, convertir a Fivewin