prnagent.prg

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

procedur prnagent


CLOSE DATABASES
SET TALK OFF
set mouse off
wait window 'Apasati o tasta !' nowait
DEFINE WINDOW term FROM 8,15 TO 15,62  Title ' TOTAL CLIENTI IN BEIUS ! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE clienti
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(localitate)) = 'BEIUS' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 1,6 say ''
? 'Total agenti economici in Beius: '+ LTRIM(STR(mcount))
read
DEACTIVATE WINDOW term

do print

close databases
set mouse on
return


procedur print
lady= ' '
do iesire with lady,"Listez toti clientii cu sediul in Beius ?"
if lady="D" then
	qp=""
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
           use clienti
           SET ORDER TO den_ag_ec
          set printer on
		REPORT FORMAT agenti.FRX for localitate = 'BEIUS' ;
	    ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE 
          set printer off

         DEFINE WINDOW term FROM 13,4 TO 19,73 STYLE 'BI';
       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 !"
       return

   endif
 endif