object dmalumnos: Tdmalumnos
  OldCreateOrder = False
  Height = 741
  Width = 1086
  object qalumnos: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select id,ide,nombre_completo from alumnos where activo like(:PA' +
        'CTIVO) and ide=:PCENTRO and nombre_completo like (:PALUMNO) orde' +
        'r by apellidos'
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PACTIVO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    Left = 128
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PACTIVO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    object qalumnosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qalumnoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qalumnosnombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
  end
  object dsqalumnos: TDataSource
    DataSet = qalumnos
    OnDataChange = dsqalumnosDataChange
    Left = 65
    Top = 40
  end
  object qfaltas: TZQuery
    Connection = DM.dbjolly
    OnCalcFields = qfaltasCalcFields
    SQL.Strings = (
      
        'select * from sesiones_alumnos where asiste=0 and f_justificada=' +
        '0 and (ide,ida) in (select ide,ida from sesiones_alumnos where a' +
        'siste=0 and f_justificada=0 group by ida HAVING count(*)>1) orde' +
        'r by nombre')
    Params = <>
    Left = 128
    Top = 224
    object qfaltaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qfaltasidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qfaltasidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object qfaltasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qfaltasida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qfaltasnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qfaltasasiste: TIntegerField
      FieldName = 'asiste'
      Required = True
    end
    object qfaltasf_justificada: TIntegerField
      FieldName = 'f_justificada'
      Required = True
    end
    object qfaltasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qfaltasedad: TIntegerField
      FieldName = 'edad'
    end
    object qfaltasnomgrupo: TStringField
      FieldKind = fkCalculated
      FieldName = 'nomgrupo'
      Size = 100
      Calculated = True
    end
    object qfaltasnomprofesor: TStringField
      FieldKind = fkCalculated
      FieldName = 'nomprofesor'
      Size = 100
      Calculated = True
    end
  end
  object alumnos: TZQuery
    Connection = DM.dbjolly
    BeforeOpen = alumnosBeforeOpen
    BeforeRefresh = alumnosBeforeRefresh
    SQL.Strings = (
      
        'select * from alumnos where ide=:PCENTRO and id like (:PIDA) ord' +
        'er by apellidos')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    MasterFields = 'ide;id'
    MasterSource = dsqalumnos
    LinkedFields = 'ide;id'
    Left = 129
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object alumnosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object alumnoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object alumnosidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object alumnosnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object alumnosapellidos: TWideStringField
      FieldName = 'apellidos'
      Size = 100
    end
    object alumnosnombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
    object alumnosfecha_nacimiento: TDateField
      FieldName = 'fecha_nacimiento'
      OnValidate = alumnosfecha_nacimientoValidate
    end
    object alumnosob_medicas: TWideStringField
      FieldName = 'ob_medicas'
      Size = 510
    end
    object alumnosob_varias: TWideStringField
      FieldName = 'ob_varias'
      Size = 510
    end
    object alumnosdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 100
    end
    object alumnospoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 100
    end
    object alumnoscod_post: TWideStringField
      FieldName = 'cod_post'
      Size = 10
    end
    object alumnosprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 100
    end
    object alumnoscentroescolar: TWideStringField
      FieldName = 'centroescolar'
      Size = 100
    end
    object alumnosfecha_alta: TDateField
      FieldName = 'fecha_alta'
      OnValidate = alumnosfecha_altaValidate
    end
    object alumnosprueba_nivel: TWideStringField
      FieldName = 'prueba_nivel'
      Size = 100
    end
    object alumnostelefono1: TWideStringField
      FieldName = 'telefono1'
      Size = 30
    end
    object alumnosob_telefono1: TWideStringField
      FieldName = 'ob_telefono1'
      Size = 100
    end
    object alumnostelefono2: TWideStringField
      FieldName = 'telefono2'
      Size = 30
    end
    object alumnosob_telefono2: TWideStringField
      FieldName = 'ob_telefono2'
      Size = 100
    end
    object alumnosnombre_padre_madre: TWideStringField
      FieldName = 'nombre_padre_madre'
      Size = 100
    end
    object alumnospersona_autorizada: TWideStringField
      FieldName = 'persona_autorizada'
      Size = 100
    end
    object alumnosdescuento: TFloatField
      FieldName = 'descuento'
    end
    object alumnosactivo: TIntegerField
      FieldName = 'activo'
    end
    object alumnosetiqueta: TIntegerField
      FieldName = 'etiqueta'
    end
    object alumnospromociona: TWideStringField
      FieldName = 'promociona'
      Size = 40
    end
    object alumnostelefono_alumno: TWideStringField
      FieldName = 'telefono_alumno'
      Size = 40
    end
    object alumnoscorreo_alumno: TWideStringField
      FieldName = 'correo_alumno'
      Size = 100
    end
    object alumnosautomatico: TIntegerField
      FieldName = 'automatico'
      Required = True
    end
  end
  object dsalumnos: TDataSource
    DataSet = alumnos
    OnStateChange = dsalumnosStateChange
    Left = 57
    Top = 96
  end
  object imagenes_alumnos: TZQuery
    Connection = DM.dbjolly
    BeforeOpen = imagenes_alumnosBeforeOpen
    BeforeRefresh = imagenes_alumnosBeforeRefresh
    SQL.Strings = (
      
        'select * from imagenes where ide=:PCENTRO and idalumno=:PIDA ord' +
        'er by id desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    Left = 137
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object imagenes_alumnosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object imagenes_alumnoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object imagenes_alumnosidalumno: TIntegerField
      FieldName = 'idalumno'
    end
    object imagenes_alumnosidempleado: TIntegerField
      FieldName = 'idempleado'
    end
    object imagenes_alumnosidlibro: TWideStringField
      FieldName = 'idlibro'
      Size = 100
    end
    object imagenes_alumnosimagen: TBlobField
      FieldName = 'imagen'
    end
    object imagenes_alumnostipo: TWideStringField
      FieldName = 'tipo'
      Size = 10
    end
    object imagenes_alumnosarchivo: TWideStringField
      FieldName = 'archivo'
      Size = 200
    end
  end
  object dsimg_alumnos: TDataSource
    DataSet = imagenes_alumnos
    OnDataChange = dsimg_alumnosDataChange
    Left = 65
    Top = 168
  end
  object qclientes: TZReadOnlyQuery
    Connection = DM.dbjolly
    BeforeOpen = qclientesBeforeOpen
    BeforeRefresh = qclientesBeforeRefresh
    SQL.Strings = (
      
        'select * from clientes where ide=:PCENTRO order by nombre_comple' +
        'to')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    object qclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qclienteside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qclientesnif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 30
    end
    object qclientesnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qclientesapellidos: TWideStringField
      FieldName = 'apellidos'
      Size = 100
    end
    object qclientesnombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
    object qclientesdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 100
    end
    object qclientespoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 100
    end
    object qclientescodpost: TWideStringField
      FieldName = 'codpost'
      Size = 100
    end
    object qclientesprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 100
    end
    object qclientestelefono1: TWideStringField
      FieldName = 'telefono1'
      Size = 30
    end
    object qclientestelefono2: TWideStringField
      FieldName = 'telefono2'
      Size = 30
    end
    object qclientesemail: TWideStringField
      FieldName = 'email'
      Size = 100
    end
    object qclientesformapago: TWideStringField
      FieldName = 'formapago'
      Size = 100
    end
    object qclientesentidad: TWideStringField
      FieldName = 'entidad'
      Size = 60
    end
    object qclientesiban: TWideStringField
      FieldName = 'iban'
      Size = 8
    end
    object qclientescuenta: TWideStringField
      FieldName = 'cuenta'
      Size = 100
    end
    object qclientesswift: TWideStringField
      FieldName = 'swift'
      Size = 16
    end
    object qclientesactivo: TIntegerField
      FieldName = 'activo'
    end
    object qclientesdescuento: TIntegerField
      FieldName = 'descuento'
    end
    object qclientesidfp: TIntegerField
      FieldName = 'idfp'
      Required = True
    end
    object qclientesautorizalpd: TIntegerField
      FieldName = 'autorizalpd'
    end
  end
  object dsqclientes: TDataSource
    DataSet = qclientes
    OnDataChange = dsqclientesDataChange
    Left = 265
    Top = 40
  end
  object notas: TZQuery
    Connection = DM.dbjolly
    BeforeOpen = notasBeforeOpen
    BeforeRefresh = notasBeforeRefresh
    SQL.Strings = (
      'select * from notas where ide=:PCENTRO and ida=:PIDA')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    MasterFields = 'ide;ida;idg'
    MasterSource = dsqasistiralumno
    LinkedFields = 'ide;ida;idg'
    Left = 336
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object notasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object notaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object notasida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object notasidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object notasfechaeval1: TDateField
      FieldName = 'fechaeval1'
      DisplayFormat = 'DD/MM/YY'
    end
    object notaslistening1: TFloatField
      FieldName = 'listening1'
    end
    object notasspeaking1: TFloatField
      FieldName = 'speaking1'
    end
    object notasreading1: TFloatField
      FieldName = 'reading1'
    end
    object notaswriting1: TFloatField
      FieldName = 'writing1'
    end
    object notasvocabulary1: TFloatField
      FieldName = 'vocabulary1'
    end
    object notasdesarrollo1: TFloatField
      FieldName = 'desarrollo1'
    end
    object notasfechaeval2: TDateField
      FieldName = 'fechaeval2'
      DisplayFormat = 'DD/MM/YY'
    end
    object notaslistenig2: TFloatField
      FieldName = 'listenig2'
    end
    object notasspeaking2: TFloatField
      FieldName = 'speaking2'
    end
    object notasreading2: TFloatField
      FieldName = 'reading2'
    end
    object notaswriting2: TFloatField
      FieldName = 'writing2'
    end
    object notasvocabulary2: TFloatField
      FieldName = 'vocabulary2'
    end
    object notasdesarrollo2: TFloatField
      FieldName = 'desarrollo2'
    end
    object notasobservaciones: TWideMemoField
      FieldName = 'observaciones'
      BlobType = ftWideMemo
    end
    object notasobservaciones2: TWideMemoField
      FieldName = 'observaciones2'
      BlobType = ftWideMemo
    end
    object notaspromocionar_a: TWideStringField
      FieldName = 'promocionar_a'
      Size = 50
    end
    object notasnota1eval: TFloatField
      FieldName = 'nota1eval'
    end
    object notasnota2eval: TFloatField
      FieldName = 'nota2eval'
    end
    object notasnotafinal: TFloatField
      FieldName = 'notafinal'
    end
    object notaslistening3: TFloatField
      FieldName = 'listening3'
    end
    object notasreading3: TFloatField
      FieldName = 'reading3'
    end
    object notaswriting3: TFloatField
      FieldName = 'writing3'
    end
    object notasspeaking3: TFloatField
      FieldName = 'speaking3'
    end
    object notasvocabulary3: TFloatField
      FieldName = 'vocabulary3'
    end
    object notasdesarrollo3: TFloatField
      FieldName = 'desarrollo3'
    end
    object notasobservaciones3: TWideMemoField
      FieldName = 'observaciones3'
      BlobType = ftWideMemo
    end
  end
  object dsnotas: TDataSource
    DataSet = notas
    OnStateChange = dsnotasStateChange
    Left = 264
    Top = 160
  end
  object qgrupos: TZReadOnlyQuery
    Connection = DM.dbjolly
    BeforeOpen = qgruposBeforeOpen
    BeforeRefresh = qgruposBeforeRefresh
    SQL.Strings = (
      
        'select g.*,a.nombre as aula,p.nombre as profesor from grupos g,a' +
        'ulas a,empleados p,impartir i where i.idp=p.id and i.ide=p.ide a' +
        'nd i.idg=g.id and i.ide=g.ide and g.ide=a.ide and g.idaula=a.id ' +
        'and g.activo=1 and g.ide=:PCENTRO order by idcurso desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 224
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    object qgruposid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qgruposide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qgruposidcurso: TIntegerField
      FieldName = 'idcurso'
      Required = True
    end
    object qgruposidaula: TIntegerField
      FieldName = 'idaula'
      Required = True
    end
    object qgruposcurso: TWideStringField
      FieldName = 'curso'
      Size = 50
    end
    object qgruposnombre: TWideStringField
      DisplayWidth = 30
      FieldName = 'nombre'
      Size = 100
    end
    object qgruposfechainicio: TDateField
      FieldName = 'fechainicio'
    end
    object qgruposfechafin: TDateField
      FieldName = 'fechafin'
    end
    object qgrupospreciototal: TFloatField
      FieldName = 'preciototal'
    end
    object qgrupospreciomensual: TFloatField
      FieldName = 'preciomensual'
    end
    object qgruposnum_dias: TIntegerField
      FieldName = 'num_dias'
    end
    object qgruposdias: TWideStringField
      FieldName = 'dias'
      Size = 88
    end
    object qgruposhorainicio: TTimeField
      FieldName = 'horainicio'
    end
    object qgruposhorafin: TTimeField
      FieldName = 'horafin'
    end
    object qgruposhorassemanales: TIntegerField
      FieldName = 'horassemanales'
    end
    object qgruposmasdias: TWideStringField
      FieldName = 'masdias'
      Size = 88
    end
    object qgruposhorainicio2: TTimeField
      FieldName = 'horainicio2'
    end
    object qgruposhorafin2: TTimeField
      FieldName = 'horafin2'
    end
    object qgruposplazas: TIntegerField
      FieldName = 'plazas'
    end
    object qgruposactivo: TIntegerField
      FieldName = 'activo'
    end
    object qgruposfechabaja: TDateField
      FieldName = 'fechabaja'
    end
    object qgruposmotivobaja: TWideStringField
      FieldName = 'motivobaja'
      Size = 100
    end
    object qgruposdocumentacion: TBlobField
      FieldName = 'documentacion'
    end
    object qgruposplazas_ocupadas: TIntegerField
      FieldName = 'plazas_ocupadas'
      Required = True
    end
    object qgruposplazas_libres: TIntegerField
      DisplayWidth = 4
      FieldName = 'plazas_libres'
      Required = True
    end
    object qgruposnota_minima: TFloatField
      FieldName = 'nota_minima'
      Required = True
    end
    object qgruposseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qgruposaula: TWideStringField
      FieldName = 'aula'
      Required = True
      Size = 100
    end
    object qgruposprofesor: TWideStringField
      FieldName = 'profesor'
      Required = True
      Size = 40
    end
  end
  object asistir: TZQuery
    Connection = DM.dbjolly
    AfterInsert = asistirAfterInsert
    AfterPost = asistirAfterPost
    AfterDelete = asistirAfterDelete
    SQL.Strings = (
      'select * from asistir where id=:PID order by fechainicio desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
    Left = 337
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
    object asistirid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object asistiride: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object asistirida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object asistiridg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object asistirfechainicio: TDateField
      FieldName = 'fechainicio'
      OnValidate = asistirfechainicioValidate
    end
    object asistirfechafin: TDateField
      FieldName = 'fechafin'
      OnValidate = asistirfechafinValidate
    end
    object asistirfechabaja: TDateField
      FieldName = 'fechabaja'
      OnValidate = asistirfechabajaValidate
    end
    object asistirmotivo_baja: TWideStringField
      FieldName = 'motivo_baja'
      Size = 50
    end
    object asistirdevoluciones: TSmallintField
      FieldName = 'devoluciones'
      Required = True
    end
    object asistirimporte_abono: TFloatField
      FieldName = 'importe_abono'
    end
    object asistirfecha_abono: TDateField
      FieldName = 'fecha_abono'
      OnValidate = asistirfecha_abonoValidate
    end
  end
  object dsasistir: TDataSource
    DataSet = asistir
    OnStateChange = dsasistirStateChange
    Left = 257
    Top = 272
  end
  object qaux2: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      'select domiciliado from formas_pago')
    Params = <>
    Left = 666
    Top = 40
  end
  object dsqcursos2: TDataSource
    DataSet = qcursos2
    Left = 258
    Top = 319
  end
  object qcursos2: TZReadOnlyQuery
    Connection = DM.dbjolly
    BeforeOpen = qcursos2BeforeOpen
    BeforeRefresh = qcursos2BeforeRefresh
    SQL.Strings = (
      
        'select * from cursos where activo=1 and ide=:PCENTRO order by no' +
        'mbre')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    Left = 338
    Top = 311
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end>
    object qcursos2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcursos2ide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcursos2nombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 100
    end
    object qcursos2fechainicio: TDateField
      FieldName = 'fechainicio'
    end
    object qcursos2fechafin: TDateField
      FieldName = 'fechafin'
    end
    object qcursos2precio_material: TFloatField
      FieldName = 'precio_material'
      Required = True
    end
    object qcursos2activo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qcursos2precio_curso: TFloatField
      FieldName = 'precio_curso'
    end
    object qcursos2precio_mes: TFloatField
      FieldName = 'precio_mes'
    end
    object qcursos2anyo_escolar: TWideStringField
      FieldName = 'anyo_escolar'
      Size = 30
    end
  end
  object dsqgrupos: TDataSource
    DataSet = qgrupos
    Left = 258
    Top = 231
  end
  object qrecibosalumno: TZQuery
    Connection = DM.dbjolly
    BeforeOpen = qrecibosalumnoBeforeOpen
    BeforeRefresh = qrecibosalumnoBeforeRefresh
    SQL.Strings = (
      
        'select * from cobros where ide=:PCENTRO and ida=:PIDA order by p' +
        'agado,fecharecibo desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    Left = 337
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object qrecibosalumnoid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qrecibosalumnoide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qrecibosalumnoidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qrecibosalumnoida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qrecibosalumnoidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object qrecibosalumnofecharecibo: TDateField
      FieldName = 'fecharecibo'
      Required = True
    end
    object qrecibosalumnofechacobro: TDateField
      FieldName = 'fechacobro'
      Required = True
    end
    object qrecibosalumnoconcepto: TWideStringField
      FieldName = 'concepto'
      Required = True
      Size = 100
    end
    object qrecibosalumnoimporte: TFloatField
      FieldName = 'importe'
      Required = True
    end
    object qrecibosalumnoentrega: TFloatField
      FieldName = 'entrega'
      Required = True
    end
    object qrecibosalumnopagado: TIntegerField
      FieldName = 'pagado'
      Required = True
    end
    object qrecibosalumnodomiciliado: TIntegerField
      FieldName = 'domiciliado'
      Required = True
    end
    object qrecibosalumnomaterial: TIntegerField
      FieldName = 'material'
      Required = True
    end
  end
  object dsqrecibosalumno: TDataSource
    DataSet = qrecibosalumno
    Left = 257
    Top = 360
  end
  object qasistiralumno: TZReadOnlyQuery
    Connection = DM.dbjolly
    BeforeOpen = qasistiralumnoBeforeOpen
    BeforeRefresh = qasistiralumnoBeforeRefresh
    SQL.Strings = (
      
        'select a.*,g.curso,i.idp,e.nombre as nomprofesor,g.nombre from a' +
        'sistir a,grupos g,impartir i,empleados e where g.ide=i.ide and g' +
        '.id=i.idg and e.ide=i.ide and e.id=i.idp and a.ide=g.ide and a.i' +
        'dg=g.id and a.ide=:PCENTRO and a.ida=:PIDA order by a.fechainici' +
        'o desc,g.curso desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCENTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object qasistiralumnoid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qasistiralumnoide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qasistiralumnoida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qasistiralumnoidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object qasistiralumnofechainicio: TDateField
      FieldName = 'fechainicio'
      DisplayFormat = 'dd/mm/yy'
    end
    object qasistiralumnofechafin: TDateField
      FieldName = 'fechafin'
      DisplayFormat = 'dd/mm/yy'
    end
    object qasistiralumnofechabaja: TDateField
      FieldName = 'fechabaja'
      DisplayFormat = 'dd/mm/yy'
    end
    object qasistiralumnomotivo_baja: TWideStringField
      FieldName = 'motivo_baja'
      Size = 50
    end
    object qasistiralumnodevoluciones: TSmallintField
      FieldName = 'devoluciones'
      Required = True
    end
    object qasistiralumnoimporte_abono: TFloatField
      FieldName = 'importe_abono'
      Required = True
    end
    object qasistiralumnofecha_abono: TDateField
      FieldName = 'fecha_abono'
      DisplayFormat = 'dd/mm/yy'
    end
    object qasistiralumnocurso: TWideStringField
      FieldName = 'curso'
      Size = 50
    end
    object qasistiralumnonombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qasistiralumnoidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qasistiralumnonomprofesor: TWideStringField
      FieldName = 'nomprofesor'
      Required = True
      Size = 40
    end
  end
  object dsqasistiralumno: TDataSource
    DataSet = qasistiralumno
    OnDataChange = dsqasistiralumnoDataChange
    Left = 257
  end
  object dsqdocumentosal: TDataSource
    DataSet = qdocumentosal
    Left = 480
    Top = 112
  end
  object qdocumentosal: TZQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select * from documentos where ide=:PEMPRESA and ida=:PALUMNO or' +
        'der by fecha desc,descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    Left = 488
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    object qdocumentosalid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qdocumentosalide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qdocumentosalfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qdocumentosaldescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object qdocumentosalarchivo: TBlobField
      FieldName = 'archivo'
    end
    object qdocumentosalnomarchivo: TWideStringField
      FieldName = 'nomarchivo'
      Size = 200
    end
    object qdocumentosalextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
    object qdocumentosalida: TIntegerField
      FieldName = 'ida'
    end
    object qdocumentosalidc: TIntegerField
      FieldName = 'idc'
    end
    object qdocumentosalidp: TIntegerField
      FieldName = 'idp'
    end
    object qdocumentosalidplan: TIntegerField
      FieldName = 'idplan'
    end
    object qdocumentosalidcurso: TIntegerField
      FieldName = 'idcurso'
    end
  end
  object dsqdocumentosemp: TDataSource
    DataSet = qdocumentosemp
    Left = 616
    Top = 112
  end
  object qdocumentosemp: TZQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select * from documentos where ide=:PEMPRESA and idp=:PEMPLEADO ' +
        'order by fecha desc,descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PEMPLEADO'
        ParamType = ptUnknown
      end>
    Left = 624
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PEMPLEADO'
        ParamType = ptUnknown
      end>
    object qdocumentosempid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qdocumentosempide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qdocumentosempfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qdocumentosempdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object qdocumentosemparchivo: TBlobField
      FieldName = 'archivo'
    end
    object qdocumentosempnomarchivo: TWideStringField
      FieldName = 'nomarchivo'
      Size = 200
    end
    object qdocumentosempextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
    object qdocumentosempida: TIntegerField
      FieldName = 'ida'
    end
    object qdocumentosempidc: TIntegerField
      FieldName = 'idc'
    end
    object qdocumentosempidp: TIntegerField
      FieldName = 'idp'
    end
    object qdocumentosempidplan: TIntegerField
      FieldName = 'idplan'
    end
    object qdocumentosempidcurso: TIntegerField
      FieldName = 'idcurso'
    end
  end
  object qidasistir: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      'select ifnull(max(id)+1,1) as id from asistir')
    Params = <>
    Left = 776
    Top = 40
    object qidasistirid: TLargeintField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object qmaxidalumno: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select ifnull ((max(id)+1),1) as id from alumnos where ide=:cent' +
        'ro')
    Params = <
      item
        DataType = ftUnknown
        Name = 'centro'
        ParamType = ptUnknown
      end>
    Left = 474
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'centro'
        ParamType = ptUnknown
      end>
    object qmaxidalumnoid: TLargeintField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object dsqdocumentoscli: TDataSource
    DataSet = qdocumentoscli
    Left = 744
    Top = 112
  end
  object qdocumentoscli: TZQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select * from documentos where ide=:PEMPRESA and idc=:PCLIENTE o' +
        'rder by fecha desc,descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end>
    Left = 752
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end>
    object qdocumentoscliid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qdocumentoscliide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qdocumentosclifecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qdocumentosclidescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object qdocumentoscliarchivo: TBlobField
      FieldName = 'archivo'
    end
    object qdocumentosclinomarchivo: TWideStringField
      FieldName = 'nomarchivo'
      Size = 200
    end
    object qdocumentoscliextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
    object qdocumentoscliida: TIntegerField
      FieldName = 'ida'
    end
    object qdocumentoscliidc: TIntegerField
      FieldName = 'idc'
    end
    object qdocumentoscliidp: TIntegerField
      FieldName = 'idp'
    end
    object qdocumentoscliidplan: TIntegerField
      FieldName = 'idplan'
    end
    object qdocumentoscliidcurso: TIntegerField
      FieldName = 'idcurso'
    end
  end
end