cliviz.prg

System "somaj" for city Beius

procedur cliviz

close databases
set mouse off
use clienti
SET order to den_ag_ec
DEFINE WINDOW afis FROM 4,10 TO 20,73 ;
TITLE 'Modificare date clienti' DOUBLE COLOR w+/rb shado

wait window'Alegeti agentul economic apoi apasati CTRL+W'nowait
ACTIVATE WINDOW afis
browse fields den_ag_ec,cod_fiscal,form_jurid,localitate in wind afis ;
noappend nodele nomodif nomenu
wait ''timeout 0.2
DEACT wind afis
do cliv


procedure cliv
	DEFINE WINDOW beve FROM 7,5 TO 22,74 ;
    DOUBLE COLOR w+/rb shado
	ACTIVATE WINDOW beve
    @ 1,3 say 'Numele agentului economic:     '
    @1,30 get den_ag_ec pict'@!xxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Numele agentului economic ?'
    @ 3,4 say 'Codul fiscal            : '
    @3,30 get cod_fiscal pict'99999999999999';
          COLOR w+/b+, w/b+;                 
    				messa 'Care este codul fiscal ?'
    @ 5,4 say 'Forma juridica          : '
    @5,30 get form_jurid pict'@!xxxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Care este forma juridica ?'
    @ 7,4 say 'Localitatea             : '
    @7,30 get localitate pict'@!xxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
               messa 'In ce oras (sat) se situeaza agentul economic ?'
    @ 9,4 say 'ADRESA :                 '
    @10,4 say 'Strada                  :'		
    @10,30 get strada pict'@!xxxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Strada ?'
    @12,4 say 'Numarul strazii         : '
    @12,30 get numar pict'@!xxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
               messa 'Introduceti numarul strazii ?'
read

lady=" "
do aproba2 with lady,"Totul e-n regula ?"
if lady="D" then
	DEACTIVATE WINDOW beve
	do megint
else 
	do cliv
endif

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

PROCEDURE aproba2
PARAMETER intreb,mess1

DEFINE WINDOW day FROM 2,8 TO 5,69 ;
COLOR w+/r SHADOw
ACTIVATE WINDOW day
@0,1 SAY PADC(mess1,WCOLS());
   PICTURE "@I"
@1,17 GET intreb;
   PICTURE "@*HT <  \<Da  >;<  \<Nu  >";
   SIZE 1,10,5;
   MESSAGE " "
READ
intreb=SUBSTR(intreb,4,1)
DEACTIVATE WINDOW day
RETURN

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

procedur megint
lady=" "
do iesire with lady,"Mai avem de modificat date ?"
if lady="D" then
        close data
		do cliviz
else

   close databases
   set mouse on
    return
endif




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


procedure agent
set mouse off
use clienti
name=" "
do nume with name,"Introduceti denumirea agentului economic ?"
locate for left(upper(den_ag_ec),len(name))=trim(name)
if found()
	do agent007
else
	do atentie with "Nu cunosc aceasta persoana !"
	do uf
endif
show gets
          
procedure uf
lady=" "
do iesire with lady,"Mai avem de modificat date ?"
if lady="D" then
        close data
		do agent
else
   close databases
    return
endif

procedure agent007
	DEFINE WINDOW beve FROM 7,5 TO 22,74 ;
    DOUBLE COLOR w+/rb shado
	ACTIVATE WINDOW beve
    @ 1,3 say 'Numele agentului economic:     '
    @1,30 get den_ag_ec pict'@!xxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Numele agentului economic ?'
    @ 3,4 say 'Codul fiscal            : '
    @3,30 get cod_fiscal pict'99999999999999';
          COLOR w+/b+, w/b+;                 
    				messa 'Care este codul fiscal ?'
    @ 5,4 say 'Forma juridica          : '
    @5,30 get form_jurid pict'@!xxxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Care este forma juridica ?'
    @ 7,4 say 'Localitatea             : '
    @7,30 get localitate pict'@!xxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
               messa 'In ce oras (sat) se situeaza agentul economic ?'
    @ 9,4 say 'ADRESA :                 '
    @10,4 say 'Strada                  :'		
    @10,30 get strada pict'@!xxxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
    				messa 'Strada ?'
    @12,4 say 'Numarul strazii         : '
    @12,30 get numar pict'@!xxxxxxxxxxxxxxxxxxx';
          COLOR w+/b+, w/b+;                 
               messa 'Introduceti numarul strazii ?'
read

lady=" "
do aproba2 with lady,"Totul e-n regula ?"
if lady="D" then
	DEACTIVATE WINDOW beve
	do megy
else 
	do agent007
endif

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

PROCEDURE aproba2
PARAMETER intreb,mess1

DEFINE WINDOW day FROM 2,8 TO 5,69 ;
COLOR w+/r SHADOw
ACTIVATE WINDOW day
@0,1 SAY PADC(mess1,WCOLS());
   PICTURE "@I"
@1,17 GET intreb;
   PICTURE "@*HT <  \<Da  >;<  \<Nu  >";
   SIZE 1,10,5;
   MESSAGE " "
READ
intreb=SUBSTR(intreb,4,1)
DEACTIVATE WINDOW day
RETURN

procedur megy
lady=" "
do iesire with lady,"Mai avem de modificat date ?"
if lady="D" then
        close data
		do agent
else
   close databases
   set mouse on
    return
endif