ProGestion/Modulos/Obras/Cliente/uViewPresupuestoContacto.dfm

inherited frViewPresupuestoContacto: TfrViewPresupuestoContacto
  Width = 722
  Height = 289
  OnCreate = CustomViewCreate
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 722
    Height = 281
    Align = alTop
    ParentBackground = True
    TabOrder = 0
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      722
      281)
    object edtFecIni: TcxDBDateEdit
      Left = 85
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA'
      DataBinding.DataSource = DADataSource
      Properties.ShowTime = 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 = 1
      Width = 170
    end
    object cbTipoPresupuesto: TcxDBComboBox
      Left = 378
      Top = 55
      DataBinding.DataField = 'TIPO'
      DataBinding.DataSource = DADataSource
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.Sorted = True
      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 = 290
    end
    object edtAceptado: TcxDBCheckBox
      Left = 261
      Top = 55
      Caption = 'Aceptado'
      DataBinding.DataField = 'ACEPTADO'
      DataBinding.DataSource = DADataSource
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 2
      Width = 121
    end
    object edtPrecioIni: TcxDBCalcEdit
      Left = 85
      Top = 207
      DataBinding.DataField = 'PRESUPUESTOINICIAL'
      DataBinding.DataSource = DADataSource
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 6
      Width = 121
    end
    object edtPrecioFin: TcxDBCalcEdit
      Left = 85
      Top = 234
      DataBinding.DataField = 'PRESUPUESTOFINAL'
      DataBinding.DataSource = DADataSource
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 7
      Width = 121
    end
    object edtTiempo: TcxDBSpinEdit
      Left = 640
      Top = 207
      DataBinding.DataField = 'TIEMPORETENCION'
      DataBinding.DataSource = DADataSource
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 10
      Width = 60
    end
    object edtAplicaRetencion: TcxDBCheckBox
      Left = 396
      Top = 207
      DataBinding.DataField = 'APLICARETENCION'
      DataBinding.DataSource = DADataSource
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = '0'
      Properties.OnChange = edtRetencionPropertiesChange
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 8
      Width = 20
    end
    object edtDescripcion: TcxDBMemo
      Left = 85
      Top = 82
      DataBinding.DataField = 'DESCRIPCION'
      DataBinding.DataSource = DADataSource
      TabOrder = 5
      Height = 89
      Width = 185
    end
    object edtRetencion: TcxDBSpinEdit
      Left = 501
      Top = 207
      DataBinding.DataField = 'RETENCION'
      DataBinding.DataSource = DADataSource
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 9
      Width = 60
    end
    object edtContacto: TcxDBLookupComboBox
      Left = 85
      Top = 28
      DataBinding.DataField = 'CODIGOCONTACTO'
      DataBinding.DataSource = DADataSource
      Properties.DropDownListStyle = lsFixedList
      Properties.KeyFieldNames = 'CODIGOCONTACTO'
      Properties.ListColumns = <
        item
          FieldName = 'NOMBRE'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DADataSource2
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
      Width = 145
    end
    object ToolBar1: TToolBar
      Left = 571
      Top = 28
      Width = 133
      Height = 22
      Align = alNone
      Anchors = [akLeft, akTop, akRight]
      AutoSize = True
      ButtonWidth = 129
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = PngImageList
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 4
      Transparent = False
      Wrapable = False
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = actAnadirContacto
        AutoSize = True
        Caption = 'Adjuntar un contacto'
      end
    end
    object edtImporteRet: TcxDBTextEdit
      Left = 396
      Top = 234
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      DataBinding.DataField = 'IMPORTERETENCION'
      DataBinding.DataSource = DADataSource
      Enabled = False
      ParentFont = False
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clActiveCaption
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 11
      Height = 21
      Width = 682
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group1: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        Caption = 'General'
        object dxLayoutControl1Group7: TdxLayoutGroup
          ShowCaption = False
          Hidden = True
          LayoutDirection = ldHorizontal
          ShowBorder = False
          object dxLayoutControl1Group2: TdxLayoutGroup
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            ShowCaption = False
            Hidden = True
            ShowBorder = False
            object dxLayoutControl1Item12: TdxLayoutItem
              AutoAligns = [aaHorizontal]
              Caption = 'Contacto:'
              Control = edtContacto
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group6: TdxLayoutGroup
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'New Group'
              ShowCaption = False
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item1: TdxLayoutItem
                AutoAligns = [aaVertical]
                Caption = 'Fecha:'
                Control = edtFecIni
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item2: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'cxDBCheckBox1'
                ShowCaption = False
                Control = edtAceptado
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item3: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Tipo:'
                Control = cbTipoPresupuesto
                ControlOptions.ShowBorder = False
              end
            end
          end
          object dxLayoutControl1Item6: TdxLayoutItem
            AutoAligns = []
            AlignHorz = ahRight
            AlignVert = avClient
            Caption = 'New Item'
            ShowCaption = False
            Control = ToolBar1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Item10: TdxLayoutItem
          Caption = 'Descripci'#243'n:'
          CaptionOptions.AlignVert = tavTop
          Control = edtDescripcion
          ControlOptions.ShowBorder = False
        end
      end
      object dxLayoutControl1Group5: TdxLayoutGroup
        Caption = 'New Group'
        ShowCaption = False
        Hidden = True
        LayoutDirection = ldHorizontal
        ShowBorder = False
        object dxLayoutControl1Group3: TdxLayoutGroup
          AutoAligns = [aaVertical]
          AlignHorz = ahClient
          Caption = 'Precios'
          object dxLayoutControl1Item5: TdxLayoutItem
            Caption = 'Inicial:'
            Control = edtPrecioIni
            ControlOptions.MinWidth = 200
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item7: TdxLayoutItem
            Caption = 'Final:'
            Control = edtPrecioFin
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group4: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          Caption = 'Retenci'#243'n'
          object dxLayoutControl1Group8: TdxLayoutGroup
            ShowCaption = False
            Hidden = True
            LayoutDirection = ldHorizontal
            ShowBorder = False
            object dxLayoutControl1Item9: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Aplica retenci'#243'n'
              Control = edtAplicaRetencion
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item11: TdxLayoutItem
              Caption = 'Retenci'#243'n (%):'
              Control = edtRetencion
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item8: TdxLayoutItem
              Caption = 'Tiempo (d'#237'as):'
              Control = edtTiempo
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Item13: TdxLayoutItem
            Caption = 'Importe:'
            Control = edtImporteRet
            ControlOptions.ShowBorder = False
          end
        end
      end
    end
  end
  object DADataSource: TDADataSource
    Left = 72
  end
  object DADataSource2: TDADataSource
    AutoEdit = False
    Left = 104
  end
  object PngImageList: TPngImageList
    PngImages = <
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD252000002224944415478DA
          95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805
          DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114
          D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362
          29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7
          56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00
          68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5
          DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964
          91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441
          DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661
          C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B
          484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0
          8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD
          ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307
          F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793
          C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70
          F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F
          A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E
          182A98A90000000049454E44AE426082}
        Name = 'PngImage0'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          61000000097048597300000AC400000AC401666D82D4000002A94944415478DA
          7D925D48536118C79FF3B5AF36DD66B639CB924243225010BC49BA914004CDE8
          E32228B482EA4689A22289C8CBA28B32B1061688902912D28D16991F6062B2DC
          45921FB954669BF39C9D6DE7EC9CF3EEBC9D2D8C2CB7079E9BF779FEBFF7F922
          30C69034822060D3665F5F3A0B90B8C672FCAEC07AD8E35DF0DFBFE3F64EC05F
          F647F72FC0DB75AED1E1B43D138438C9B26108B11C0443BC30ECF959D731303F
          9411D0D35C612C2ADBEF3319F5B992AC402412037F9003A4C8E05F17679BDA3E
          976BA9D1F4807B95552E877D90222910250556023170E66481D900F0CD17C0AD
          5DDE63F3CBFC505AC0685B6DE34654762B88009B350B8AF658815011C8521C04
          518487DD530D9D83BECEB480C98EDA13F9798E5E9A61526F098440D1CA572409
          24298EEFBA271B7BC756D203FA5A8FE49516EDF3313A5D8AA0AAAAD6BF929A01
          CFC7505DCBBBAAD590349C710BD3EEFA57D916D3A954920648249255283031B3
          3A7BE1D164A5F61CCC0878D15C917FA8C43165D6334E558B25DBD80847E51BCF
          A79B3E7D65DB33AEF1E04D570EE5723DB513C4C966E9006101ED0662043C6697
          30B7DB3021CE6D5C5EEA58FAB22DE0F0ADBD36D25E38A6E6E2126413E00CAA81
          FAE27AE85FEB876EF10D30DC0E2083542432F3E3F8E2CBC5F7FF01CA5A8E3E21
          6CC6AB8A264636110C7A80EADC2AE88B0E004474C0B026A035C76BF2B2A7ED43
          29E671680BA0FC76B50F5BC902641501658B90304BA0EA11100A05544C0774D8
          0834A7396B04DFE8C8E9B58FC19EAD80EB358B84852E44D9F1DF62930C9856B5
          6320801419A0A27AA079430AB4303E722530EE6FDF3A838B15E729B3E50195C3
          D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
          B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
          53F70B90E997F07974AFDF0000000049454E44AE426082}
        Name = 'PngImage1'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD252000001EC4944415478DA
          A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
          A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
          5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
          3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
          9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
          44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
          43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
          3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
          28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
          9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
          BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
          4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
          22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
          5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
          0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
          C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
        Name = 'PngImage2'
        Background = clWindow
      end>
    Left = 672
    Top = 24
    Bitmap = {}
  end
  object ActionList1: TActionList
    Images = PngImageList
    Left = 640
    Top = 24
    object actAnadirContacto: TAction
      Caption = 'Elegir un contacto'
      ImageIndex = 1
      OnExecute = actAnadirContactoExecute
    end
  end
end