Tecsitel_FactuGES2/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

inherited frViewFacturaCliente: TfrViewFacturaCliente
  Width = 451
  Height = 304
  Align = alClient
  OnCreate = CustomViewCreate
  OnDestroy = CustomViewDestroy
  ExplicitWidth = 451
  ExplicitHeight = 304
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 451
    Height = 304
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    LookAndFeel = dxLayoutOfficeLookAndFeel1
    DesignSize = (
      451
      304)
    object Label1: TLabel
      Left = 354
      Top = 193
      Width = 311
      Height = 26
      Caption = 
        'Opcionalmente, puede escribir el nombre del cliente final de est' +
        'e presupuesto o elegirlo de la lista de clientes.'
      WordWrap = True
    end
    object eReferencia: TcxDBTextEdit
      Left = 124
      Top = 30
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA'
      DataBinding.DataSource = DADataSource
      Enabled = False
      Properties.ReadOnly = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      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 = 165
    end
    object edtFecha: TcxDBDateEdit
      Left = 124
      Top = 57
      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.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 = 1
      Width = 293
    end
    object memObservaciones: TcxDBMemo
      Left = 22
      Top = 285
      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 = 11
      Height = 345
      Width = 355
    end
    object cbFormaPago: TcxDBLookupComboBox
      Left = 146
      Top = 130
      DataBinding.DataField = 'ID_FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      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.PostPopupValueOnTab = True
      Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged
      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 = 269
    end
    object bFormasPago: TButton
      Left = 172
      Top = 130
      Width = 132
      Height = 23
      Caption = 'Ver las formas de pago...'
      TabOrder = 5
      OnClick = bFormasPagoClick
    end
    object cbCuentaBancaria: TcxDBComboBox
      Left = 146
      Top = 186
      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 = 7
      Width = 165
    end
    object cbClienteFinal: TcxDBTextEdit
      Left = 354
      Top = 227
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'CLIENTE_FINAL'
      DataBinding.DataSource = DADataSource
      Properties.ReadOnly = False
      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 = 9
      Width = 339
    end
    object bElegirClienteFinal: TButton
      Left = 410
      Top = 225
      Width = 23
      Height = 25
      Action = actElegirClienteFinal
      TabOrder = 10
    end
    inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
      Left = 343
      Top = 30
      Width = 505
      Height = 138
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      ReadOnly = False
      ExplicitLeft = 343
      ExplicitTop = 30
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombre: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
        end
        inherited edtNIFCIF: TcxDBTextEdit
          Left = 171
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitLeft = 171
        end
        inherited Button3: TBitBtn
          Left = 82
          ExplicitLeft = 82
        end
        inherited edtDireccion: TcxTextEdit
          Style.LookAndFeel.SkinName = ''
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
        end
        inherited Button4: TButton
          Left = 251
          ExplicitLeft = 251
        end
      end
      inherited ActionList1: TActionList
        Left = 120
        Top = 48
      end
      inherited PngImageList: TPngImageList
        Left = 48
        Top = 48
      end
      inherited dsFactura: TDADataSource
        Left = 80
        Top = 48
      end
    end
    object edtFechaVemcimiento: TcxDBDateEdit
      Left = 146
      Top = 159
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_VENCIMIENTO'
      DataBinding.DataSource = DADataSource
      Properties.OnEditValueChanged = edtFechaVemcimientoPropertiesEditValueChanged
      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 = 6
      Width = 275
    end
    object eCertificadoISO: TcxDBCheckBox
      Left = 22
      Top = 84
      Caption = 'Certificaci'#243'n ISO'
      DataBinding.DataField = 'CERTIFICADO_ISO'
      DataBinding.DataSource = DADataSource
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      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 = 2
      Transparent = True
      Width = 125
    end
    object eFacturaWeb: TcxDBCheckBox
      Left = 153
      Top = 84
      Caption = 'Factura WEB'
      DataBinding.DataField = 'FACTURA_WEB'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      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 = 3
      Transparent = True
      Width = 293
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group9: TdxLayoutGroup
        ShowCaption = False
        Hidden = True
        LayoutDirection = ldHorizontal
        ShowBorder = False
        object dxLayoutControl1Group1: TdxLayoutGroup
          AutoAligns = [aaVertical]
          AlignHorz = ahClient
          Caption = 'Datos de la factura'
          object dxLayoutControl1Item1: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Referencia:'
            Control = eReferencia
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item2: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Fecha de la factura:'
            Control = edtFecha
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Group10: TdxLayoutGroup
            ShowCaption = False
            Hidden = True
            LayoutDirection = ldHorizontal
            ShowBorder = False
            object dxLayoutControl1Item11: TdxLayoutItem
              ShowCaption = False
              Control = eCertificadoISO
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item12: TdxLayoutItem
              AutoAligns = [aaVertical]
              AlignHorz = ahClient
              ShowCaption = False
              Control = eFacturaWeb
              ControlOptions.ShowBorder = False
            end
          end
          object dxLayoutControl1Group6: TdxLayoutGroup
            Caption = 'Forma de pago'
            object dxLayoutControl1Group4: TdxLayoutGroup
              ShowCaption = False
              Hidden = True
              ShowBorder = False
              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 de vencimiento:'
                Control = edtFechaVemcimiento
                ControlOptions.ShowBorder = False
              end
            end
            object dxLayoutControl1Item3: TdxLayoutItem
              Caption = 'Cuenta bancaria:'
              Control = cbCuentaBancaria
              ControlOptions.ShowBorder = False
            end
          end
        end
        object dxLayoutControl1Group2: TdxLayoutGroup
          AutoAligns = []
          AlignHorz = ahClient
          AlignVert = avClient
          Caption = 'Datos del cliente'
          object dxLayoutControl1Item6: TdxLayoutItem
            Caption = 'frViewDatosYSeleccionClienteFacturaCliente1'
            ShowCaption = False
            Control = frViewDatosYSeleccionClienteFacturaCliente1
            ControlOptions.AutoColor = True
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Group7: TdxLayoutGroup
            Caption = 'Cliente final'
            object dxLayoutControl1Item7: TdxLayoutItem
              ShowCaption = False
              Control = Label1
              ControlOptions.AutoColor = True
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group8: TdxLayoutGroup
              ShowCaption = False
              Hidden = True
              LayoutDirection = ldHorizontal
              ShowBorder = False
              object dxLayoutControl1Item8: TdxLayoutItem
                AutoAligns = []
                AlignHorz = ahClient
                AlignVert = avCenter
                Control = cbClienteFinal
                ControlOptions.ShowBorder = False
              end
              object dxLayoutControl1Item9: TdxLayoutItem
                AutoAligns = [aaVertical]
                AlignHorz = ahRight
                ShowCaption = False
                Control = bElegirClienteFinal
                ControlOptions.ShowBorder = False
              end
            end
          end
        end
      end
      object dxLayoutControl1Group5: TdxLayoutGroup
        AutoAligns = []
        AlignHorz = ahClient
        AlignVert = avClient
        Caption = 'Descripci'#243'n'
        LayoutDirection = ldHorizontal
        object dxLayoutControl1Item5: TdxLayoutItem
          AutoAligns = []
          AlignHorz = ahClient
          AlignVert = avClient
          Control = memObservaciones
          ControlOptions.ShowBorder = False
        end
      end
    end
  end
  object DADataSource: TDADataSource
    Left = 16
    Top = 56
  end
  object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
    Left = 120
    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 = 16
    Top = 24
  end
  object ActionList1: TActionList
    Left = 16
    Top = 96
    object actElegirClienteFinal: TAction
      Caption = '...'
      OnExecute = actElegirClienteFinalExecute
      OnUpdate = actElegirClienteFinalUpdate
    end
  end
end