LuisLeon_FactuGES2/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm

inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
  Width = 940
  Height = 693
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 940
  ExplicitHeight = 693
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 940
    Height = 693
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      940
      693)
    object edtFechaAlbaran: TcxDBDateEdit
      Left = 145
      Top = 82
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_ALBARAN'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      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 = 2
      Width = 325
    end
    object memObservaciones: TcxDBMemo
      Left = 22
      Top = 520
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 13
      Height = 287
      Width = 331
    end
    object eReferencia: TcxDBTextEdit
      Left = 145
      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 = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.Color = clMenuBar
      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 = 0
      Width = 325
    end
    inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
      Left = 530
      Top = 235
      Width = 388
      Height = 249
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      ReadOnly = False
      ExplicitLeft = 530
      ExplicitTop = 235
      ExplicitWidth = 388
      ExplicitHeight = 249
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 388
        Height = 249
        ExplicitWidth = 388
        ExplicitHeight = 249
        inherited rdxDestino1: TRadioButton
          Width = 402
          ExplicitWidth = 402
        end
        inherited rdxDestino2: TRadioButton
          Width = 402
          ExplicitWidth = 402
        end
        inherited cbLista: TcxDBLookupComboBox
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 402
          Width = 402
        end
        inherited bModificar: TBitBtn
          Left = 250
          Top = 214
          ExplicitLeft = 250
          ExplicitTop = 214
        end
        inherited txtDireccion: TStaticText
          Width = 374
          Height = 100
          ExplicitWidth = 374
          ExplicitHeight = 100
        end
        inherited cbListaObras: TcxDBLookupComboBox
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 402
          Width = 402
        end
        inherited RadioButton1: TRadioButton
          Width = 402
          ExplicitWidth = 402
        end
      end
      inherited ActionList1: TActionList
        Left = 32
        Top = 40
      end
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 145
      Top = 219
      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 = 8
      Width = 187
    end
    object bFormasPago: TButton
      Left = 368
      Top = 219
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
      TabOrder = 9
      OnClick = bFormasPagoClick
    end
    object eReferenciaPedidoCli: TcxTextEdit
      Left = 145
      Top = 136
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      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 = 187
    end
    object Button1: TButton
      Left = 368
      Top = 136
      Width = 132
      Height = 23
      Action = actVerPedido
      TabOrder = 5
    end
    object eRefFactura: TcxDBTextEdit
      Left = 145
      Top = 165
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REF_FACTURA'
      DataBinding.DataSource = DADataSource
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 6
      Width = 325
    end
    object eReferenciaProveedor: TcxDBTextEdit
      Left = 145
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = False
      Properties.ValidateOnEnter = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clWindow
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.Color = clMenuBar
      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 = 1
      Width = 325
    end
    object eReferenciaFacturaProveedor: TcxDBTextEdit
      Left = 145
      Top = 192
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REF_FACTURA_PROV'
      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
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.Color = clMenuBar
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleDisabled.TextColor = clWindowText
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 7
      Width = 325
    end
    inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran
      Left = 530
      Top = 28
      Width = 411
      Height = 171
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      ReadOnly = False
      ExplicitLeft = 530
      ExplicitTop = 28
      ExplicitWidth = 411
      ExplicitHeight = 171
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 411
        Height = 171
        ExplicitWidth = 411
        ExplicitHeight = 171
        inherited edtlNombre: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          Left = 275
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitLeft = 275
        end
        inherited edtPersonaContacto: TcxDBTextEdit
          Top = 107
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitTop = 107
          ExplicitWidth = 283
          Width = 283
        end
        inherited edtDireccion: TcxTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 121
          ExplicitHeight = 50
          Height = 50
          Width = 121
        end
        inherited Button4: TButton
          Left = 355
          ExplicitLeft = 355
        end
        inherited Button5: TButton
          Left = 355
          Top = 105
          ExplicitLeft = 355
          ExplicitTop = 105
        end
        inherited Button3: TBitBtn
          Left = 180
          Top = 136
          ExplicitLeft = 180
          ExplicitTop = 136
        end
      end
      inherited dsProveedor: TDADataSource
        Left = 288
        Top = 24
      end
      inherited ActionList1: TActionList
        Left = 312
        Top = 65528
      end
      inherited dsAlbaran: TDADataSource
        Left = 280
        Top = 65528
      end
    end
    inline frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran
      Left = 22
      Top = 276
      Width = 505
      Height = 196
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 276
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombre: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          Left = 365
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitLeft = 365
        end
        inherited Button3: TBitBtn
          Left = 276
          ExplicitLeft = 276
        end
        inherited edtPersonaContacto: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 283
          Width = 283
        end
        inherited edtDireccion: TcxMemo
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
        end
        inherited Button4: TButton
          Left = 445
          ExplicitLeft = 445
        end
        inherited Button5: TButton
          Left = 445
          ExplicitLeft = 445
        end
      end
    end
    object cxDBDateEdit1: TcxDBDateEdit
      Left = 145
      Top = 109
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_SERVICIO'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      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 = 3
      Width = 381
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group10: 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 albar'#225'n'
            object dxLayoutControl1Item3: TdxLayoutItem
              Caption = 'Referencia:'
              Control = eReferencia
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item11: TdxLayoutItem
              Caption = 'Ref. proveedor:'
              Control = eReferenciaProveedor
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item2: TdxLayoutItem
              Caption = 'Fecha del albar'#225'n/aviso:'
              Control = edtFechaAlbaran
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item14: TdxLayoutItem
              Caption = 'Fecha servicio:'
              Control = cxDBDateEdit1
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group5: TdxLayoutGroup
              ShowCaption = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item8: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Ref. del pedido:'
                Control = eReferenciaPedidoCli
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item9: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = Button1
                ControlOptions.ShowBorder = False
              end
            end
            object dxLayoutControl1Item10: TdxLayoutItem
              Caption = 'Ref. factura:'
              Control = eRefFactura
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item12: TdxLayoutItem
              Caption = 'Ref. factura prov.:'
              Control = eReferenciaFacturaProveedor
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group4: TdxLayoutGroup
              ShowCaption = False
              Visible = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item5: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahClient
                Caption = 'Forma pago:'
                Control = cbFormaPago
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item7: TdxLayoutItem
                ShowCaption = False
                Control = bFormasPago
                ControlOptions.ShowBorder = False
              end
            end
          end
          object dxLayoutControl1Group9: TdxLayoutGroup
            Caption = 'Cliente final'
            object dxLayoutControl1Item13: TdxLayoutItem
              Control = frViewDatosYSeleccionClienteFinalAlbaran1
              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
            Caption = 'Datos del proveedor'
            object dxLayoutControl1Item1: TdxLayoutItem
              Caption = 'New Item'
              ShowCaption = False
              Control = frViewDatosYSeleccionProveedorAlbaran1
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Group8: TdxLayoutGroup
            AutoAligns = []
            AlignHorz = ahClient
            AlignVert = avClient
            Caption = 'Direcci'#243'n de entrega'
            object dxLayoutControl1Item4: TdxLayoutItem
              AutoAligns = [aaHorizontal]
              AlignVert = avClient
              Control = frViewDireccionEntregaAlbaranProv1
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
          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 = 24
  end
  object ActionList1: TActionList
    Left = 32
    Top = 120
    object actElegirDireccion: TAction
      Caption = 'Elegir una direcci'#243'n de env'#237'o...'
      OnUpdate = actElegirDireccionUpdate
    end
    object actVerPedido: TAction
      Caption = 'Ver el pedido de prov...'
      OnExecute = actVerPedidoExecute
      OnUpdate = actVerPedidoUpdate
    end
  end
  object dsFormaPago: TDADataSource
    Left = 40
    Top = 24
  end
end