[vbnet] Acceder al WS de ARBA

Wed, 01 Oct 2014 11:35:59 -0700 

Gente, desde fines de agosto me ha dejado de funcionar el acceso al WS de
Arba, ya sea para bajar el padrón y/o para traer la Retención / Percepción.

 

Me aparece el error Nº 12004 - “Error en la descarga del recurso
solicitado.”

 

                Les paso la parte del código (VB6 SP6) que se conectaba
perfectamente , ya que desde ARBA no me dan “solución/atención/bolilla”.

 

                Desde ya muchas Gracias

 

.--------------------------------

 

    On Error GoTo igWSArbaPadr

    

    Dim xmlhttp As MSXML2.XMLHTTP30

    Dim ilRtas As Integer

    Dim slXMLF As String

    Dim slHash As String

    Dim slArch As String

    Dim slName As String

    Dim slXMLQ As String

    Dim lDesde As Long

    Dim lHasta As Long

    Dim stream, fileDst

    Dim ilDo As Integer

    Dim ret As String

    

    lDesde = Val((Mid(Trim(Str(llFecMov)), 1, 6)) & "01")

    lHasta = Val((Mid(Trim(Str(llFecMov)), 1, 6)) + Right("00" &
Trim(Str(objS.igGetUltimoDia(Mid(Trim(Str(llFecMov)), 5, 2),
Mid(Trim(Str(llFecMov)), 1, 4)))), 2))

    

    slXMLQ = ""

    slXMLQ = slXMLQ + "<DESCARGA-PADRON>" + Chr(13) + Chr(10)

    slXMLQ = slXMLQ + "<fechaDesde>" + Trim(Str(lDesde)) + "</fechaDesde>" +
Chr(13) + Chr(10)

    slXMLQ = slXMLQ + "<fechaHasta>" + Trim(Str(lHasta)) + "</fechaHasta>" +
Chr(13) + Chr(10)

    slXMLQ = slXMLQ + "</DESCARGA-PADRON>"

        

    slHash = LCase(HashString(slXMLQ))

    

    slName = "DFEServicioDescargaPadron_" + Trim(slHash) + ".XML"

 

    slXMLF = ""

    slXMLF = slXMLF + "------WebKitFormBoundaryVL3fdve1Hm4Big3a" + Chr(13) +
Chr(10)

    slXMLF = slXMLF + "Content-Disposition: form-data; name=" + Chr(34) +
"user" + Chr(34) + Chr(13) + Chr(10) + Chr(13) + Chr(10)

    slXMLF = slXMLF + Trim(slCUIT) + Chr(13) + Chr(10)

    slXMLF = slXMLF + "------WebKitFormBoundaryVL3fdve1Hm4Big3a" + Chr(13) +
Chr(10)

    slXMLF = slXMLF + "Content-Disposition: form-data; name=" + Chr(34) +
"password" + Chr(34) + Chr(13) + Chr(10) + Chr(13) + Chr(10)

    slXMLF = slXMLF + Trim(slPass) + Chr(13) + Chr(10)

    slXMLF = slXMLF + "------WebKitFormBoundaryVL3fdve1Hm4Big3a" + Chr(13) +
Chr(10)

    slXMLF = slXMLF + "Content-Disposition: form-data; name=" + Chr(34) +
"file" + Chr(34) + "; filename=" + Chr(34) + Trim(slName) + Chr(34) +
Chr(13) + Chr(10)

    slXMLF = slXMLF + "Content-Type: text/xml" + Chr(13) + Chr(10) + Chr(13)
+ Chr(10)

    slXMLF = slXMLF + Trim(slXMLQ) + Chr(13) + Chr(10)

    slXMLF = slXMLF + "------WebKitFormBoundaryVL3fdve1Hm4Big3a--"

 

    If ilMens Then MsgBox "slXMLF :" & Chr(13) & slXMLF

    

    Set xmlhttp = New MSXML2.XMLHTTP30

    

    xmlhttp.Open "POST", strURL, False

    

    xmlhttp.setRequestHeader "Content-Type", "multipart/form-data;
boundary=----WebKitFormBoundaryVL3fdve1Hm4Big3a"

    xmlhttp.setRequestHeader "Content-length", Len(Trim(slXMLF))

    

    If Right(Trim(slpath), 1) = "\" Then slpath = Mid$(Trim(slpath), 1,
Len(Trim(slpath)) - 1)

    slArch = slpath & "\PadronRGS" & Mid(llFecMov, 5, 2) & Mid(llFecMov, 1,
4) & ".zip"

    

    If ilBaja Then

        Call xmlhttp.Send(Trim(slXMLF))

        If xmlhttp.Status = 200 Then

                …

 

.--------------------------------

 

Lic. Diego A. Montero

TE           : 02337-452272  

Cel.        : 02392-15-635176

Email   :  <mailto:[email protected]> [email protected] 

Skype    : diegoamontero

C. Pellegrini 664 – America (Bs.As.)

P Antes de imprimir, piense en el medio ambiente.

Responder a