Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Errores #463: Repasar campo tienda web en articulo falta en la nueva version

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@87 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-10-13 09:01:47 +00:00
parent a81426a357
commit 68392bb6c1
2 changed files with 45 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -21,7 +21,7 @@ inherited frViewArticulo: TfrViewArticulo
304)
object PngSpeedButton2: TPngSpeedButton
Left = 389
Top = 304
Top = 331
Width = 23
Height = 22
Action = actAnadir
@ -48,7 +48,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object PngSpeedButton1: TPngSpeedButton
Left = 389
Top = 332
Top = 359
Width = 23
Height = 22
Action = actEliminar
@ -133,7 +133,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object eImagen: TcxImage
Left = 28
Top = 304
Top = 331
Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = []
@ -153,7 +153,7 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
Height = 98
Width = 355
end
@ -242,7 +242,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object cbFabricante: TcxDBComboBox
Left = 122
Top = 220
Top = 247
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
Properties.ImmediatePost = True
@ -264,12 +264,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 290
end
object eReferenciaFabr: TcxDBTextEdit
Left = 122
Top = 247
Top = 274
Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame
@ -289,9 +289,37 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Width = 171
end
object eTiendaWeb: TcxDBCheckBox
Left = 122
Top = 190
Caption = 'Listar este art'#237'culos en la tienda web:'
DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsViewArticulo
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 697
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -365,6 +393,13 @@ inherited frViewArticulo: TfrViewArticulo
Control = eNoComisionable
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Control = eTiendaWeb
ControlOptions.ShowBorder = False
end
end
end
end

2
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -63,6 +63,8 @@ type
eReferenciaFabr: TcxDBTextEdit;
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
dxLayoutControlArticuloGroup14: TdxLayoutGroup;
dxLayoutControlArticuloItem12: TdxLayoutItem;
eTiendaWeb: TcxDBCheckBox;
procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);