Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[nincillo]

Empezado por Neftali [Germán.Estévez]

Yo lo he hecho con Delphi 11.3 y con la 10.2.3 y me ha funcionado sin problemas.

Adjunto las units generadas (por si sirve).

¿Al intentar compilar el proyecto a ti también te da un error que que las cadenas no pueden tener más de 255 caracteres o algo así?

Gracias.

[Neftali [Germán.Estévez]]

Empezado por nincillo

¿Al intentar compilar el proyecto a ti también te da un error que que las cadenas no pueden tener más de 255 caracteres o algo así?

Si, no había compilado el proyecto.
Con los archivos generados también me da ese error:

[dcc32 Error] SistemaFacturacion.pas(1599): E2056 String literals may have at most 255 elements

Simplemente edita el fichero SistemaFacturacion.pas y divide esa cadena en 2.
Es decir, donde hay algo como esto y falla:

Código Delphi [-]
 InvRegistry.RegisterMethodInfo(TypeInfo(sfSOAP), 'AltaFactuSistemaFacturacion', '',
                                 '[ReturnName="RespuestaLinea", RequestNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd", ResponseNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/RespuestaSuministro.xsd"]', IS_OPTN or IS_UNBD);

Pon esto:

Código Delphi [-]

 InvRegistry.RegisterMethodInfo(TypeInfo(sfSOAP), 'AltaFactuSistemaFacturacion', '',
      '[ReturnName="RespuestaLinea",  RequestNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/' + 
     'es/aeat/tike/cont/ws/SuministroLR.xsd",   ResponseNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplic' + 
     ' aciones/es/aeat/tike/cont/ws/RespuestaSuministro.xsd"]',  IS_OPTN or IS_UNBD);

Lo he partido en varios trozos para que se vea bien.

[nincillo]

Empezado por Neftali [Germán.Estévez]

Si, no había compilado el proyecto.
Con los archivos generados también me da ese error:

[dcc32 Error] SistemaFacturacion.pas(1599): E2056 String literals may have at most 255 elements

Simplemente edita el fichero SistemaFacturacion.pas y divide esa cadena en 2.
Es decir, donde hay algo como esto y falla:

Código Delphi [-]
 InvRegistry.RegisterMethodInfo(TypeInfo(sfSOAP), 'AltaFactuSistemaFacturacion', '',
                                 '[ReturnName="RespuestaLinea", RequestNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd", ResponseNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/RespuestaSuministro.xsd"]', IS_OPTN or IS_UNBD);

Pon esto:

Código Delphi [-]
 InvRegistry.RegisterMethodInfo(TypeInfo(sfSOAP), 'AltaFactuSistemaFacturacion', '',
      '[ReturnName="RespuestaLinea",  RequestNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/' + 
     'es/aeat/tike/cont/ws/SuministroLR.xsd",   ResponseNS="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplic' + 
     ' aciones/es/aeat/tike/cont/ws/RespuestaSuministro.xsd"]',  IS_OPTN or IS_UNBD);

Lo he partido en varios trozos para que se vea bien.

Si, gracias. Ya me había sugerido esa solución otro compañero en este mismo hilo

Era por asegurarme que siguiera pasando lo mismo.

Y el otro problema que tengo es con el elemento CABECERA, que como ya comenté anteriormente en éste hilo, no consigo acceder a él para meter los datos correspondientes. Sólo puedo meter el array con las facturas a enviar, pero seguro que al hacer el envío me lo darán para atrás por no tener la cabecera.
¿Será que se les ha olvidado definirlo?

[Neftali [Germán.Estévez]]

Empezado por nincillo

Y el otro problema que tengo es con el elemento CABECERA, que como ya comenté anteriormente en éste hilo, no consigo acceder a él para meter los datos correspondientes. Sólo puedo meter el array con las facturas a enviar, pero seguro que al hacer el envío me lo darán para atrás por no tener la cabecera.
¿Será que se les ha olvidado definirlo?

Según la unit que se genera al importar el WSDL no existe esa parte.
¿Exactamente cuando dices cabecera a qué te refieres?

He visto que en el EXCEL con los diseños de registro hay 3 de alta (DR=Diseño Registro):

• DR Alta.VERIFACTU
• DR Alta.Requerimiento
• DR Alta.C-E

En los 2 primeros sí aparece una sección de Cabecera, pero no en el tercero.
¿?¿?¿?¿

[nincillo]

Yo en el ejemplo que estaba haciendo para comparar con el wsdl del SII tengo esto código Delphi:

procedure TForm2.Button1Click(Sender: TObject);
var
  LRfacturasEmitidas : SuministroLRFacturasEmitidas;
  LRFacturaEmitida0, LRFacturaEmitida1 : LRfacturasEmitidasType;
  result : RespuestaLRFacturasEmitidas;
  arrayFacturas : Array_Of_LRfacturasEmitidasType;

begin

  LRfacturasEmitidas := SuministroLRFacturasEmitidas.Create;
  LRfacturasEmitidas.Cabecera := CabeceraSii.Create;
    LRfacturasEmitidas.Cabecera.Titular := PersonaFisicaJuridicaESType.Create;
      LRfacturasEmitidas.Cabecera.Titular.NombreRazon := 'NombreRazon';
      LRfacturasEmitidas.Cabecera.Titular.NIF := '10855497A';


  // genero las diferentes facturas
  SetLength(arrayFacturas, 2);

  LRFacturaEmitida0 := LRfacturasEmitidasType.Create;
  LRFacturaEmitida0.PeriodoImpositivo := PeriodoImpositivo.Create;
    LRFacturaEmitida0.PeriodoImpositivo.Ejercicio := '23';
    LRFacturaEmitida0.PeriodoImpositivo.Periodo := TipoPeriodoType._02;
  arrayFacturas[0] := LRFacturaEmitida0;

  LRFacturaEmitida1 := LRfacturasEmitidasType.Create;
  LRFacturaEmitida1.PeriodoImpositivo := PeriodoImpositivo.Create;
    LRFacturaEmitida1.PeriodoImpositivo.Ejercicio := '24';
    //LRFacturaEmitida.PeriodoImpositivo.Periodo := TipoPeriodoType._01;
  arrayFacturas[1] := LRFacturaEmitida1;


  LRfacturasEmitidas.RegistroLRFacturasEmitidas := arrayFacturas;



    try

      result := GetsiiSOAP(false, 'https://prewww1.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP', HTTPRIO1).SuministroLRFacturasEmitidas(LRfacturasEmitidas);
      ShowMessage('Estado envio: ' + result.RespuestaLinea[0].DescripcionErrorRegistro);
    finally

    end;
end;

Y me funciona correctamente, y puedo acceder al LRfacturasEmitidas.Cabecera sin problema.

Sin embargo, el de VeriFactu no encuentro el equivalente al SuministroLRFacturasEmitidas del SII.

Estoy revisando el wsdl por dentro y me he dado cuenta de una cosa quizás puedas ser la causa de no encontrar lo que estoy buscando.

En la parte superior del wsdl aparece:

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/SistemaFacturacion.wsdl
//  >Import : https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/SistemaFacturacion.wsdl>0
//  >Import : https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/SuministroInformacion.xsd
//  >Import : https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/SuministroLR.xsd
//  >Import : https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/RespuestaSuministro.xsd
// Encoding : UTF-8
// Version  : 1.0
// (22/12/2023 10:00:16 - - $Rev: 112483 $)
// ************************************************************************ //

Mientras que luego en el resto del wsdl las urls siempre hacen referencia a: https://www2.agenciatributaria.gob.e.../tike/cont/ws/.... y resulta que esas páginas no existen a día de hoy. Podrá ser eso o estaré diciendo tonterías...

Si yo accedo a https://prewww2.aeat.es/static_files...nformacion.xsd hay si tengo un nodo CABECERA que quizás sea el que estoy buscando, pero el problema es que luego, en el resto del documento, la referencia se hace a: https://www2.agenciatributaria.gob.e...nformacion.xsd y esa url no funciona.

PD. Acabo de ver que mientras escribía mi post, @Neftali había editado el suyo, pero por si acaso pudiera servir de algo, lo posteo.

[Neftali [Germán.Estévez]]

Empezado por nincillo

Y el otro problema que tengo es con el elemento CABECERA, que como ya comenté anteriormente en éste hilo, no consigo acceder a él para meter los datos correspondientes. Sólo puedo meter el array con las facturas a enviar, pero seguro que al hacer el envío me lo darán para atrás por no tener la cabecera.
¿Será que se les ha olvidado definirlo?

Me respondo a mi mismo.
He descargado el XSD desde aquí.
Lo he subido al FTP junto al resto de la documentación.

Importándolo en un proyecto de Delphi (XML Data Binding) y con un poco de código:

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
  fAlta:IXMLSistemaFacturacionAltaFact;
begin

  fAlta := NewFacturaAlta;
  fAlta.Cabecera.IDVersion := '1.0';
  fAlta.Cabecera.ObligadoEmision.NombreRazon := 'EMPRESA PRUEBAS';
  fAlta.Cabecera.ObligadoEmision.NIF := '11111111H';
  fAlta.Cabecera.TipoRegistroAEAT := 'S0';

  ...

  var sXML:string;
  fAlta.OwnerDocument.SaveToXML(sXML);
  Memo1.Lines.Text := sXML;

end;

Se genera la parte de la cabecera sin problemas...

Código PHP:

<?xml version="1.0"?>
<FacturaAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
    <Cabecera>
        <IDVersion>1.0</IDVersion>
        <ObligadoEmision>
            <NombreRazon>EMPRESA PRUEBAS</NombreRazon>
            <NIF>11111111H</NIF>
        </ObligadoEmision>
        <TipoRegistroAEAT>S0</TipoRegistroAEAT>
    </Cabecera>
</FacturaAlta>

Os adjunto el fichero generado.

[nincillo]

Empezado por Neftali [Germán.Estévez]

Me respondo a mi mismo.
He descargado el XSD desde aquí.
Lo he subido al FTP junto al resto de la documentación.

Importándolo en un proyecto de Delphi (XML Data Binding) y con un poco de código:

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
  fAlta:IXMLSistemaFacturacionAltaFact;
begin

  fAlta := NewFacturaAlta;
  fAlta.Cabecera.IDVersion := '1.0';
  fAlta.Cabecera.ObligadoEmision.NombreRazon := 'EMPRESA PRUEBAS';
  fAlta.Cabecera.ObligadoEmision.NIF := '11111111H';
  fAlta.Cabecera.TipoRegistroAEAT := 'S0';

  ...

  var sXML:string;
  fAlta.OwnerDocument.SaveToXML(sXML);
  Memo1.Lines.Text := sXML;

end;

Se genera la parte de la cabecera sin problemas...

Código PHP:

<?xml version="1.0"?>
<FacturaAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
    <Cabecera>
        <IDVersion>1.0</IDVersion>
        <ObligadoEmision>
            <NombreRazon>EMPRESA PRUEBAS</NombreRazon>
            <NIF>11111111H</NIF>
        </ObligadoEmision>
        <TipoRegistroAEAT>S0</TipoRegistroAEAT>
    </Cabecera>
</FacturaAlta>

Os adjunto el fichero generado.

Ante todo, muchas gracias por tu paciencia.
Esto a base de pegarme cabezazos todo el fin de semana, ya lo había conseguido encontrar, pero entonces me atascaba en el momento de querer hacer el envío, ya que en el método GetsfSOAP requiere que sea un objeto de tipo Array_Of_RespuestaExpedidaType y no se como "calzarle" el cabecera.

try
    SetLength(arrayFacturas, 1);
    arrayFacturas[0] := regFactura;
    result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(ArrayFacturas);

[[newtron]]

Germán.


Sigo tus instrucciones del XML Data Binding pero solo me genera dos archivos, uno .pas y otro .xdb. ¿El fichero .xsd cómo se genera?


Gracias y un saludo.

[Neftali [Germán.Estévez]]

Empezado por newtron

Sigo tus instrucciones del XML Data Binding pero solo me genera dos archivos, uno .pas y otro .xdb. ¿El fichero .xsd cómo se genera?

El XSD es el fichero de esquema. Te lo deben dar.
Se descarga desde aquí y lo he copiado aquí en el FTP.

[nincillo]

Empezado por newtron

Germán.


Sigo tus instrucciones del XML Data Binding pero solo me genera dos archivos, uno .pas y otro .xdb. ¿El fichero .xsd cómo se genera?


Gracias y un saludo.

El .xsd, que yo sepa, como mucho lo tendrás que guardar una vez abierto en el navegador. ¿Te refieres a eso?

[[newtron]]

Empezado por Neftali [Germán.Estévez]

El XSD es el fichero de esquema. Te lo deben dar.
Se descarga desde aquí y lo he copiado aquí en el FTP.

Gracias Germán.

Empezado por nincillo

El .xsd, que yo sepa, como mucho lo tendrás que guardar una vez abierto en el navegador. ¿Te refieres a eso?

Efectivamente. Entiendo que el fichero .xsd solo se usa para generar el .pas


Seguimos probando.


Gracias a los dos.

[_Io]

Buenos días.

Perdonarme, soy bastante nuevo en esto de programación utilizando xsd,wsdl...
Estoy un poco o un mucho perdido.
He llegado hasta aquí, para generar el xml de una factura, pero no sé de dónde sale o cómo hacer la función NewFacturaAlta

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
  fAlta:IXMLSistemaFacturacionAltaFact;
begin

  fAlta := NewFacturaAlta;
  fAlta.Cabecera.IDVersion := '1.0';
  fAlta.Cabecera.ObligadoEmision.NombreRazon := 'EMPRESA PRUEBAS';
  fAlta.Cabecera.ObligadoEmision.NIF := '11111111H';
  fAlta.Cabecera.TipoRegistroAEAT := 'S0';

  ...

  var sXML:string;
  fAlta.OwnerDocument.SaveToXML(sXML);
  Memo1.Lines.Text := sXML;

end;

Muchas Gracias.

[Neftali [Germán.Estévez]]

Empezado por _Io

Perdonarme, soy bastante nuevo en esto de programación utilizando xsd,wsdl...
Estoy un poco o un mucho perdido.
He llegado hasta aquí, para generar el xml de una factura, pero no sé de dónde sale o cómo hacer la función NewFacturaAlta

Aquí hemos puesto algo de código.
Una vez importado el WSDL. A ver si te sirve...

[_Io]

Hola Neftali, buenos días.
Muchas gracias por tu rápida respuesta.

Aquí hemos puesto algo de código.
Una vez importado el WSDL. A ver si te sirve...

Ya he visto este código y en mi poco conocimiento en el tema, creo que es para enviar la factura a hacienda, he conseguido generarlo, gracias a vosotros, claro.

procedure TForm3.Button2Click(Sender: TObject);
var
fAlta:IXMLSistemaFacturacionAltaFact;
begin

fAlta := NewFacturaAlta;
fAlta.Cabecera.IDVersion := '1.0';
fAlta.Cabecera.ObligadoEmision.NombreRazon := 'EMPRESA PRUEBAS';
fAlta.Cabecera.ObligadoEmision.NIF := '11111111H';
fAlta.Cabecera.TipoRegistroAEAT := 'S0';

...

var sXML:string;
fAlta.OwnerDocument.SaveToXML(sXML);
Memo1.Lines.Text := sXML;

end;

Entiendo que este código que pusistes es para generar el xml de la factura y es lo que intentaba hacer, pero no sé exactamente de dónde sale NewFacturaAlta, es por eso el post.

Salu2.