Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[nincillo]

Empezado por ermendalenda

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 
xmlns:ds="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" 
xmlns:sf="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
   <soapenv:Header/>
   <soapenv:Body>
      <ds:AltaFactuSistemaFacturacion>
         <sf:Cabecera>
            <sf:IDVersion>?</sf:IDVersion>
            <sf:ObligadoEmision>
               <sf:NombreRazon>?</sf:NombreRazon>
               <sf:NIF>?</sf:NIF>
               <!--Optional:-->
               <sf:NombreRazonRepresentante>?</sf:NombreRazonRepresentante>
               <!--Optional:-->
               <sf:NIFRepresentante>?</sf:NIFRepresentante>
            </sf:ObligadoEmision>
         </sf:Cabecera>
         <!--1 to 1000 repetitions:-->
         <ds:RegistroAltaFacturas>
            <ds:RegistroFacturacion>
               <sf:PeriodoLiquidacion>
                  <sf:Ejercicio>?</sf:Ejercicio>
                  <sf:Periodo>?</sf:Periodo>
               </sf:PeriodoLiquidacion>
               <sf:IDFactura>
                  <sf:IDEmisorFactura>
                     <sf:NIF>?</sf:NIF>
                  </sf:IDEmisorFactura>
                  <sf:NumSerieFacturaEmisor>?</sf:NumSerieFacturaEmisor>
                  <sf:FechaExpedicionFacturaEmisor>?</sf:FechaExpedicionFacturaEmisor>
               </sf:IDFactura>
               <sf:TipoFactura>?</sf:TipoFactura>
               <!--Optional:-->
               <sf:TipoRectificativa>?</sf:TipoRectificativa>
               <!--Optional:-->
               <sf:FacturasRectificadas>
                  <!--1 to 1000 repetitions:-->
                  <sf:IDFacturaRectificada>
                     <sf:NumSerieFacturaEmisor>?</sf:NumSerieFacturaEmisor>
                     <sf:FechaExpedicionFacturaEmisor>?</sf:FechaExpedicionFacturaEmisor>
                  </sf:IDFacturaRectificada>
               </sf:FacturasRectificadas>
               <!--Optional:-->
               <sf:FacturasSustituidas>
                  <!--1 to 1000 repetitions:-->
                  <sf:IDFacturasSustituida>
                     <sf:NumSerieFacturaEmisor>?</sf:NumSerieFacturaEmisor>
                     <sf:FechaExpedicionFacturaEmisor>?</sf:FechaExpedicionFacturaEmisor>
                  </sf:IDFacturasSustituida>
               </sf:FacturasSustituidas>
               <!--Optional:-->
               <sf:ImporteRectificacion>
                  <sf:BaseRectificada>?</sf:BaseRectificada>
                  <sf:CuotaRectificada>?</sf:CuotaRectificada>
                  <!--Optional:-->
                  <sf:CuotaRecargoRectificado>?</sf:CuotaRecargoRectificado>
               </sf:ImporteRectificacion>
               <!--Optional:-->
               <sf:FechaOperacion>?</sf:FechaOperacion>
               <!--Optional:-->
               <sf:NumRegistroAcuerdoFacturacion>?</sf:NumRegistroAcuerdoFacturacion>
               <!--Optional:-->
               <sf:NumRegistroAcuerdoSistemaInformatico>?</sf:NumRegistroAcuerdoSistemaInformatico>
               <sf:DescripcionOperacion>?</sf:DescripcionOperacion>
               <!--Optional:-->
               <sf:RefExterna>?</sf:RefExterna>
               <!--Optional:-->
               <sf:FacturaSimplificadaArticulos7.2_7.3>?</sf:FacturaSimplificadaArticulos7.2_7.3>
               <!--Optional:-->
               <sf:FacturaSinIdentifDestinatarioArticulo6.1.d>?</sf:FacturaSinIdentifDestinatarioArticulo6.1.d>
               <!--Optional:-->
               <sf:Macrodato>?</sf:Macrodato>
               <!--Optional:-->
               <sf:EmitidaPorTercerosODestinatario>?</sf:EmitidaPorTercerosODestinatario>
               <!--Optional:-->
               <sf:Tercero>
                  <sf:NombreRazon>?</sf:NombreRazon>
                  <!--You have a CHOICE of the next 2 items at this level-->
                  <sf:NIF>?</sf:NIF>
                  <sf:IDOtro>
                     <!--Optional:-->
                     <sf:CodigoPais>?</sf:CodigoPais>
                     <sf:IDType>?</sf:IDType>
                     <sf:ID>?</sf:ID>
                  </sf:IDOtro>
                  <!--Optional:-->
                  <sf:NIFRepresentante>?</sf:NIFRepresentante>
               </sf:Tercero>
               <!--Optional:-->
               <sf:Contraparte>
                  <sf:NombreRazon>?</sf:NombreRazon>
                  <!--You have a CHOICE of the next 2 items at this level-->
                  <sf:NIF>?</sf:NIF>
                  <sf:IDOtro>
                     <!--Optional:-->
                     <sf:CodigoPais>?</sf:CodigoPais>
                     <sf:IDType>?</sf:IDType>
                     <sf:ID>?</sf:ID>
                  </sf:IDOtro>
                  <!--Optional:-->
                  <sf:NIFRepresentante>?</sf:NIFRepresentante>
               </sf:Contraparte>
               <sf:Desglose>
                  <!--1 to 10 repetitions:-->
                  <sf:DetalleDesglose>
                     <sf:ClaveRegimen>?</sf:ClaveRegimen>
                     <!--Optional:-->
                     <sf:CalificacionOperacion>?</sf:CalificacionOperacion>
                     <!--Optional:-->
                     <sf:OperacionExenta>?</sf:OperacionExenta>
                     <!--Optional:-->
                     <sf:TipoImpositivo>?</sf:TipoImpositivo>
                     <sf:BaseImponibleOimporteNoSujeto>?</sf:BaseImponibleOimporteNoSujeto>
                     <!--Optional:-->
                     <sf:BaseImponibleACoste>?</sf:BaseImponibleACoste>
                     <!--Optional:-->
                     <sf:CuotaRepercutida>?</sf:CuotaRepercutida>
                     <!--Optional:-->
                     <sf:TipoRecargoEquivalencia>?</sf:TipoRecargoEquivalencia>
                     <!--Optional:-->
                     <sf:CuotaRecargoEquivalencia>?</sf:CuotaRecargoEquivalencia>
                  </sf:DetalleDesglose>
               </sf:Desglose>
               <sf:ImporteTotal>?</sf:ImporteTotal>
               <!--Optional:-->
               <sf:EntidadSucedida>
                  <sf:NombreRazon>?</sf:NombreRazon>
                  <sf:NIF>?</sf:NIF>
               </sf:EntidadSucedida>
               <sf:EncadenamientoFacturaAnterior>
                  <sf:IDEmisorFacturaAnterior>
                     <sf:NIF>?</sf:NIF>
                  </sf:IDEmisorFacturaAnterior>
                  <sf:NumSerieFacturaAnterior>?</sf:NumSerieFacturaAnterior>
                  <sf:FechaExpedicionFacturaAnterior>?</sf:FechaExpedicionFacturaAnterior>
                  <sf:HuellaFacturaAnterior>?</sf:HuellaFacturaAnterior>
               </sf:EncadenamientoFacturaAnterior>
               <sf:SistemaInformatico>
                  <sf:NombreRazon>?</sf:NombreRazon>
                  <!--You have a CHOICE of the next 2 items at this level-->
                  <sf:NIF>?</sf:NIF>
                  <sf:IDOtro>
                     <!--Optional:-->
                     <sf:CodigoPais>?</sf:CodigoPais>
                     <sf:IDType>?</sf:IDType>
                     <sf:ID>?</sf:ID>
                  </sf:IDOtro>
                  <sf:IdSistemaInformatico>?</sf:IdSistemaInformatico>
                  <sf:Version>?</sf:Version>
                  <sf:NumeroInstalacion>?</sf:NumeroInstalacion>
                  <sf:TipoUsoSistema>?</sf:TipoUsoSistema>
               </sf:SistemaInformatico>
            </ds:RegistroFacturacion>
            <ds:DatosControl>
               <sf:Huella>?</sf:Huella>
               <sf:TipoHash>?</sf:TipoHash>
               <sf:FechaGenRegistro>?</sf:FechaGenRegistro>
               <sf:HoraGenRegistro>?</sf:HoraGenRegistro>
               <sf:HusoHorarioGenRegistro>?</sf:HusoHorarioGenRegistro>
               <!--Optional:-->
               <sf:Incidencia>?</sf:Incidencia>
            </ds:DatosControl>
         </ds:RegistroAltaFacturas>
      </ds:AltaFactuSistemaFacturacion>
   </soapenv:Body>
</soapenv:Envelope>

Hola. ¿Ese XML lo has conseguido utlizando el WSDL?. ¿Podrías decirme como lo haces?. Yo ahora lo estoy intentando haciendo la llamada "GetsfSOAP" para monitorizar en el evento Before y After, pero únicamente me devuelve que la URL está aún si definir.

Estoy probando de esta manera a ver si consigo algo:

procedure TForm2.Button1Click(Sender: TObject);
var
 regFact : FacturasEmitidasType;
 result : Array_Of_RespuestaExpedidaType;
 arrayfacturas : Array_Of_FacturasEmitidasType;

begin
   regFact := FacturasEmitidasType.Create;
   regFact.RegistroFacturacion := RegistroFacturacionType.create;

   regFact.DatosControl := DatosControlType.Create;

   regFact.RegistroFacturacion.PeriodoLiquidacion := PeriodoLiquidacion.Create;
   regFact.RegistroFacturacion.PeriodoLiquidacion.Ejercicio := '22';
    try
      SetLength(arrayfacturas, 1);
      arrayfacturas[0] := regFact;
      Result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(arrayfacturas);
    finally
     // Elimino todos los objetos creados
      regFact.Destroy;
    end;
end;

[ermendalenda]

Empezado por nincillo

Hola. ¿Ese XML lo has conseguido utlizando el WSDL?. ¿Podrías decirme como lo haces?. Yo ahora lo estoy intentando haciendo la llamada "GetsfSOAP" para monitorizar en el evento Before y After, pero únicamente me devuelve que la URL está aún si definir.

Estoy probando de esta manera a ver si consigo algo:

procedure TForm2.Button1Click(Sender: TObject);
var
 regFact : FacturasEmitidasType;
 result : Array_Of_RespuestaExpedidaType;
 arrayfacturas : Array_Of_FacturasEmitidasType;

begin
   regFact := FacturasEmitidasType.Create;
   regFact.RegistroFacturacion := RegistroFacturacionType.create;

   regFact.DatosControl := DatosControlType.Create;

   regFact.RegistroFacturacion.PeriodoLiquidacion := PeriodoLiquidacion.Create;
   regFact.RegistroFacturacion.PeriodoLiquidacion.Ejercicio := '22';
    try
      SetLength(arrayfacturas, 1);
      arrayfacturas[0] := regFact;
      Result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(arrayfacturas);
    finally
     // Elimino todos los objetos creados
      regFact.Destroy;
    end;
end;

Hola con la herramienta soapui como comentó el usuario usuario1234
Te lo puedes descargar gratititamente y generar en un momento, lo vas a ver rápido pero tambien hay muchos tutoriales si lo buscas en Google
Yo he cambiado los prefijos que me había generado que no me gusta mucho que ponga sum: sum1: ...
Es una lástima que uan no haya puesto la referencia del servicio web (Res) de pruebas. Por eso te da error

[nincillo]

Empezado por ermendalenda

Hola con la herramienta soapui como comentó el usuario usuario1234
Te lo puedes descargar gratititamente y generar en un momento, lo vas a ver rápido pero tambien hay muchos tutoriales si lo buscas en Google
Yo he cambiado los prefijos que me había generado que no me gusta mucho que ponga sum: sum1: ...
Es una lástima que uan no haya puesto la referencia del servicio web (Res) de pruebas. Por eso te da error

Bueno, con eso una parte parece que ya me la has resulto.

El problema viene después para el envío de la petición, que me temo que desde Delphi 2007 voy a tener problemas con el certificado. ¿Verdad?

[ermendalenda]

Empezado por nincillo

Bueno, con eso una parte parece que ya me la has resulto.

El problema viene después para el envío de la petición, que me temo que desde Delphi 2007 voy a tener problemas con el certificado. ¿Verdad?

Para nada. No hay problema. Ya verás, el secreto está en curl ya he hecho un shell de envíos de soap con curl.exe y el certificado es un fichero pt2 o pfx.
Ya iré poniéndolo.

[nincillo]

Empezado por ermendalenda

Para nada. No hay problema. Ya verás, el secreto está en curl ya he hecho un shell de envíos de soap con curl.exe y el certificado es un fichero pt2 o pfx.
Ya iré poniéndolo.

Buff, no sabes el peso que me quitas de encima.

Si quieres que te ayude con algún tipo de prueba, ya me dices...

Un saludo.

[ermendalenda]

Empezado por nincillo

Buff, no sabes el peso que me quitas de encima.

Si quieres que te ayude con algún tipo de prueba, ya me dices...

Un saludo.

En poco tiempo lo pongo que hay que poner la línea de envío y una explicación
Ve adelantandando mirando el funcionamiento de curl.exe , échale un vistazo a los parámetros para que lo asimiles rápido.
Esto está al alcance de todos los desarrolladores, da igual que programen en cobol delphi versiones antiguas, vb6..

[ermendalenda]

Hola, para los desarrolladores que tenemos lenguajes "Arcaicos", hay 2 soluciones que pasan por Curl.exe y depende de la construcción final del SOAP.
Aunque debes revisar a ver si delphi 2007 tiene librería curl.
Este metodo de envio lo uso para Factura Electrónica y funciona perfectamente, Faceb y Faceb2b por Soap.

Vamos a explicar los parametros del envio:

*El envio(Ojo este es para Factura electronica, aún no tenemos los parametros para Verifactu:

curl --connect-timeout 10 --insecure -A "FacturaePHP/1.7.1" -H "SOAPAction: https://webservice.face.gob.es#enviarFactura" --data "@C:\....\...\archivo.xml" --cert-type P12 --cert c:\....\fichero_certificado.pfx:clave -H "Content-Type: text/xml" https://se-face-webservice.redsara.es/facturasspp2 -o C:\....\Respuesta_face_o.html -D C:\...\Respuesta_face_D.html

Que consta de varias partes:
--connect-timeout 10 ----> Tiempo de espera ante eventuales problemas de conexión, es recomeendable por que hay casos en que se eterniza la conexión si hay un problema.

--insecure ----> Puede ser necesario para qyue se admitan conexiones SSl poco seguras

-A "FacturaePHP/1.7.1" --> Variable CURLOPT_USERAGENT, pueden solicitar que tenga un contenido especifico en caso de factura electrónica es la versión del esquema utilizado: FacturaPhp/1.7.1

-H "SOAPAction: https://webservice.face.gob.es#enviarFactura" ----> Equivale a la variable CURLOPT_HTTPHEADER= Cabecera de Envio.

-H "Content-Type: text/xml" ----> Otro Contenido de la variable CURLOPT_HTTPHEADER
--data "@C:\tpvision\Facturarealcanasta_FICTICIO_fichero.xml" ---> Fichero a Enviar, construido con el Soap

--cert-type P12 --cert c:\....\fichero_certificado.pfx:clave ----> Certificado Electronico y clave, ojo con esto ya que es demasiado visible, hay que intentar que la ejecución al menos sea invisible y no dejar rastro.

https://se-face-webservice.redsara.es/facturasspp2 ----> Servicio WEB/RES

-o C:\....\Respuesta_face_o.html --> Respuestaen XML se envia al fichero indicado

-D C:\...\Respuesta_face_D.html ---> Respuesta Simple Ok,Ko, Error xxx.., igualmente se envia al ficherro indicado, noponer el mismo qu en -o


Si en la composicion del Soap pidieran, como en Face algun dato del certificado, por ejemplo la variable publica, el soap podrias hacerlo con php, que eso es otra historia que si hace falta ya lo pondré, y en ese caso el envio lo pdrias hacer tambien en php:

Este sería el envio del soap en php, que tambien puedes ejecutarlo con un comando curl desde cualquier aplicacion, si fuera necesario ampliaré esto::

    $ch = curl_init();
    curl_setopt_array($ch, array(
      CURLOPT_URL => $GLOBALS['endpoint'],
      CURLOPT_RETURNTRANSFER => 1,
      CURLOPT_SSL_VERIFYPEER => 0,
      CURLOPT_TIMEOUT => 30,
      CURLOPT_POST => 1,
      CURLOPT_POSTFIELDS => $req,
      CURLOPT_HTTPHEADER => array(
        "Content-Type: text/xml",
        "SOAPAction: " . $soapAction
      ),
      CURLOPT_USERAGENT => "FacturaePHP/" . $GLOBALS["version"]
    ));
    $res = curl_exec($ch);
    curl_close($ch);
    unset($ch);