curs.prg

System "somaj" for city Beius

procedur curs
use someri
set order to numele

name=" "
do pasa with name,"Introduceti cursul urmat 1 :"
locate for left(upper(curs_urma1),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(curs_urma1),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest curs urmat !"
	go top
endif
show gets


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

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

procedur curs2
use someri
set order to numele

name=" "
do pasa with name,"Introduceti cursul urmat 2 :"
locate for left(upper(curs_urma2),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(curs_urma2),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest curs urmat !"
	go top
endif
show gets


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

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

procedur curs3
use someri
set order to numele

name=" "
do pasa with name,"Introduceti cursul urmat 3 :"
locate for left(upper(curs_urma3),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(curs_urma3),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest curs urmat !"
	go top
endif
show gets


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

***************************************************
procedur curs4
use someri
set order to numele

name=" "
do pasa with name,"Introduceti cursul urmat 4 :"
locate for left(upper(curs_urma4),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(curs_urma4),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest curs urmat !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa cursul urmat ?"
if lady="D" then
        close data
		do curs4
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 'Cursul urmat (ex:scoala postliceala, seral, reparatii armament etc.) ';

READ
DEACTIVATE WINDOW culeg
RETURN


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

procedur auto
lady=" "
do iesire with lady,"Afisez persoanele care dispun de masina ?"
if lady="D" then

              DEFINE WINDOW car FROM 3,2 TO 21,77 STYLE 'BI';
              DOUBLE COLOR w+/rb shado
              ACTIVATE WINDOW car
        	use someri
         SET ORDER TO numele
              go top
          set color to w+/rb,g+/rb
            browse  for automobil = 'DA' ;
            title 'Situatia persoanelor care dispun de masina ';
            NOMENU nomodify
           DEACTIVATE WINDOW car
close data
return

else
	close data
	  	return
endif

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