Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@982 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-12-17 15:30:32 +00:00
parent 3c4b901d63
commit 2493384a08
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Database/udfs/funciones.pas
View File

@ -215,11 +215,11 @@ var
begin begin
// Hay que quitar el salto de línea al final de la aSource RTF // 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 if InitSource then
begin begin

BIN
Database/udfs/udf_RtfToText.dll
View File

Binary file not shown.