Cabanyaler
22-07-2003, 12:54:58
Hola compañeros, antes de nada excusarme, pero aún no he tenido tiempo de responder un par de hilos abiertos por mi en relación a la transacción en SQl, pero lo haré.
Bueno, el problema que me lleva algún día ya de cabeza es relacionado con la impresión de un conjunto de informes, me explico.
Quiero imprimir un número determinado de informes, viniendo ese número marcado por el número de tuplas de una tabla, es decir, imprimir un informe diferente por cada tupla de una tabla.
Actualmente lo hago según indico con el siguiente fragmento de código, pero al segundo intento de imprimir el segundo report al volver del "Preview", ya no se me ejecuta el storeprocedure correctamente y parece como que no cambia de tupla en la tabla.
He cambiado el : FQRListForm.QRListado.Preview;
por un showmessage(DM.ADOQ_TecnicoNombre.Value);
y avanzo correctamente de tupla,por lo que hay algo que hace el QReport que no veo y parece como que me vuelve al principio de la tabla.
Sé que podría de modo alternativo, cambiar la consulta y hacer en el QReport mediate un TQRGroup el mismo fin, pero prefiero en este caso hacerlo así, porque el usuario puede elegir porque inpresorá de la red emitir cada uno de los informes.
Código
// Imprime todos los tecnicos con todas sus obra , técnico por técnico
procedure TFPrincipal.TodoslostecnicosClick(Sender: TObject);
begin
// Recorro secuencialmente todos los tecnicos los imprimo tecnico por tecnico hasta el último
DM.ADOQ_Tecnico.First;
while Not(DM.ADOQ_Tecnico.Eof) do
begin
// ****
// Ejecuto la consulta con el nuevo parametro del tecnico
DM.ADOSP_Rel_CabLin.Close;
DM.ADOSP_Rel_CabLin.Parameters[1].Value := DM.ADOQ_TecnicoCodigo_Tec.Value;
DM.ADOSP_Rel_CabLin.ExecProc;
DM.ADOSP_Rel_CabLin.Open; // *** Llamada a la ejecucion del SP
// ****
// Asigno valores a etiquetas del listado
FQRListForm.QRLabTecnico.caption := DM.ADOQ_TecnicoNombre.Value;
// Previsualizo el informe
FQRListForm.QRListado.Preview;
// Avanzo al siguiente tecnico
DMCierre.ADOQ_Tecnico.Next;
end;
end;
Nota:
El DataSource del QReport está asociado al del ADOSP_Rel_CabLin.
¿Alguien sabría decirme lo que puede hacer el QReport al cerrarse y volverse a abrir y que yo no veo?
Bueno, el problema que me lleva algún día ya de cabeza es relacionado con la impresión de un conjunto de informes, me explico.
Quiero imprimir un número determinado de informes, viniendo ese número marcado por el número de tuplas de una tabla, es decir, imprimir un informe diferente por cada tupla de una tabla.
Actualmente lo hago según indico con el siguiente fragmento de código, pero al segundo intento de imprimir el segundo report al volver del "Preview", ya no se me ejecuta el storeprocedure correctamente y parece como que no cambia de tupla en la tabla.
He cambiado el : FQRListForm.QRListado.Preview;
por un showmessage(DM.ADOQ_TecnicoNombre.Value);
y avanzo correctamente de tupla,por lo que hay algo que hace el QReport que no veo y parece como que me vuelve al principio de la tabla.
Sé que podría de modo alternativo, cambiar la consulta y hacer en el QReport mediate un TQRGroup el mismo fin, pero prefiero en este caso hacerlo así, porque el usuario puede elegir porque inpresorá de la red emitir cada uno de los informes.
Código
// Imprime todos los tecnicos con todas sus obra , técnico por técnico
procedure TFPrincipal.TodoslostecnicosClick(Sender: TObject);
begin
// Recorro secuencialmente todos los tecnicos los imprimo tecnico por tecnico hasta el último
DM.ADOQ_Tecnico.First;
while Not(DM.ADOQ_Tecnico.Eof) do
begin
// ****
// Ejecuto la consulta con el nuevo parametro del tecnico
DM.ADOSP_Rel_CabLin.Close;
DM.ADOSP_Rel_CabLin.Parameters[1].Value := DM.ADOQ_TecnicoCodigo_Tec.Value;
DM.ADOSP_Rel_CabLin.ExecProc;
DM.ADOSP_Rel_CabLin.Open; // *** Llamada a la ejecucion del SP
// ****
// Asigno valores a etiquetas del listado
FQRListForm.QRLabTecnico.caption := DM.ADOQ_TecnicoNombre.Value;
// Previsualizo el informe
FQRListForm.QRListado.Preview;
// Avanzo al siguiente tecnico
DMCierre.ADOQ_Tecnico.Next;
end;
end;
Nota:
El DataSource del QReport está asociado al del ADOSP_Rel_CabLin.
¿Alguien sabría decirme lo que puede hacer el QReport al cerrarse y volverse a abrir y que yo no veo?