Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-03-2017
jmlazaro jmlazaro is offline
Registrado
NULL
 
Registrado: mar 2017
Posts: 5
Poder: 0
jmlazaro Va por buen camino
Error en respuesta ws.SuministroLRFacturasEmitidas

Buenas tardes.
Hoy estoy recibiendo este error en la respuesta al enviar facturas, ayer me funcionaba correctamente.
Estoy mosqueado, ¿puede ser un error mío o es de la AEAT?

Muchas gracias a todos.

'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "*://*.w3.org/TR/html4/strict.dtd">
<html lang="es-ES">
<head>
<title>Agencia Tributaria - Se ha producido un error</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<link href="*://*.agenciatributaria.gob.es/static_files/common/css/xzhtcs04.css" rel="stylesheet" type="text/css">
<script type="text/javascript">
function toggle()
{
var o=document.getElementById("AEAT_errores_tecnicos");
o.style.display=(o.style.display=='' || o.style.display=='none')?'block':'none';
}
</script>
</head>
Responder Con Cita
  #2  
Antiguo 21-03-2017
javgarma javgarma is offline
Registrado
NULL
 
Registrado: feb 2017
Posts: 1
Poder: 0
javgarma Va por buen camino
Hola, no utilizo Delphi, utilizo un entorno cliente servidor y estoy realizando el envío de ficheros XML perfectamente con el comando curl.
Básicamente generas un fichero XML desde la aplicación con el formato que marca la AEAT y se envía con curl indicando el certificado y el password del mismo. La AEAT responde con otro XML indicado en la línea de comando.
Adjunto el comando por si alguien quiere utilizarlo. curl --connect-timeout 300 -d "@Facturas.xml" -o "Resultado.xml" -E certificado.pemassword https://www7.aeat.es/wlpl/SSII-FACT/...iiFactFEV1SOAP
Responder Con Cita
  #3  
Antiguo 21-03-2017
Nasca Nasca is offline
Miembro
 
Registrado: abr 2007
Ubicación: Almería (España)
Posts: 249
Poder: 18
Nasca Va por buen camino
Cita:
Empezado por javgarma Ver Mensaje
Hola, no utilizo Delphi, utilizo un entorno cliente servidor y estoy realizando el envío de ficheros XML perfectamente con el comando curl.
Básicamente generas un fichero XML desde la aplicación con el formato que marca la AEAT y se envía con curl indicando el certificado y el password del mismo. La AEAT responde con otro XML indicado en la línea de comando.
Adjunto el comando por si alguien quiere utilizarlo. curl --connect-timeout 300 -d "@Facturas.xml" -o "Resultado.xml" -E certificado.pemassword https://www7.aeat.es/wlpl/SSII-FACT/...iiFactFEV1SOAP
Una solución muy ingeniosa
Responder Con Cita
  #4  
Antiguo 22-03-2017
mpino mpino is offline
Registrado
NULL
 
Registrado: mar 2017
Posts: 6
Poder: 0
mpino Va por buen camino
Cita:
Empezado por jmlazaro Ver Mensaje
Buenas tardes.
Hoy estoy recibiendo este error en la respuesta al enviar facturas, ayer me funcionaba correctamente.
Estoy mosqueado, ¿puede ser un error mío o es de la AEAT?

Muchas gracias a todos.

'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "*://*.w3.org/TR/html4/strict.dtd">
<html lang="es-ES">
<head>
<title>Agencia Tributaria - Se ha producido un error</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<link href="*://*.agenciatributaria.gob.es/static_files/common/css/xzhtcs04.css" rel="stylesheet" type="text/css">
<script type="text/javascript">
function toggle()
{
var o=document.getElementById("AEAT_errores_tecnicos");
o.style.display=(o.style.display=='' || o.style.display=='none')?'block':'none';
}
</script>
</head>
Este es el mismo error que recibo yo.
Responder Con Cita
  #5  
Antiguo 22-03-2017
inyu inyu is offline
Miembro
NULL
 
Registrado: mar 2017
Posts: 48
Poder: 0
inyu Va por buen camino
Cita:
Empezado por mpino Ver Mensaje
Este es el mismo error que recibo yo.
A mi ese error me salía ayer cuando actualicé el WS a la versión 0.6 (yo hago la comunicación via service reference) y fué porque al actualizar se cargó una línea del App.Config dónde tenia puesto el certificado en el binding. En lugar de:

Código:
 <bindings>
        <basicHttpBinding>
          <binding name="siiBinding">
            <security mode="Transport">
              <transport clientCredentialType="Certificate" />
            </security>
          </binding>
        </basicHttpBinding>
      </bindings>
Se habia cambiado sólo a :

Código:
 <bindings>
        <basicHttpBinding>
          <binding name="siiBinding">
            <security mode="Transport">          
            </security>
          </binding>
        </basicHttpBinding>
      </bindings>
Mirad que no sea lo mismo.
Responder Con Cita
  #6  
Antiguo 22-03-2017
mpino mpino is offline
Registrado
NULL
 
Registrado: mar 2017
Posts: 6
Poder: 0
mpino Va por buen camino
Cita:
Empezado por inyu Ver Mensaje
A mi ese error me salía ayer cuando actualicé el WS a la versión 0.6 (yo hago la comunicación via service reference) y fué porque al actualizar se cargó una línea del App.Config dónde tenia puesto el certificado en el binding. En lugar de:

Código:
 <bindings>
        <basicHttpBinding>
          <binding name="siiBinding">
            <security mode="Transport">
              <transport clientCredentialType="Certificate" />
            </security>
          </binding>
        </basicHttpBinding>
      </bindings>
Se habia cambiado sólo a :

Código:
 <bindings>
        <basicHttpBinding>
          <binding name="siiBinding">
            <security mode="Transport">          
            </security>
          </binding>
        </basicHttpBinding>
      </bindings>
Mirad que no sea lo mismo.
Muchisimas gracias por la pista. Efectivamente le falta el certificado en el transporte. Ahora funciona todo perfectamente.

Un saludo
mpino
Responder Con Cita
  #7  
Antiguo 22-03-2017
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Resultado consulta facturas expedidas

Hola a tod@s, estoy intentando hacer la parte referente a la consulta de fras. expedidas y este es mi código:

Código Delphi [-]
function suministra_informacion: string;
var
  v_register: integer;

  certificado:String;

  // Libro registro de facturas emitidas //
  AConsultaLRFacturasEmitidas:ConsultaLRFacturasEmitidas;
  ARespuestaConsultaLRFacturasEmitidas:RespuestaConsultaLRFacturasEmitidas;
  AResultadoConsulta:ResultadoConsultaType;
  a :string;
  i:LongInt;

begin

  if main.lista_certificados.itemindex<0 then
    begin
    exit;
    end;

  certificado := numero_certificado(main.lista_certificados.text);
  if(certificado = '') then
    begin
    ShowMessage('No encuento el certificado');
    Exit;
    end;



  datos.Data.LibrosRegistros.First;
  v_register := 1;
  while v_register <= datos.Data.LibrosRegistros.RecordCount do
    begin

    //Si quitamos esta linea nos pedira el certificado a la hora de enviar la factura.
    Data.HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := certificado;

    try

      AConsultaLRFacturasEmitidas := ConsultaLRFacturasEmitidas.Create;

      AConsultaLRFacturasEmitidas.Cabecera := CabeceraConsultaSii.Create;
      AConsultaLRFacturasEmitidas.Cabecera.IDVersionSii:=VersionSiiType(0);
      AConsultaLRFacturasEmitidas.Cabecera.titular := PersonaFisicaJuridicaUnicaESType.Create;
      AConsultaLRFacturasEmitidas.Cabecera.Titular.NombreRazon:= main.g_name;  // NOMBRE DEL PRESENTADOR (CUALQUIERA VALE)
      AConsultaLRFacturasEmitidas.Cabecera.Titular.NIF:= main.g_nif;     // CIF del PRESENTADOR (DEBE COINCIDIR CON EL CERTIFICADO SELECCIONADO)

      AConsultaLRFacturasEmitidas.FiltroConsulta := LRFiltroEmitidasType.Create;
      AConsultaLRFacturasEmitidas.FiltroConsulta.PeriodoImpositivo := PeriodoImpositivo.Create;
      AConsultaLRFacturasEmitidas.FiltroConsulta.PeriodoImpositivo.Ejercicio := formatdatetime('yyyy',data.LibrosRegistros.FieldByName('FechaExpedicionFacturaEmisor').AsDateTime);
      AConsultaLRFacturasEmitidas.FiltroConsulta.PeriodoImpositivo.Periodo := TipoPeriodoType(1);

      AConsultaLRFacturasEmitidas.FiltroConsulta.ClavePaginacion := IDFacturaExpedidaBCType.Create;
      AConsultaLRFacturasEmitidas.FiltroConsulta.ClavePaginacion.IDEmisorFactura := IDEmisorFactura3.Create;
      AConsultaLRFacturasEmitidas.FiltroConsulta.ClavePaginacion.IDEmisorFactura.NIF := main.g_nif;
      AConsultaLRFacturasEmitidas.FiltroConsulta.ClavePaginacion.NumSerieFacturaEmisor := data.LibrosRegistros.FieldByName('NumeroFacturaEmisor').AsString;
      AConsultaLRFacturasEmitidas.FiltroConsulta.ClavePaginacion.FechaExpedicionFacturaEmisor := data.LibrosRegistros.FieldByName('FechaExpedicionFacturaEmisor').asstring;

      try
        ARespuestaConsultaLRFacturasEmitidas := GetsiiSOAP(true,'',data.HTTPRIO1).ConsultaLRFacturasEmitidas(AConsultaLRFacturasEmitidas);

        for i := low(ARespuestaConsultaLRFacturasEmitidas.RegistroRespuestaConsultaLRFacturasEmitidas) to High(ARespuestaConsultaLRFacturasEmitidas.RegistroRespuestaConsultaLRFacturasEmitidas) do
          begin
          with ARespuestaConsultaLRFacturasEmitidas.RegistroRespuestaConsultaLRFacturasEmitidas[i] do
            begin
            AResultadoConsulta := ARespuestaConsultaLRFacturasEmitidas.ResultadoConsulta;

            if aresultadoconsulta = ResultadoConsultaType(1) then
              showmessage('hola')
            else
              showmessage('adios')
            end;
          end;
      except
        On E:Exception do
          //El proceso de envio dio error
          MessageDlg(E.Message, mtError, [mbOK], 0);
      end;
    finally
      AConsultaLRFacturasEmitidas.Free;
      ARespuestaConsultaLRFacturasEmitidas.Free;
    end;


    datos.Data.LibrosRegistros.Next;
    v_register := v_register + 1;
  end;


end;


El xml se envia correctamente y devuelve respuesta correctamente (SINDATOS), pero a la hora de gestionarlo a través de la variable AResultadoConsulta, no se gestionarlo.
Quiero decir como controlo con AresultadoConsulta si devuelve CONDATOS o SINDATOS. No logro hacerlo.
Gracias.
Responder Con Cita
  #8  
Antiguo 22-03-2017
Virman Virman is offline
Miembro
 
Registrado: ene 2017
Posts: 67
Poder: 8
Virman Va por buen camino
Saludos! Alguno sabe donde se almacena la información de cuadre? En la página de hacienda aparece, pero en el objeto devuelto por el WS, de tipo RespuestaLRFEmitidasType, no encuentro esta información. Alguno sabe si se puede obtener esa información de cuadre?

Otra consulta, acabo de enviar una factura de importe total 1,importe exenta 1, base imponible 9, cuota repercutida 21 y tipo impositivo 21% y la ha aceptado, será que ahora con la nueva versión del WS no hace cálculos de las cantidades?

Gracias!
Responder Con Cita
  #9  
Antiguo 22-03-2017
Nasca Nasca is offline
Miembro
 
Registrado: abr 2007
Ubicación: Almería (España)
Posts: 249
Poder: 18
Nasca Va por buen camino
Cita:
Empezado por Virman Ver Mensaje
Otra consulta, acabo de enviar una factura de importe total 1,importe exenta 1, base imponible 9, cuota repercutida 21 y tipo impositivo 21% y la ha aceptado, será que ahora con la nueva versión del WS no hace cálculos de las cantidades?
A mi me ha pasado lo mismo. Por error remití datos incorrectos y se los tragó.
Yo creo que por ahora no valida la mayoría de los campos. Aunque ten en cuenta que la responsabilidad de enviar los datos correctos siempre será del comunicador. Lo que supone que por flexibilidad no validen datos.
Y en este caso tendrían que devolver un tipo "Aceptado con avisos" y no creo que lo implementen.
Responder Con Cita
Respuesta



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
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4170 Hace 2 Semanas 17:29:05
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 10:08:23.


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