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;