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
ClientWidth = 466
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = True
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
@ -45,11 +41,10 @@ object fEditorReferencias: TfEditorReferencias
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Referencias'
ExplicitWidth = 382
object Label1: TLabel
Left = 6
Top = 12
Width = 147
Width = 149
Height = 13
Caption = 'Lista de referencias disponibles'
end
@ -62,9 +57,6 @@ object fEditorReferencias: TfEditorReferencias
TabOrder = 0
LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True
ExplicitTop = 25
ExplicitWidth = 583
ExplicitHeight = 439
object ListaReferenciasView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever
@ -90,7 +82,6 @@ object fEditorReferencias: TfEditorReferencias
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Inserting = False
OptionsSelection.MultiSelect = True
OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True
@ -102,17 +93,26 @@ object fEditorReferencias: TfEditorReferencias
object ListaReferenciasViewCODIGO: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO'
Visible = False
VisibleForCustomization = False
end
object ListaReferenciasViewDESCRIPCION: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'DESCRIPCION'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
Options.Editing = False
Options.Focusing = False
SortIndex = 0
SortOrder = soAscending
Width = 191
end
object ListaReferenciasViewVALOR: TcxGridDBColumn
Caption = 'Valor'
DataBinding.FieldName = 'VALOR'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = ListaReferenciasViewVALORPropertiesValidate
HeaderAlignmentHorz = taRightJustify
Width = 48
end
end

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

@ -31,7 +31,7 @@ uses
ActnList, Grids, DBGrids, StdCtrls, ComCtrls, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxTextEdit;
cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces;
type
TfEditorReferencias = class(TForm, IEditorReferencias)
@ -116,7 +116,7 @@ procedure TfEditorReferencias.actAceptarExecute(Sender: TObject);
begin
try
if (Referencias.DataTable.State in dsEditModes) then
Referencias.DataTable.post;
Referencias.DataTable.Post;
Referencias.DataTable.ApplyUpdates;
except
on E : Exception do begin