DO SET_MENU

DO ATTENTION WITH "NO OTHER USER WORKING DURING THIS PROCESS"
DO ATTENTION WITH "NO OTHER USER WORKING DURING THIS PROCESS"

*!*	DO ATTENTION WITH "IN MIS GIVE COMMAND FOLLOWING COMMAND ----> DO JOBCOMP"

USE IN COMMON

IF ! USEDBF(YEAR_PATH,'COMMON','','',.F.,.T.,.T.,MPROG_PATH + '\YEARSTRU\',.F.)
	RETU .F.
ENDIF
IF FSIZE('COMMON_NO','COMMON') = 6
	ALTER TABLE COMMON ALTER COLUMN COMMON_NO C(7)
ENDIF
DO ALERT WITH "OPERATION COMPLETED SUCCESSFULLY RERUN SOFTWARE "

CLOSE DATABASES ALL
QUIT
DO cls_MENU