inherited frViewPresupuestosContacto: TfrViewPresupuestosContacto
  OnShow = CustomViewShow
  inherited cxGrid: TcxGrid
    Top = 28
    Height = 242
    RootLevelOptions.DetailTabsPosition = dtpTop
    OnActiveTabChanged = cxGridActiveTabChanged
    inherited cxGridView: TcxGridDBTableView
      DataController.Filter.Active = True
      DataController.KeyFieldNames = 'CODIGO'
      DataController.Summary.FooterSummaryItems = <
        item
          Format = 'Total: 0 presupuestos'
          Kind = skCount
          Column = cxGridViewDESCRIPCION
        end>
      OptionsCustomize.ColumnMoving = False
      Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
      object cxGridViewRecID: TcxGridDBColumn
        DataBinding.FieldName = 'RecID'
        Visible = False
      end
      object cxGridViewCODIGO: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGO'
        Visible = False
      end
      object cxGridViewCODIGOOBRA: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGOOBRA'
        Visible = False
      end
      object cxGridViewCODIGOCONTACTO: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGOCONTACTO'
        Visible = False
      end
      object cxGridViewFECHAALTA: TcxGridDBColumn
        DataBinding.FieldName = 'FECHAALTA'
        Visible = False
      end
      object cxGridViewUSUARIO: TcxGridDBColumn
        DataBinding.FieldName = 'USUARIO'
        Visible = False
      end
      object cxGridViewACEPTADO: TcxGridDBColumn
        DataBinding.FieldName = 'ACEPTADO'
        OnCustomDrawCell = cxGridViewACEPTADOCustomDrawCell
        Width = 20
        IsCaptionAssigned = True
      end
      object cxGridViewFECHA: TcxGridDBColumn
        DataBinding.FieldName = 'FECHA'
        Width = 100
      end
      object cxGridViewCLASE: TcxGridDBColumn
        DataBinding.FieldName = 'CLASE'
        Visible = False
      end
      object cxGridViewTIPO: TcxGridDBColumn
        DataBinding.FieldName = 'TIPO'
        Visible = False
        Width = 42
      end
      object cxGridViewDESCRIPCION: TcxGridDBColumn
        DataBinding.FieldName = 'DESCRIPCION'
        Width = 300
      end
      object cxGridViewPRESUPUESTOINICIAL: TcxGridDBColumn
        DataBinding.FieldName = 'PRESUPUESTOINICIAL'
        HeaderAlignmentHorz = taRightJustify
        Width = 100
      end
      object cxGridViewPRESUPUESTOFINAL: TcxGridDBColumn
        DataBinding.FieldName = 'PRESUPUESTOFINAL'
        HeaderAlignmentHorz = taRightJustify
        Width = 100
      end
      object cxGridViewRETENCION: TcxGridDBColumn
        DataBinding.FieldName = 'RETENCION'
        Visible = False
        HeaderAlignmentHorz = taRightJustify
        Width = 60
      end
      object cxGridViewIMPORTERETENCION: TcxGridDBColumn
        DataBinding.FieldName = 'IMPORTERETENCION'
        HeaderAlignmentHorz = taRightJustify
        Width = 100
      end
      object cxGridViewTIEMPORETENCION: TcxGridDBColumn
        DataBinding.FieldName = 'TIEMPORETENCION'
        Visible = False
        HeaderAlignmentHorz = taRightJustify
        Width = 60
      end
    end
    object cxGridView2: TcxGridDBTableView [1]
      NavigatorButtons.ConfirmDelete = False
      FilterBox.Visible = fvNever
      DataController.DataModeController.SmartRefresh = True
      DataController.DataModeController.SyncMode = False
      DataController.DataSource = DADataSource
      DataController.Filter.Options = [fcoCaseInsensitive]
      DataController.Filter.Active = True
      DataController.KeyFieldNames = 'CODIGO'
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoFocusTopRowAfterSorting]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = 'Total: 0 trabajos'
          Kind = skCount
          Column = cxGridView2DESCRIPCION
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsCustomize.ColumnMoving = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.CellEndEllipsis = True
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GridLineColor = cl3DLight
      OptionsView.GroupByBox = False
      OptionsView.NewItemRowInfoText = 'Click here to add a new row'
      Styles.ContentEven = cxStyleEven
      Styles.ContentOdd = cxStyleOdd
      Styles.Inactive = cxStyleSelection
      Styles.Selection = cxStyleSelection
      Styles.OnGetContentStyle = cxGridView2StylesGetContentStyle
      object cxGridView2RecID: TcxGridDBColumn
        DataBinding.FieldName = 'RecID'
        Visible = False
      end
      object cxGridView2CODIGO: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGO'
        Visible = False
      end
      object cxGridView2CODIGOOBRA: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGOOBRA'
        Visible = False
      end
      object cxGridView2CODIGOCONTACTO: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGOCONTACTO'
        Visible = False
      end
      object cxGridView2FECHAALTA: TcxGridDBColumn
        DataBinding.FieldName = 'FECHAALTA'
        Visible = False
      end
      object cxGridView2USUARIO: TcxGridDBColumn
        DataBinding.FieldName = 'USUARIO'
        Visible = False
      end
      object cxGridView2FECHA: TcxGridDBColumn
        DataBinding.FieldName = 'FECHA'
      end
      object cxGridView2CLASE: TcxGridDBColumn
        DataBinding.FieldName = 'CLASE'
        Visible = False
      end
      object cxGridView2TIPO: TcxGridDBColumn
        DataBinding.FieldName = 'TIPO'
        Visible = False
        Width = 33
      end
      object cxGridView2DESCRIPCION: TcxGridDBColumn
        DataBinding.FieldName = 'DESCRIPCION'
        Width = 300
      end
      object cxGridView2PRESUPUESTOINICIAL: TcxGridDBColumn
        Caption = 'Importe'
        DataBinding.FieldName = 'PRESUPUESTOINICIAL'
        Width = 103
      end
      object cxGridView2PRESUPUESTOFINAL: TcxGridDBColumn
        DataBinding.FieldName = 'PRESUPUESTOFINAL'
        Visible = False
        HeaderAlignmentHorz = taRightJustify
      end
      object cxGridView2RETENCION: TcxGridDBColumn
        DataBinding.FieldName = 'RETENCION'
        Visible = False
      end
      object cxGridView2TIEMPORETENCION: TcxGridDBColumn
        DataBinding.FieldName = 'TIEMPORETENCION'
        Visible = False
      end
    end
    inherited cxGridLevel: TcxGridLevel
      Caption = 'Presupuestos'
    end
    object cxGridLevel1: TcxGridLevel
      Caption = 'Otros trabajos'
      GridView = cxGridView2
    end
  end
  object ToolBar1: TToolBar [1]
    Left = 0
    Top = 0
    Width = 443
    Height = 28
    ButtonWidth = 88
    Caption = 'ToolBar1'
    EdgeBorders = []
    EdgeInner = esNone
    EdgeOuter = esNone
    Flat = True
    Images = PngImageList
    List = True
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = actAnadir
    end
    object ToolButton2: TToolButton
      Left = 88
      Top = 0
      Action = actEliminar
    end
    object ToolButton4: TToolButton
      Left = 176
      Top = 0
      Action = actEliminarTodo
    end
    object ToolButton3: TToolButton
      Left = 264
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 272
      Top = 0
      Action = actEditar
    end
  end
  inherited ActionList1: TActionList
    Images = PngImageList
    object actEditar: TAction
      Caption = 'Editar'
      ImageIndex = 2
      OnUpdate = actEditarUpdate
    end
    object actEliminar: TAction
      Caption = 'Eliminar'
      ImageIndex = 1
      OnUpdate = actEliminarUpdate
    end
    object actEliminarTodo: TAction
      Caption = 'Eliminar todo'
      OnUpdate = actEliminarTodoUpdate
    end
    object actAnadir: TAction
      Caption = 'A'#241'adir'
      ImageIndex = 0
    end
  end
  inherited dxComponentPrinter: TdxComponentPrinter
    inherited dxComponentPrinterLink: TdxGridReportLink
      ReportDocument.CreationDate = 38812.543444907410000000
      BuiltInReportLink = True
    end
  end
  inherited cxStyleRepository1: TcxStyleRepository
    object cxStyleAceptado: TcxStyle
      AssignedValues = [svFont]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
    end
    object cxStyleRechazado: TcxStyle
    end
  end
  object PngImageList: TPngImageList
    PngImages = <
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD252000000E14944415478DA
          63FCFFFF3F032580717019C0C8C8086787B4DDF8FFEBD76F869F3F7F33EC6C37
          824BA05B88D300BF86CBFFA3A35419A6CFB8C870A0CF9C7403DC2BCFFD8F88D4
          66983DEB34C3B12936C41910DA7E13EE6C100E0D37609837E7180358EC0708FF
          6278B0218011A701FE8D57C0CEFEF68391E1DB770630FD1D88BF7C07E26F8C0C
          6B17AE6178B1230CB7011E55E7FF836C86B9C23FC48661C9BC5D609B7F40F187
          0331B80D400E03DDF85DFF3D039D1856CEDFCCF0706320E981A816BEF5BF8BBF
          07D8D92F7786936E80BCFFFAFF30677F3C184B9C01E480616000007F3BB6E1E0
          0AF3B40000000049454E44AE426082}
        Name = 'PngImage0'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD252000000714944415478DA
          63FCFFFF3F03258071D4002A1B10DA7E13CC01897DFDFA83E1DBB71F60FAFBB7
          9F0C9F3F7F03E3F7FBA219F11A1013A500E77FFCCCC8F0EA1D23C38BB74C0CCF
          5E3131AC9E3397E1F7E914DC0684B4DDF88FCBE62F9FBF33FCF9F397E1FFF974
          DC060C7C208E1A401E0000EFE473E127272ED00000000049454E44AE426082}
        Name = 'PngImage1'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD2520000015D4944415478DA
          63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
          3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
          24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
          E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
          60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
          10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
          1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
          BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
          06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
          E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
          00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
          00000049454E44AE426082}
        Name = 'PngImage2'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
          63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
          CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
          7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
          EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
          B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
          FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
          3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
          9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
          E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
          C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
          CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
          4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
          86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
          A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
          413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
          49454E44AE426082}
        Name = 'PngImage3'
        Background = clWindow
      end>
    Left = 376
    Bitmap = {}
  end
end