<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Saludos Héctor Ponce,<BR><BR>--- El <B>jue 8-abr-10, Héctor S. Ponce <I><hectorsponce@gmail.com></I></B> escribió:<BR><BLOCKQUOTE style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><P>// EL NOMBRE DE LA VARIABLE DEL REPORTE EN PARNAME ES CORRECTO "LVR_CLIENTE"</P></BLOCKQUOTE><P>Nótese como el nombre de la variable esta en mayúsculas LVR_CLIENTE y no LRV_CLIENTE</P><P><BR></P><BLOCKQUOTE style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><P><BR></P><P> 
//</P><P>Fuente de mi procedimiento<BR></P>-----------------------------------------<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><P>
//  POR LO QUE NUNCA OBTIENE EL VALOR DADO QUE NO RESULTA VERDADERA NUNGUNA IGUALDAD</P></BLOCKQUOTE><P>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. Pero eso es un detalle del depurador gdb y su soporte de freepascal.</P><BLOCKQUOTE style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><P><BR></P>//<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><P>
  if ParName=' lrv_cliente' then ParValue:=cliente;</P><P><BR></P></BLOCKQUOTE><P>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.</P><BLOCKQUOTE style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><P><BR></P>  if ParName='lrv_direccion' then ParValue:=cliente_domicilio;<BR>  if ParName='lrv_cuit' then ParValue:=cliente_documento;<BR>  if ParName='lrv_comprobante' then<BR>
  ParValue:=comprobante;<BR><BR>  if ParName='lrv_st' then ParValue:=monto_subtotal;<BR>  if ParName='lrv_dto' then ParValue:=descuento;<BR>  if ParName='lrv_dtomon' then ParValue:=monto_descuento;<BR>
  if ParName='lrv_tot' then ParValue:=monto_total;<BR>  if ParName='lrv_fp1' then ParValue:=pago_medio[1];<BR>  if ParName='lrv_ref1' then ParValue:=pago_ref[1];<BR>  if ParName='lrv_imp1' then ParValue:=pago_importe[1];<BR>
  if ParName='lrv_fp2' then ParValue:=pago_medio[2];<BR>  if ParName='lrv_ref2' then ParValue:=pago_ref[2];<BR>  if ParName='lrv_imp2' then ParValue:=pago_importe[2];<BR>  if ParName='lrv_fp3' then ParValue:=pago_medio[3];<BR>
  if ParName='lrv_ref3' then ParValue:=pago_ref[3];<BR>  if ParName='lrv_imp3' then ParValue:=pago_importe[3];<BR>  if ParName='lrv_pagado' then ParValue:=pagado;<BR>end;                                  <BR>
<P><BR></P></BLOCKQUOTE><P>seguramente tendran el mismo problema.<BR></P><BLOCKQUOTE style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><BR>QUIERO SABER SI ALGUIEN LE HA PASADO LO MISMO Y COMO LO HA SOLUCIONADO.<BR><BR>ESTOY COMPILANDO EN WIN 7, LAZARUS 0.9.29, FPC: 2.5.1<BR><BR>MUCHAS GRACIAS<BR>
<BR>
HECTOR PONCE<BR><P><BR></P><P><BR></P></BLOCKQUOTE><P>Jesus Reyes A.</P><BR></td></tr></table><br>



      <hr size=1><br><font face="Verdana" size="-2">¡Encuentra las mejores recetas<br>con Yahoo! Cocina!<br>
http://mx.mujer.yahoo.com/cocina/</font>