AlonsoYSal_FactuGES2/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

inherited frViewFacturaProveedor: TfrViewFacturaProveedor
  Width = 1007
  Height = 604
  Align = alClient
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 451
  ExplicitHeight = 304
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 1007
    Height = 604
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    LookAndFeel = dxLayoutOfficeLookAndFeel1
    ExplicitWidth = 451
    ExplicitHeight = 304
    DesignSize = (
      1007
      604)
    object eReferencia: TcxDBTextEdit
      Left = 124
      Top = 30
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA'
      DataBinding.DataSource = DADataSource
      Enabled = False
      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 = 159
    end
    object edtFecha: TcxDBDateEdit
      Left = 124
      Top = 84
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_FACTURA'
      DataBinding.DataSource = DADataSource
      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 = 159
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 124
      Top = 135
      DataBinding.DataField = 'ID_FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'REFERENCIA'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsFormaPago
      Properties.OnEditValueChanged = cbFormaPagoPropertiesEditValueChanged
      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 = 3
      Width = 169
    end
    object bFormasPago: TButton
      Left = 513
      Top = 135
      Width = 132
      Height = 23
      Caption = 'Ver las formas de pago...'
      TabOrder = 4
      OnClick = bFormasPagoClick
    end
    object eReferenciaProveedor: TcxDBTextEdit
      Left = 124
      Top = 57
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = False
      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 = 1
      Width = 316
    end
    inline frViewTienda1: TfrViewTienda
      Left = 22
      Top = 215
      Width = 320
      Height = 36
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 215
      ExplicitWidth = 320
      ExplicitHeight = 36
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 320
        ExplicitWidth = 260
        inherited cbTienda: TcxComboBox
          ExplicitWidth = 376
          Width = 376
        end
      end
    end
    object edtFechaVencimiento: TcxDBDateEdit
      Left = 124
      Top = 164
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_VENCIMIENTO'
      DataBinding.DataSource = DADataSource
      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 = 5
      Width = 158
    end
    inline frViewProveedorFactura1: TfrViewProveedorFactura
      Left = 673
      Top = 30
      Width = 312
      Height = 260
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      ReadOnly = False
      ExplicitLeft = 673
      ExplicitTop = 30
      ExplicitWidth = 312
      ExplicitHeight = 260
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 312
        ExplicitWidth = 312
        inherited Bevel1: TBevel
          Width = 242
          ExplicitWidth = 242
        end
        inherited edtlNombre: TcxDBTextEdit
          ExplicitWidth = 276
          Width = 276
        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 = 220
          ExplicitLeft = 220
        end
        inherited Button3: TBitBtn
          Left = 104
          ExplicitLeft = 104
        end
        inherited cxDBTextEdit1: TcxDBTextEdit
          ExplicitWidth = 276
          Width = 276
        end
      end
    end
    inline frViewObservaciones1: TfrViewObservaciones
      Left = 22
      Top = 320
      Width = 521
      Height = 228
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      ReadOnly = False
      ExplicitLeft = 22
      ExplicitTop = 320
      ExplicitHeight = 228
      inherited memObservaciones: TcxDBMemo
        DataBinding.DataField = 'OBSERVACIONES'
        DataBinding.DataSource = DADataSource
        ExplicitWidth = 600
        ExplicitHeight = 20
        Height = 228
      end
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group7: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        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 = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Datos de la factura'
            object dxLayoutControl1Item1: TdxLayoutItem
              Caption = 'Referencia:'
              Control = eReferencia
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item6: TdxLayoutItem
              Caption = 'Factura proveedor:'
              Control = eReferenciaProveedor
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item2: TdxLayoutItem
              Caption = 'Fecha de la factura:'
              Control = edtFecha
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Group8: TdxLayoutGroup
            Caption = 'Forma de pago'
            object dxLayoutControl1Group3: TdxLayoutGroup
              ShowCaption = 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 dxLayoutControl1Item10: TdxLayoutItem
                ShowCaption = False
                Control = bFormasPago
                ControlOptions.ShowBorder = False
              end
            end
            object ledtFechaVencimiento: TdxLayoutItem
              Caption = 'Fecha vencimiento:'
              Control = edtFechaVencimiento
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Group4: TdxLayoutGroup
            Caption = 'La factura pertenece a la tienda'
            Visible = False
            object dxLayoutControl1Item7: TdxLayoutItem
              Control = frViewTienda1
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
          end
        end
        object dxLayoutControl1Group2: TdxLayoutGroup
          Caption = 'Datos del proveedor'
          object dxLayoutControl1Item3: TdxLayoutItem
            Control = frViewProveedorFactura1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
        end
      end
      object dxLayoutControl1Group5: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'Observaciones'
        LayoutDirection = ldHorizontal
        object dxLayoutControl1Item5: TdxLayoutItem
          AutoAligns = []
          AlignHorz = ahClient
          AlignVert = avClient
          Caption = 'New Item'
          ShowCaption = False
          Control = frViewObservaciones1
          ControlOptions.AutoColor = True
          ControlOptions.ShowBorder = False
        end
      end
    end
  end
  object DADataSource: TDADataSource
    Left = 16
    Top = 56
  end
  object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
    Left = 88
    Top = 24
    object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
      GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
      GroupOptions.CaptionOptions.Font.Color = clWindowText
      GroupOptions.CaptionOptions.Font.Height = -11
      GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
      GroupOptions.CaptionOptions.Font.Style = [fsBold]
      GroupOptions.CaptionOptions.TextColor = clHighlight
      GroupOptions.CaptionOptions.UseDefaultFont = False
    end
  end
  object dsFormaPago: TDADataSource
    Left = 64
    Top = 24
  end
  object ActionList1: TActionList
    Left = 32
    Top = 120
    object actElegirDireccion: TAction
      Caption = 'Elegir una direcci'#243'n de env'#237'o...'
      OnExecute = actElegirDireccionExecute
      OnUpdate = actElegirDireccionUpdate
    end
  end
end