Como añadir parámetros o variables (QReport)

[salvica]

Hola

Necesito definir unas variables globales al QReport, en Reportman hacía lo siguiente:

Código Delphi [-]
{ actualizar las variables del Report con las variables del proceso }
  with VCLReport1 do begin
       FileName        := strFileReport;
       Preview         := False; //------> para imprimir
       //Preview         := True; //-------> para verlo en pantalla
       ShowProgress    := True; //-------> ver la barra de progreso
       ShowPrintDialog := False; //------> no ver la barra de herramientas
       Title           := 'INFORME DE DATOS CALCULADOS';
     { rellenar el informe }
       with Report.Params do begin
          { parametros de la oficina }
            ParamByName('OFICINA').Value       := 'En mi casa';
            ParamByName('PROVINCIA').Value     := 'ALBACETE';
          { unidades de medida }
            ParamByName('EN_METROS').Value     := EN_NUDOS;
            ParamByName('EN_KILOMETROS').Value := EN_KILOMETROS;
       end; { del with Report.Params do }
     { ejecutar el informe }
       Execute;
  end; { del with VCLReport1 do }

No he encontrado información para hacer lo mismo con QReport.

Agradecido
Salvica.

[[Lepe]]

Nunca he usado parámetros en un QuickReports. Los parámetros los tiene la consulta (TQuery) en la que se basa el QuickReport, y se accede directamente al query.params

En QuickRpeports, no existe el "Filename". Digamos que tendrás un QuickReport por cada tipo de informe que necesites.

Para mostrar el informe se usa: PreviewModal, Preview, PreviewModeless (previsualización del informe)



Saludos

[salvica]

Hola Lepe, gracias por responder.

De lo que se trata es de que QReport actúe en base a unas condiones externas (en mi caso las unidades de medida).
Encontré una mínima información en Google (dos enlaces), y una consulta de jmselesan en éste foro http://www.clubdelphi.com/foros/show...ight=functions

En teoría, según pone en http://www.quickreport.co.uk/QuickReportFAQ.doc, en la pregunta I have some variables defined in the report's functions property and I can't initialize them in the report's BeforePrint event., tengo que hacer lo siguiente:

1º - Crearme la variable en tiempo de diseño, por ejemplo una denominada "test"
2º - Modificarla por código, tal que así:

Código Delphi [-]
{ procedimiento de creación de una variable entera }
procedure TReportForm1.CrearVariableInteger( sNombre:string; iValor:integer );
var
  aQREvElement: TQREvElement;
begin
  with QuickRep1.Functions do
  begin
    aQREvElement := GetConstant(sNombre);

    if (aQREvElement <> nil) and (aQREvElement.Value(nil).Kind = resInt) then
    begin
      SetIntegerConstant(aQREvElement, iValor);
    end;
  end;
end;

{ función de lectura de una variable entera }
function  TReportForm1.LeerVariableInteger( sNombre:string ):integer;
var
  aQREvElement: TQREvElement;
begin
  with QuickRep1.Functions do
       aQREvElement := GetConstant(sNombre);

  Result := aQREvElement.Value(nil).intResult;
end;

y llamar a las funciones tal que así:

Código Delphi [-]
var
   miIntPrueba : ineteger;
begin
   ...
   CrearVariableInteger( 'INTPRUEBA', 300 );
   ...

   ...
   miIntPrueba            := LeerVariableInteger( 'INTPRUEBA' );
   QRLabel_PRUEBA.Caption := FormatFloat( '##0', miIntPrueba );
   ...
end;

Bueno, pues esto "casca" y dá un error de excepción, al hacer un seguimiento "paso a paso" la creación de la variable devuelve nil

¿ideas?
Salvica

[salvica]

Añado (disculpas por la omisión)
Delphi 7, Windows Xp, QReport que trae Delphi (activado según he visto en éste foro)
Saludos
Salvica

[[Lepe]]

Pero, ¿debes hacerlo así exactamente o puedes cambiar el procedimiento?

Lo más fácil, File -> New -> Form, y ahora dentro pones el QuickReport. Las variables esas que necesites, las pones como variables / propiedades públicas del form, y en el OnPrint del Quickreport, lees las variables del Form.

La "variable que digo" puedes definirla de tipo Variant, y así puedes almacenar una fecha, float, integer, string, boolean, etc. Incluso un array of variant con un Tstringlist para guardar los nombres, etc.



Saludos

[[Lepe]]

En cuanto al error, es muy posible que dicho parámetro, aunque sea global a QuickReports no esté creado o disponible para asignar su valor antes de hacer el Preview (no me extrañaría nada de QuickReports).

Saludos