Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Rave 5. Proyecto con dos DataSet sin conexion referencial entre si (https://www.clubdelphi.com/foros/showthread.php?t=85374)

gorsan 09-03-2014 11:47:12

Rave 5. Proyecto con dos DataSet sin conexion referencial entre si
 
Buenos días a todos.
Os traslado mis inquietudes acerca del siguiente problema:
Tengo en un modulo de datos 1 RvDataSetConnection 1 RvProject y como dataset un IBQuery enlazados entre si.
El query recibe dos "parámetros" en tiempo de ejecución de la siguiente manera, mediante la iteracción con el usuario, a través del texto de 2 ComboBox:

with DMFicha.IBQNomina do
try
DisableControls;
Close;
SQL.Clear;
SQL.Add('SELECT PRIMER_APELLIDO, SEGUNDO_APELLIDO, NOMBRE, CAMPO4, CAMPO5, CAMPO6,');
SQL.Add('HORAS_REALES, HORAS_CALCULADAS, SALARIO');
SQL.Add('FROM FICHA');
SQL.Add('WHERE CAMPO4='+quotedstr(ComboBox1.Text));
SQL.Add(' AND CAMPO5='+quotedstr(ComboBox2.Text));
SQL.Add('ORDER BY PRIMER_APELLIDO');
Open;
DMFicha.RvProject2.Execute;
finally
EnableControls;
end;
close;
end;

Hasta aquí todo bien pero el problema viene ahora cuendo necesito incluir en el RvProject2 tres campos que son de otro DataSet pero de la misma BD, claro.
El query anterior toma sus datos de la tabla FICHA, como podeis ver, pero ahora deberá tomarlos desde otra tabla que se llama TOTALES y que siempre tiene 1 único registro con esos tres campos que quiero incluir (son campos totalizadores).
Al no haber campos en común no puedo hacer una consulta con la clausula inner join uniendo las dos tablas.
¿Cómo puedo incluir estos tres campos en mi informe?
¿Mediante algún mecanismo de Rave, que desconozco, como por ejemplo intentar pasarle algún parámetro con las tres cantidades?
Espero con ansiedad vuestras propuestas.
Muchas gracias de antemano.

Casimiro Noteví 09-03-2014 12:09:46

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

gorsan 09-03-2014 12:14:57

Perdón. Ahí va como debe..
Código Delphi [-]
 
with DMFicha.IBQNomina do
 try
 DisableControls;
 Close;
 SQL.Clear;
 SQL.Add('SELECT PRIMER_APELLIDO, SEGUNDO_APELLIDO, NOMBRE, CAMPO4, CAMPO5, CAMPO6,');
 SQL.Add('HORAS_REALES, HORAS_CALCULADAS, SALARIO');
 SQL.Add('FROM FICHA');
 SQL.Add('WHERE CAMPO4='+quotedstr(ComboBox1.Text));
 SQL.Add(' AND CAMPO5='+quotedstr(ComboBox2.Text));
 SQL.Add('ORDER BY PRIMER_APELLIDO');
 Open;
 DMFicha.RvProject2.Execute;
 finally
 EnableControls;
 end;
 close;
 end;

Casimiro Noteví 09-03-2014 12:58:31

Hola, no conozco rave report, pero ¿no puedes añadir otro RvDataSetConnection?


La franja horaria es GMT +2. Ahora son las 17:31:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi