sspnume.prg

System "somaj" for city Beius

   close databases
    return
endif

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

procedur sspcurs
use someri

name=" "
do nume with name,"Ce curs de pregatire are persoana ?"

locate for left(upper(curs_prega),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(curs_prega),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre acest curs de pregatire !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur sspcarmu
use someri

name=" "
do nume with name,"Ce carte de munca are persoana ?"

locate for left(upper(cart_munca),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(cart_munca),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu cunosc acesta carte de munca !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur sspstr
use someri

name=' '
do nume with name,"Care este strada cautata ?"
locate for left(upper(str_domic),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
set color to w+/b,g+/b
	browse for left(upper(str_domic),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify

	DEACTIVATE WINDOW carti
else
	do atentie with "N-am informatii despre strada asta !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doriti sa mai cautati dupa strada ?"
if lady="D" then
         close data
    		do sspstr
else
    close data
    return
endif

*********************************************************
procedur sspnr
use someri

vade=' '
do nume with vade,"Care este numarul strazii cautata ?"
locate for left(upper(nr),len(vade))=trim(vade)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
set color to w+/b,g+/b
	browse for left(upper(nr),len(vade))=trim(vade) ;
	title 'Date despre ...'nomenu nomodify
	DEACTIVATE WINDOW carti
else
	do atentie with "N-am informatii despre numarul asta !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doriti sa mai cautati dupa numarul strazii ?"
if lady="D" then
       close data
		do sspnr
else
    close data
    return
endif

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

procedur ssptelef
use someri

name =' '
do nume with name,"Care este telefonul cautat ?"
locate for left(upper(telefon),len(name))=trim(name) 
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
set color to w+/b,g+/b
	browse for left(upper(telefon),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
	DEACTIVATE WINDOW carti
else
	do atentie with "Nu am acest numar de telefon. Mai incercati !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doriti sa mai cautati dupa numar de telefon ?"
if lady="D" then
    	close data
		do ssptelef
else
    close data
    return
endif

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

procedur sspnast
use someri

name=" "
do nume with name,"In ce oras (sat) sa nascut persoana cautata ?"

locate for left(upper(LOCUL_NAST),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(LOCUL_NAST),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre acest loc !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur sspcodor
use someri

vade=' '
do nume with vade,"Care este codul localitatii cautate ?"
locate for left(upper(cod_oras),len(vade))=trim(vade)

if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
set color to w+/b,g+/b
	browse for left(upper(cod_oras),len(vade))=trim(vade);
	 nomenu nomodify
	DEACTIVATE WINDOW carti
else
	do atentie with "Nu am date despre acest cod !"
	go top
endif
show gets

lady=" "
do iesire with lady,"Doriti sa mai cautati dupa codul localitatii ?"
if lady="D" then
         close data
		do sspcodor
else
    close data
    return
endif

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

procedur ssplocal
use someri

name=" "
do nume with name,"Care este localitatea cautata ?"

locate for left(upper(localitate),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(localitate),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre acesta localitate !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur ocupatia
use someri
name=" "
do nume with name,"Cu ce se ocupa aceasta persoana ?"
locate for left(upper(ocupatia),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(ocupatia),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre aceasta ocupatie !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

procedur profesie
use someri
name=" "
do nume with name,"Ce profesie are persoana ?"
locate for left(upper(profesia),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(profesia),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre aceasta profesie !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

procedur sc_prof
use someri
name=" "
do nume with name,"Ce scoala profesionala cautati ?"
locate for left(upper(scoal_prof),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(scoal_prof),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre aceasta scoala profesionala !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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


procedur sspdoom
use someri

name=" "
do nume with name,"In ce oras (sat) locuieste persoana cautata ?"

locate for left(upper(oras_domic),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(oras_domic),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre acest oras (sat) domiciliu !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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