categor.prg

System "somaj" for city Beius

procedur categor
CLOSE DATABASES

DEFINE WINDOW one FROM 3, 5 TO 13, 33 FLOAT DOUBLE COLOR SCHEME 5 shadow
ACTIVATE WINDOW one

@ 1,2 GET mchoice FUNCTION '*RNV Someri;Clienti';
	SIZE 1, 10, 1 DEFAULT 'Someri'

@ 3,15 GET okcancel FUNCTION '*V \!OK;\?Cancel' DEFAULT 1;
	SIZE 1, 10, 1
READ CYCLE

IF okcancel = 2
 WAIT WINDOW 'Cancel ' NOWAIT
ELSE

DO CASE
 CASE mchoice = 'Someri'
	do sommer

CASE mchoice = 'Clienti'
	do agent
ENDCASE

ENDIF
deact wind one


procedure sommer
clos data
use someri
set order to numele
	DEFINE WINDOW win FROM 1,0 TO 24,79 ;
	COLOR w+/gr shadow
	ACTIVATE WINDOW win

	DEFINE WINDOW kive FROM 2,9 TO 18,72 ;
    COLOR w+/b shadow

do dat

	DEFINE WINDOW menu FROM 20,2 TO 23,77 ;
	COLOR w/b shadow
	ACTIVATE WINDOW menu
@ 1,2 GET aleg FUNCTION '*NH \<Urmatorul;\<Precedentul;\<Inceput;\<Sfirsit;\<Caut;\<EXIT';
		SIZE 2,10,1 VALID aha() DEFAULT (1) 
	READ CYCLE
    DEACT WIND win
    DEACT WIND kive
    DEACT WIND menu

procedure dat

	ACTIVATE WINDOW kive
   set color to w/b,g/b

@0,5  say 'Nume     :'
@1,5  say 'Prenume  :'
@2,5  say 'Prenume 1:'
@3,5  say 'Prenume 2:'
@4,5  say 'Prenume 3:'
@5,5  say 'Ziua     :'
@6,5  say 'Luna     :'
@7,5  say 'Anul nasterii:'
@8,5  say 'Buletin  :'
@9,5  say 'Strada   :'
@10,5 say 'Nr.      :'
@11,5 say 'Telefon  :'
@12,5 say 'Domiciliu in :'
@13,5 say 'Calificare 1 :'
@14,5 say 'Calificare 2 :'

    @ 0,22 SAY numele ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 1,22 SAY prenume ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 2,22 SAY prenume_1 ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 3,22 SAY prenume_2 ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 4,22 SAY prenume_3 ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 5,22 SAY zi_nastere ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 6,22 SAY luna_naste;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 7,22 SAY an_nastere ;
		SIZE 1,4, 0 ;
		PICTURE "99999"
    @ 8,22 SAY bulet_iden ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxx"
    @9,22 SAY str_domic ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @10,22 SAY nr_domicil ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @11,22 SAY telefon ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxx"
    @12,22 SAY oras_domic ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxx"
    @13,22 SAY calific_1 ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @14,22 SAY calific_2 ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
   
PROCEDURE aha

DO CASE
	CASE aleg=1        
			SKIP
      do dat
			IF EOF()
			SKIP -1
	    WAIT WINDOW 'ULTIMUL SOMER DIN BAZA DE DATE !'NOWAIT
			ENDIF
	CASE aleg=2        
			SKIP -1
       do dat
			IF BOF()
				SKIP
	    WAIT WINDOW 'PRIMUL SOMER DIN BAZA DE DATE !'NOWAIT
			ENDIF
    CASE aleg = 3      
			GO TOP
	   do dat
	    WAIT WINDOW 'INCEPUTUL bazei de date !'NOWAIT
	CASE aleg = 4     
		GO BOTTOM
	    do dat
	    WAIT WINDOW 'SFIRSITUL bazei de date !'NOWAIT
	CASE aleg = 5     

name=" "
do cau 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

	
		CASE aleg = 6       
			CLEAR READ
	clos data
DEACT WINDOW win
DEACT wind kive
deact wind menu
	do categor
*	RETURN
	ENDCASE
show gets



PROCEDURE cau
PARAMETER cau,mess1

DEFINE WINDOW culeg FROM 13,4 TO 17,73 title'8 -caut dupa buletin';
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg
@0,0 SAY PADC(mess1,WCOLS())
@2,25 GET cau;
   SIZE 1,10;
   DEFAULT 0;
   PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 
READ
 IF cau='8' then
    do caubulet
 endif

DEACTIVATE WINDOW culeg
RETURN


procedure caubulet

name=" "
do nume with name,"Introduceti SERIA si NUMARUL buletinului cautat !"

locate for left(upper(buletin),len(name))=trim(name)
if found()
       do dat
else
	do atentie with "Nu am date despre acest buletin !"
	go top
endif
show gets


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

procedure agent
clos data
use clienti
set order to den_ag_ec
	DEFINE WINDOW excit FROM 1,0 TO 24,79 ;
	COLOR w+/rb shadow
	ACTIVATE WINDOW excit

	DEFINE WINDOW nanu FROM 2,9 TO 18,72 ;
    COLOR w+/b shadow

do sel

	DEFINE WINDOW menu FROM 20,2 TO 23,77 ;
	COLOR w/b shadow
	ACTIVATE WINDOW menu
@ 1,2 GET aleg FUNCTION '*NH \<Urmatorul;\<Precedentul;\<Inceput;\<Sfirsit;\<Caut;\<EXIT';
		SIZE 2,10,1 VALID haha() DEFAULT (1) 
	READ CYCLE
    DEACT WIND excit
    DEACT WIND nanu
    DEACT WIND menu

procedure sel

	ACTIVATE WINDOW nanu
   set color to w/b,g/b

@4,5  say 'Codul fiscal   :'
@5,5  say 'Forma juridica :'
@6,5  say 'Agent economic :'
@7,5  say 'Localitate     :'
@8,5  say 'Strada         :'
@9,5  say 'Numar          :'


    @ 4,22 SAY cod_fiscal ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 5,22 SAY form_jurid ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 6,22 SAY den_ag_ec ;
		SIZE 1,35, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 7,22 SAY localitate;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 8,22 SAY strada ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    @ 9,22 SAY numar ;
		SIZE 1,30, 0 ;
		PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
   
PROCEDURE haha

DO CASE
	CASE aleg=1        
			SKIP
      do sel
			IF EOF()
			SKIP -1
	    WAIT WINDOW 'ULTIMUL agent economic DIN BAZA DE DATE !'NOWAIT
			ENDIF
	CASE aleg=2        
			SKIP -1
       do sel
			IF BOF()
				SKIP
	    WAIT WINDOW 'PRIMUL agent economic DIN BAZA DE DATE !'NOWAIT
			ENDIF
    CASE aleg = 3      
			GO TOP
	   do sel
	    WAIT WINDOW 'INCEPUTUL bazei de date !'NOWAIT
	CASE aleg = 4     
		GO BOTTOM
	    do sel
	    WAIT WINDOW 'SFIRSITUL bazei de date !'NOWAIT
	CASE aleg = 5     

name=" "
do cic with name,"Care este numele agentului ec. cautat ?"
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

	
		CASE aleg = 6       
			CLEAR READ
	clos data
DEACT WINDOW excit
DEACT wind nanu
deact wind menu
	do categor
*	RETURN
	ENDCASE
show gets



PROCEDURE cic
PARAMETER cic,mess1

DEFINE WINDOW culeg FROM 13,4 TO 17,73 title'8 -caut dupa localitate';
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg
@0,0 SAY PADC(mess1,WCOLS())
@2,25 GET cic;
   SIZE 1,10;
   DEFAULT 0;
   PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 
READ
 IF cau='8' then
    do caulocal
 endif

DEACTIVATE WINDOW culeg
RETURN


procedure caulocal

name=" "
do nume with name,"Introduceti LOCALITATEA in care se afla agentul ec. cautat !"

locate for left(upper(localitate),len(name))=trim(name)
if found()
       do dat
else
	do atentie with "Nu am date despre aceasta localitate !"
	go top
endif
show gets