sspnume.prg

System "somaj" for city Beius

procedur sspnume
use someri

name=" "
do nume with name,"Care este numele persoanei cautate ?"
locate for left(upper(numele),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(numele),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
endif
show gets


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


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

procedur sspprenu
use someri

name=" "
do nume with name,"Care este prenumele persoanei cautate ?"
locate for left(upper(prenume),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(prenume),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
endif
show gets


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


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

procedur ssppren1
use someri

name=" "
do nume with name,"Care este prenumele 1 al persoanei cautate ?"
locate for left(upper(prenume_1),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(prenume_1),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
     endif
show gets

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

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

procedur ssppren2
use someri

name=" "
do nume with name,"Care este prenumele 2 al persoanei cautate ?"
locate for left(upper(prenume_2),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(prenume_2),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
     endif
show gets

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

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

procedur ssppren3
use someri

name=" "
do nume with name,"Care este prenumele 3 al persoanei cautate ?"
locate for left(upper(prenume_3),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(prenume_3),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
     endif
show gets

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


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

procedur sspvirst

use someri
nu=" "
do vir with nu,"Care este virsta persoanei cautate ?"
locate for left(upper(varsta),len(nu))=trim(nu)

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(varsta),len(nu))=trim(nu);
 	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu am persoana cu aceasta varsta !"
	go top
  endif
show gets


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

******************************************************
procedur locnast
use someri
name=" "
do nume with name,"In ce oras (sat) s-a nascut persoana ?"
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 de persoana nascuta in 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 locnast
else
   close databases
    return
endif

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

procedur bdcprof
use someri

name=" "
do nume with name,"Ce instruire profesionala are persoana ?"

locate for left(upper(instr_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(instr_prof),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu cunosc astfel de instruire profesionala !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur sspprof
use someri

name=" "
do nume with name,"Ce capacitate profesionala are persoana ?"

locate for left(upper(capac_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(capac_prof),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu cunosc astfel de capacitate profesionala !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur ssploc
use someri

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

locate for left(upper(loc_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(loc_munca),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu am date despre acest loc de munca !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur bdccond
use someri

name=" "
do nume with name,"Ce conditii de munca cauti ?"

locate for left(upper(cond_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(cond_munca),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu cunosc aceasta conditie de munca !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

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

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

procedur sspstat
use someri

name=" "
do nume with name,"Ce statut social are persoana ?"

locate for left(upper(stat_socia),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(stat_socia),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
else
	do atentie with "Nu cunosc acest statut social !"
	go top
endif
show gets

DEACTIVATE WINDOW carti

lady=" "
do iesire with lady,"Doresti sa mai cauti dupa statut social ?"
if lady="D" then
       		close data
		do sspstat
else