***** 
Procedure Drawer 
If ffDrawType=0
	Return 
Endif 
Private DrawAlias
DrawAlias=Alias()
If !Used('Pdesktop')
  Use DbfRun\Pdesktop In 0 Share Noupdate Alias Pdesktop		  
Endif 	
Private cfFileDrawer
cfFileDrawer = 'DrawRun.Prg'
If Pdesktop.SoDrawRun=1 .And. File(cfFileDrawer)
  	Do &cfFileDrawer
	Return 
Endif 
Select 0
Create Cursor Kick (Kick C(1))
Select Kick 
Append Blank 
If File('Kick.Frt')
	cfKickFL="Kick To Printer NoConsole "
	Report Form &cfKickFL
Endif 
Use 
If !Empty(DrawAlias) .and. Used(DrawAlias)
	Select &DrawAlias
Endif 
Return 






Procedure DrawSpec
Parameter DrawSpec
****
Return 