Cita:
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;