pasaport.prg

System "somaj" for city Beius

procedur pasaport
use someri
set order to numele

name=" "
do pasa with name,"Pana in ce an este valabil pasaportul ?"
locate for left(upper(pasaport),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 ;
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(pasaport),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest pasaport !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa pasaport ?"
if lady="D" then
        close data
		do pasaport
else
   close databases
    return
endif

***************************************************

procedur civil
* stare civila
use someri
set order to numele

name=" "
do nume with name,"Starea civila cautata (casatorit/necasatorit) ?"
locate for left(upper(star_civil),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 ;
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(star_civil),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre aceasta stare civila !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doresti sa mai cauti dupa stare civila ?"
if lady="D" then
        close data
		do civil   
else
   close databases
    return
endif

***************************************************

procedur carnet
use someri
set order to numele

name=" "
do nume with name,"Ce categorie carnet de soferi cautati (A/B/C) ?"
locate for left(upper(carne_sofe),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 ;
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(carne_sofe),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre aceasta categorie carnet de soferi !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doresti sa mai cauti dupa carnet de sofer ?"
if lady="D" then
        close data
		do carnet
else
   close databases
    return
endif

***************************************************

procedur pasa
PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/rb SHADO
ACTIVATE WINDOW culeg
set color to w+/rb,g+/rb
@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxx";
   messa 'Pasaport valabil an ! ';

READ
DEACTIVATE WINDOW culeg
RETURN