inherited frViewProveedorArticulo: TfrViewProveedorArticulo Width = 640 Height = 234 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy OnShow = CustomViewShow ExplicitWidth = 640 ExplicitHeight = 234 object dxLayoutControlArticulo: TdxLayoutControl Left = 0 Top = 0 Width = 640 Height = 234 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] DesignSize = ( 640 234) object eReferenciaProv: TcxDBTextEdit Left = 111 Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_PROV' Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow 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 = 1 Width = 290 end object eProveedor: TcxDBLookupComboBox Left = 111 Top = 28 DataBinding.DataField = 'ID_PROVEEDOR' Properties.DropDownRows = 15 Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item SortOrder = soAscending FieldName = 'NOMBRE' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = dsProveedores Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 Width = 304 end object ePrecioCoste: TcxDBCurrencyEdit Left = 111 Top = 109 DataBinding.DataField = 'PRECIO_COSTE' Properties.Alignment.Horz = taRightJustify Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 Width = 200 end object eDescuento: TcxDBSpinEdit Left = 111 Top = 136 DataBinding.DataField = 'DESCUENTO' Properties.Alignment.Horz = taRightJustify Properties.ImmediatePost = True Properties.MaxValue = 100.000000000000000000 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 Width = 200 end object ePrecioNeto: TcxDBCurrencyEdit Left = 111 Top = 163 DataBinding.DataField = 'PRECIO_NETO' Properties.Alignment.Horz = taRightJustify Properties.ReadOnly = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clBtnFace Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.TextColor = clWindowText StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 Width = 200 end object ePrecioPorte: TcxDBCurrencyEdit Left = 111 Top = 190 DataBinding.DataField = 'PRECIO_PORTE' Properties.Alignment.Horz = taRightJustify Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 Width = 200 end object cbTiendaWeb: TcxDBCheckBox Left = 28 Top = 82 Caption = 'Listar este art'#237'culo en la tienda web' DataBinding.DataField = 'TIENDA_WEB' 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 = 2 Width = 290 end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlArticuloGroup3: TdxLayoutGroup Caption = 'New Group' ShowCaption = False LayoutDirection = ldHorizontal ShowBorder = False end object dxLayoutGroup2: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient Caption = 'Datos del art'#237'culo' object dxLayoutControlArticuloItem1: TdxLayoutItem Caption = 'Proveedor:' Control = eProveedor ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem3: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Ref. Proveedor:' Control = eReferenciaProv ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem7: TdxLayoutItem ShowCaption = False Control = cbTiendaWeb ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem2: TdxLayoutItem Caption = 'Precio:' Control = ePrecioCoste ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem4: TdxLayoutItem Caption = 'Descuento:' Control = eDescuento ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem5: TdxLayoutItem Caption = 'Precio neto:' Control = ePrecioNeto ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem6: TdxLayoutItem Caption = 'Coste envio:' Control = ePrecioPorte ControlOptions.ShowBorder = False end end end end object dsProveedores: TDADataSource Left = 8 Top = 8 end end