Norma 19 34 Crear xml formato Sepa

[Nasca]

He revisado y solo mantuve el código de lectura del XMLDocument, que fue lo que inicialmente implementé y me dio errores.

Lo dicho, mucho mas seguro y sencillo evitar esa dependencia con código del tipo:

Código Delphi [-]
  Writeln(FN34,'<?xml version="1.0" encoding="UTF-8"?>');
  Writeln(FN34,'<Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:iso:std:iso:20022:tech:xsdain.001.001.03">');
  Writeln(FN34,' <CstmrCdtTrfInitn>');
  Writeln(FN34,'  <GrpHdr>');
  //...
  Writeln(FN34,' <CstmrCdtTrfInitn>');
  Writeln(FN34,'  <GrpHdr>');
  //...
  Writeln(FN34,'    <PstlAdr>');
    SetCampo('     ','PstCd', Copy(LimpiarCarNormaSEPAXML(cdsEmisorCOD_POSTAL.Value),1,16), false);
    SetCampo('     ','TwnNm', Copy(LimpiarCarNormaSEPAXML(cdsEmisorCIUDAD.Value),1,35), false);
    SetCampo('     ','CtrySubDvsn', Copy(LimpiarCarNormaSEPAXML(cdsEmisorPROVINCIA.Value),1,35), false);
  if cdsEmisorID_PAIS.Value <> '' then
    SetCampo('     ','Ctry', cdsEmisorID_PAIS.Value, true)
    else
    SetCampo('     ','Ctry', 'ES', true);
    SetCampo('     ','AdrLine', Copy(LimpiarCarNormaSEPAXML(cdsEmisorDOMICILIO.Value),1,70), false);
  Writeln(FN34,'    </PstlAdr>');
 //...
cdsDatos.First;
while not cdsDatos.EOF do
 begin
  Writeln(FN34,'   <CdtTrfTxInf>');
  Writeln(FN34,'    <PmtId>');
 //...
  Writeln(FN34,'    <Amt>');
  Writeln(FN34,'     <InstdAmt Ccy="EUR">' + importe_t +'</InstdAmt>');
  Writeln(FN34,'    </Amt>');
//En esta norma no es opcional, pero dependerá de la implantación de cada banco
if (cdsDatosBIC.Value <> '') or (cdsDatosL_ENTIDAD_BIC.Value <> '') then
  begin
  Writeln(FN34,'    <CdtrAgt>');
  Writeln(FN34,'     <FinInstnId>');
  if (cdsDatosBIC.Value <> '') then
    SetCampo('      ','BIC', cdsDatosBIC.Value, false)
    else
    SetCampo('      ','BIC', cdsDatosL_ENTIDAD_BIC.Value, false);    
  Writeln(FN34,'     </FinInstnId>');
  Writeln(FN34,'    </CdtrAgt>');
  end;

Es optimizable con ayuda de algunas funciones, pero así queda mas legible.

El código está raro porque he tenido que pasarlo por un editor html para no perder las etiquetas xml.

[ramherfer]

Gracias Nasca, me imagino que construyendo el XML de esta forma los bancos lo admiten ¿no?.
Creo que voy a probar con esto, al fin de al cabo ya no se diferencia mucho de la forma de construirlo, de como ahora con sepa texto plano esta.
De verdad mil gracias por encender algo de luz sobre este problema.
Un saludo,

[Nasca]

Sin problemas.

En la norma solo se permiten los caracteres ASCII, así que si montas una función de limpiado que convierta a unicode no hay ningún problema. El xml a utilizar no deja de ser un archivo de texto con extensión xml en codificación utf8.

Si ya utilizas alguna función para limpiar caracteres no soportados solo tienes que pasarla por un Utf8Encode.

Código Delphi [-]
LimpiarCarNormaSEPAXML(texto: String): String;
begin
  Result := Utf8Encode(LimpiarCarNormaSEPA(texto));
end;

100% válido y ninguna dependencia de instalaciones de librerías determinadas en el sistema. Por lo que funcionará sin problemas en sistemas Windows de 64 bits.

P.D. Tal y como explica el compañero, para replicar la estructura de árbol algo tan sencillo como escribir determinados espacios da un resultado muy bonito y legible por humanos en el resultado final, aunque es totalmente innecesario para la lectura informática.

Por cierto ve al esquema original y pasa de la documentación de la implementación española, que no tiene mucho sentido. Con el esquema y alguna consulta puntual, sobre todo para saber que esperan en cada caso, en el documento español tendrás suficiente.

[ramherfer]

Gracias Nasca, pues a codificar se ha dicho, creo que es lo más sencillo (conociendo la estructura Sepa) y lo más parecido a lo que tengo ahora, pero como bien dices con extensión XML.
Voy a seguir 100% tu recomendación.

mamcx, gracias por tu consejo, lo único es que creo que tras las reflexiones de nasca (sencilla a priori), creo que me estaría complicando la vida, para algo tan sencillo como enviar los puñeteros recibos al banco para cobrar. No obstante agradezco tu sugerencia y no la puedo menos preciar hasta tener el sistema montado y funcionando.

Saludos,

[[nlsgarcia]]

ramherfer,

Empezado por ramherfer

...he estado mirando el componente y desgraciadamente es para a partir de Delphi 2009 con lo que no lo puedo instalar en mi Delphi 7...

Revisa esta información:

Procesar Archivos XML en Delphi 7

Espero sea útil

Nelson.

[[newtron]]

Confirmado.

A partir del día 1 de febrero de 2016 todos los archivos tienen que ir en formato XML.

Saludos y a currar.

[Casimiro Noteví]

Empezado por newtron

Confirmado.
A partir del día 1 de febrero de 2016 todos los archivos tienen que ir en formato XML.
Saludos y a currar.

Un avance espectacular, después de tantos años ya era hora de pasar del formato texto al formato... texto recargado
Podían haber cambiado, en todo caso, a un simple fichero .INI que sería más cómodo y claro para leerlo y escribirlo.

[ramherfer]

Empezado por newtron

Confirmado.

A partir del día 1 de febrero de 2016 todos los archivos tienen que ir en formato XML.

Saludos y a currar.

Gracias Newtron por confirmar tan rotundamente, esa rareza mía que algunos tenían solucionado desde el 2014 y que parecía que estaba loco y que yo había llegado tarde (que trato recibido por algunos miembros de este foro -que desagradable-).
Por cierto ya lo tengo solucionado, de una forma muy, muy sencilla y bastante rápida siguiendo las "amables, sabias y rodadas instrucciones de Nasca", era tan solo lo que buscaba con mi pregunta, ahora como bien apuntas a recoger dividendos
El formato ha sido validado por varias entidades bancarias sin ningún problema, así que seguro que no haré tarde!!.

[mamcx]

XMLDocument y similares son interfaces muy engorrosas (y ademas son dependencias a librerias del OS), y que son para hcer procesamiento muy complejos de XML... que son raros.

Una forma muy simple es usar plantillas asi:

Código PHP:

<tag>$reemplazar$</tag> 


y hacer el reemplazo del texto.

Me encontre ademas una implementacion de Mustache (mustache es un sitema de generacion de templates que hace facil hacer lo anterior, muy utilizado para hacer sitios web) para Delphi:

http://blog.synopse.info/post/2014/0...-Delphi-part-3

Otra es que estos componentes estan inspirados en el DOM (Document Object Model), que es todo un rollo... y que esconden una verdad simple:

XML es una forma mas "verbosed" de representar un arbol. Asi que tambien puedes simplemente hacer/usar una estructura de arbol y luego serializar a XML.