object DM2: TDM2
  OldCreateOrder = False
  Height = 318
  Width = 515
  object qclientes: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select id,ide,nif,nombre_completo from clientes where ide=:PEMPR' +
        'ESA and id=:PCLIENTE order by nombre_completo')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end>
    Left = 214
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        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_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
  end
  object dsqclientes: TDataSource
    DataSet = qclientes
    Left = 104
    Top = 16
  end
  object dsqalumnosclientes: TDataSource
    DataSet = qalumnosclientes
    Left = 107
    Top = 80
  end
  object dsqgruposclientes: TDataSource
    DataSet = qgruposclientes
    Left = 107
    Top = 144
  end
  object qalumnosclientes: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select ide,id,idc,apellidos,nombre,nombre_completo from alumnos ' +
        'where ide=:PEMPRESA and idc=:PCLIENTE order by apellidos, nombre')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end>
    Left = 214
    Top = 80
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end>
    object qalumnosclienteside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qalumnosclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qalumnosclientesidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qalumnosclientesapellidos: TWideStringField
      FieldName = 'apellidos'
      Size = 100
    end
    object qalumnosclientesnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qalumnosclientesnombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
  end
  object qgruposclientes: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select a.ide,al.idc,al.nombre_completo as nomalumno,a.ida,a.idg,' +
        'g.nombre as nomgrupo,g.preciomensual,e.nombre_completo as nompro' +
        'fesor,g.idcurso from asistir a,alumnos al,grupos g,impartir i,em' +
        'pleados e '
      
        ' where a.idg=g.id and a.ide=g.ide and a.ide=i.ide and a.ide=al.i' +
        'de and a.ida=al.id and g.id=i.idg and a.ide=e.ide and i.idp=e.id' +
        ' and g.activo=1 and al.idc=:PCLIENTE and a.ide=:PEMPRESA and a.i' +
        'dg like(:PGRUPO) and a.ida like(:PALUMNO) order by al.idc,g.prec' +
        'iomensual desc,a.ida')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PGRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    Left = 214
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCLIENTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PGRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALUMNO'
        ParamType = ptUnknown
      end>
    object qgruposclienteside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qgruposclientesidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qgruposclientesnomalumno: TWideStringField
      FieldName = 'nomalumno'
      Required = True
      Size = 100
    end
    object qgruposclientesida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qgruposclientesidg: TIntegerField
      FieldName = 'idg'
      Required = True
    end
    object qgruposclientesnomgrupo: TWideStringField
      FieldName = 'nomgrupo'
      Size = 100
    end
    object qgruposclientespreciomensual: TFloatField
      FieldName = 'preciomensual'
    end
    object qgruposclientesnomprofesor: TWideStringField
      FieldName = 'nomprofesor'
      Required = True
      Size = 100
    end
    object qgruposclientesidcurso: TIntegerField
      FieldName = 'idcurso'
      Required = True
    end
  end
end