object frObra2: TfrObra2 Left = 0 Top = 0 Width = 930 Height = 481 Color = 16383743 ParentColor = False TabOrder = 0 object Paginas: TRdxPagesControl Left = 235 Top = 0 Width = 695 Height = 431 ActivePage = pagPedidos Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TabWidth = 120 Color = 15726583 ColorTab = 11590911 FontTab.Charset = DEFAULT_CHARSET FontTab.Color = 18299 FontTab.Height = -11 FontTab.Name = 'Tahoma' FontTab.Style = [fsBold] object pagPedidos: TTabSheet Caption = 'Pedidos' ImageIndex = 1 OnResize = pagPedidosResize object JvArrayButton1: TJvArrayButton Left = 118 Top = 49 Width = 569 Height = 354 Align = alClient Rows = 4 Cols = 4 Colors.Strings = ( '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF' '$00F9FEFF') Themed = True OnArrayButtonClicked = JvArrayButton1ArrayButtonClicked end object Splitter1: TSplitter Left = 115 Top = 49 Height = 354 end object JvItemsPanel1: TJvItemsPanel Left = 0 Top = 49 Width = 115 Height = 354 AutoGrow = False AutoSize = True Items.Strings = ( 'Pedido' 'En almac'#233'n' 'Aviso transp.' 'Entregado') ItemHeight = 88 HotTrack = False Clickable = False Align = alLeft Alignment = taRightJustify Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = True ParentFont = False TabOrder = 0 OnResize = JvItemsPanel1Resize end object JvHeaderControl1: TJvHeaderControl Left = 0 Top = 0 Width = 687 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] Sections = < item AllowClick = False ImageIndex = -1 Width = 115 end item AllowClick = False ImageIndex = -1 Width = 50 end item AllowClick = False ImageIndex = -1 Width = 50 end item AllowClick = False ImageIndex = -1 Width = 50 end item AllowClick = False ImageIndex = -1 Width = 50 end> Style = hsFlat ParentFont = False end object Panel1: TPanel Left = 0 Top = 21 Width = 687 Height = 18 Align = alTop BevelOuter = bvNone Caption = 'Panel1' ParentColor = True TabOrder = 2 object JvStringGrid1: TJvStringGrid Left = 0 Top = 0 Width = 687 Height = 18 Align = alClient BorderStyle = bsNone Ctl3D = False DefaultColWidth = 90 DefaultRowHeight = 18 FixedColor = 15726583 RowCount = 1 FixedRows = 0 Options = [goFixedVertLine, goVertLine, goRangeSelect, goDrawFocusSelected, goEditing, goAlwaysShowEditor] ParentCtl3D = False ScrollBars = ssNone TabOrder = 0 Alignment = taLeftJustify FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'MS Sans Serif' FixedFont.Style = [] OnExitCell = JvStringGrid1ExitCell end end object Panel3: TPanel Left = 0 Top = 39 Width = 687 Height = 10 Align = alTop TabOrder = 3 end end object pagGastos: TTabSheet Caption = 'Gastos' ImageIndex = 2 object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 687 Height = 403 Align = alClient DataSource = dsCitas TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object pnlOtrosDatos: TPanel Left = 0 Top = 0 Width = 687 Height = 403 Align = alClient BevelOuter = bvNone Color = 16383743 TabOrder = 1 object pnlInstaladores: TPanel Left = 0 Top = 0 Width = 358 Height = 403 Align = alLeft BevelOuter = bvNone ParentColor = True TabOrder = 0 DesignSize = ( 358 403) object Label4: TLabel Left = 7 Top = 7 Width = 132 Height = 13 Caption = 'Gastos de instaladores:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object bAnadir: TRdxBoton Left = 5 Top = 30 Width = 82 Height = 19 Action = actAnadirInstalador Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object bEliminar: TRdxBoton Left = 91 Top = 30 Width = 82 Height = 19 Action = actEliminarInstalador Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end object bEliminarTodo: TRdxBoton Left = 177 Top = 30 Width = 82 Height = 19 Action = actEliminarTodoIns Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 2 Spacing = 0 end object gridInstaladores: TcxGrid Left = 5 Top = 56 Width = 348 Height = 342 Anchors = [akLeft, akTop, akRight, akBottom] BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object gridInstaladoresVista: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsObrasInstaladores DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnGrouping = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object gridInstaladoresLevel1: TcxGridLevel GridView = gridInstaladoresVista end end end object pnlOtrosGastos: TPanel Left = 358 Top = 0 Width = 329 Height = 403 Align = alClient BevelOuter = bvNone ParentColor = True TabOrder = 1 DesignSize = ( 329 403) object Label5: TLabel Left = 8 Top = 5 Width = 75 Height = 13 Caption = 'Otros gastos:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Splitter2: TSplitter Left = 0 Top = 0 Height = 403 end object RdxBoton1: TRdxBoton Left = 95 Top = 30 Width = 82 Height = 19 Action = actEliminarGasto Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object RdxBoton2: TRdxBoton Left = 8 Top = 30 Width = 82 Height = 19 Action = actAnadirGasto Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end object RdxBoton3: TRdxBoton Left = 182 Top = 30 Width = 82 Height = 19 Action = actEliminarTodoGas Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 2 Spacing = 0 end object gridOtrosGastos: TcxGrid Left = 7 Top = 56 Width = 318 Height = 342 Anchors = [akLeft, akTop, akRight, akBottom] BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object gridOtrosGastosVista: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsGastos DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnGrouping = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object gridOtrosGastosLevel1: TcxGridLevel GridView = gridOtrosGastosVista end end end end end object pagEntregas: TTabSheet Caption = 'Entregas a instal.' ImageIndex = 2 OnShow = pagEntregasShow object pnlDetalleOtro: TRdxPanel Left = 0 Top = 0 Width = 687 Height = 403 Caption = ' ' ParentColor = True ColorHighLight = 8623776 ColorShadow = 8623776 Align = alClient TabOrder = 0 UseDockManager = True object pnlDatosOtro: TPanel Left = 0 Top = 0 Width = 687 Height = 403 Align = alClient BevelOuter = bvNone Color = 16383743 TabOrder = 0 object Panel2: TPanel Left = 0 Top = 0 Width = 687 Height = 403 Align = alClient BevelOuter = bvNone ParentColor = True TabOrder = 0 object pnlGridOtro: TPanel Left = 0 Top = 39 Width = 687 Height = 364 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 0 object gridEntregas: TcxGrid Left = 10 Top = 10 Width = 667 Height = 344 Align = alClient BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object gridEntregasVista: TcxGridDBTableView OnDblClick = gridEntregasVistaDblClick NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsCitas DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> Filtering.Visible = fvNever OptionsCustomize.ColumnGrouping = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object gridEntregasLevel1: TcxGridLevel GridView = gridEntregasVista end end end object pnlBarraOtro: TPanel Left = 0 Top = 0 Width = 687 Height = 39 Align = alTop AutoSize = True BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object bEliminarTareaObra: TRdxBoton Left = 109 Top = 10 Width = 82 Height = 19 Action = actEliminarEntrega Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object bAnadirTareaObra: TRdxBoton Left = 10 Top = 10 Width = 94 Height = 19 Action = actAnadirEntrega Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end end end end end end object pagMontajes: TTabSheet Caption = 'Montajes' ImageIndex = 3 OnShow = pagMontajesShow object Panel4: TPanel Left = 0 Top = 0 Width = 687 Height = 39 Align = alTop AutoSize = True BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 0 object RdxBoton4: TRdxBoton Left = 109 Top = 10 Width = 82 Height = 19 Action = actEliminarMontaje Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object RdxBoton5: TRdxBoton Left = 10 Top = 10 Width = 94 Height = 19 Action = actAnadirEntrega Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end end object Panel5: TPanel Left = 0 Top = 39 Width = 687 Height = 364 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object gridMontajes: TcxGrid Left = 10 Top = 10 Width = 667 Height = 344 Align = alClient BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object gridMontajesVista: TcxGridDBTableView OnDblClick = gridMontajesVistaDblClick NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsCitas DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> Filtering.Visible = fvNever OptionsCustomize.ColumnGrouping = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object cxGridLevel1: TcxGridLevel GridView = gridMontajesVista end end end end object pagRemates: TTabSheet Caption = 'Remates' ImageIndex = 4 OnShow = pagRematesShow object Panel6: TPanel Left = 0 Top = 0 Width = 687 Height = 39 Align = alTop AutoSize = True BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 0 object RdxBoton6: TRdxBoton Left = 109 Top = 10 Width = 82 Height = 19 Action = actEliminarRemate Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object RdxBoton7: TRdxBoton Left = 10 Top = 10 Width = 94 Height = 19 Action = actAnadirEntrega Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end end object Panel7: TPanel Left = 0 Top = 39 Width = 687 Height = 364 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object gridRemates: TcxGrid Left = 10 Top = 10 Width = 667 Height = 344 Align = alClient BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object gridRematesVista: TcxGridDBTableView OnDblClick = gridRematesVistaDblClick NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsCitas DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> Filtering.Visible = fvNever OptionsCustomize.ColumnGrouping = False OptionsData.CancelOnExit = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object cxGridLevel2: TcxGridLevel GridView = gridRematesVista end end end end end object pnlDatosObra: TPanel Left = 0 Top = 0 Width = 235 Height = 431 Align = alLeft BevelOuter = bvNone Color = 16383743 TabOrder = 1 object eCodigo: TLabel Left = 19 Top = 39 Width = 81 Height = 13 Caption = 'C'#243'digo contrato:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object eNIFCIF: TLabel Left = 19 Top = 63 Width = 88 Height = 13 Caption = 'Fecha finalizaci'#243'n:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object eObservaciones: TLabel Left = 19 Top = 231 Width = 75 Height = 13 Caption = 'Observaciones:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 19 Top = 143 Width = 83 Height = 13 Caption = 'Datos del cliente:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 8 Top = 8 Width = 95 Height = 13 Caption = 'Datos de la obra' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Shape1: TShape Left = 8 Top = 24 Width = 239 Height = 1 end object lblObraCerrada: TLabel Left = 43 Top = 336 Width = 143 Height = 20 Caption = 'OBRA CERRADA' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Label2: TLabel Left = 19 Top = 89 Width = 64 Height = 13 Caption = 'Tipo de obra:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Observaciones: TcxDBMemo Left = 19 Top = 251 DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = dsObras ParentFont = False Properties.ReadOnly = False Properties.ScrollBars = ssVertical Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 0 Height = 76 Width = 201 end object CodigoContrato: TcxDBTextEdit Left = 112 Top = 36 AutoSize = False DataBinding.DataField = 'CODIGOCONTRATO' DataBinding.DataSource = dsObras ParentFont = False Properties.ReadOnly = True Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 1 Height = 21 Width = 103 end object DatosCliente: TcxMemo Left = 19 Top = 161 ParentFont = False Properties.ReadOnly = True Properties.ScrollBars = ssVertical Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 2 Height = 62 Width = 201 end object FechaFin: TcxDBTextEdit Left = 112 Top = 61 AutoSize = False DataBinding.DataField = 'FECHAFIN' DataBinding.DataSource = dsObras ParentFont = False Properties.ReadOnly = True Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 3 Height = 21 Width = 103 end object cbxDocumento: TcxDBLookupComboBox Left = 20 Top = 106 DataBinding.DataField = 'CODIGODOCUMENTO' DataBinding.DataSource = dsObras ParentFont = False Properties.DropDownAutoSize = True Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 10 Properties.DropDownWidth = 300 Properties.GridMode = True Properties.ImmediatePost = True Properties.KeyFieldNames = 'CODIGO' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.AnsiSort = True Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = dsDocumentos Properties.ReadOnly = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 4 Width = 197 end end object brDoble: TRdxBarraInferior Left = 0 Top = 431 Width = 930 Height = 50 Caption = ' ' ParentColor = True Visible = False ColorHighLight = 8623776 ColorShadow = 8623776 Align = alBottom TabOrder = 2 UseDockManager = True Margen = 10 object bGuardar: TRdxBoton Left = 10 Top = 20 Width = 115 Height = 25 Action = actAceptar Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFAFAFAEBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDCA8A8A898 9898A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFAFAFADCDCDC7DB90C75AC0E75AC0E848484A8A8A8EBEBEBFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDC7AB40D7DB90C84C50B7D B90C75AC0E949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA DCDCDC7AB40D71A61084C50B84C50B87C90A89CD09848484A8A8A8EBEBEBFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEB7AB40D71A61084C50B8CD2077AB40D7D B90C80BF0B89CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFF7AB40D 71A61092DB058CD20775AC0EDCDCDC80BF0B84C50B89CD09848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF6EA11198E60375AC0E6EA111DCDCDCFAFAFAFF FFFF84C50B89CD0989CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF618D13 75AC0E659212EBEBEBFAFAFAFFFFFFFFFFFF87C90A8CD20784C50B848484A8A8 A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF8CD20792DB0587C90A949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF90D70692DB0584C50B8484 84A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF96E30498E60387C90A949494D7D7D7FAFAFAFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF96E3049AEA0284C5 0B848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF9AEA0292DB0584C50BADADADEBEBEBFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF92DB057AB4 0D92DB05EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 6 end object bCancelar: TRdxBoton Left = 135 Top = 20 Width = 115 Height = 25 Cancel = True Action = actCancelar Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clBlack FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFAFAFA EBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFAFAFAEBEBEBEBEBEBFAFAFAFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEBADADAD989898ADADADEBEBEBFFFFFFFA FAFADCDCDCA8A8A8A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF1B1BCB 0807BE0807BE949494D7D7D7F5F5F5DCDCDC0505BC0505BC848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF393ADF5F5FF84B4CEA848484A3A3A3C8C8C813 13C56867FD6B6BFF2827D3989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFF4F4EEC 6363F96A6AFE4343E58484841313C55B5BF56A6AFE6A6AFE3839DE999999E6E6 E6FFFFFFFFFFFFFFFFFFFFFFFF393ADE5A5AF45A5AF46766FC4343E55B5BF563 63F96766FC5E5EF7201FCDA8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 393ADE5251EE5454F05F5EF76363F95555F16363F94A4BE9201FCCD7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393ADE4F4EEC5251EE5454F063 63F94B4CEA201FCD989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4A4BE94242E44A4BE94A4BE94B4CEA201FCD949494D7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA4343E53839DE4242E442 42E44A4BE94343E5848484A3A3A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFEBEBEB4F4EEC2D2DD63637DC3839DE4242E44242E41B1BCB848484A3A3 A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFAFAFA3434DB3434DB2C2CD53333DA34 34DB3434DB3C3CE04242E41313C5848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFF EBEBEB3434DB3333DA2222CF2827D3504FEC4242E43434DB3637DC3738DD1313 C5999999E6E6E6FFFFFFFFFFFFFFFFFF5251EE393ADF1B1BCB3434DB3C3CE0A8 A8A82D2DD53C3CE03434DB4242E41313C5ADADADEBEBEBFFFFFFFFFFFFFFFFFF 504FEC4343E54343E54343E53434DADCDCDCFAFAFA2222CE393ADE3D3DE02D2D D5EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF504FED4B4CEA4B4CEAEBEBEBFA FAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 6 end object RdxBoton8: TRdxBoton Left = 271 Top = 20 Width = 115 Height = 25 Cancel = True Action = actPrevisualizar Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clBlack FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFAFAFA EBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFAFAFAEBEBEBEBEBEBFAFAFAFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEBADADAD989898ADADADEBEBEBFFFFFFFA FAFADCDCDCA8A8A8A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF1B1BCB 0807BE0807BE949494D7D7D7F5F5F5DCDCDC0505BC0505BC848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF393ADF5F5FF84B4CEA848484A3A3A3C8C8C813 13C56867FD6B6BFF2827D3989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFF4F4EEC 6363F96A6AFE4343E58484841313C55B5BF56A6AFE6A6AFE3839DE999999E6E6 E6FFFFFFFFFFFFFFFFFFFFFFFF393ADE5A5AF45A5AF46766FC4343E55B5BF563 63F96766FC5E5EF7201FCDA8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 393ADE5251EE5454F05F5EF76363F95555F16363F94A4BE9201FCCD7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393ADE4F4EEC5251EE5454F063 63F94B4CEA201FCD989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4A4BE94242E44A4BE94A4BE94B4CEA201FCD949494D7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA4343E53839DE4242E442 42E44A4BE94343E5848484A3A3A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFEBEBEB4F4EEC2D2DD63637DC3839DE4242E44242E41B1BCB848484A3A3 A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFAFAFA3434DB3434DB2C2CD53333DA34 34DB3434DB3C3CE04242E41313C5848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFF EBEBEB3434DB3333DA2222CF2827D3504FEC4242E43434DB3637DC3738DD1313 C5999999E6E6E6FFFFFFFFFFFFFFFFFF5251EE393ADF1B1BCB3434DB3C3CE0A8 A8A82D2DD53C3CE03434DB4242E41313C5ADADADEBEBEBFFFFFFFFFFFFFFFFFF 504FEC4343E54343E54343E53434DADCDCDCFAFAFA2222CE393ADE3D3DE02D2D D5EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF504FED4B4CEA4B4CEAEBEBEBFA FAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 2 Spacing = 6 Visible = False end end object dsObras: TDataSource Left = 16 Top = 368 end object dsCitas: TDataSource DataSet = TablaCitas Left = 96 Top = 368 end object TablaCitas: TIBDataSet BufferChunks = 1000 CachedUpdates = False Left = 96 Top = 328 end object cxSchedulerDBStorage: TcxSchedulerDBStorage Resources.Items = <> Resources.DataSource = dsInstaladores Resources.ResourceID = 'CODIGO' Resources.ResourceName = 'NOMBRE' CustomFields = <> DataSource = dsCitas FieldNames.Caption = 'CAPTION' FieldNames.EventType = 'TYPE' FieldNames.Finish = 'FINISH' FieldNames.ID = 'ID' FieldNames.LabelColor = 'LABELCOLOR' FieldNames.Location = 'LOCATION' FieldNames.Message = 'MESSAGE' FieldNames.Options = 'OPTIONS' FieldNames.ParentID = 'PARENTID' FieldNames.ResourceID = 'RESOURCEID' FieldNames.Start = 'START' FieldNames.State = 'STATE' OnEventModified = cxSchedulerDBStorageEventModified Left = 504 Top = 56 end object ActionList1: TActionList Left = 224 Top = 392 object actAceptar: TAction Caption = 'Grabar cambios' OnExecute = actAceptarExecute end object actCancelar: TAction Caption = 'Cancelar cambios' OnExecute = actCancelarExecute end object actAnadirInstalador: TAction Caption = 'A'#241'adir' OnExecute = actAnadirInstaladorExecute OnUpdate = actAnadirInstaladorUpdate end object actEliminarInstalador: TAction Caption = 'Eliminar' OnExecute = actEliminarInstaladorExecute OnUpdate = actEliminarInstaladorUpdate end object actAnadirGasto: TAction Caption = 'A'#241'adir' OnExecute = actAnadirGastoExecute OnUpdate = actAnadirGastoUpdate end object actEliminarGasto: TAction Caption = 'Eliminar' OnExecute = actEliminarGastoExecute OnUpdate = actEliminarGastoUpdate end object actEliminarTodoIns: TAction Caption = 'Eliminar todo' OnExecute = actEliminarTodoInsExecute OnUpdate = actEliminarTodoInsUpdate end object actEliminarTodoGas: TAction Caption = 'Eliminar todo' OnExecute = actEliminarTodoGasExecute OnUpdate = actEliminarTodoGasUpdate end object actAnadirPedido: TAction Caption = 'A'#241'adir pedido' end object actEliminarPedido: TAction Caption = 'Eliminar pedido' end object actAnadirTareaObra: TAction Caption = 'A'#241'adir' end object actEliminarEntrega: TAction Category = 'Entregas' Caption = 'Eliminar' OnExecute = actEliminarEntregaExecute OnUpdate = actEliminarEntregaUpdate end object actSalir: TAction Caption = 'Aceptar' end object actAnadirEntrega: TAction Category = 'Entregas' Caption = 'A'#241'adir' OnExecute = actAnadirEntregaExecute OnUpdate = actAnadirEntregaUpdate end object actEliminarMontaje: TAction Category = 'Montajes' Caption = 'Eliminar' OnExecute = actEliminarEntregaExecute OnUpdate = actEliminarMontajeUpdate end object actEliminarRemate: TAction Category = 'Remates' Caption = 'Eliminar' OnExecute = actEliminarEntregaExecute OnUpdate = actEliminarRemateUpdate end object actPrevisualizar: TAction Caption = 'Previsualizar' OnExecute = actPrevisualizarExecute end end object dsObrasInstaladores: TDataSource Left = 56 Top = 368 end object dsGastos: TDataSource Left = 704 Top = 104 end object TablaInstaladores: TIBDataSet BufferChunks = 1000 CachedUpdates = False Left = 136 Top = 328 end object dsInstaladores: TDataSource DataSet = TablaInstaladores Left = 136 Top = 368 end object dsDocumentos: TDataSource DataSet = TablaDocumentos Left = 16 Top = 56 end object TablaDocumentos: TIBQuery BufferChunks = 1000 CachedUpdates = False SQL.Strings = ( 'select doc.codigo, doc.descripcion, doc.familia, fam.descripcion' + ' descfamilia,' 'doc.formapago, doc.plazoentrega, doc.notas' 'from documentos doc left outer join familias fam' 'on (fam.codigo = doc.familia);') Left = 16 Top = 88 end end