... UPDATE FONT oVentPrinc:oFont oLbx:aJustify :={.t.,.t.,.t.,.f.,.t.,.f.,.t.,.t.,.f.} oLbx:bLDblClick :={|| Asigna_Ven(oLbx,aSel)} STAT FUNC Desp_Mar(aX) // Marca 'check box' LOCAL n:=1 n:=IF(AScan(aSel,(cRec_Desp)->(Recno()))<>0,2,n) RETURN (aX[n]) STAT FUNC Asigna_Ven(oLbx,aSel) ...