*****
Procedure Scan2Mach
If !Chk2Mach() && ไม่พบข้อมูลที่ต้องการ
	Return 
Endif 
**** เริ่มทำงาน 
If Used('Txt2Mach')
	Select Txt2Mach
	Use 
Endif 
Use Ho2Mach\Txt2Mach In 0 Share Noupdate Alias Txt2Mach Order StatusFlag 
Select Txt2Mach
Go Top 
If Empty(Txt2Mach.StatusFlag)
	TxtRun="Do Ho2Mach\OpenMach With 'Ho2Mach\'"
	&TxtRun
Endif 
If Used('Send2Com')
	Select Send2Com
	Use 
Endif 
If Used('Txt2Mach')
	Select Txt2Mach
	Use 
Endif 
Return 


Procedure Zap2Mach
If !Chk2Mach() && ไม่พบข้อมูลที่ต้องการ
	Return 
Endif 
If File('Ho2Mach\Txt2Mach.Dbf')
	Use Ho2Mach\Txt2Mach In 0 Exclusive
	Select Txt2Mach
	Zap
Endif 
Return 


Procedure Chk2Mach
If !File('Dbfrun\Ho2Mach.Dbf')
	Return .F.	
Endif 
If !File('Ho2Mach\OpenMach.Prg')
	Return .F.	
Endif 
If !File('Ho2Mach\Txt2Mach.Dbf')
	Return .F.	
Endif 
If !Used('Ho_Util')
	Use Ho_Util In 0 Share Noupdate Alias Ho_Util 
Endif 
If !Used('Ho2Mach')
	Use Dbfrun\Ho2Mach In 0 Share Noupdate Alias Ho2Mach
Endif 
Go Top In Ho_Util
Go Top In Ho2Mach
If Ho_Util.Spec_Mach<>1 && ยกเลิกชั่วคราว
	Return .F.	
Endif 
If Ho2Mach.Ho2MacFlag<>5
	Return .F.	
Endif 
Return .T.

