inherited frViewPedidoProveedor: TfrViewPedidoProveedor
  Width = 965
  Height = 546
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 965
  ExplicitHeight = 546
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 965
    Height = 546
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    ExplicitWidth = 787
    ExplicitHeight = 615
    DesignSize = (
      965
      546)
    object edtFechaPedido: TcxDBDateEdit
      Left = 121
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_PEDIDO'
      DataBinding.DataSource = DADataSource
      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 = 1
      Width = 4
    end
    object edtFechaConfirmacion: TcxDBDateEdit
      Left = 599
      Top = 240
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_CONFIRMACION'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      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 = 10
      Width = 359
    end
    object edtFechaEntrega: TcxDBDateEdit
      Left = 599
      Top = 267
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_ENTREGA'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.ButtonStyle = bts3D
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 11
      Width = 359
    end
    object memObservaciones: TcxDBMemo
      Left = 484
      Top = 324
      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 = 12
      Height = 380
      Width = 239
    end
    object eReferencia: TcxDBTextEdit
      Left = 121
      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.NativeStyle = True
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
      Width = 359
    end
    inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
      Left = 22
      Top = 168
      Width = 432
      Height = 270
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 168
      ExplicitWidth = 432
      ExplicitHeight = 270
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 432
        Height = 270
        ExplicitWidth = 355
        ExplicitHeight = 314
        inherited Bevel1: TBevel
          Top = 204
          Width = 412
          ExplicitTop = 204
          ExplicitWidth = 412
        end
        inherited rdxDestino1: TRadioButton
          Width = 414
          ExplicitWidth = 414
        end
        inherited rdxDestino2: TRadioButton
          Width = 414
          ExplicitWidth = 414
        end
        inherited cbListaAlmacenes: TcxDBLookupComboBox
          ExplicitWidth = 399
          Width = 399
        end
        inherited bModificar: TBitBtn
          Left = 294
          Top = 168
          ExplicitLeft = 294
          ExplicitTop = 168
        end
        inherited txtDireccion: TStaticText
          Width = 399
          Height = 62
          ExplicitWidth = 399
          ExplicitHeight = 62
        end
        inherited RadioButton1: TRadioButton
          Width = 454
          ExplicitWidth = 454
        end
        inherited cbListaObras: TcxDBLookupComboBox
          ExplicitWidth = 439
          Width = 439
        end
        inherited edtEntregarA: TcxDBButtonEdit
          Top = 217
          ExplicitTop = 217
          ExplicitWidth = 394
          Width = 394
        end
      end
      inherited ActionList1: TActionList
        Left = 72
      end
      inherited dsPedido: TDADataSource
        Left = 0
        Top = 0
      end
      inherited dsObras: TDADataSource
        Left = 272
      end
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 121
      Top = 82
      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.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 = 2
      Width = 24
    end
    object bFormasPago: TButton
      Left = 322
      Top = 82
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
      TabOrder = 3
      OnClick = bFormasPagoClick
    end
    object edtFechaEnvio: TcxDBDateEdit
      Left = 599
      Top = 213
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_ENVIO'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      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 = 9
      Width = 344
    end
    object eReferenciaPedidoCli: TcxTextEdit
      Left = 121
      Top = 109
      Anchors = [akLeft, akTop, akRight]
      Enabled = False
      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.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 = 4
      Width = 221
    end
    object bVerPedidoCliente: TButton
      Left = 322
      Top = 109
      Width = 132
      Height = 23
      Action = actVerPedidoCli
      TabOrder = 5
    end
    inline frViewProveedorPedido1: TfrViewProveedorPedido
      Left = 484
      Top = 28
      Width = 486
      Height = 149
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      ReadOnly = False
      ExplicitLeft = 484
      ExplicitTop = 28
      ExplicitWidth = 486
      ExplicitHeight = 149
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 486
        Height = 266
        ExplicitWidth = 358
        ExplicitHeight = 266
        inherited edtlNombre: TcxDBTextEdit
          ExplicitWidth = 213
          Width = 213
        end
        inherited edtNIFCIF: TcxDBTextEdit
          ExplicitWidth = 213
          Width = 213
        end
        inherited edtCalle: TcxDBTextEdit
          ExplicitWidth = 213
          Width = 213
        end
        inherited edtPoblacion: TcxDBTextEdit
          ExplicitWidth = 95
          Width = 95
        end
        inherited edtProvincia: TcxDBTextEdit
          ExplicitWidth = 213
          Width = 213
        end
        inherited edtCodigoPostal: TcxDBTextEdit
          Left = 367
          ExplicitLeft = 367
        end
        inherited Button3: TBitBtn
          Left = 251
          ExplicitLeft = 251
        end
        inherited edtPersonaContacto: TcxDBTextEdit
          ExplicitWidth = 213
          Width = 213
        end
        inherited edtReferenciaAsignada: TcxDBTextEdit
          Left = 328
          ExplicitLeft = 328
        end
        inherited edtFax: TcxDBTextEdit
          ExplicitWidth = 82
          Width = 82
        end
      end
    end
    inline frViewObraReserva1: TfrViewObraReserva
      Left = 22
      Top = 452
      Width = 331
      Height = 72
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 452
      ExplicitWidth = 331
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 331
        DesignSize = (
          331
          72)
        inherited Label1: TLabel
          Width = 235
          ExplicitWidth = 235
        end
        inherited cbListaObrasReserva: TcxDBLookupComboBox
          ExplicitWidth = 296
          Width = 296
        end
      end
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      LayoutDirection = ldHorizontal
      ShowBorder = False
      object dxLayoutControl1Group6: TdxLayoutGroup
        AutoAligns = [aaVertical]
        AlignHorz = ahClient
        ShowCaption = False
        Hidden = True
        ShowBorder = False
        object dxLayoutControl1Group1: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          Caption = 'Datos del pedido'
          object dxLayoutControl1Item3: TdxLayoutItem
            Caption = 'Referencia:'
            Control = eReferencia
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item2: TdxLayoutItem
            Caption = 'Fecha del pedido:'
            Control = edtFechaPedido
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Group4: TdxLayoutGroup
            ShowCaption = False
            Hidden = True
            ShowBorder = False
            object dxLayoutControl1Group9: TdxLayoutGroup
              ShowCaption = False
              Visible = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item9: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Forma de pago'
                Control = cbFormaPago
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item10: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = bFormasPago
                ControlOptions.ShowBorder = False
              end
            end
            object dxLayoutControl1Group10: TdxLayoutGroup
              ShowCaption = False
              Visible = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item11: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Ref. pedido cliente:'
                Control = eReferenciaPedidoCli
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item12: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = bVerPedidoCliente
                ControlOptions.ShowBorder = False
              end
            end
          end
        end
        object dxLayoutControl1Group8: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          AlignVert = avClient
          Caption = 'Datos de la entrega'
          object dxLayoutControl1Item8: TdxLayoutItem
            AutoAligns = [aaHorizontal]
            AlignVert = avClient
            Control = frViewDireccionEntregaPedidoProv1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group11: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          AlignVert = avBottom
          Caption = 'Datos de reserva'
          object dxLayoutControl1Item13: TdxLayoutItem
            Caption = 'Reservar para obra:'
            ShowCaption = False
            Control = frViewObraReserva1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControl1Group3: TdxLayoutGroup
        AutoAligns = [aaVertical]
        AlignHorz = ahClient
        ShowCaption = False
        Hidden = True
        ShowBorder = False
        object dxLayoutControl1Group2: TdxLayoutGroup
          AutoAligns = [aaVertical]
          AlignHorz = ahClient
          Caption = 'Datos del proveedor'
          object dxLayoutControl1Item1: TdxLayoutItem
            Control = frViewProveedorPedido1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Group5: TdxLayoutGroup
          AutoAligns = [aaHorizontal]
          Caption = 'Situaci'#243'n del pedido'
          object dxLayoutControl1Item7: TdxLayoutItem
            Caption = 'Enviado al prov. el d'#237'a:'
            Control = edtFechaEnvio
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item4: TdxLayoutItem
            Caption = 'Confirmado el d'#237'a:'
            Control = edtFechaConfirmacion
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item5: TdxLayoutItem
            Caption = 'Entrega prevista:'
            Control = edtFechaEntrega
            ControlOptions.ShowBorder = False
          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
  end
  object DADataSource: TDADataSource
    Left = 24
    Top = 8
  end
  object dsFormaPago: TDADataSource
    Left = 56
    Top = 8
  end
  object ActionList1: TActionList
    Left = 88
    Top = 8
    object actVerPedidoCli: TAction
      Caption = 'Ver pedido de cliente...'
      OnExecute = actVerPedidoCliExecute
      OnUpdate = actVerPedidoCliUpdate
    end
  end
end