gestionServicios/src/cuentaPolizas.dfm

object gestionCuentaPolizas: TgestionCuentaPolizas
  Left = 118
  Top = 122
  Width = 800
  Height = 600
  Caption = 'Cuenta Polizas'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 568
      Top = 8
      Width = 23
      Height = 22
      Caption = '<'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 592
      Top = 8
      Width = 23
      Height = 22
      Caption = '>'
      OnClick = SpeedButton2Click
    end
    object BitBtn1: TBitBtn
      Left = 456
      Top = 8
      Width = 107
      Height = 24
      Caption = '&Filtrar'
      Default = True
      TabOrder = 0
      OnClick = execFilter
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        10000300000000020000120B0000120B00000000000000000000007C0000E003
        00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FBB6FF14A2722E415C4150722D14ABB6FFF7F
        FF7FFF7FFF7FFF7FFF7FFF7F565B261A682A304F53575357104B4726E619365B
        FF7FFF7FFF7FFF7FFF7F765F2416ED42745B304BEC3EEC3E304B545BCC3EC415
        365BFF7FFF7FFF7FBB7386220E43745BEC3AEB3ACB3ACB36CB36CB3A545BCD3E
        E619BB6FFF7FFF7F524FA932755BEC3EEC3A0E43BA6B314FCA36CB36CB3A745B
        6826F14AFF7FFF7FC82E524F514F0C3B0F43DD7BFF7FFF7F304BCB36CB3A304B
        104F2722FF7FFF7FA52674572E3F2E43DD77FF7FDD77FF7FFF7F314BCB3AED3E
        5357E415FF7FFF7FC62A745B2E430C3B755BBA6BEC3A965FFF7FFF7F314FED3E
        54570416FF7FFF7F09375253524F0D3B0C370C370C370C37965FFF7FDC73314F
        314F6722FF7FFF7F7357EB3A755B2D3F0D3B0C3B0C370C370C3B965F0D3F755B
        A92E114BFF7FFF7FDC7309332F4B755B2D3F2D3B0D3B0D3B0D3B0D3F755B0E47
        8622BB73FF7FFF7FFF7FB767072F2F4B755B524F2E432E43524F755B0F47851E
        765FFF7FFF7FFF7FFF7FFF7FB76709370B3B5253745774575253CA36C62A965F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FDC7393572A3BE72EE72E09377257DB73FF7F
        FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        FF7FFF7FFF7F}
    end
    object srch_agentes: TComboBox
      Left = 232
      Top = 8
      Width = 217
      Height = 24
      ItemHeight = 16
      TabOrder = 1
    end
    object srch_mes: TComboBox
      Left = 8
      Top = 8
      Width = 145
      Height = 24
      ItemHeight = 16
      ItemIndex = 0
      TabOrder = 2
      Text = 'Enero'
      Items.Strings = (
        'Enero'
        'Febrero'
        'Marzo'
        'Abril'
        'Mayo'
        'Junio'
        'Julio'
        'Agosto'
        'Septiembre'
        'Octubre'
        'Noviembre'
        'Diciembre')
    end
    object srch_ano: TEdit
      Left = 160
      Top = 8
      Width = 49
      Height = 24
      ReadOnly = True
      TabOrder = 3
      Text = '2.010'
    end
    object UpDown1: TUpDown
      Left = 209
      Top = 8
      Width = 15
      Height = 24
      Associate = srch_ano
      Min = 1900
      Max = 2100
      Position = 2010
      TabOrder = 4
      Wrap = False
    end
    object BitBtn2: TBitBtn
      Left = 656
      Top = 8
      Width = 107
      Height = 24
      Caption = '&Imprimir'
      Default = True
      TabOrder = 5
      OnClick = BitBtn2Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000000000000000
        0000000000000000007A7A7A696969000000696969A1A1A10000000000000000
        000000000000000000000000000000000000001E1E1E8C8C8C8C8C8CB2B2B287
        8787785757B59797A1A1A1A1A1A1A1A1A1000000000000000000000000000000
        8C8C8C8C8C8CF0F0F0E7E7E7A9A9A99F9F9F3A34344B4B4B6E6E6EB7B7B7C2C2
        C2A1A1A1A1A1A10000000000008C8C8CFEFEFEF0F0F0E7E7E7DADADAA0A0A096
        96968383836363635757576E6E6E969696B1B1B17575750000000000008C8C8C
        F0F0F0DDDDDDA1A1A18181816E6E6E6C6C6C767676939393A9A9A99A9A9A6868
        687575750000000000000000008C8C8C9696968C8C8CBCBCBCC4C4C4CBCBCB9D
        9D9D959595767676747474747474879D8E7575750000000000000000008C8C8C
        D1D1D1CFCFCFC4C4C4CECECE9D9D9DA1A1A1A1A1A1CCCCCCC2C2C2B5B5B58E8E
        8E7575750000000000000000008C8C8CD0D0D0C4C4C4C7C7C79D9D9DDADADAEA
        EAEADADADAA1A1A1A1A1A1A1A1A1B4B4B4757575000000000000000000CECECE
        9D9D9D9D9D9D9D9D9DBDBDBDD5D5D5E6E6E6EAEAEAE7E7E7E1E1E1DEDEDEA1A1
        A1B1B1B1000000000000000000000000000000D3D3D3D1936DB0B0B0B0B0B0B0
        B0B0B0B0B0B0B0B0C1C1C1A3A3A39C9C9C000000000000000000000000000000
        0000009F8181D1936DFFCA98FFDAB6FFE0C2F2D9C1D1936D8787870000000000
        00000000000000000000000000000000000000D1936DFFD5AFFFD5AFFFD5AFFF
        D5AFFFD5AFD1936D000000000000000000000000000000000000000000000000
        000000D1936DFFE1C5FFE1C5FFE1C5FFE1C5FFE1C5D1936D0000000000000000
        00000000000000000000000000000000814B4BD1936DFFEEDDFFEEDDFFEEDDFF
        EEDDFFEEDDD1936D000000000000000000000000000000000000000000000000
        D1936DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD1936D0000000000000000000000
        00000000000000000000000000814B4BD1936DD1936DD1936DD1936DD1936DD1
        936DA98181000000000000000000000000000000000000000000}
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 792
    Height = 463
    Align = alClient
    DataSource = dsCuentaPolizas
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fecha'
        Title.Caption = 'Fecha'
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nombre'
        Title.Caption = 'Nombre'
        Width = 261
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'numPoliza'
        Title.Caption = 'Num. Poliza'
        Width = 129
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'primaNeta'
        Title.Caption = 'Prima Neta'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'comision'
        Title.Caption = 'Comision'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'puntos'
        Title.Caption = 'Puntos'
        Width = 90
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 504
    Width = 792
    Height = 66
    Align = alBottom
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 376
      Top = 8
      Width = 80
      Height = 16
      Caption = 'Total Polizas'
    end
    object Label2: TLabel
      Left = 504
      Top = 8
      Width = 79
      Height = 16
      Caption = 'T. Pima Neta'
    end
    object Label3: TLabel
      Left = 592
      Top = 8
      Width = 71
      Height = 16
      Caption = 'T. Comisi'#243'n'
    end
    object Label4: TLabel
      Left = 688
      Top = 8
      Width = 60
      Height = 16
      Caption = 'T. Puntos'
    end
    object lbTotalPolizas: TLabel
      Left = 376
      Top = 32
      Width = 87
      Height = 16
      Alignment = taRightJustify
      Caption = 'lbTotalPolizas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbTotalPrimaNeta: TLabel
      Left = 504
      Top = 32
      Width = 87
      Height = 16
      Alignment = taRightJustify
      Caption = 'lbTotalPolizas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbTotalComision: TLabel
      Left = 584
      Top = 32
      Width = 87
      Height = 16
      Alignment = taRightJustify
      Caption = 'lbTotalPolizas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbTotalPuntos: TLabel
      Left = 672
      Top = 32
      Width = 87
      Height = 16
      Alignment = taRightJustify
      Caption = 'lbTotalPolizas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object zqCuentaPolizas: TZQuery
    Connection = gestionClientes.ZConnection1
    OnNewRecord = zqCuentaPolizasNewRecord
    SQL.Strings = (
      
        'SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,punto' +
        's'
      ' FROM cuentaPolizas')
    Params = <>
    Left = 216
    Top = 448
    object zqCuentaPolizasid: TIntegerField
      AutoGenerateValue = arAutoInc
      FieldName = 'id'
    end
    object zqCuentaPolizasagente: TIntegerField
      FieldName = 'agente'
    end
    object zqCuentaPolizasfecha: TDateField
      FieldName = 'fecha'
    end
    object zqCuentaPolizasnombre: TStringField
      FieldName = 'nombre'
      Size = 45
    end
    object zqCuentaPolizasnumPoliza: TStringField
      FieldName = 'numPoliza'
      Size = 45
    end
    object zqCuentaPolizasprimaNeta: TFloatField
      FieldName = 'primaNeta'
    end
    object zqCuentaPolizascomision: TFloatField
      FieldName = 'comision'
    end
    object zqCuentaPolizaspuntos: TFloatField
      FieldName = 'puntos'
    end
  end
  object dsCuentaPolizas: TDataSource
    DataSet = zqCuentaPolizas
    Left = 216
    Top = 416
  end
end