IF NOYES('THIS OPTION WILL UPGRADE WIDTH OF JOB BILL TO 7 DEGIT' + CHR(13) + 'ARE YOU SURE ?') = 'YES'
	IF yesno('NO OTHER USER MUST BE WORKING IN AUTOSOFT WHILE YOU RUN THIS OPTION' + CHR(13) + 'SHOULD I CONTINUE ?') = 'NO'
		DO ATTENTION WITH 'PROCESS WAS TERMINATED ON USER REQUEST'
		RETURN 
	ENDIF 
ELSE 
	DO ATTENTION WITH 'PROCESS WAS TERMINATED ON USER REQUEST'
	RETURN 
ENDIF

IF FSIZE('BILL_NO','JOB_MAST') = 7
	IF noyes('LENGTH OF BILL NO. IS ALREADY 7 DIGIT' + CHR(13) + 'PROCESS WILL BE TERMINATED') = 'NO'
		DO ATTENTION WITH 'PROCESS WAS TERMINATED ON USER REQUEST'
		RETURN 
	ENDIF
ENDIF 
CLOSE DATABASES ALL 
USE (YEAR_PATH) + 'JOB_MAST' EXCLUSIVE 
ALTER TABLE JOB_MAST ;
	ALTER COLUMN BILL_NO C(7)
SELECT JOB_MAST	
REPLACE ALL bill_no WITH LEFT(bill_no,2) + PADL(ALLTRIM(SUBSTR(bill_no,3)),LEN(bill_no) - 2,'0')  ;
	FOR ! EMPTY(bill_no) 
CLOSE DATABASES 
DO openfile