Necesito crear variables en un reporte y despu�s en tiempo de ejecuci�n pasarle un valor.

Es esto posible? Como?

GRACIAS
=========
|| ISMAEL ||
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110504/70dc8bc5/attachment.html>

El 04/05/2011 04:41 p.m., Ismael L. Donis Garc�a escribi�:

Necesito crear variables en un reporte y despu�s en tiempo de ejecuci�n pasarle un valor. Es esto posible? Como?

Hola Ismael..
seguramente hay mails viejos con esta pregunta xq necesit� hacerlo hace tiempo.. pero ac� va un ejemplo:

en el evento ongetvalue del reporte:

procedure THorasOperario.rptInformeGetValue(const ParName: String;
   var ParValue: Variant);
var
   cHora: string;
   nHoras, nMinutos, nSegundos: integer;
begin
   if ParName = 'fechaD' then
     ParValue := edtFechaDesde.Date;
   if ParName = 'fechaH' then
     ParValue := edtFechaHasta.Date;
   if ParName = 'operario' then
     ParValue := cboOperario.Caption;
end;

En el dise�o del reporte:

vas a archivo/lista de variables, bot�n variables y las ingres�s. Cuando insert�s un objeto reclangular.. Fecha :[fechaD]

Y eso es todo..
chauuuuuuuuu

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110505/d41745a4/attachment.html>

Hola...
Ojo, respetar may�sculas y min�sculas ya que es case sentitive...al menos yo tuve ese problema...je...!!!

2011/5/5 Paola Bruccoleri <pbruccoleri en adinet.com.uy>

Buenas tardes vi el mail que le mandaste a Ismael, tengo un problema similar:

En el siguiente c�digo lo que quiero es que si el n�mero es igual a "10", debe de colocarlo sin el ".0", debe de ser un n�mero entero sin decimal,
pero si el n�mero es menor a "10", me debe de poner los decimales aunque estos sean ceros ejemplo "9.0" o "8.0", hice la siguiente rutina, pero al momento de que pasa los valores a lazreport me da el siguiente error:

El proyecto ***** ha lanzado una excepci�n EConvertErrorEConvertError con el mensaje: Invalid argument index in format""

Cuando genero el Memo#, dentro de lazreport, tiene formato num�rico, con un d�gito, alg�n comentario? de antemano gracias

procedure TModuloDatosFrm.frReport1UserFunction(const AName: String; p1, p2,
   p3: Variant; var Val: Variant);
var
   sdato: double;
   Entero: Double;
   Fraccion: Double;
begin
   If AName = 'FORMATO' Then
   Begin
     sdato:=frParser.Calc(P1);
     if sdato = 10 then
     Begin
        sdato := Int(sdato);
        Val:=Format('%n', [sdato]);
     End
     else
     Begin
       Entero := Int(sdato);
       Val:=format('%n', [Entero]);
       Fraccion := Frac(sdato);
       If Fraccion  0 Then
         Val := Val + Format('%d', [Fraccion])
       Else
         Val := Val + Format('%.1d', [Fraccion]);
     end;
   end;
end;