Acana_Interiorismo/FactuGES2
2
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.Acana_FactuGES2/trunk@136 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-23 15:21:52 +00:00
parent 76d4ea3087
commit eddd06e826
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
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
@ -45,11 +41,10 @@ object fEditorReferencias: TfEditorReferencias
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Referencias' Caption = 'Referencias'
ExplicitWidth = 382
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
@ -62,9 +57,6 @@ object fEditorReferencias: TfEditorReferencias
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 25
ExplicitWidth = 583
ExplicitHeight = 439
object ListaReferenciasView: TcxGridDBTableView object ListaReferenciasView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
@ -90,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
@ -102,17 +93,26 @@ 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'
DataBinding.FieldName = 'DESCRIPCION' DataBinding.FieldName = 'DESCRIPCION'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
Options.Editing = False
Options.Focusing = False
SortIndex = 0
SortOrder = soAscending
Width = 191 Width = 191
end end
object ListaReferenciasViewVALOR: TcxGridDBColumn object ListaReferenciasViewVALOR: TcxGridDBColumn
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

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

@ -31,7 +31,7 @@ uses
ActnList, Grids, DBGrids, StdCtrls, ComCtrls, cxStyles, cxCustomData, ActnList, Grids, DBGrids, StdCtrls, ComCtrls, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxTextEdit; cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces;
type type
TfEditorReferencias = class(TForm, IEditorReferencias) TfEditorReferencias = class(TForm, IEditorReferencias)
@ -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