Norma 19 34 Crear xml formato Sepa

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

[[newtron]]

Empezado por Casimiro Notevi

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.

El caso es no parar de dar por el c... pero bueno, estas cosillas vienen bien, así se hace limpieza de programas en el mercado y algún bocado daremos.

[Casimiro Noteví]

Empezado por newtron

El caso es no parar de dar por el c... pero bueno, estas cosillas vienen bien, así se hace limpieza de programas en el mercado y algún bocado daremos.

Está clara mi poca visión comercial

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

[Delphitest]

Buenas noches,

siento reabrir este hilo pero el tema es realmente interesante y necesario a medida que pasa el tiempo y se acerca la fecha...

Me he puesto manos a la obra basándome en vuestros comentarios, muy útiles por cierto, y pese a mis pobres conocimientos he conseguido crear un archivo .xml y empezar a meter lineas en él.

Me queda mucha tarea por delante pero hay algo que no quiero pasar por alto antes de que se enrede todo demasiado.

Veo que hay caracteres que no soporta la norma SEPA y habláis de una función para limpiarlos y codificar lo necesario.

¿Os importaría indicar el código de esa función o indicarme como tengo que hacerlo?

Según entiendo hay que cambiar las "ñ" por "n" y cosas de esas pero por ejemplo los acentos ¿Que se hace con ellos?

Muchas Gracias por vuestro aporte e interés

[Casimiro Noteví]

En la documentación de la norma lo explica. Deberías descargarla y leerla antes de hacer cualquier cosa.

[Nasca]

Tampoco tiene mucho misterio. Los caracteres válidos son estos:

TABLA DE CODIFICACIÓN DE CARACTERES DEL ESTÁNDAR UNIFI (ISO20022)
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r S t u v w x y z
0 1 2 3 4 5 6 7 8 9 / - ? : ( ) . , ‘ + espacio

Se pueden sustituir caracteres acentuados para no hacer cagadas con algo como:

Código Delphi [-]
texto := StringReplace(texto,'Ö','O',[rfReplaceAll]);

Y esta función u otra similar te resuelve el resto:

Código Delphi [-]
      for i := 1 to Length(texto) do
          begin
            if not(Ord(texto[i]) in [65..90,97..122,48..57,47,45,63,58,40,41,46,44,39,43,32]) then
               texto[i] := '¤'
          end;

      texto := StringReplace(texto,'¤','',[rfReplaceAll, rfIgnoreCase]);

Suerte.