CAP/cap_gestion/capg_ifact.dfm

object iFact: TiFact
  Left = 262
  Top = 130
  Width = 696
  Height = 480
  Caption = 'CAP-ges'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 20
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 81
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 0
      Top = -4
      Width = 382
      Height = 45
      Caption = 'Informaci'#243'n facturas'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'Arial Black'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 0
      Top = 32
      Width = 577
      Height = 9
      Shape = bsBottomLine
    end
    object CardOK: TImage
      Left = 488
      Top = 0
      Width = 24
      Height = 24
      AutoSize = True
      Picture.Data = {
        07544269746D617096010000424D960100000000000076000000280000001800
        0000180000000100040000000000200100000000000000000000100000000000
        000000000000000080000080000000808000800000008000800080800000C0C0
        C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF00FFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFF
        991100000FFFFFFF00000000099110880FFF0000888888888001108800FF8888
        888888888880088808FF88888888888888888888080F88888888888888888888
        080B88888888888888888888080B888888888000000000008801888800000777
        7777777808010000FFFFF777777777788001FFFFFFF77777FFF00000000BFFFF
        FF777000000BBBBBBBBBFF7700000BBBBBBBBB111111000077BBBBBB111111BB
        BBBB777700BB1111BBBBBBBBBBBB0000FFBBBBBBBBBBB33BBBBBFFFFFFB33BBB
        3BBBB33BBB3BFFFFFFBB3BB33B3BBBBBBBBBFFFFFFB33BBBBBB3BBBBBBBBFFFF
        FFB33BBBBBBBBBBBFFFFFFFFFFBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFF}
      Visible = False
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 58
      Height = 20
      Caption = 'Periodo:'
    end
    object fdesde: TDateTimePicker
      Left = 72
      Top = 48
      Width = 89
      Height = 28
      CalAlignment = dtaLeft
      Date = 37301
      Time = 37301
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object fhasta: TDateTimePicker
      Left = 168
      Top = 48
      Width = 89
      Height = 28
      CalAlignment = dtaLeft
      Date = 37301
      Time = 37301
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 264
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Calcular'
      TabOrder = 2
      OnClick = BitBtn1Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 81
    Width = 688
    Height = 368
    ActivePage = TabSheet2
    Align = alClient
    MultiLine = True
    Style = tsFlatButtons
    TabIndex = 1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'General'
      object Label3: TLabel
        Left = 16
        Top = 40
        Width = 192
        Height = 20
        Caption = 'Facturaci'#243'n por Abonados:'
      end
      object Label4: TLabel
        Left = 16
        Top = 64
        Width = 206
        Height = 20
        Caption = 'Facturaci'#243'n por Ocacionales:'
      end
      object lTotalA: TLabel
        Left = 240
        Top = 40
        Width = 91
        Height = 20
        Caption = 'Calculando...'
      end
      object lTotalNA: TLabel
        Left = 240
        Top = 64
        Width = 91
        Height = 20
        Caption = 'Calculando...'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Impagados'
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 330
        Align = alClient
        DataSource = DsPendientes
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Title.Alignment = taCenter
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fechaE'
            Title.Caption = 'Desde...'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fechaS'
            Title.Alignment = taRightJustify
            Title.Caption = '...Hasta'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'importe'
            Title.Alignment = taCenter
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NombreC'
            Title.Caption = 'Nombre'
            Width = 121
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ApellidoC'
            Title.Caption = 'Apellidos'
            Visible = True
          end>
      end
    end
  end
  object TbFacturas: TTable
    TableName = 'datos\TbFacturas.db'
    Left = 372
    Top = 131
  end
  object TbPendientes: TTable
    Filter = '[pagado]=false'
    Filtered = True
    TableName = 'datos\TbFacturas.db'
    Left = 436
    Top = 131
    object TbPendientesid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object TbPendientesidc: TIntegerField
      FieldName = 'idc'
    end
    object TbPendientesimporte: TCurrencyField
      FieldName = 'importe'
    end
    object TbPendientesfechaE: TDateField
      FieldName = 'fechaE'
    end
    object TbPendientesfechaS: TDateField
      FieldName = 'fechaS'
    end
    object TbPendienteshoraE: TTimeField
      FieldName = 'horaE'
    end
    object TbPendienteshoraS: TTimeField
      FieldName = 'horaS'
    end
    object TbPendientespagado: TBooleanField
      FieldName = 'pagado'
    end
    object TbPendientesNombreC: TStringField
      FieldKind = fkLookup
      FieldName = 'NombreC'
      LookupDataSet = TbAbonados
      LookupKeyFields = 'ida'
      LookupResultField = 'nombre'
      KeyFields = 'idc'
      Lookup = True
    end
    object TbPendientesApellidoC: TStringField
      FieldKind = fkLookup
      FieldName = 'ApellidoC'
      LookupDataSet = TbAbonados
      LookupKeyFields = 'ida'
      LookupResultField = 'apellidos'
      KeyFields = 'idc'
      Lookup = True
    end
  end
  object DsPendientes: TDataSource
    DataSet = TbPendientes
    Left = 432
    Top = 96
  end
  object TbAbonados: TTable
    TableName = 'datos\abonados.db'
    Left = 468
    Top = 131
  end
end