Ver Mensaje Individual
  #722  
Antiguo 22-02-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.324
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por ramherfer Ver Mensaje

No se ni por donde empezar ni por donde cogerlo, no he usado estructuras xml en mi vida. Para no mentir en los archivos SEPA que crea la aplicación para subir las remesas al banco (sin usar la aplicación de cada uno de ellos) y que los creo manualmente linea a linea según la estructura que en su día se presento para tal efecto. No se si para generar el fichero xml, sería de la misma forma. No se como generar el hash, ni de que generarlo (fichero completo o algún contenido del fichero -según he leido de algún nodo completo-) y no se como enviarlo ya que no se si dispongo de la funcionalidad curl, aunque se me paso por la cabeza mientras leia utilizar algún enlace php con la aplicación de escritorio.
Sigo pensando que la cosa está muy verde para "liarse a fondo" con esto.
Aquí tienes "toda" la documentación que han publicado, que es poca (muy poca):
https://www.agenciatributaria.es/AEA...ERI_FACTU.html

Si quieres empezar con los XML (que yo no los haría manualmente) puedes buscar hilos en los foros que encontrará muchos.
https://www.clubdelphi.com/foros/showthread.php?t=93774

Y fuera también:
https://delphiallimite.blogspot.com/...entos-xml.html
https://delphiallimite.blogspot.com/...os-xml-ii.html
https://delphiallimite.blogspot.com/...xml-y-iii.html

El código para generar un XML es sencillo, como muestra el siguiente:

Código Delphi [-]
uses
  XML.XMLDoc, XML.XMLIntf;

procedure TForm3.Button1Click(Sender: TObject);
var
  node, nodeObli:IXMLNode;
begin
  var XmlDoc:TXMLDocument := TXMLDocument.Create(nil);
  XmlDoc.Active:=True;
  XmlDoc.Version:='1.0';
  XMLDoc.Encoding:='utf-8';

  node := XmlDoc.AddChild('Cabecera');
  node.AddChild('IDVersion', '1.0');
  nodeObli := node.AddChild('ObligadoEmision');

  nodeObli.AddChild('NombreRazon', 'Razón social');
  nodeObli.AddChild('NIF', '12345678N');
  nodeObli.AddChild('NombreRazonRepresentante', 'Mi Representante');
  nodeObli.AddChild('NIFRepresentante', '87654321A');

  XMLDoc.SaveToFile('r:\fichero.xml')
end;

En este documento (al final) tienes acceso a los fichros XSD y WSDL que hay hasta ahora:
https://www.agenciatributaria.es/sta...ervicioWeb.pdf

Otra opción es importar el XSD.
Desde las versiones nuevas puedes importar el XSD con: File->New->other y seleccionar xml data binding
No recuerdo si en esa versión tienes esta opción.

AÑADO: Por lo que veo aquí, sí tienes esa opción.


Revisa esto:
https://delphiallimite.blogspot.com/...xml-y-iii.html
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita