Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[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.

[nincillo]

Empezado por _Io

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



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.



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.

Si no me confundo, el trozo de código que estás poniendo no se corresponde a como trabajar con el wsdl, sino a como trabajar si lo que hiciste fue importar el wsd.

Si estoy en lo cierto, el "problema" que yo tuve en su momento, no es el de dónde sale el NewFacturaAlta, sino que luego no super como crear/añadir el nodo correspondiente a los datos de la factura propiamente dichos, ya que no encontré como hacer el "NewRegistroFactura" por así decirlo para poder añadirle el resto de datos que no son de la cabecera.

[_Io]

Ok.

Entonces, ¿cómo estáis generando el XML de la Factura?
Con código independiente al wsdl ?

con el XML Data Binding , he pasado un xsd y me ha generado diferentes nodos

type

{ Forward Decls }

IXMLSistemaFacturacionAltaFact = interface;
IXMLCabecera = interface;
IXMLPersonaFisicaJuridicaESType = interface;
IXMLSistemaFacturacionBajaFact = interface;
IXMLDatosPresentacionType = interface;
IXMLDatosPresentacion2Type = interface;
IXMLRegistroSf = interface;
IXMLRegistroSf_PeriodoImputacion = interface;
IXMLIDFacturaExpedidaBCType = interface;
IXMLIDFacturaExpedidaBCType_IDEmisorFactura = interface;
IXMLIDFacturaExpedidaBajaType = interface;
IXMLIDFacturaExpedidaBajaType_IDEmisorFacturaAnulada = interface;
IXMLRegistroFacturacionType = interface;
IXMLIDFacturaExpedidaType = interface;
IXMLIDFacturaExpedidaType_IDEmisorFactura = interface;
IXMLRegistroFacturacionType_FacturasRectificadas = interface;
IXMLIDFacturaARType = interface;
IXMLRegistroFacturacionType_FacturasSustituidas = interface;
IXMLDesgloseRectificacionType = interface;
IXMLPersonaFisicaJuridicaType = interface;
IXMLIDOtroType = interface;
IXMLRegistroFacturacionType_Destinatarios = interface;
IXMLDesgloseType = interface;
IXMLDetalleType = interface;
IXMLEncadenamientoFacturaAnteriorType = interface;
IXMLEncadenamientoFacturaAnteriorType_IDEmisorFacturaRegistroAnterior = interface;
IXMLSistemaInformaticoType = interface;
IXMLRegistroFacturacionBajaType = interface;
IXMLObligadoGeneracionType = interface;
IXMLDatosControlType = interface;
IXMLIDFacturaConsulta2Type = interface;
IXMLPersonaFisicaJuridicaUnicaESType = interface;
IXMLRangoFechaPresentacionType = interface;
IXMLRegistroDuplicadoType = interface;
IXMLContraparteConsultaType = interface;
IXMLConsultaInformacion = interface;
IXMLCabeceraConsultaSf = interface;
IXMLObligadoEmisionConsultaType = interface;
IXMLControFlujoEnviosType = interface;

{ IXMLSistemaFacturacionAltaFact }

IXMLSistemaFacturacionAltaFact = interface(IXMLNode)
['{71D1ADBE-E067-4563-982B-E703A1790DA9}']
{ Property Accessors }
function Get_Cabecera: IXMLCabecera;
{ Methods & Properties }
property Cabecera: IXMLCabecera read Get_Cabecera;
end;

{ IXMLCabecera }

IXMLCabecera = interface(IXMLNode)
['{B83FF7BE-8748-4880-9D0D-09A3B2E296FB}']
{ Property Accessors }
function Get_IDVersion: UnicodeString;
function Get_ObligadoEmision: IXMLPersonaFisicaJuridicaESType;
function Get_TipoRegistroAEAT: UnicodeString;
function Get_FechaFinVeriFactu: UnicodeString;
procedure Set_IDVersion(const Value: UnicodeString);
procedure Set_TipoRegistroAEAT(const Value: UnicodeString);
procedure Set_FechaFinVeriFactu(const Value: UnicodeString);
{ Methods & Properties }
property IDVersion: UnicodeString read Get_IDVersion write Set_IDVersion;
property ObligadoEmision: IXMLPersonaFisicaJuridicaESType read Get_ObligadoEmision;
property TipoRegistroAEAT: UnicodeString read Get_TipoRegistroAEAT write Set_TipoRegistroAEAT;
property FechaFinVeriFactu: UnicodeString read Get_FechaFinVeriFactu write Set_FechaFinVeriFactu;
end;

Yo entiendo que con esta clase, se podría generar el XML de la factura.
Vamos a estudiar a ver hasta dónde llego.

Saludos.