 **** สำหรับกรณีเฉพาะ
If File('RepoPok.txt')
	*** Delete File RepoPok.txt
	*** Wait Window 'Delete File RepoPok.txt'
	*** Do Fox_Time With 'Delete File RepoPok.txt',3
Endif 
If File('BdProduct.Prg')
	txtProd='Do BdProduct'
	&txtProd
Endif 
**  Screen4You
** _SCREEN.WIDTH
** _SCREEN.HEIGHT
** _SCREEN.AUTOCENTER = .T.
**  Do CheckFOXRes With 1280,720  &&  ระบบ HO-Manager 
