somersrt.prg

来自「System "somaj" for city Beius」· PRG 代码 · 共 60 行

procedur somersrt

CLOSE DATABASES
use sortat
delet all
pack
reindex
clos data

USE someri
locate FOR ALLTRIM(UPPER(sexul)) = 'M' 
LOCATE FOR ALLTRIM(UPPER(oras_domic)) = 'BEIUS' 

if found()
	copy field numele,prenume,prenume_1,sexul,oras_domic,str_domic, nr_domicil, ;
	bloc_domic,scara_domi,etaj_domic,apart_domi, telefon ;
	FOR ALLTRIM(UPPER(sexul))= 'M';
	AND ALLTRIM(UPPER(oras_domic))= 'BEIUS' to sortat
endif

clos data
qp=""
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
           use sortat
           SET ORDER TO numele
          set printer on
		  REPORT FORMAT SORTAT.FRX ALL ENVIRONMENT  PDSETUP TO PRINTER ;
		  NOCONSOLE 
          set printer off
		
		wait ''timeout 12
         DEFINE WINDOW term FROM 13,4 TO 19,73 ;
       COLOR w/g
      ACTIVATE WINDOW term
       @ 1,9 say'A M   T E R M I N A T   L I S T A R E A   L A '
       @ 4,9 say'          I M P R I M A N T A   !'       
       wait' 'timeout 8
       DEACTIVATE WINDOW term
       close databases

   	else
       do atentie with "Atunci ce mai astepti !"
	clos data
       return
   endif