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

Grid de detalles y presupuestos -> En la columna DESCRIPCION del grid se ha puesto a false la propiedad 'WantReturns' que quita los caracteres #10 y #13 que estropeaban el texto RTF. Ahora sobra el tratamiento de líneas que había en uBizDetallesPresupuestoCliente. También funciona bien el copy-paste de varias filas desde Excel.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@950 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-06-02 16:16:26 +00:00
parent f2511f13a0
commit 7596800a20
2 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -297,6 +297,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
Properties.AllowObjects = True Properties.AllowObjects = True
Properties.SelectionBar = True Properties.SelectionBar = True
Properties.WantReturns = False
Width = 237 Width = 237
end end
object cxGridViewCANTIDAD: TcxGridDBColumn object cxGridViewCANTIDAD: TcxGridDBColumn

14
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -17,7 +17,6 @@ type
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
procedure BeforePost(Sender: TDADataTable); override;
end; end;
@ -28,10 +27,6 @@ implementation
uses uses
Dialogs, DB, SysUtils, JclStrings; Dialogs, DB, SysUtils, JclStrings;
const
SALTO_LINEA = #13#10; //--> #$D#$A
PARRAFO_FINAL = '\par}';
procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable); procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable);
var var
AMasterTable : TDADataTable; AMasterTable : TDADataTable;
@ -42,15 +37,6 @@ begin
AMasterTable.Post; AMasterTable.Post;
end; 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); procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;