table1.tab_exe = .F.

LOCAL m.lnAdir, m.laAdir
DIMENSION laAdir(1)

gnNum = table1.num_up
gcName = ALLTRIM(table1.naim_up)
gcDir = gcPathDir + '\' + TRANSFORM(gnNum) + '_' + gcName + '\'


WITH thisform.grdMain.grcExe.chkExe
	.ReadOnly = .F.
	IF table1.tab_exe = .T.
		m.lnAdir = ADIR(laAdir, "m.gcDir + '*'", "H", 1)
		IF m.lnAdir > 0
			.Value = 1
		ELSE
			table1.tab_exe = .F.
			.Value = 0
		ENDIF
	ELSE
		.Value = 0
	ENDIF
	.ReadOnly = .T.
	.Refresh
ENDWITH