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.Tecsitel_FactuGES2/trunk@982 0c75b7a4-871f-7646-8a2f-f78d34cc349f

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:
-  //
-  //aSource := Copy( cLinea, 1, length(cLinea)-2) );
+  // Cambiar los saltos de línea que no son de RTF por un caracter para
+  // que se limpien.
+  aSource := StringReplace(aSource, SaltoLinea, '^', [rfreplaceall]);
   
   if InitSource then
   begin