prtproce.prg

超市收银系统,所需系统dos6.22,ucdos,foxpro另外加上一些外设的驱动程序.

para strr
if strr=''
   return
endif  
if strr=[feed paper]
	strr=''
endif  
 
if not used("prn_conf")
   use dat\prn_conf in 0
endif   
select prn_conf 
loca for status='1'
    if found()
        prnproce=allt(proce)
        prnsocket=allt(prn_socket)
        do case
           case prnsocket='lpt1'
            set print to lpt1    
           case prnsocket='lpt2'
            set print to lpt2    
           case prnsocket='com1'
            set print to com1    
           case prnsocket='com2'
            set print to com2    
           case prnsocket='com3'
            set print to com3    
           case prnsocket='com4'
            set print to com4    
        endcase   
        set print on
        SET DEVI TO PRIN
        do &prnproce with strr
        SET DEVI TO SCREEN
        SET PRINT OFF
    endif
select prn_conf
use
return

*=================================
*Print on Sureone
*=================================
procedure sureprt
para strra
@PROW(),1 SAY STRRa+CHR(13)+CHR(10)

*======================================
*TM210pd打印机
*======================================
procedure tmprt
para strra
if not used([prn_conf.dbf])
	use dat\prn_conf
endif
locate for alltrim(proce)=[tmprt]
if status=[1]
	if !printstatus()
	  do error_lpt
	endif  
endif	
if used([prn_conf.dbf])
	use 
endif

@prow(),0 say chr(27)+'+'
@prow(),0 say chr(13)
 if allt(strra)='此单据为盘点单！！！！'.or.allt(strra)='此小票作废!!'
     @prow(),0 say chr(27)+chr(114)+chr(1)
 endif
@PROW(),0 SAY STRRa+chr(10)
 if allt(strra)='此单据为盘点单！！！！'.or.allt(strra)='此小票作废!!'
     @prow(),0 say chr(27)+chr(114)+chr(0)+chr(10)
 endif