Hola!
Este codigo es para la descarga del padron de
II.BB de Arba, enviando un formulario multipart con un archivo adjunto xml me debe responder con el padron compactado.
Alguien podria ayudarme con esto?
Ya me tiene mareado, y no se si voy por buen camino, estoy intentando formar las partes y enviarlas pero no funciona.
gracias de antemano,
Mauricio R. Molinero
clear
SET MEMOWIDTH TO 120
loHTTP = CREATEOBJECT('WinHttp.WinHttpRequest.5.1')
lohttp.SetTimeouts(999999,999999,999999,999999)
TEXT TO lcForm TEXTMERGE PRETEXT 11 NOSHOW
<FORM enctype="multipart/form-data" method="POST" action="lcURL">
<INPUT TYPE="text" NAME="user" VALUE="nn">
<INPUT TYPE="text" NAME="password" VALUE="123">
<INPUT TYPE="file" NAME="file" >
<INPUT TYPE=submit value="enviar">
</FORM>
ENDTEXT
TEXT TO lcFileXml TEXTMERGE PRETEXT 11 NOSHOW
--abc
<?xml version="1.0" encoding="ISO-8859-1" ?>
<DESCARGA-PADRON>
<fechaDesde>20120301</fechaDesde>
<fechaHasta>20120331</fechaHasta>
</DESCARGA-PADRON>
ENDTEXT
lohttp.Open('POST',lcUrl,.f.)
lohttp.SetRequestHeader("Content-Type", "multipart/form-data; boundary=abc")
lohttp.SetRequestHeader("Content-length", LEN(ALLTRIM(lcForm)+ALLTRIM(lcFileXML)))
*lohttp.Send(' GET HTTP/1.1 ')
lohttp.Send(lcForm)
lohttp.Send(lcFileXML)
? lohttp.ResponseText