Tecsitel_FactuGES2/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
  Width = 766
  Height = 513
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 766
  ExplicitHeight = 513
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 766
    Height = 513
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      766
      513)
    object edtFechaPresupuesto: TcxDBDateEdit
      Left = 123
      Top = 82
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_PRESUPUESTO'
      DataBinding.DataSource = DADataSource
      Properties.DateButtons = [btnToday]
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.Shadow = False
      Style.ButtonStyle = bts3D
      Style.ButtonTransparency = ebtNone
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 2
      Width = 119
    end
    object memObservaciones: TcxDBMemo
      Left = 22
      Top = 276
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'OBSERVACIONES'
      DataBinding.DataSource = DADataSource
      Properties.ScrollBars = ssVertical
      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 = 9
      Height = 253
      Width = 186
    end
    object eReferencia: TcxDBTextEdit
      Left = 123
      Top = 28
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA'
      DataBinding.DataSource = DADataSource
      Enabled = False
      Properties.ReadOnly = False
      Properties.ValidateOnEnter = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
      Width = 143
    end
    inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
      Left = 393
      Top = 28
      Width = 350
      Height = 212
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      ReadOnly = False
      ExplicitLeft = 393
      ExplicitTop = 28
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombre: TcxDBTextEdit
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          ExplicitWidth = 562
          Width = 562
        end
        inherited edtCalle: TcxDBTextEdit
          ExplicitWidth = 562
          Width = 562
        end
        inherited edtPoblacion: TcxDBTextEdit
          ExplicitWidth = 177
          Width = 177
        end
        inherited edtProvincia: TcxDBTextEdit
          ExplicitWidth = 327
          Width = 327
        end
        inherited edtCodigoPostal: TcxDBTextEdit
          Left = 259
          ExplicitLeft = 259
        end
        inherited Button3: TBitBtn
          Left = 149
          ExplicitLeft = 149
        end
      end
      inherited DADataSource: TDADataSource
        Top = 72
      end
      inherited ActionList1: TActionList
        Top = 72
      end
      inherited PngImageList: TPngImageList
        Top = 72
      end
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 123
      Top = 190
      DataBinding.DataField = 'ID_FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'REFERENCIA'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsFormaPago
      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 = 6
      Width = 101
    end
    object bFormasPago: TButton
      Left = 231
      Top = 190
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
      TabOrder = 7
      OnClick = bFormasPagoClick
    end
    object edtFechaDecision: TcxDBDateEdit
      Left = 123
      Top = 109
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_DECISION'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.Shadow = False
      Style.ButtonStyle = bts3D
      Style.ButtonTransparency = ebtNone
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 3
      Width = 216
    end
    object eRefCliente: TcxDBTextEdit
      Left = 123
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA_CLIENTE'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = False
      Properties.ValidateOnEnter = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 1
      Width = 216
    end
    object edtClienteFinal: TcxDBTextEdit
      Left = 123
      Top = 163
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'CLIENTE_FINAL'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = False
      Properties.ValidateOnEnter = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 5
      Width = 227
    end
    object cbSituacion: TcxDBImageComboBox
      Left = 123
      Top = 136
      DataBinding.DataField = 'SITUACION'
      DataBinding.DataSource = DADataSource
      Properties.Items = <
        item
          Description = 'PENDIENTE'
          ImageIndex = 0
          Value = 'PENDIENTE'
        end
        item
          Description = 'ACEPTADO'
          Value = 'ACEPTADO'
        end
        item
          Description = 'ANULADO'
          Value = 'ANULADO'
        end>
      Style.BorderStyle = ebs3D
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 4
      Width = 121
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group10: TdxLayoutGroup
        ShowCaption = False
        Hidden = True
        LayoutDirection = ldHorizontal
        ShowBorder = False
        object dxLayoutControl1Group1: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          Caption = 'Datos del presupuesto'
          object dxLayoutControl1Item3: TdxLayoutItem
            Caption = 'Referencia:'
            Control = eReferencia
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item15: TdxLayoutItem
            Caption = 'Ref. cliente:'
            Control = eRefCliente
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item2: TdxLayoutItem
            Caption = 'Fecha presupuesto:'
            Control = edtFechaPresupuesto
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item7: TdxLayoutItem
            Caption = 'Fecha decisi'#243'n:'
            Control = edtFechaDecision
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item10: TdxLayoutItem
            Caption = 'Situaci'#243'n:'
            Control = cbSituacion
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item8: TdxLayoutItem
            Caption = 'Cliente final:'
            Control = edtClienteFinal
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Group5: TdxLayoutGroup
            ShowCaption = False
            Visible = False
            Hidden = True
            LayoutDirection = ldHorizontal
            ShowBorder = False
            object dxLayoutControl1Item4: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              Caption = 'Forma de pago'
              Control = cbFormaPago
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item5: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahRight
              ShowCaption = False
              Control = bFormasPago
              ControlOptions.ShowBorder = False
            end
          end
        end
        object dxLayoutControl1Group2: TdxLayoutGroup
          AutoAligns = [aaVertical]
          AlignHorz = ahClient
          Caption = 'Datos del cliente'
          object dxLayoutControl1Item1: TdxLayoutItem
            Control = frViewClientePresupuesto
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControl1Group7: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'Observaciones'
        object dxLayoutControl1Item6: TdxLayoutItem
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Control = memObservaciones
          ControlOptions.ShowBorder = False
        end
      end
    end
  end
  object DADataSource: TDADataSource
    Left = 8
    Top = 8
  end
  object ActionList1: TActionList
    Left = 8
    Top = 40
    object actElegirDireccion: TAction
      Caption = 'Elegir una direcci'#243'n de env'#237'o...'
      OnExecute = actElegirDireccionExecute
      OnUpdate = actElegirDireccionUpdate
    end
  end
  object dsFormaPago: TDADataSource
    Left = 40
    Top = 8
  end
end