inherited frViewEjecucionObra: TfrViewEjecucionObra
  Width = 836
  Height = 601
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  OnShow = CustomViewShow
  ExplicitWidth = 836
  ExplicitHeight = 601
  object dxLayoutControlEjecucionObra: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 836
    Height = 601
    Align = alClient
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      836
      601)
    object Bevel4: TBevel
      Left = 22
      Top = 543
      Width = 347
      Height = 9
      Shape = bsBottomLine
    end
    object edtFecha: TcxDBDateEdit
      Left = 115
      Top = 30
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_INICIO'
      DataBinding.DataSource = dsEjecucion
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.ButtonStyle = bts3D
      Style.ButtonTransparency = ebtNone
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 158
    end
    object bCancelarEjecucion: TButton
      Left = 685
      Top = 28
      Width = 129
      Height = 25
      Action = actCancelarEjecucion
      TabOrder = 1
    end
    object ImporteBase: TcxDBCurrencyEdit
      Left = 115
      Top = 489
      AutoSize = False
      DataBinding.DataField = 'IMPORTE_GASTOS'
      DataBinding.DataSource = dsEjecucion
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.UseThousandSeparator = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clBtnFace
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.TextColor = clWindowText
      Style.TextStyle = []
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 6
      Height = 21
      Width = 254
    end
    object ImporteIVA: TcxDBCurrencyEdit
      Left = 115
      Top = 516
      AutoSize = False
      DataBinding.DataField = 'IMPORTE_INGRESOS'
      DataBinding.DataSource = dsEjecucion
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.UseThousandSeparator = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clBtnFace
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.TextColor = clWindowText
      Style.TextStyle = []
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 7
      Height = 21
      Width = 254
    end
    object ImporteTotal: TcxDBCurrencyEdit
      Left = 115
      Top = 558
      AutoSize = False
      DataBinding.DataField = 'IMPORTE_TOTAL'
      DataBinding.DataSource = dsEjecucion
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.UseThousandSeparator = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clBtnFace
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.TextColor = clWindowText
      Style.TextStyle = [fsBold]
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 8
      Height = 21
      Width = 254
    end
    inline frViewListaPresupuestosObra1: TfrViewListaPresupuestosObra
      Left = 22
      Top = 120
      Width = 645
      Height = 103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 120
      ExplicitWidth = 645
      ExplicitHeight = 103
      inherited cxGrid: TcxGrid
        Width = 645
        Height = 78
        ExplicitWidth = 645
        ExplicitHeight = 78
        inherited cxGridView: TcxGridDBTableView
          DataController.Summary.FooterSummaryItems = <
            item
              Format = ',0.00 '#8364';-,0.00 '#8364
              Kind = skSum
              Column = frViewListaPresupuestosObra1.cxGridViewBASE_IMPONIBLE
            end>
        end
      end
      inherited ToolBar1: TToolBar
        Width = 645
        ExplicitWidth = 645
      end
      inherited dsDetalles: TDADataSource
        Left = 56
        Top = 32
      end
      inherited ContenidoImageList: TPngImageList
        Left = 88
        Top = 32
      end
      inherited ActionListContenido: TActionList
        Left = 24
        Top = 32
      end
    end
    inline frViewListaPedidosProvObra1: TfrViewListaPedidosProvObra
      Left = 22
      Top = 294
      Width = 645
      Height = 119
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 294
      ExplicitWidth = 645
      ExplicitHeight = 119
      inherited cxGrid: TcxGrid
        Width = 645
        Height = 94
        ExplicitWidth = 645
        ExplicitHeight = 94
        inherited cxGridView: TcxGridDBTableView
          DataController.Summary.FooterSummaryItems = <
            item
              Format = ',0.00 '#8364';-,0.00 '#8364
              Kind = skSum
              Column = frViewListaPedidosProvObra1.cxGridViewBASE_IMPONIBLE
            end>
        end
      end
      inherited ToolBar1: TToolBar
        Width = 645
        ExplicitWidth = 645
      end
      inherited dsDetalles: TDADataSource
        Left = 24
        Top = 32
      end
      inherited ContenidoImageList: TPngImageList
        Left = 88
        Top = 32
      end
      inherited ActionListContenido: TActionList
        Left = 56
        Top = 32
      end
    end
    object bElegirSubcontrata: TBitBtn
      Left = 422
      Top = 59
      Width = 120
      Height = 25
      Caption = 'Elegir subcontrata'
      TabOrder = 3
      OnClick = bElegirSubcontrataClick
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
        AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00B118C10040407B00344A830031498F002F4596002F4499002F4597003148
        900033498500374678005A3E5300D201D200FF00FF00FF00FF00FF00FF00FF00
        FF004E42860035508100314990002E429C002C3CA6002B3AAA002B3BA7002D40
        9E0030479200344F840038577500A0189F00FF00FF00FF00FF00FF00FF00FF00
        FF004C428900334D89002F4499002B3CA8002835B4002631BB002734B6002A3A
        AB002E429C00324B8C0036537B00B015B100FF00FF00FF00FF00FF00FF00FF00
        FF008726B300324A8D002D409E002938AF003138B6007A7BCB002830BF002835
        B2002D3FA10031499000483B8700EC01EC00FF00FF00FF00FF00FF00FF00FF00
        FF00F002F60051379D002D409F002937B000808AA300D2D3D3008181BB002834
        B2002D3FA2003A3F9300C511CE00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00EE02F4007324B7003C359300598CAE00498CBB004A81A600392A
        71005929A600D608E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
        C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
        D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
        D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
        DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
        DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
        C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
        A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
        AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
        E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object edtlNombre: TcxDBTextEdit
      Left = 115
      Top = 61
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      DataBinding.DataField = 'NOMBRE'
      DataBinding.DataSource = dsEjecucion
      Enabled = False
      ParentFont = False
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 2
      Height = 21
      Width = 301
    end
    object dxLayoutControlEjecucionObraGroup_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControlEjecucionObraGroup1: TdxLayoutGroup
        Caption = 'Datos de la ejecuci'#243'n en curso'
        object dxLayoutControlEjecucionObraGroup5: TdxLayoutGroup
          ShowCaption = False
          Hidden = True
          LayoutDirection = ldHorizontal
          ShowBorder = False
          object dxLayoutControlEjecucionObraItem1: TdxLayoutItem
            AutoAligns = []
            AlignVert = avCenter
            Caption = 'Inicio:'
            Control = edtFecha
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControlEjecucionObraItem2: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahRight
            ShowCaption = False
            Control = bCancelarEjecucion
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControlEjecucionObraGroup6: TdxLayoutGroup
          ShowCaption = False
          Hidden = True
          LayoutDirection = ldHorizontal
          ShowBorder = False
          object dxLayoutControlEjecucionObraItem10: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avCenter
            Caption = 'Subcontrata:'
            Control = edtlNombre
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControlEjecucionObraItem11: TdxLayoutItem
            ShowCaption = False
            Control = bElegirSubcontrata
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControlEjecucionObraGroup4: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'Lista de presupuestos de la obra'
        object dxLayoutControlEjecucionObraItem8: TdxLayoutItem
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Control = frViewListaPresupuestosObra1
          ControlOptions.AutoColor = True
          ControlOptions.ShowBorder = False
        end
      end
      object dxLayoutControlEjecucionObraGroup3: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'Lista de pedidos a proveedor de la obra'
        object dxLayoutControlEjecucionObraItem9: TdxLayoutItem
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Control = frViewListaPedidosProvObra1
          ControlOptions.AutoColor = True
          ControlOptions.ShowBorder = False
        end
      end
      object dxLayoutControlEjecucionObraGroup2: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avBottom
        Caption = 'C'#225'lculo de costes de la ejecuci'#243'n'
        object dxLayoutControlEjecucionObraItem4: TdxLayoutItem
          AutoAligns = [aaVertical]
          Caption = 'Suma de gastos:'
          Control = ImporteBase
          ControlOptions.ShowBorder = False
        end
        object dxLayoutControlEjecucionObraItem5: TdxLayoutItem
          AutoAligns = [aaVertical]
          Caption = 'Suma de ingresos:'
          Control = ImporteIVA
          ControlOptions.ShowBorder = False
        end
        object dxLayoutControlEjecucionObraItem7: TdxLayoutItem
          AutoAligns = [aaVertical]
          Control = Bevel4
          ControlOptions.ShowBorder = False
        end
        object dxLayoutControlEjecucionObraItem6: TdxLayoutItem
          AutoAligns = [aaVertical]
          Caption = 'Beneficio total:'
          Control = ImporteTotal
          ControlOptions.ShowBorder = False
        end
      end
    end
  end
  object dsEjecucion: TDADataSource
    Left = 24
    Top = 16
  end
  object ActionList1: TActionList
    Left = 16
    Top = 88
    object actFinEjecucion: TAction
      Caption = 'Finalizar ejecuci'#243'n...'
      OnExecute = actFinEjecucionExecute
    end
    object actCancelarEjecucion: TAction
      Caption = 'Cancelar ejecuci'#243'n'
    end
  end
end