**** ควบคุมตอนสั่งพิมพ์ ใบสั่งอาหาร
****
*PS,,ORDSELEPR1,,ORDSELEPR1 In ..,เลือก พิมพ์ใบสั่งอาหาร,1,0
Procedure ORDSELEPR1
cpprntoFd = ' To Printer NoConsole '
txtseleprn= Space(0)
Do Case
Case nfForOrder=1
	txtseleprn="BroadGun"
Case nfForOrder=2
	txtseleprn="DoPdf"
Case nfForOrder=3
	 txtseleprn="TM81"
Case nfForOrder=4
	**
Case nfForOrder=5
	**
Endcase
If !Empty(txtseleprn)
	txtseleOK="Run /n	Prn4Defa "+Alltrim(txtseleprn)
	&txtseleOK
	Do Fox_Time With 'หาเครื่องพิมพ์'+txtseleprn,1
Endif 
txtseleprn= Space(0)
ffSeleCho=.T.
Return 


*PS,,ORDSELEPR2,,ORDSELEPR2 In ..,พิมพ์ใบสั่งอาหาร,1,0
Procedure ORDSELEPR2
****
Return 


*PS,,ORDSELEPR3,,ORDSELEPR3 In ..,หลังพิมพ์ใบสั่งฯ,1,0
Procedure ORDSELEPR3
Run /n	Prn4Defa DoPdf
Do Fox_Time With 'หาเครื่องพิมพ์ DoPdf',1
Return 
****
****


*PS,,DRAWCTROL,,DRAWCTROL In ..,ควบคุมการเตะลิ้นชัก,1,0
Procedure DRAWCTROL && กรณีใช้ฟังก์ชั่น พิเศษ
Private DrawAlias
DrawAlias=Alias()
Select 0
Create Cursor Kick (Kick C(1))
Select Kick 
Append Blank 
cfKickFL="Kick To Printer NoConsole "
****
Run /n	Prn4Defa TM81
Do Fox_Time With 'หาเครื่องพิมพ์ TM81',10
Report Form &cfKickFL
Run /n	Prn4Defa DoPdf
Do Fox_Time With 'หาเครื่องพิมพ์ DoPdf',10
****
Use 
If !Empty(DrawAlias) .and. Used(DrawAlias)
	Select &DrawAlias
Endif 
Return 


**** Procedure เฉพาะใน Form 
**** Lower(Alltrim(This.Name)+'_add.prg'
Procedure Acti_Add  && ThisForm.Activate
Parameter MyForm
****
Return 
Procedure GotF_Add && ThisForm.GotFocus
Parameter MyForm
****
Return 
Procedure Init_Add  && ThisForm.Init
Parameter MyForm
****
Return 
Procedure RefR_Add && ThisForm.Refresh 
Parameter MyForm
****
Return 


