Hola, <br><br>Tengo un problema con LazReport. No asigna valor a las variables.<br><br><br>Porcion del fuente de la clase LR_Class:<br>------------------------------------------------------------<br><br>(Linea 7465)<br>
<br>
    else if AFormatStr[1] in [&#39;D&#39;, &#39;T&#39;, &#39;d&#39;, &#39;t&#39;] then<br>
    begin<br>
      AFormat := $02040000;<br>
      AFormatStr := Copy(AFormatStr, 2, 255);<br>
    end<br>
    else if AFormatStr[1] in [&#39;B&#39;, &#39;b&#39;] then<br>
    begin<br>
      AFormat := $04040000;<br>
      AFormatStr := Copy(AFormatStr, 2, 255);<br>
    end;<br>
  end;<br>
<br>
  CurVariable := ParName;<br>
  CurValue := 0;<br>
<br>///////////////////////<br>  GetVariableValue(ParName, CurValue); &lt;&lt;&lt;&lt;------------------------------------  ACA ESTA LA LLAMADA A MI PROCEDIMIENTO<br>// EL NOMBRE DE LA VARIABLE DEL REPORTE EN PARNAME ES CORRECTO &quot;LVR_CLIENTE&quot;<br>
//<br>///////////////////////<br><br>
  ParValue := FormatValue(CurValue, AFormat, AFormatStr);<br>
  {<br>
  if TVarData(CurValue).VType=varString then<br>
    ValStr := CopyVarString(CurValue)<br>
  else<br>
    ValStr := CurValue;<br>
  ParValue := FormatValueStr(ValStr, Format, FormatStr);<br>
  }<br>
  {$IFDEF DebugLR}<br>
  DebugLn(&#39;%sTfrReport.InternalOnGetValue(%s) 
Value=%s&#39;,[sspc,ParName,ParValue]);<br>
  {$ENDIF}<br>
end;<br>
<br>
<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 &#39;VR_CLIE#0#0#.........................................&#39;<br>
//  POR LO QUE NUNCA OBTIENE EL VALOR DADO QUE NO RESULTA VERDADERA NUNGUNA IGUALDAD<br>//<br>begin<br>//    frReport1.Values.FindVariable(&#39;LRV_CLIENTE&#39;).Field:=QuotedStr(&#39;LRV_CLIENTE&#39;);<br>  if UpperCase(ParName)=&#39; LRV_EMPRESA&#39; then ParValue:=trim(DataModule1.GetKey(&#39;EMPRESA&#39;));<br>
  if ParName=&#39; lrv_cliente&#39; then ParValue:=cliente;<br>  if ParName=&#39;lrv_direccion&#39; then ParValue:=cliente_domicilio;<br>  if ParName=&#39;lrv_cuit&#39; then ParValue:=cliente_documento;<br>  if ParName=&#39;lrv_comprobante&#39; then<br>
  ParValue:=comprobante;<br><br>  if ParName=&#39;lrv_st&#39; then ParValue:=monto_subtotal;<br>  if ParName=&#39;lrv_dto&#39; then ParValue:=descuento;<br>  if ParName=&#39;lrv_dtomon&#39; then ParValue:=monto_descuento;<br>
  if ParName=&#39;lrv_tot&#39; then ParValue:=monto_total;<br>  if ParName=&#39;lrv_fp1&#39; then ParValue:=pago_medio[1];<br>  if ParName=&#39;lrv_ref1&#39; then ParValue:=pago_ref[1];<br>  if ParName=&#39;lrv_imp1&#39; then ParValue:=pago_importe[1];<br>
  if ParName=&#39;lrv_fp2&#39; then ParValue:=pago_medio[2];<br>  if ParName=&#39;lrv_ref2&#39; then ParValue:=pago_ref[2];<br>  if ParName=&#39;lrv_imp2&#39; then ParValue:=pago_importe[2];<br>  if ParName=&#39;lrv_fp3&#39; then ParValue:=pago_medio[3];<br>
  if ParName=&#39;lrv_ref3&#39; then ParValue:=pago_ref[3];<br>  if ParName=&#39;lrv_imp3&#39; then ParValue:=pago_importe[3];<br>  if ParName=&#39;lrv_pagado&#39; then ParValue:=pagado;<br>end;                                  <br>
<br><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><br><br>