JESUSNET
09-10-2007, 00:21:42
hola de nuevo tengo un problema al imprimir un reporte, ya he abanzado con lo que me han respondido en los foros pero tengo un nuevo problema es el siguiente:
tengo 2 tablas principalmente una se llama resultados_laboratorio y la otra detalles
la tabla detalles contiene codigoclasificacion que guarda relacion con la tabla clasificaciones y codigosubclasificacion relacionada con subclasifcaciones: si tengo en la tabla de detalles lo siguiente:
codresultado codigoclasificacion codigosubclasificacion resultado
1 1 1 normal
1 1 2 2mg
1 4 4 normal
lo que quiero es sacar las clasificaciones con sus subclasificaciones por separado hojas diferentes
por ejemplo en la primera hoja saldrisa
clasificacion :1
1 normal
2 2mg
en la siguinet hoja:
clasificacion: 4
4 normal
claro los codigos los sustituiria por sus resectivos nombres es solo para que tengan una idea
yo lo hice como me habian dicho en el foro pero me bota los datos asi
en una hoja
clasificacion 1:
1 normal
en la otra hoja
clasificacion 1:
2 2mg
y en la otra
clasificacion: 4
4 normal
como pueden notar me bota todos los registros de la tabla de detalle no me agrupa las subclasificaciones por sus respectivas clasificaciones necesito ayuda el codigo que estoy usando es este:
datamodule2.ADOQuery5.Close;
datamodule2.ADOQuery5.SQL.Clear;
datamodule2.ADOQuery5.SQL.Add('Select *from "resultados_emitidos","detalles_resultados_emitidos","pacientes","convenios","clasificaciones","servicios"');
datamodule2.ADOQuery5.SQL.Add('where resultados_emitidos.codresultado =detalles_resultados_emitidos.codresultado');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.cedula_paciente=pacientes.cedula');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.codigo_convenio=convenios.codigo');
//datamodule2.ADOQuery5.SQL.Add('and detalles_resultados_emitidos.codigo_clasificacion=clasificaciones.codigo');
datamodule2.ADOQuery5.SQL.Add('and detalles_resultados_emitidos.codigo_subclasificacion=servicios.codigo');
datamodule2.ADOQuery5.SQL.Add('and servicios.codigo=detalles_resultados_emitidos.codigo_subclasificacion');
datamodule2.ADOQuery5.SQL.Add('and servicios.codigo_clasificacion=clasificaciones.codigo');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.codresultado = :codresultado');
bcodresultado:=dbedit1.text;
datamodule2.ADOQuery5.Parameters[0].Value := ''+bcodresultado+'';
datamodule2.ADOQuery5.Open;
frmcompositereport.QRCompositeReport1.Preview;
y en la banda detalle coloco el nombre de la clasificacion y en la subdetalle
coloco el nombre de la subclasificacion asi como su resultado
tengo 2 tablas principalmente una se llama resultados_laboratorio y la otra detalles
la tabla detalles contiene codigoclasificacion que guarda relacion con la tabla clasificaciones y codigosubclasificacion relacionada con subclasifcaciones: si tengo en la tabla de detalles lo siguiente:
codresultado codigoclasificacion codigosubclasificacion resultado
1 1 1 normal
1 1 2 2mg
1 4 4 normal
lo que quiero es sacar las clasificaciones con sus subclasificaciones por separado hojas diferentes
por ejemplo en la primera hoja saldrisa
clasificacion :1
1 normal
2 2mg
en la siguinet hoja:
clasificacion: 4
4 normal
claro los codigos los sustituiria por sus resectivos nombres es solo para que tengan una idea
yo lo hice como me habian dicho en el foro pero me bota los datos asi
en una hoja
clasificacion 1:
1 normal
en la otra hoja
clasificacion 1:
2 2mg
y en la otra
clasificacion: 4
4 normal
como pueden notar me bota todos los registros de la tabla de detalle no me agrupa las subclasificaciones por sus respectivas clasificaciones necesito ayuda el codigo que estoy usando es este:
datamodule2.ADOQuery5.Close;
datamodule2.ADOQuery5.SQL.Clear;
datamodule2.ADOQuery5.SQL.Add('Select *from "resultados_emitidos","detalles_resultados_emitidos","pacientes","convenios","clasificaciones","servicios"');
datamodule2.ADOQuery5.SQL.Add('where resultados_emitidos.codresultado =detalles_resultados_emitidos.codresultado');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.cedula_paciente=pacientes.cedula');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.codigo_convenio=convenios.codigo');
//datamodule2.ADOQuery5.SQL.Add('and detalles_resultados_emitidos.codigo_clasificacion=clasificaciones.codigo');
datamodule2.ADOQuery5.SQL.Add('and detalles_resultados_emitidos.codigo_subclasificacion=servicios.codigo');
datamodule2.ADOQuery5.SQL.Add('and servicios.codigo=detalles_resultados_emitidos.codigo_subclasificacion');
datamodule2.ADOQuery5.SQL.Add('and servicios.codigo_clasificacion=clasificaciones.codigo');
datamodule2.ADOQuery5.SQL.Add('and resultados_emitidos.codresultado = :codresultado');
bcodresultado:=dbedit1.text;
datamodule2.ADOQuery5.Parameters[0].Value := ''+bcodresultado+'';
datamodule2.ADOQuery5.Open;
frmcompositereport.QRCompositeReport1.Preview;
y en la banda detalle coloco el nombre de la clasificacion y en la subdetalle
coloco el nombre de la subclasificacion asi como su resultado