Procedure J_ped

Private aImage[2]

aimage[1] = 'BMP_OK'
aimage[2] = 'NADA' 


	DEFINE GRID Grid_1 
	  ROW  55
	  COL   5
	  WIDTH  585
	  HEIGHT 280
	  ITEMS nil
	  VALUE 1
	  WIDTHS {35,250,80,80,100,0 }
	  HEADERS {'','Cliente','Comprob.','N','Valor',''}
	  FONTNAME "Courier New"
     ONDBLCLICK T_camb("Wrango")   //aca cambia la imagen
     IMAGE aImage 
	  FONTSIZE 9
	  TOOLTIP ""   
	  ONHEADCLICK { ,{|| ORDGRALGRID(2,6,"wrango","Grid_1")}, {|| ORDGRALGRID(3,6,"wrango","Grid_1")}, {|| ORDGRALGRID(4,6,"wrango","Grid_1")},,  } 
	  JUSTIFY { BROWSE_JTFY_RIGHT,BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT}
	END GRID

	
Procedure T_camb(lWIN)
Local n_grid, a_temp
FETCH Grid_1 OF &lWIN VALUE TO n_grid
FETCH Grid_1 OF &lWIN ITEM(n_grid) TO a_temp
nn:= a_Temp[1]
nn++
if nn > len(aimage)-1 ; nn:=0 ; endif
a_Temp[1]:= nn
Modify Grid_1 OF &lWIN ITEM(n_grid) a_temp
Return
