From 0990553230ba61a5487f6535fe109d38b0f2c297 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Sat, 23 Feb 2008 11:54:03 +0000
Subject: [PATCH] =?UTF-8?q?udf=5FRtfToText:=20corregido=20el=20reemplazo?=
 =?UTF-8?q?=20de=20los=20saltos=20de=20l=C3=ADnea=20por=20cadena=20vacia.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@134 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Database/udfs/funciones.pas       |   2 +-
 Database/udfs/udf_RtfToText.dll   | Bin 441344 -> 441344 bytes
 Database/udfs/udf_RtfToText.dproj |  80 ++++++++++++++++++++++++++++++
 Database/udfs/udf_RtfToText.drc   |  10 ++--
 4 files changed, 86 insertions(+), 6 deletions(-)
 create mode 100644 Database/udfs/udf_RtfToText.dproj

diff --git a/Database/udfs/funciones.pas b/Database/udfs/funciones.pas
index ec4dff2e..33d66d01 100644
--- a/Database/udfs/funciones.pas
+++ b/Database/udfs/funciones.pas
@@ -215,7 +215,7 @@ var
 
 begin
   // Hay que quitar el salto de línea al final de la aSource RTF
-  aSource := StringReplace(Cadena, SaltoLinea, ' ', [rfreplaceall]);
+  aSource := StringReplace(Cadena, SaltoLinea, '', [rfreplaceall]);
 
   // o bien:
   //
diff --git a/Database/udfs/udf_RtfToText.dll b/Database/udfs/udf_RtfToText.dll
index 206d133d56d60d4658377ef81e55398e6313b847..e2595260c1b3932fc5269412a7edb9e7494a6087 100644
GIT binary patch
delta 1242
zcmZwFL1@!Z7y#gxwn^J5b_X3Y9nGPLpt$<}ci2H}Jp@mp2gg=zZ8xeLB5a2WLnaMa
zb)!=!3hkkzE$UDZ97T)_VPQRpr#aYR2Vp%ZbatSJ3ANV6mk!%Uc?pmFdHMc7f8L8)
z?N+PZ3l72RcIr>|2)~5%9l>&6un2URS1TPhO|Xc|&-VEX3W^%u=(Oy5CtgUcz7V^v
z!>7d{oi6|O{4x5=@g2hmB=lI%N2M+xg!&&STjhr}I+>(_bFOA2*DD=KWxM=0W5%Fg
z3Iw9loug-I4Qdx{G^u<uT{DWC#~#;=N+nsmoctClA|#}S=Ebff@n#Rr+<SDYxVbe;
zc{Nl#Lo3W`bMvCzVvQ6OEng5v1a0S)c-J9JX^DckoR5D$c><5%TX+ViaR$G{ukmNR
zhS%{IT*6=RPrQw*xQ-pL7dl}-9E8Ilg9p4oU=V^3fhdea3?^U_R7k)S%s?74kb~#2
z0B_+ve1Iy{0TCOKiH95|$4MVKMIt0hM#&8_?jkWVK_-bx667gCNL#xodF|HxwSkm9
zD4lBr13^h?1lgc;^$>m3N56|60zK&xS&?eqnJMm&)YFi@kaW8dEd8I^2uVsa*UUTJ
zfz&~%mFv4A9cTixxRY*xDw(Bsi;wX@jsaO7&>67810@C+Jb>)29(u!^CS?YMdBD$r
zM?4T=z!DFr4EWIw%=U5&a7WsjG=a{5^E^;uK%57V!>qHr7jJk#X21py_!;0D;xrjy
vfR6`M28{7Qjse+rVE$1$16FvT!~lZ_kh8T8y~Ax^VZK6c0WCZ%<pci!M*%Zi

delta 1262
zcmZwFL1@!Z7y#g;ZPIQIH$g?FV?7MnL0S9$ci2H}MFS#=mrbp<wvGxr3|FL}he-n~
zxGfv2IBXA<wy34Zz)@t?A*`%|9)uxy@F1)Qg^W)0Fr`*8zSm*<DDOe?{`~pgpFb~A
ztKDj~d&wr6f8Ch5zf1ff<|akcUC|_xgU)7hSPG&^T6?tnWL^=1h9fv_?_8FK;_shG
z`y(#{B)Kw1PWsQj-^Q>$@z*ds(PFsgjq*nn1Yvki+0wNdNopjJAJz=*W2IeFw)I+)
z#!$TM@dT&4M$eEM#I9J#BK>BfW|TJj@70V-MJrv=zW7QcP3swC(Ai#(;}^2hp2PEv
z#v0WgkW^{&Q;Za-`bsAVP8a5~lGS7m<&{DvFL}h}r_!WNOcbJdX)P1conM_!bPLU(
zB+8*h^a8y?W%L>8XbXKu+eiQl*q{Rrz#*_hAN0c!Z~z83oPtppgAjy4g(ytHEW}^|
z5|D%(EW#2zha$X&x9|>ZxC3|Lz1V><9>mA+X?zxka2Vgl6P;MaQ9OlbaSSiu$GGre
zNOoAw+1$~%)hnN?2N%7vQV&vI`T9X}YmmGa8Df27bhDt+E4rlDC->B)%O~Hd2dn=x
z8$MZStfd=yyj@T)$<4K{tMa}EpvBwB7g1$edZ+j}52P88;(;Oq)_I`J0D}hvYqN&|
zKc`7M1N=PTX23iT1Q@W&11bZ)wF25+ngP9mmL@4EGT=N9lo=4=0l`M=?0k!7JYZ+Q
z1`oIy(0Ps1WPkxK9#9!D&I4%%q*?*}qlyez=YcW<3?2~Ln)@&?(()Gc5%wl1_($Z7
F=O3^0KvDnz

diff --git a/Database/udfs/udf_RtfToText.dproj b/Database/udfs/udf_RtfToText.dproj
new file mode 100644
index 00000000..dd470e1c
--- /dev/null
+++ b/Database/udfs/udf_RtfToText.dproj
@@ -0,0 +1,80 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5eb7350e-c612-4139-a532-3b8a4617e544}</ProjectGuid>
+    <MainSource>udf_RtfToText.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>udf_RtfToText.dll</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_Define>EUREKALOG;EUREKALOG_VER5;RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_Define>EUREKALOG;EUREKALOG_VER5;DEBUG</DCC_Define>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">3082</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">udf_RtfToText.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="udf_RtfToText.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="funciones.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/Database/udfs/udf_RtfToText.drc b/Database/udfs/udf_RtfToText.drc
index 433507d3..f8a35417 100644
--- a/Database/udfs/udf_RtfToText.drc
+++ b/Database/udfs/udf_RtfToText.drc
@@ -444,8 +444,8 @@ BEGIN
 	SysConst_SOverflow,	"Floating point overflow"
 END
 
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\Buttons.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\ExtDlgs.res */
-/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.RES */
-/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.drf */
+/* c:\archivos de programa\codegear\rad studio\5.0\Lib\Controls.res */
+/* c:\archivos de programa\codegear\rad studio\5.0\Lib\Buttons.res */
+/* c:\archivos de programa\codegear\rad studio\5.0\Lib\ExtDlgs.res */
+/* C:\Codigo Acana\Database\udfs\udf_RtfToText.RES */
+/* C:\Codigo Acana\Database\udfs\udf_RtfToText.drf */