GRACIAS POR RESPONDER !!!<br><br><br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Date: Sat, 10 Apr 2010 00:09:52 -0700 (PDT)<br>
From: Jesus Reyes <<a href="mailto:jesusrmx@yahoo.com.mx">jesusrmx@yahoo.com.mx</a>><br>
Subject: Re: [Lazarus-es] LazReport<br>
To: Spanish version of Lazarus List<br>
        <<a href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>
Message-ID: <<a href="mailto:888312.64841.qm@web53201.mail.re2.yahoo.com">888312.64841.qm@web53201.mail.re2.yahoo.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Saludos Héctor Ponce,<br>
<br>
--- El jue 8-abr-10, Héctor S. Ponce <<a href="mailto:hectorsponce@gmail.com">hectorsponce@gmail.com</a>> escribió:<br>
// EL NOMBRE DE LA VARIABLE DEL REPORTE EN PARNAME ES CORRECTO "LVR_CLIENTE"Nótese como el nombre de la variable esta en mayúsculas LVR_CLIENTE y no LRV_CLIENTE<br>
<br>
 <br>
//Fuente de mi procedimiento<br>
-----------------------------------------<br>
<br>
procedure Tfacturador.frReport1GetValue(ParName: String; var ParValue: Variant);<br>
//<br>
//  ACA EL CONTENIDO DE LA VARIABLE PARNAME ES 'VR_CLIE#0#0#.........................................'<br>
<br>
//  POR LO QUE NUNCA OBTIENE EL VALOR DADO QUE NO RESULTA VERDADERA NUNGUNA IGUALDAD</blockquote><div><br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Creo que este valor lo sacaste del depurador, ya sea fuera de lazarus o dentro de lazarus, lo que pasa es que posiblemente no este obteniendo el valor correcto de un variante. </blockquote><div><br><br>EL PROBLEMA NO SE REFIERE AL VALOR DEL VARIANT SINO AL DE LA VARIABLE ParName AL QUE LE TRUNCA LA PRIMERA LETRA DEL CONTENIDO Y LA LLENA DE BASURA.<br>
<br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Pero eso es un detalle del depurador gdb y su soporte de freepascal.<br>
//<br>
begin<br>
//    frReport1.Values.FindVariable('LRV_CLIENTE').Field:=QuotedStr('LRV_CLIENTE');<br>
  if UpperCase(ParName)=' LRV_EMPRESA' then ParValue:=trim(DataModule1.GetKey('EMPRESA'));<br>
<br>
  if ParName=' lrv_cliente' then ParValue:=cliente;<br>
Y aquí es donde aparentemente esta el problema, estas comparando una cadena que supuestamente es LRV_CLIENTE (o LRV_CLIENTE, hay que verificar tambien esto) en mayúsculas con una lrv_cliente en minúsculas. Es mejor: if CompareText(ParName,'lrv_cliente')=0 o sin necesidad de conversión de tipo, usar el mismo tipo tanto en el reporte como en el código.<br>
</blockquote><div> </div>ACA TAMBIEN ESTA EL AGREGADO DE QUE EN UN PROYECTO NUEVO CON SOLO UN BUTTON Y UN FRREPORT FUNCIONA BIEN... DEBE TENER ALGO EL FORM DEL PROYECTO MIO Y NO SE QUE ES<br><br><br></div><br>