udf_RtfToText -> fallo en conceptos con varias líneas. Se comía el primer carácter de cada línea.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@487 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/udfs/funciones.pas

@@ -215,11 +215,11 @@ var
 
 begin
   // Hay que quitar el salto de línea al final de la aSource RTF
-  aSource := StringReplace(Cadena, SaltoLinea, '', [rfreplaceall]);
+  aSource := Copy(Cadena, 1, length(Cadena)-2);
 
-  // o bien:
+  // Cambiar los saltos de línea que no son de RTF por un caracter para
-  //
+  // que se limpien.
-  //aSource := Copy( cLinea, 1, length(cLinea)-2) );
+  aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]);
   
   if InitSource then
   begin