clientel.prg

System "somaj" for city Beius

procedur clientel
use clienti

name=" "
do nume with name,"Care este codul fiscal cautat ?"
locate for left(upper(cod_fiscal),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(cod_fiscal),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am acest cod fiscal !"
	go top
endif
show gets


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

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


procedur jurid
use clienti

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


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

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

procedur agent
use clienti

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


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

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


procedur local
use clienti

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
              DEACT WIND carti
 else
	do atentie with "Nu am aceasta localitate !"
	go top
endif
show gets


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

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

procedur adres
use clienti

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


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

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