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

Referencias: repaso al editor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@267 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-07 22:04:14 +00:00
parent adc7e05438
commit 11fda2e21e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/Modulos/Referencias/Views/uEditorReferencias.dfm
View File

@ -7,11 +7,7 @@ object fEditorReferencias: TfEditorReferencias
ClientHeight = 406 ClientHeight = 406
ClientWidth = 466 ClientWidth = 466
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET ParentFont = True
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
@ -48,7 +44,7 @@ object fEditorReferencias: TfEditorReferencias
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Top = 12 Top = 12
Width = 147 Width = 149
Height = 13 Height = 13
Caption = 'Lista de referencias disponibles' Caption = 'Lista de referencias disponibles'
end end
@ -86,7 +82,6 @@ object fEditorReferencias: TfEditorReferencias
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsData.Inserting = False OptionsData.Inserting = False
OptionsSelection.MultiSelect = True
OptionsSelection.UnselectFocusedRecordOnExit = False OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
@ -98,12 +93,15 @@ object fEditorReferencias: TfEditorReferencias
object ListaReferenciasViewCODIGO: TcxGridDBColumn object ListaReferenciasViewCODIGO: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO' DataBinding.FieldName = 'CODIGO'
Visible = False Visible = False
VisibleForCustomization = False
end end
object ListaReferenciasViewDESCRIPCION: TcxGridDBColumn object ListaReferenciasViewDESCRIPCION: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'DESCRIPCION' DataBinding.FieldName = 'DESCRIPCION'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
Options.Editing = False
Options.Focusing = False
SortIndex = 0 SortIndex = 0
SortOrder = soAscending SortOrder = soAscending
Width = 191 Width = 191
@ -112,7 +110,9 @@ object fEditorReferencias: TfEditorReferencias
Caption = 'Valor' Caption = 'Valor'
DataBinding.FieldName = 'VALOR' DataBinding.FieldName = 'VALOR'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = ListaReferenciasViewVALORPropertiesValidate Properties.OnValidate = ListaReferenciasViewVALORPropertiesValidate
HeaderAlignmentHorz = taRightJustify
Width = 48 Width = 48
end end
end end

2
Source/Modulos/Referencias/Views/uEditorReferencias.pas
View File

@ -116,7 +116,7 @@ procedure TfEditorReferencias.actAceptarExecute(Sender: TObject);
begin begin
try try
if (Referencias.DataTable.State in dsEditModes) then if (Referencias.DataTable.State in dsEditModes) then
Referencias.DataTable.post; Referencias.DataTable.Post;
Referencias.DataTable.ApplyUpdates; Referencias.DataTable.ApplyUpdates;
except except
on E : Exception do begin on E : Exception do begin