Noviseda_FactuGES2/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm

inherited frViewPedidoCliente: TfrViewPedidoCliente
  Width = 872
  Height = 490
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 872
  ExplicitHeight = 490
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 872
    Height = 490
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    DesignSize = (
      872
      490)
    object edtFechaPedido: TcxDBDateEdit
      Left = 116
      Top = 82
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_PEDIDO'
      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 = 416
      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.NativeStyle = True
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 15
      Height = 253
      Width = 186
    end
    object eReferencia: TcxDBTextEdit
      Left = 116
      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 frViewClientePedido: TfrViewDatosYSeleccionClientePedido
      Left = 486
      Top = 28
      Width = 350
      Height = 212
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      ReadOnly = False
      ExplicitLeft = 486
      ExplicitTop = 28
      ExplicitWidth = 350
      ExplicitHeight = 212
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 350
        Height = 212
        ExplicitWidth = 350
        ExplicitHeight = 212
        DesignSize = (
          350
          212)
        inherited edtlNombre: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          Left = 251
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitLeft = 251
        end
        inherited Button3: TBitBtn
          Left = 162
          ExplicitLeft = 162
        end
        inherited edtPersonaContacto: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 200
          Width = 200
        end
        inherited edtDireccion: TcxMemo
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 200
          Width = 200
        end
        inherited Button4: TButton
          Left = 331
          ExplicitLeft = 331
        end
        inherited Button5: TButton
          Left = 331
          ExplicitLeft = 331
        end
      end
      inherited ActionList1: TActionList
        Top = 72
      end
      inherited PngImageList: TPngImageList
        Top = 72
      end
    end
    object eCalle: TcxDBTextEdit
      Left = 116
      Top = 220
      DataBinding.DataField = 'CALLE'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 7
      Width = 263
    end
    object ePoblacion: TcxDBTextEdit
      Left = 116
      Top = 247
      DataBinding.DataField = 'POBLACION'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 8
      Width = 162
    end
    object eCodigoPostal: TcxDBTextEdit
      Left = 391
      Top = 247
      DataBinding.DataField = 'CODIGO_POSTAL'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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
      Width = 65
    end
    object eProvincia: TcxDBTextEdit
      Left = 116
      Top = 274
      DataBinding.DataField = 'PROVINCIA'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 10
      Width = 263
    end
    object ePersonaContacto: TcxDBTextEdit
      Left = 116
      Top = 301
      DataBinding.DataField = 'PERSONA_CONTACTO'
      DataBinding.DataSource = DADataSource
      Enabled = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      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 = 11
      Width = 84
    end
    object eTlfTrabajo: TcxDBTextEdit
      Left = 116
      Top = 328
      DataBinding.DataField = 'TELEFONO'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 12
      Width = 122
    end
    object bElegirDireccion: TBitBtn
      Left = 284
      Top = 355
      Width = 172
      Height = 25
      Action = actElegirDireccion
      Caption = 'Elegir una direcci'#243'n de env'#237'o...'
      Enabled = False
      TabOrder = 13
    end
    object bFormasPago: TButton
      Left = 324
      Top = 136
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
      TabOrder = 5
      OnClick = bFormasPagoClick
    end
    object edtFechaPrevistaEnvio: TcxDBDateEdit
      Left = 116
      Top = 109
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 116
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA_CLIENTE'
      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 = 1
      Width = 216
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 116
      Top = 136
      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.ListOptions.SyncMode = True
      Properties.ListSource = dsFormaPago
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 4
      Width = 186
    end
    object cbCuentaBancaria: TcxDBComboBox
      Left = 116
      Top = 163
      DataBinding.DataField = 'DATOS_BANCARIOS'
      DataBinding.DataSource = DADataSource
      Properties.DropDownListStyle = lsFixedList
      Properties.DropDownRows = 12
      Properties.ImmediatePost = True
      Properties.ImmediateUpdateText = True
      Properties.PostPopupValueOnTab = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.SkinName = ''
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 6
      Width = 324
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      AlignHorz = ahParentManaged
      AlignVert = avParentManaged
      CaptionOptions.Visible = False
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group10: TdxLayoutGroup
        CaptionOptions.Visible = False
        ButtonOptions.Buttons = <>
        Hidden = True
        LayoutDirection = ldHorizontal
        ShowBorder = False
        object dxLayoutControl1Group6: TdxLayoutGroup
          AlignHorz = ahClient
          CaptionOptions.Visible = False
          ButtonOptions.Buttons = <>
          Hidden = True
          ShowBorder = False
          object dxLayoutControl1Group1: TdxLayoutGroup
            AlignHorz = ahClient
            AlignVert = avTop
            CaptionOptions.Text = 'Datos del pedido'
            ButtonOptions.Buttons = <>
            object dxLayoutControl1Item3: TdxLayoutItem
              CaptionOptions.Text = 'Referencia:'
              Enabled = False
              Control = eReferencia
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item15: TdxLayoutItem
              CaptionOptions.Text = 'Ref. cliente:'
              Enabled = False
              Visible = False
              Control = eRefCliente
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item2: TdxLayoutItem
              CaptionOptions.Text = 'Fecha del pedido:'
              Control = edtFechaPedido
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item7: TdxLayoutItem
              CaptionOptions.Text = 'Entrega prevista:'
              Enabled = False
              Visible = False
              Control = edtFechaPrevistaEnvio
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group3: TdxLayoutGroup
              ButtonOptions.Buttons = <>
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item4: TdxLayoutItem
                AlignHorz = ahClient
                CaptionOptions.Text = 'Forma de pago:'
                Control = cbFormaPago
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Group5: TdxLayoutGroup
                CaptionOptions.Text = 'New Group'
                CaptionOptions.Visible = False
                ButtonOptions.Buttons = <>
                LayoutDirection = ldHorizontal
                ShowBorder = False
                object dxLayoutControl1Item5: TdxLayoutItem
                  AlignHorz = ahRight
                  CaptionOptions.Visible = False
                  Control = bFormasPago
                  ControlOptions.ShowBorder = False
                end
              end
            end
            object dxLayoutControl1Item16: TdxLayoutItem
              CaptionOptions.Text = 'Cuenta bancaria:'
              Control = cbCuentaBancaria
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Group8: TdxLayoutGroup
            AlignHorz = ahClient
            AlignVert = avTop
            CaptionOptions.Text = 'Direcci'#243'n de entrega'
            Enabled = False
            Visible = False
            ButtonOptions.Buttons = <>
            object dxLayoutControl1Item8: TdxLayoutItem
              CaptionOptions.Text = 'Calle:'
              Enabled = False
              Control = eCalle
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group4: TdxLayoutGroup
              CaptionOptions.Visible = False
              Enabled = False
              ButtonOptions.Buttons = <>
              Hidden = True
              ShowBorder = False
              object dxLayoutControl1Group9: TdxLayoutGroup
                CaptionOptions.Visible = False
                Enabled = False
                ButtonOptions.Buttons = <>
                Hidden = True
                LayoutDirection = ldHorizontal
                ShowBorder = False
                object dxLayoutControl1Item9: TdxLayoutItem
                  AlignHorz = ahClient
                  CaptionOptions.Text = 'Poblaci'#243'n:'
                  Enabled = False
                  Control = ePoblacion
                  ControlOptions.ShowBorder = False
                end
                object dxLayoutControl1Item10: TdxLayoutItem
                  AlignHorz = ahRight
                  CaptionOptions.Text = 'C.P.:'
                  Enabled = False
                  Control = eCodigoPostal
                  ControlOptions.ShowBorder = False
                end
              end
              object dxLayoutControl1Item11: TdxLayoutItem
                CaptionOptions.Text = 'Provincia:'
                Enabled = False
                Control = eProvincia
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item12: TdxLayoutItem
                CaptionOptions.Text = 'Pers. de contacto:'
                Enabled = False
                Control = ePersonaContacto
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item13: TdxLayoutItem
                CaptionOptions.Text = 'Tel'#233'fono:'
                Enabled = False
                Control = eTlfTrabajo
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item14: TdxLayoutItem
                AlignHorz = ahRight
                CaptionOptions.Visible = False
                Enabled = False
                Control = bElegirDireccion
                ControlOptions.ShowBorder = False
              end
            end
          end
        end
        object dxLayoutControl1Group2: TdxLayoutGroup
          AlignHorz = ahClient
          CaptionOptions.Text = 'Datos del cliente'
          ButtonOptions.Buttons = <>
          object dxLayoutControl1Item1: TdxLayoutItem
            Control = frViewClientePedido
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControl1Group7: TdxLayoutGroup
        AlignVert = avClient
        CaptionOptions.Text = 'Observaciones'
        ButtonOptions.Buttons = <>
        object dxLayoutControl1Item6: TdxLayoutItem
          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