firma.prg

来自「System "somaj" for city Beius」· PRG 代码 · 共 102 行

procedur firma

use patron

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


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

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

procedur domic

use patron
name=" "
do nume with name,"In ce localitate se afla firma asta ?"
locate for left(upper(local_fir),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(local_fir),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta localitate !"
	go top
endif
show gets


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

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

procedur fiscal

use patron
vader=' '
do numar with vader,"Ce cod fiscal are firma cautata ?"
locate for cod_fiscal=vader
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 cod_fiscal=vader title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu am date despre acest cod fiscal !"
	go top
  endif
show gets


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