calfic.prg

System "somaj" for city Beius

procedure calfic

use someri
name=" "
do nume with name,"Cum se numeste aceasta persoana ?"
locate for left(upper(numele),len(name))=trim(name)
if found()
         do win
else
	do atentie with "Nu stiu nimic de acesta persoana !"
    do intr1
close databases
endif


procedure intr1
lady=" "
do iesire with lady,"Doresti sa listezi alta calificare ?"
if lady="D" then
		do calfic
else
    return
endif

proced win
       DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
       COLOR w/b shado
        ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(numele),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
     DEACTIVATE WINDOW carti

dudu=" "
do iesire with dudu,"El(a) este persoana cautata ?"
if dudu="D" then
   	qp=" "
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
        set printer on
		REPORT FORMAT RAPSOMER.FRX for left(upper(numele),len(name))=trim(name) ;
	    ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE 
        set printer off
    
     
        DEFINE WINDOW term FROM 13,4 TO 19,73 STYLE 'BI';
        COLOR w/g
        ACTIVATE WINDOW term
        @ 1,9 say'A M   T E R M I N A T   L I S T A R E A   L A '
        @ 4,9 say'          I M P R I M A N T A   !'       
       wait' 'timeout 8
       DEACTIVATE WINDOW term

	else
		do atentie with "Atunci ce mai astepti !"
       do intr1
  	endif

    else
      do calfic
endif	


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

procedure impcal2

use someri
name=" "
do nume with name,"Ce calificare 2 doriti sa listati ?"
locate for left(upper(calific_2),len(name))=trim(name)
if found()
         do win
else
	do atentie with "Nu stiu nimic de acesta calificare !"
    do intr1
close databases
endif


procedure intr1
lady=" "
do iesire with lady,"Doresti sa listezi alta calificare ?"
if lady="D" then
		do impcal2 
else
    return
endif

proced win
       DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
       COLOR w/b shado
        ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	name=" "
	browse for left(upper(calific_2),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
     DEACTIVATE WINDOW carti

dudu=" "
do iesire with dudu,"El(a) este persoana cautata ?"
if dudu="D" then
   	qp=" "
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
        set printer on
name=" "
		REPORT FORMAT LISTSSP.FRX for left(upper(calific_2),len(name))=trim(name) ;
	    ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE 
        set printer off
    
     
        DEFINE WINDOW term FROM 13,4 TO 19,73 STYLE 'BI';
        COLOR w/g
        ACTIVATE WINDOW term
        @ 1,9 say'A M   T E R M I N A T   L I S T A R E A   L A '
        @ 4,9 say'          I M P R I M A N T A   !'       
       wait' 'timeout 8
       DEACTIVATE WINDOW term

	else
		do atentie with "Atunci ce mai astepti !"
       do intr1
  	endif

    else
      do impcal2 
endif	

*************************************************************************
procedure impcal3

use someri
name=" "
do nume with name,"Ce calificare 3 doriti sa listati ?"
locate for left(upper(calific_3),len(name))=trim(name)
if found()
         do win
else
	do atentie with "Nu stiu nimic de acesta calificare !"
    do intr1
close databases
endif


procedure intr1
lady=" "
do iesire with lady,"Doresti sa listezi alta calificare ?"
if lady="D" then
		do impcal3 
else
    return
endif

proced win
       DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
       COLOR w/b shado
        ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	name=" "
	browse for left(upper(calific_3),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
     DEACTIVATE WINDOW carti

dudu=" "
do iesire with dudu,"El(a) este persoana cautata ?"
if dudu="D" then
   	qp=" "
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
        set printer on
	name=" "
		REPORT FORMAT LISTSSP.FRX for left(upper(calific_3),len(name))=trim(name) ;
	    ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE 
        set printer off
    
     
        DEFINE WINDOW term FROM 13,4 TO 19,73 STYLE 'BI';
        COLOR w/g
        ACTIVATE WINDOW term
        @ 1,9 say'A M   T E R M I N A T   L I S T A R E A   L A '
        @ 4,9 say'          I M P R I M A N T A   !'       
       wait' 'timeout 8
       DEACTIVATE WINDOW term

	else
		do atentie with "Atunci ce mai astepti !"
       do intr1
  	endif

    else
      do impcal3 
endif	

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

* LISTARE DUPA LUNA NASTERE *

procedure luna

use someri
name=" "
do nume with name,"Din ce luna nastere doriti sa listati persoana ?"
locate for left(upper(luna_naste),len(name))=trim(name)
if found()
         do win
else
	do atentie with "Nu stiu nimic de acesta persoana !"
    do intr1
close databases
endif


procedure intr1
lady=" "
do iesire with lady,"Doresti sa listezi alta persoana ?"
if lady="D" then
		do calfic
else
    return
endif

proced win
       DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
       COLOR w/b shado
        ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(luna_naste),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
     DEACTIVATE WINDOW carti

dudu=" "
do iesire with dudu,"El(a) este persoana cautata ?"
if dudu="D" then
   	qp=" "
	do iesire with qp,"Ai pregatit imprimanta ?"
	if qp="D" then
        set printer on
		REPORT FORMAT LUNA.FRX for left(upper(luna_naste),len(name))=trim(name) ;
	    ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE 
        set printer off
    
     
        DEFINE WINDOW term FROM 13,4 TO 19,73 STYLE 'BI';
        COLOR w/g
        ACTIVATE WINDOW term
        @ 1,9 say'A M   T E R M I N A T   L I S T A R E A   L A '
        @ 4,9 say'          I M P R I M A N T A   !'       
       wait' 'timeout 8
       DEACTIVATE WINDOW term

	else
		do atentie with "Atunci ce mai astepti !"
       do intr1
  	endif

    else
      do luna
endif	


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