Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Delphi para la web
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-10-2018
gguerrini gguerrini is offline
Miembro
NULL
 
Registrado: feb 2006
Ubicación: Cordoba , Argentina
Posts: 14
Poder: 0
gguerrini Va por buen camino
TidMultiPartFormDataStream problema con ARBA

Hola Buenos Dias, estoy generando un POST para enviarle al servidor de ARBA, pero de respuesta, recibo un error, quisiera saber si alguien me ayuda que me puede estar faltando
El código es:


Código Delphi [-]
 procedure Tu_principal.BitBtn1Click(Sender: TObject);
  var
    FResponse: string;
    Str, sURL:String;
    DATOS : TidMultiPartFormDataStream;
  begin
   
    // Crear el componente para los envíos
    Fhttp := TIDHttp.Create(nil);
   
              // Crear la estructura de respuesta
              FResp := TStringStream.Create('');
   
    // Tratar los parámetros
     sURL := Trim(edURL.Text);
   
    DATOS := TidMultiPartFormDataStream.Create;
   
    DATOS.AddFormField('user', edUsuario.Text);
    DATOS.AddFormField('password', edPassword.Text);
    DATOS.AddFormField('file',edFile.Text , 'text/xml');
   
    mDatos.Lines.Clear;
    try
      DATOS.Position := 0;
      Fhttp.Request.ContentType := DATOS.RequestContentType;
   
      fhttp.Get(sURL , TStream(nil));
      Fhttp.Post(sURL , DATOS , FResp);
      mDatos.Text  := FResp.DataString;
   
    except
      on E:Exception do begin
        MessageDlg(E.Message, mtWarning, [mbOK], 0);
      end;
    end;
   
      DATOS.Free;
      FResp.Free;
      Fhttp.Free;
   
  end;


y el ERROR que me da


<?xml version='1.0' encoding='ISO-8859-1'?><DFEError>
<tipoError>ERROR INESPERADO</tipoError>
<codigoError>01</codigoError>
<mensajeError>&lt;![CDATA[[Número de Transacción: 31825214]. Tipo: AUTENTICACION. Reportar al Sector Seguridad.]]/&gt;</mensajeError>
</DFEError>




Desde muchas gracias por la ayuda.

Última edición por gguerrini fecha: 03-10-2018 a las 20:43:22.
Responder Con Cita
  #2  
Antiguo 03-10-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 28.703
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Recuerda poner los tags al código fuente, ejemplo:



Gracias
Responder Con Cita
  #3  
Antiguo 04-10-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 15.759
Poder: 10
Neftali [Germán.Estévez] Tiene un aura espectacularNeftali [Germán.Estévez] Tiene un aura espectacular
Cita:
Empezado por gguerrini Ver Mensaje

y el ERROR que me da


<?xml version='1.0' encoding='ISO-8859-1'?><DFEError>
<tipoError>ERROR INESPERADO</tipoError>
<codigoError>01</codigoError>
<mensajeError>&lt;![CDATA[[Número de Transacción: 31825214]. Tipo: AUTENTICACION. Reportar al Sector Seguridad.]]/&gt;</mensajeError>
</DFEError>

Dado que el error parece que te lo está devolviendo la web, tal vez deberías saber primero, qué significa que la web te devuelva el error 01.
¿Tienes documentación?
Tal vez tu código sea correcto, pero los datos no.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 12-10-2018
gguerrini gguerrini is offline
Miembro
NULL
 
Registrado: feb 2006
Ubicación: Cordoba , Argentina
Posts: 14
Poder: 0
gguerrini Va por buen camino
Un poco mas de Informacion

Hola Muy Buenas, desde ya muchas gracias, por prestarle atención a esta consulta, es muy local de argentina en especial de buenos aires, pero es la tarea que me toca. Les voy a pasar un poco más las especificaciones que manda ARBA.

ENTRADA: La aplicación cliente deberá hacer requerimiento https al servicio
https://dfe.arba.gob.ar/DomicilioEle...cioConsulta.do
enviando un formulario multipart por método POST con los siguientes atributos:
user
password
file(xml con los datos a consultar)
SALIDA: El servicio devuelve las alícuotas y grupos correspondientes a determinado periodo para el CUIT solicitado.
Si ocurre un error en la comunicación o el archivo no puede ser procesado correctamente, se retorna un XML de error con mensaje descriptivo

CONSIDERACIONES
Entrada:
Diseño del archivo de consulta de alícuota (Formato XML)
Nombre del archivo: DFEServicioConsulta + ‘_’ + codigohash.xml
(el código Hash se genera sobre el archivo a enviar, en base al algoritmo MD5)
Formato de archivo de entrada:
<CONSULTA-ALICUOTA>
<fechaDesde> </fechaDesde>
<fechaHasta> </fechaHasta>
<cantidadContribuyentes></cantidadContribuyentes>
<contribuyentes class= “list”>
<contribuyente>
<cuitContribuyente></ cuitContribuyente>
</contribuyente>
</contribuyentes>
</CONSULTA-ALICUOTA>


El código es parecido al que mande antes, pero me di cuenta por el log que grabe que no enviaba el archivo, lo corregí un poquito pero la misma respuesta



Código Delphi [-]
  procedure Tu_principal.BitBtn1Click(Sender: TObject);
  var
    FResponse: string;
    Str, sURL:String;
    DATOS : TidMultiPartFormDataStream;
   
    Archi : TextFile;
   
  begin
   
    idLogFile1.Active := True;
   
  // Crear la estructura de respuesta
  FResp := TStringStream.Create('');
   
    // Tratar los parámetros
     sURL := Trim(edURL.Text);
   
    DATOS := TidMultiPartFormDataStream.Create;
   
    DATOS.AddFormField('user', edUsuario.Text);
    DATOS.AddFormField('password', edPassword.Text);
   
    if chArchivo.Checked then
      begin
       DATOS.AddFile('file', edFile.Text,'text/xml');
       DATOS.AddFormField('file',edFile.Text , 'text/xml');
      end;
   
    mDatos.Lines.Clear;
    try
   
      Fhttp.Post(sURL , DATOS , FResp);
   
      // Enviar a un archivo el ERROR
   
      if  SaveDialog1.Execute then
         begin
           AssignFile( Archi , savedialog1.FileName);
           Rewrite(Archi);
           Write(Archi , FResp.DataString);
           CloseFile(Archi);
         end;
   
   
      mDatos.Text  := FResp.DataString;
   
    except
      on E:Exception do begin
        MessageDlg(E.Message, mtWarning, [mbOK], 0);
      end;
    end;
   
      DATOS.Free;
      FResp.Free;
      Fhttp.Free;
   
  end;



Cuando lo ejecuto me devuelve un error que esta el la tabla de especificaciones, como error inesperado, les dejo el LOG que hace toda la transacción


Stat Connected.
Sent 05/10/2018 09:25:33: POST /DomicilioElectronico/SeguridadCliente/dfeServicio
Consulta.do HTTP/1.0<EOL>Connection: keep-alive<EOL>Content-Type:
multipart/form-data; boundary=--------100518092533050<EOL>Content-Length:
1142<EOL>Host: dfe.arba.gov.ar<EOL>Accept:
text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8<EOL>User-Agent:
Mozilla/3.0 (compatible; Indy Library)<EOL><EOL>
Sent 05/10/2018 09:25:33: ----------100518092533050<EOL>Content-Disposition:
form-data; name="user"<EOL>Content-Type:
text/plain<EOL>Content-Transfer-Encoding:
quoted-printable<EOL><EOL>%%%%%%%%%%%<EOL>----------100518092533050<EOL>Content-Disposition:
form-data; name="password"<EOL>Content-Type:
text/plain<EOL>Content-Transfer-Encoding:
quoted-printable<EOL><EOL>%%%%%%%%<EOL>----------100518092533050<EOL>Content-Disposition:
form-data; name="file"; filename="DFEServicioConsulta_F62D483C3258EAAE8FF9A375C94E77AC.xml"<EOL>Content-Type:
text/xml; charset="us-ascii"<EOL>Content-Transfer-Encoding:
binary<EOL><EOL><?xml version="1.0" encoding="UTF-8"?><CONSULTA-ALICUOTA><EOL>
<fechaDesde>20181001</fechaDesde><EOL> <fechaHasta>20181031</fechaHasta><EOL>
<cantidadContribuyentes>1</cantidadContribuyentes><EOL> <contribuyentes class="list"><EOL>
<contribuyente><EOL>
<cuitContribuyente>%%%%%%%%%%%</cuitContribuyente><EOL>
</contribuyente><EOL> </contibuyentes><EOL></CONSULTA-ALICUOTA><EOL>----------100518092533050<EOL>Content-Disposition:
form-data; name="file"<EOL>Content-Type:
text/plain; charset="text/xml"<EOL>Content-Transfer-Encoding:
quoted-printable<EOL><EOL>DFEServicioConsulta_F62D483C3258EAAE8FF9A375C94E77AC.xml<EOL>----------100518092533050--<EOL>
Recv 05/10/2018 09:25:34: HTTP/1.0 200 OK<EOL>X-Powered-By:
Servlet/3.0<EOL>Content-Type:
text/xml;charset=ISO-8859-1<EOL>Content-Disposition:
attachment; filename="DFERespuesta.xml"<EOL>Content-Language: en-US<EOL>Set-Cookie:
JSESSIONID=0000gIWrdPjRAWPrCHcObsk2u5u:-1; Path=/; HttpOnly<EOL>Date: Fri, 05 Oct 2018 12:25:33 GMT<EOL>Expires:
Thu, 01 Dec 1994 16:00:00 GMT<EOL>Cache-Control:
no-cache="set-cookie, set-cookie2"<EOL><EOL><?xml version='1.0'
encoding='ISO-8859-1'?><DFEError><LF> <tipoError>ERROR INESPERADO
</tipoError><LF>
<codigoError>01</codigoError><LF>
<mensajeError>&lt;![CDATA[[Número de Transacción: 31863278]. Tipo:
AUTENTICACION. Reportar al Sector Seguridad.]]/&gt;</mensajeError><LF></DFEError>
Stat Disconnected.
Stat Disconnected.
Stat Disconnected.
isconnected.
Stat Disconnected.



Bueno hasta acá llegamos, de acá en mas es solo llanto, jajajaja, desde ya cualquier ayuda será muy bien bienvenida. Muchas Gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Padrón ARBA de Argentina lucho6007 Varios 0 29-01-2018 16:55:40
Importar padron ARBA 2014 hgiacobone Conexión con bases de datos 9 10-07-2014 18:25:54


La franja horaria es GMT +2. Ahora son las 11:35:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi