From 7596800a203c69db6cdea1d9c2dbed54d487e766 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 2 Jun 2009 16:16:26 +0000
Subject: [PATCH] =?UTF-8?q?Grid=20de=20detalles=20y=20presupuestos=20->=20?=
 =?UTF-8?q?En=20la=20columna=20DESCRIPCION=20del=20grid=20se=20ha=20puesto?=
 =?UTF-8?q?=20a=20false=20la=20propiedad=20'WantReturns'=20que=20quita=20l?=
 =?UTF-8?q?os=20caracteres=20#10=20y=20#13=20que=20estropeaban=20el=20text?=
 =?UTF-8?q?o=20RTF.=20Ahora=20sobra=20el=20tratamiento=20de=20l=C3=ADneas?=
 =?UTF-8?q?=20que=20hab=C3=ADa=20en=20uBizDetallesPresupuestoCliente.=20Ta?=
 =?UTF-8?q?mbi=C3=A9n=20funciona=20bien=20el=20copy-paste=20de=20varias=20?=
 =?UTF-8?q?filas=20desde=20Excel.?=
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.Tecsitel_FactuGES2/trunk@950 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/GUIBase/uViewDetallesBase.dfm               |  1 +
 .../Model/uBizDetallesPresupuestoCliente.pas       | 14 --------------
 2 files changed, 1 insertion(+), 14 deletions(-)

diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm
index e777f6cf..4b846e7e 100644
--- a/Source/GUIBase/uViewDetallesBase.dfm
+++ b/Source/GUIBase/uViewDetallesBase.dfm
@@ -297,6 +297,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
         PropertiesClassName = 'TcxRichEditProperties'
         Properties.AllowObjects = True
         Properties.SelectionBar = True
+        Properties.WantReturns = False
         Width = 237
       end
       object cxGridViewCANTIDAD: TcxGridDBColumn
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
index 293e81d6..35faa549 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas	
@@ -17,7 +17,6 @@ type
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
     procedure BeforeInsert(Sender: TDADataTable); override;
-    procedure BeforePost(Sender: TDADataTable); override;
   end;
 
 
@@ -28,10 +27,6 @@ implementation
 uses
   Dialogs, DB,  SysUtils, JclStrings;
 
-const
-  SALTO_LINEA = #13#10; //--> #$D#$A
-  PARRAFO_FINAL = '\par}';
-
 procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable);
 var
   AMasterTable : TDADataTable;
@@ -42,15 +37,6 @@ begin
     AMasterTable.Post;
 end;
 
-procedure TBizDetallesPresupuestoCliente.BeforePost(Sender: TDADataTable);
-begin
-  inherited;
-  // Hay que quitar los saltos de línea que puedan estar en CONCEPTO
-  CONCEPTO := StringReplace(CONCEPTO, SALTO_LINEA, '', [rfReplaceAll]);
-  if StrStrCount(CONCEPTO, PARRAFO_FINAL) > 0 then
-    CONCEPTO := StrEnsureNoSuffix(PARRAFO_FINAL, CONCEPTO) + '}';
-end;
-
 procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;