object DMINF: TDMINF
  OldCreateOrder = False
  Height = 331
  Width = 585
  object qgruposalumnos: TZReadOnlyQuery
    Connection = DM.dbjolly
    OnCalcFields = qgruposalumnosCalcFields
    SQL.Strings = (
      
        'select p.id as idprofesor,p.nombre_completo as nomprofesor,g.nom' +
        'bre as nomgrupo,al.nombre as nomalumno,al.apellidos,al.fecha_nac' +
        'imiento,al.ob_medicas,al.correo_alumno,cl.email,g.dias,g.horaini' +
        'cio,g.horafin,(select nombre from aulas where id=g.idaula and id' +
        'e=g.ide) as aula from impartir i,grupos g, asistir a,alumnos al,' +
        ' empleados p,clientes cl where'
      
        ' al.ide=cl.ide and al.idc=cl.id and a.ide=al.ide and a.ide=p.ide' +
        ' and a.ida=al.id and a.idg=g.id and g.id=i.idg '
      
        ' and i.idp=p.id and g.activo=1 and a.fechabaja is null and g.id=' +
        ':GRUPO and p.nombre_completo=:PROFESOR'
      ' order by p.nombre_completo,g.id,al.apellidos,al.nombre')
    Params = <
      item
        DataType = ftUnknown
        Name = 'GRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PROFESOR'
        ParamType = ptUnknown
      end>
    Left = 40
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'GRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PROFESOR'
        ParamType = ptUnknown
      end>
    object qgruposalumnosidprofesor: TIntegerField
      FieldName = 'idprofesor'
      Required = True
    end
    object qgruposalumnosnomprofesor: TWideStringField
      FieldName = 'nomprofesor'
      Required = True
      Size = 100
    end
    object qgruposalumnosnomgrupo: TWideStringField
      FieldName = 'nomgrupo'
      Size = 100
    end
    object qgruposalumnosnomalumno: TWideStringField
      FieldName = 'nomalumno'
      Size = 100
    end
    object qgruposalumnosapellidos: TWideStringField
      FieldName = 'apellidos'
      Size = 100
    end
    object qgruposalumnosfecha_nacimiento: TDateField
      FieldName = 'fecha_nacimiento'
    end
    object qgruposalumnosob_medicas: TWideStringField
      FieldName = 'ob_medicas'
      Size = 510
    end
    object qgruposalumnosedad: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'edad'
      Calculated = True
    end
    object qgruposalumnoscorreo_alumno: TWideStringField
      FieldName = 'correo_alumno'
      Size = 100
    end
    object qgruposalumnosemail: TWideStringField
      FieldName = 'email'
      Size = 100
    end
    object qgruposalumnosdias: TWideStringField
      FieldName = 'dias'
      Size = 88
    end
    object qgruposalumnoshorainicio: TTimeField
      FieldName = 'horainicio'
    end
    object qgruposalumnoshorafin: TTimeField
      FieldName = 'horafin'
    end
    object qgruposalumnosaula: TWideStringField
      FieldName = 'aula'
      ReadOnly = True
      Size = 100
    end
  end
  object dsgruposalumnos: TDataSource
    DataSet = qgruposalumnos
    Left = 40
    Top = 24
  end
  object dsqinfrecibo: TDataSource
    DataSet = qinfrecibo
    Left = 121
    Top = 24
  end
  object qinfrecibo: TZQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select c.*,cli.nif,cli.nombre_completo as nomcliente,a.nombre_co' +
        'mpleto as nomalumno,g.nombre as nomgrupo,(select descripcion fro' +
        'm formas_pago where ide=c.ide and id=c.forma_pago) as descpago f' +
        'rom cobros c,clientes cli,alumnos a,grupos g where c.ide=cli.ide' +
        ' and c.idc=cli.id and c.ide=a.ide and c.ida=a.id and  c.ide=g.id' +
        'e and c.idg=g.id and cli.ide=a.ide and cli.id=a.idc and c.selecc' +
        'ionado=1')
    Params = <>
    Left = 121
    Top = 8
    object qinfreciboid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qinfreciboide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qinfreciboidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qinfreciboida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qinfreciboidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object qinfrecibofecharecibo: TDateField
      FieldName = 'fecharecibo'
      Required = True
    end
    object qinfrecibofechacobro: TDateField
      FieldName = 'fechacobro'
    end
    object qinfreciboconcepto: TWideStringField
      FieldName = 'concepto'
      Required = True
      Size = 100
    end
    object qinfreciboimporte: TFloatField
      FieldName = 'importe'
      Required = True
    end
    object qinfreciboentrega: TFloatField
      FieldName = 'entrega'
    end
    object qinfrecibopagado: TIntegerField
      FieldName = 'pagado'
      Required = True
    end
    object qinfrecibodomiciliado: TIntegerField
      FieldName = 'domiciliado'
      Required = True
    end
    object qinfrecibomaterial: TIntegerField
      FieldName = 'material'
      Required = True
    end
    object qinfreciboforma_pago: TIntegerField
      FieldName = 'forma_pago'
    end
    object qinfrecibodoc_pago: TWideStringField
      FieldName = 'doc_pago'
      Size = 50
    end
    object qinfrecibodescuento: TIntegerField
      FieldName = 'descuento'
      Required = True
    end
    object qinfreciboimportefinal: TFloatField
      FieldName = 'importefinal'
      Required = True
    end
    object qinfreciboseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qinfrecibonif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 30
    end
    object qinfrecibonomcliente: TWideStringField
      FieldName = 'nomcliente'
      Required = True
      Size = 100
    end
    object qinfrecibonomalumno: TWideStringField
      FieldName = 'nomalumno'
      Required = True
      Size = 100
    end
    object qinfrecibonomgrupo: TWideStringField
      FieldName = 'nomgrupo'
      Size = 100
    end
    object qinfrecibodescpago: TWideStringField
      FieldName = 'descpago'
      ReadOnly = True
      Size = 50
    end
  end
  object dsqboletin: TDataSource
    DataSet = qboletin
    Left = 193
    Top = 24
  end
  object qboletin: TZQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      'select * from boletin order by alumno')
    Params = <>
    Left = 193
    Top = 8
    object qboletinprofesor: TWideStringField
      FieldName = 'profesor'
      Required = True
      Size = 100
    end
    object qboletinalumno: TWideStringField
      FieldName = 'alumno'
      Required = True
      Size = 100
    end
    object qboletingrupo: TWideStringField
      FieldName = 'grupo'
      Required = True
      Size = 100
    end
    object qboletinfechaeval1: TDateField
      FieldName = 'fechaeval1'
    end
    object qboletinlistening1: TFloatField
      FieldName = 'listening1'
    end
    object qboletinimglist1: TWideStringField
      FieldName = 'imglist1'
      Size = 100
    end
    object qboletinspeaking1: TFloatField
      FieldName = 'speaking1'
    end
    object qboletinimgspeak1: TWideStringField
      FieldName = 'imgspeak1'
      Size = 100
    end
    object qboletinreading1: TFloatField
      FieldName = 'reading1'
    end
    object qboletinimgread1: TWideStringField
      FieldName = 'imgread1'
      Size = 100
    end
    object qboletinwriting1: TFloatField
      FieldName = 'writing1'
    end
    object qboletinimgwrit1: TWideStringField
      FieldName = 'imgwrit1'
      Size = 100
    end
    object qboletinvocabulary1: TFloatField
      FieldName = 'vocabulary1'
    end
    object qboletinimgvocab1: TWideStringField
      FieldName = 'imgvocab1'
      Size = 100
    end
    object qboletindesarrollo1: TFloatField
      FieldName = 'desarrollo1'
    end
    object qboletinimgdesarr1: TWideStringField
      FieldName = 'imgdesarr1'
      Size = 100
    end
    object qboletinfechaeval2: TDateField
      FieldName = 'fechaeval2'
    end
    object qboletinlistenig2: TFloatField
      FieldName = 'listenig2'
    end
    object qboletinimglist2: TWideStringField
      FieldName = 'imglist2'
      Size = 100
    end
    object qboletinspeaking2: TFloatField
      FieldName = 'speaking2'
    end
    object qboletinimgspeak2: TWideStringField
      FieldName = 'imgspeak2'
      Size = 100
    end
    object qboletinreading2: TFloatField
      FieldName = 'reading2'
    end
    object qboletinimgread2: TWideStringField
      FieldName = 'imgread2'
      Size = 100
    end
    object qboletinwriting2: TFloatField
      FieldName = 'writing2'
    end
    object qboletinimgwrit2: TWideStringField
      FieldName = 'imgwrit2'
      Size = 100
    end
    object qboletinvocabulary2: TFloatField
      FieldName = 'vocabulary2'
    end
    object qboletinimgvocab2: TWideStringField
      FieldName = 'imgvocab2'
      Size = 100
    end
    object qboletindesarrollo2: TFloatField
      FieldName = 'desarrollo2'
    end
    object qboletinimgdesarr2: TWideStringField
      FieldName = 'imgdesarr2'
      Size = 100
    end
    object qboletinpromocionar_a: TWideStringField
      FieldName = 'promocionar_a'
      Size = 50
    end
    object qboletinnotafinal: TFloatField
      FieldName = 'notafinal'
    end
    object qboletinnota1eval: TFloatField
      FieldName = 'nota1eval'
    end
    object qboletinnota2eval: TFloatField
      FieldName = 'nota2eval'
    end
    object qboletinobservaciones: TWideMemoField
      FieldName = 'observaciones'
      BlobType = ftWideMemo
    end
    object qboletinlistening3: TFloatField
      FieldName = 'listening3'
    end
    object qboletinimglist3: TWideStringField
      FieldName = 'imglist3'
      Size = 100
    end
    object qboletinspeaking3: TFloatField
      FieldName = 'speaking3'
    end
    object qboletinimgspeak3: TWideStringField
      FieldName = 'imgspeak3'
      Size = 100
    end
    object qboletinreading3: TFloatField
      FieldName = 'reading3'
    end
    object qboletinimgread3: TWideStringField
      FieldName = 'imgread3'
      Size = 100
    end
    object qboletinwriting3: TFloatField
      FieldName = 'writing3'
    end
    object qboletinimgwrit3: TWideStringField
      FieldName = 'imgwrit3'
      Size = 100
    end
    object qboletinvocabulary3: TFloatField
      FieldName = 'vocabulary3'
    end
    object qboletinimgvocab3: TWideStringField
      FieldName = 'imgvocab3'
      Size = 100
    end
    object qboletindesarrollo3: TFloatField
      FieldName = 'desarrollo3'
    end
    object qboletinimgdesarr3: TWideStringField
      FieldName = 'imgdesarr3'
      Size = 100
    end
    object qboletinobservaciones2: TWideMemoField
      FieldName = 'observaciones2'
      BlobType = ftWideMemo
    end
    object qboletincurso: TWideStringField
      FieldName = 'curso'
      Size = 90
    end
  end
  object qtodosalumnos: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select a.apellidos,a.nombre,telefono_alumno,(select concat(apell' +
        'idos,'#39' '#39',nombre) from clientes where id=a.idc) as cliente, (sele' +
        'ct telefono1 from clientes where id=a.idc) as telefono_cliente,(' +
        'select email from clientes where id=a.idc) as email,g.nombre as ' +
        'grupo from alumnos a, asistir ast, grupos g where'
      'a.ide=ast.ide and a.id=ast.ida  and'
      
        'ast.ide=g.ide and ast.idg=g.id  and a.activo=1 and ast.fechabaja' +
        ' is null'
      'order by apellidos,nombre,nombre')
    Params = <>
    Left = 280
    Top = 8
    object qtodosalumnosapellidos: TWideStringField
      FieldName = 'apellidos'
      Size = 100
    end
    object qtodosalumnosnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qtodosalumnostelefono_alumno: TWideStringField
      FieldName = 'telefono_alumno'
      Size = 40
    end
    object qtodosalumnoscliente: TWideStringField
      FieldName = 'cliente'
      ReadOnly = True
      Size = 202
    end
    object qtodosalumnostelefono_cliente: TWideStringField
      FieldName = 'telefono_cliente'
      ReadOnly = True
      Size = 30
    end
    object qtodosalumnosgrupo: TWideStringField
      FieldName = 'grupo'
      Size = 100
    end
    object qtodosalumnosemail: TWideStringField
      FieldName = 'email'
      ReadOnly = True
      Size = 100
    end
  end
  object dsqtodosalumnos: TDataSource
    DataSet = qtodosalumnos
    Left = 288
    Top = 88
  end
end