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
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
@ -48,7 +44,7 @@ object fEditorReferencias: TfEditorReferencias
object Label1: TLabel
Left = 6
Top = 12
Width = 147
Width = 149
Height = 13
Caption = 'Lista de referencias disponibles'
end
@ -86,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
@ -98,12 +93,15 @@ 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
@ -112,7 +110,9 @@ object fEditorReferencias: TfEditorReferencias
Caption = 'Valor'
DataBinding.FieldName = 'VALOR'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = ListaReferenciasViewVALORPropertiesValidate
HeaderAlignmentHorz = taRightJustify
Width = 48
end
end

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

@ -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