ReportManager, cambiar consulta en ejecución

[[felipe88]]

Que tal foro,
no pienso en que tan posible sea pero si de lo importante que pudiera conocer al respecto.
La idea de cambiar la consulta que creamos en el reporte me surgió al tener la opción de generar un listado desde dos posibles parámetros, ambos accediendo a la misma tabla y obteniendo los mismos resultados, lo que varia es el like del query.

¿Hasta dónde es posible esto?



Saludos!

[Casimiro Notevi]

Yo tengo algunos informes al que les paso el sql que voy a necesitar porque los campos que se muestran es igual.

Esto es un ejemplo rescatado de algún sitio:

Código Delphi [-]
sql := 'Select field1, field2 from tableA where fieldX = 1 order by cli.NOMECLIENTE, rec.CODCLIENTE, rec.DATAVENCIMENTO, rec.EMISSAO';
VCLReport.FileName := directorioinformes + 'RelContasReceber.rep';
VCLReport.Report.DatabaseInfo.Items[0].SQLConnection := dm.sqlsisAdimin;  
VCLReport.Report.DataInfo.Items[0].SQL:= sql;     //  <<<------------- aquí se le asigna un select
VCLReport.Execute;

Y esto es de mi código:

Código Delphi [-]
// cParametro lleva el nombre del dataset (conjunto de datos) del reportmanager al que le vamos a asignar el select.
// cValor lleva el SQL
RMvcl1.Report.DataInfo.ItemByName(cParametro).SQL := cValor;

Como ves en los ejemplos, puedes indicarlo por su posición o por su nombre: items[0].sql o itembyname('conjuntodedatos').sql


Creo que es lo que estás buscando.

[[felipe88]]

Hola Casimiro, gracias por responder.
Había estado consultando en internet y encontré las "cadenas de sustitución", que son un tipo de parámetro que permiten alterar pequeñas partes de la consulta dentro del reporte, más información aquí: http://reportman.sourceforge.net/doc/repparams.html

No sé si sea lo mismo que me propones, puesto que los ejemplos no muestran como debería ir la consulta dentro del reporte, de todas formas voy a revisar bien el ejemplo. Gracias


Saludos!

[[felipe88]]

Hola, para entender mejor lo que quiero lograr estas serían las consultas:

Código SQL [-]
SELECT * FROM CLIENTE WHERE NOMBRE LIKE PARAMETRO

y

Código SQL [-]
SELECT * FROM CLIENTE WHERE ID LIKE PARAMETRO

Saludos!

[Casimiro Notevi]

Pues lo que te he contestado es lo que necesitas

[[felipe88]]

Empezado por Casimiro Notevi

Pues lo que te he contestado es lo que necesitas

Asi es Casimiro, es válido, lo único que no había mencionado es que llamo al reporte usando las funciones de la dll reportman.ocx, algo como decir:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var rept: OleVariant;
begin
   rept := CreateOleObject('ReportMan.ReportManX');
   rept.Preview := true;
   rept.ShowProgress := false;
   rept.ShowPrintDialog:= false;
   rept.Title := 'Informe de Prueba';
   rept.Filename := 'C:\Archivos de programa\Report Manager\sample4.rep';
   rept.execute;
end;

Y de esta forma no puedo llamar las propiedades que mencionas.


Saludos!