- Code: Select all Expand view
local ahBmp:={ReadBitmap( "bmp\si16.bmp" ), ReadBitmap( "bmp\no16.bmp" ) }
@ 2,0 LISTBOX oBrw FIELDS Iif((Alicli)->vis_cli == .t. ,ahBmp[1],ahBmp[2] ) , str((alicli)->cod_cli,5) ,(alicli)->No2_cli ;
COLSIZES 20,180,50 ;
HEADERS "vis","Código","Nombre" ;
SIZE 240,175 ;
ON DBLCLICK Eligefichacli();
FONT ofont
Saludso.