Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[nuevo1234]

Hola,

No hay noticias de la publicación del reglamento q se está esperando?

Me voy de vacaciones y supongo q ya no lo esperamos has después de verano.

Alguien tiene información? Creo q de factura electronica ya hay un borrador

Gracias

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

Va para largo.
Vete de vacaciones, volverás,... y estaremos igual.

[seccion_31]

Buenos dias !

He leido el hilo atentamente, pero no soy capaz de importar los wsdl

desde las siguientes direcciones:

Entrada:
https://prewww2.aeat.es/static_files...nformacion.xsd

Salida:
https://prewww2.aeat.es/static_files...Suministro.xsd

Al importar, me da un error:

"
WSDL Import Error

An error was encontered importing....

....

Please verify that yo've entered the correct URL....
"

¿Podeis darme una mano por favor?

Con lo que aprendi en este foro de los SII, creo que luego podre seguir mas o menos solo, pero aqui ya no puedo continuar.

Saludos a tod@s

gracias

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

Empezado por seccion_31

He leido el hilo atentamente, pero no soy capaz de importar los wsdl

Al importar, me da un error:

https://prewww2.aeat.es/static_files...nformacion.xsd
https://prewww2.aeat.es/static_files...Suministro.xsd

Yo he probado a generarlos importante desde el IDE y me ha creado esto (os adjunto los fuentes); No os he revisado mucho pero no parece que tengan nada raro.

[seccion_31]

muchas gracias por los archivos !

sin tener demasiado idea de esto, porque voy muy perdido (lo siento)

en estos archivos que he descargado tenemos:

interface(IXMLNode)


mientras a los que estoy acostumbrado con el SII, son:

class(TRemotable)


Entiendo que los archivos descargados con los interfaces IXMLNode, son para construir el archivo XML, que mas adelante sera firmado y enviado. (todavia no se muy bien como).
Podria crear el archivo XML de forma manual, pero veo mas conveniente intentarlo asi.

Voy a ver.

Saludos !

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

Empezado por seccion_31

muchas gracias por los archivos !
sin tener demasiado idea de esto, porque voy muy perdido (lo siento)
en estos archivos que he descargado tenemos:
...
Entiendo que los archivos descargados con los interfaces IXMLNode, son para construir el archivo XML, que mas adelante sera firmado y enviado. (todavia no se muy bien como).
Podria crear el archivo XML de forma manual, pero veo mas conveniente intentarlo asi.

Voy a ver.

Perdón.
Ahora que lo comentas, los he mirado con más detenimiento y les faltan las funciones que usamos para crear los XML.
Revisando la generación, he visto que la primera vez que lo he generado, no he seleccionado la opción siguiente:




Si los volvemos a generar y asignamos un nombre coherente, ahora sí aparecen las funciones que usamos para generar/cargar los XML.
En el caso de la petición estas:

Código Delphi [-]
function GetPeticionFacturacionAlta(Doc: IXMLDocument): IXMLSistemaFacturacionAltaFact;
function LoadPeticionFacturacionAlta(const FileName: string): IXMLSistemaFacturacionAltaFact;
function NewPeticionFacturacionAlta: IXMLSistemaFacturacionAltaFact;

Y en el caso de la respuesta estas:

Código Delphi [-]
function GetRespuestaFacturacionAlta(Doc: IXMLDocument): IXMLRespuestaComunAltaType;
function LoadRespuestaFacturacionAlta(const FileName: string): IXMLRespuestaComunAltaType;
function NewRespuestaFacturacionAlta: IXMLRespuestaComunAltaType;

A partir de ahí para generar un XML nuevo, deberíamos empezar por NewPeticionFacturacionAlta y para cargar la respuesta obtenida deberíamos usar LoadRespuestaFacturacionAlta o GetRespuestaFacturacionAlta.

Adjunto los nuevos ficheros.

[_Io]

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

Perdón.
Ahora que lo comentas, los he mirado con más detenimiento y les faltan las funciones que usamos para crear los XML.
Revisando la generación, he visto que la primera vez que lo he generado, no he seleccionado la opción siguiente:




Si los volvemos a generar y asignamos un nombre coherente, ahora sí aparecen las funciones que usamos para generar/cargar los XML.
En el caso de la petición estas:

Código Delphi [-]
function GetPeticionFacturacionAlta(Doc: IXMLDocument): IXMLSistemaFacturacionAltaFact;
function LoadPeticionFacturacionAlta(const FileName: string): IXMLSistemaFacturacionAltaFact;
function NewPeticionFacturacionAlta: IXMLSistemaFacturacionAltaFact;

Y en el caso de la respuesta estas:

Código Delphi [-]
function GetRespuestaFacturacionAlta(Doc: IXMLDocument): IXMLRespuestaComunAltaType;
function LoadRespuestaFacturacionAlta(const FileName: string): IXMLRespuestaComunAltaType;
function NewRespuestaFacturacionAlta: IXMLRespuestaComunAltaType;

A partir de ahí para generar un XML nuevo, deberíamos empezar por NewPeticionFacturacionAlta y para cargar la respuesta obtenida deberíamos usar LoadRespuestaFacturacionAlta o GetRespuestaFacturacionAlta.

Adjunto los nuevos ficheros.

Buenos días.

Yo estaba utilizando el archivo wsdl, para generar los XML y he visto este post de nuestro compañero Neftali .
¿Qué utilizáis vosotros? los xsd o wsdl ?
Estuve en su momento mirando los xsd, pero no me salían las funciones que se utilizan para generar los xml y las descarté.

No se ve en el post, que opciones se puso apara que generara dichas funciones, ¿La sabéis?

Muchas Gracias.

[seccion_31]

Buenos dias !

Os presento mi duda mas importante a la hora de generar el XML, usando el databinding, segun el esquema XSD que amablemente me envio Neftali.

Código Delphi [-]
procedure TForm2.Button5Click(Sender: TObject);
var
    alta: IXMLSistemaFacturacionAltaFact;
begin
      alta:=NewSistemaFacturacionAltaFact;
      alta.Cabecera.IDVersion:='1';
      alta.Cabecera.ObligadoEmision.NombreRazon:='Nombre de prueba';

      memo1.Lines.Text:=alta.XML;
end;

Hasta ahi sencillo, tengo el objeto XML de alta de factura, y me deja indicar la cabecera y todo lo que de ella pende.

Perfecto.

¿pero y el resto de nodos que tengo que añadir? ¿como lo hago? (tengo las definiciones en el .pas con los interfaces pero no se como usarlos mas alla de este pequeño codigo).

he tratado de mil maneras y no consigo añadirlos.

x favor, ¿alguien puede sacarme de esta duda?

Saludos cordiales.

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

Empezado por seccion_31

¿pero y el resto de nodos que tengo que añadir? ¿como lo hago? (tengo las definiciones en el .pas con los interfaces pero no se como usarlos mas alla de este pequeño codigo).

Con los últimos ficheros que te he subido, un código como este, genera y guarda un XML con datos:

Código Delphi [-]
...
uses
  SuministroInformacion;

procedure TForm3.Button1Click(Sender: TObject);
var
  IFact:IXMLSistemaFacturacionAltaFact;
begin
  IFact := NewPeticionFacturacionAlta;

  IFact.Cabecera.IDVersion := '1.0';

  IFAct.Cabecera.ObligadoEmision.NombreRazon := 'Pepe Lotas';
  IFAct.Cabecera.ObligadoEmision.NIF := '12345678N';
  IFAct.Cabecera.ObligadoEmision.NombreRazonRepresentante := 'Representante';


  ...



  IFact.OwnerDocument.SaveToFile('r:\fact1.xml')

end;