meserii.prg

System "somaj" for city Beius

procedure meserii

CLOSE DATABASES
SET TALK OFF
set mouse off
DEFINE WINDOW term FROM 1,4 TO 23,39  ;
Title ' TOTAL calificare ! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE someri
COUNT TO mcount1 FOR calific_1 = 'ZIDAR' 
COUNT TO mcount2 FOR calific_2 = 'ZIDAR' 
COUNT TO mcount3 FOR calific_3 = 'ZIDAR'
mcount=mcount1+mcount2+mcount3
@0,2 say 'Zidari: '+ LTRIM(STR(mcount)) 

****************************
COUNT TO mcount1 FOR calific_1 = 'TAMPLAR'
COUNT TO mcount2 FOR calific_2 = 'TAMPLAR'
COUNT TO mcount3 FOR calific_3 = 'TAMPLAR'
mcount=mcount1+mcount2+mcount3
@1,2 say 'Tamplar: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'TAPITER'
COUNT TO mcount2 FOR calific_2 = 'TAPITER'
COUNT TO mcount3 FOR calific_3 = 'TAPITER'
mcount=mcount1+mcount2+mcount3
@2,2 say 'Tapiter: '+ LTRIM(STR(mcount)) 

***********************************************
COUNT TO mcount1 FOR calific_1 = 'VANZATOARE' 
COUNT TO mcount2 FOR calific_2 = 'VANZATOARE' 
COUNT TO mcount3 FOR calific_3 = 'VANZATOARE' 
mcount=mcount1+mcount2+mcount3
@3,2 say 'Vanzatoare: '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'MECANIC AUTO' 
COUNT TO mcount2 FOR calific_2 = 'MECANIC AUTO' 
COUNT TO mcount3 FOR calific_3 = 'MECANIC AUTO' 
mcount=mcount1+mcount2+mcount3
@4,2 say 'Mecanic auto: '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'SOFER' 
COUNT TO mcount2 FOR calific_2 = 'SOFER' 
COUNT TO mcount3 FOR calific_3 = 'SOFER' 
mcount=mcount1+mcount2+mcount3
@5,2 say 'Sofer: '+ LTRIM(STR(mcount)) 

****************************
COUNT TO mcount1 FOR calific_1 = 'COCATOR-COFETAR' 
COUNT TO mcount2 FOR calific_2 = 'COCATOR-COFETAR' 
COUNT TO mcount3 FOR calific_3 = 'COCATOR-COFETAR' 
mcount=mcount1+mcount2+mcount3
@6,2 say 'Cocator-cofetar: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'CROITORIE' 
COUNT TO mcount2 FOR calific_2 = 'CROITORIE' 
COUNT TO mcount3 FOR calific_3 = 'CROITORIE' 
mcount=mcount1+mcount2+mcount3
@7,2 say 'Croitor: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'ELECTRICIAN' 
COUNT TO mcount2 FOR calific_2 = 'ELECTRICIAN'  
COUNT TO mcount3 FOR calific_3 = 'ELECTRICIAN'  
mcount=mcount1+mcount2+mcount3
@8,2 say 'Electrician: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'CONTABIL' 
COUNT TO mcount2 FOR calific_2 = 'CONTABIL' 
COUNT TO mcount3 FOR calific_3 = 'CONTABIL' 
mcount=mcount1+mcount2+mcount3
@9,2 say 'Contabil: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'LUCRATOR COMERCIAL' 
COUNT TO mcount2 FOR calific_2 = 'LUCRATOR COMERCIAL' 
COUNT TO mcount3 FOR calific_3 = 'LUCRATOR COMERCIAL' 
mcount=mcount1+mcount2+mcount3
@10,2 say 'Lucrator comercial: '+ LTRIM(STR(mcount)) 

****************************************
COUNT TO mcount1 FOR calific_1 = 'LACATUS MECANIC' 
COUNT TO mcount2 FOR calific_2 = 'LACATUS MECANIC' 
COUNT TO mcount3 FOR calific_3 = 'LACATUS MECANIC' 
mcount=mcount1+mcount2+mcount3
@11,2 say 'Lacatus mecanic: '+ LTRIM(STR(mcount)) 

****************************
COUNT TO mcount1 FOR calific_1 = 'DEPANATOR'
COUNT TO mcount2 FOR calific_2 = 'DEPANATOR'
COUNT TO mcount3 FOR calific_3 = 'DEPANATOR'
mcount=mcount1+mcount2+mcount3
@12,2 say 'Depanator: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'OPERATOR PRELUCRAREA LEMNULUI' 
COUNT TO mcount2 FOR calific_2 = 'OPERATOR PRELUCRAREA LEMNULUI' 
COUNT TO mcount3 FOR calific_3 = 'OPERATOR PRELUCRAREA LEMNULUI' 
mcount=mcount1+mcount2+mcount3
@13,2 say 'Operator prelucrare lemn: '+ LTRIM(STR(mcount)) 

***********************************************
COUNT TO mcount1 FOR calific_1 = 'OPERATOR PTTR' 
COUNT TO mcount2 FOR calific_2 = 'OPERATOR PTTR' 
COUNT TO mcount3 FOR calific_3 = 'OPERATOR PTTR' 
mcount=mcount1+mcount2+mcount3
@14,2 say 'Operator PTTR: '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'OPERATOR CHERESTEA' 
COUNT TO mcount2 FOR calific_2 =  'OPERATOR CHERESTEA' 
COUNT TO mcount3 FOR calific_3 =  'OPERATOR CHERESTEA' 
mcount=mcount1+mcount2+mcount3
@15,2 say 'Operator cherestea: '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'COMERCIANTA' 
COUNT TO mcount2 FOR calific_2 = 'COMERCIANTA' 
COUNT TO mcount3 FOR calific_3 = 'COMERCIANTA'  
mcount=mcount1+mcount2+mcount3
@16,2 say 'Comercianta: '+ LTRIM(STR(mcount)) 

****************************
COUNT TO mcount1 FOR calific_1 = 'ELECTROMECANIC' 
COUNT TO mcount2 FOR calific_2 = 'ELECTROMECANIC' 
COUNT TO mcount3 FOR calific_3 = 'ELECTROMECANIC' 
mcount=mcount1+mcount2+mcount3
@17,2 say 'Electromecanic: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'CONTABIL STATISTICIAN' 
COUNT TO mcount2 FOR calific_2 = 'CONTABIL STATISTICIAN' 
COUNT TO mcount3 FOR calific_3 = 'CONTABIL STATISTICIAN' 
mcount=mcount1+mcount2+mcount3
@18,2 say 'Contabil statistician: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'AJUTOR ANALIST PROGRAMATOR' 
COUNT TO mcount2 FOR calific_2 = 'AJUTOR ANALIST PROGRAMATOR' 
COUNT TO mcount3 FOR calific_3 = 'AJUTOR ANALIST PROGRAMATOR' 
mcount=mcount1+mcount2+mcount3
@19,2 say 'Ajutor analist programator: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'STRUNGAR' 
COUNT TO mcount2 FOR calific_2 =  'STRUNGAR' 
COUNT TO mcount3 FOR calific_3 =  'STRUNGAR' 
mcount=mcount1+mcount2+mcount3
@20,2 say 'Strungar: '+ LTRIM(STR(mcount)) 

*************************************************
****************************************
DEFINE WINDOW tot FROM 1,42 TO 23,75  ;
Title ' TOTAL calificare ! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW tot

COUNT TO mcount1 FOR calific_1 = 'MINER' 
COUNT TO mcount2 FOR calific_2 = 'MINER' 
COUNT TO mcount3 FOR calific_3 = 'MINER' 
mcount=mcount1+mcount2+mcount3
@0,2 say 'Miner: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'MERCEOLOG' 
COUNT TO mcount2 FOR calific_2 =  'MERCEOLOG' 
COUNT TO mcount3 FOR calific_3 =  'MERCEOLOG' 
mcount=mcount1+mcount2+mcount3
@1,2 say 'Merceolog: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'COFETAR' 
COUNT TO mcount2 FOR calific_2 =  'COFETAR' 
COUNT TO mcount3 FOR calific_3 = 'COFETAR' 
mcount=mcount1+mcount2+mcount3
@3,2 say 'Cofetar: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'BUCATAR' 
COUNT TO mcount2 FOR calific_2 = 'BUCATAR' 
COUNT TO mcount3 FOR calific_3 = 'BUCATAR' 
mcount=mcount1+mcount2+mcount3
@4,2 say 'Bucatar: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 = 'ZUGRAV' 
COUNT TO mcount2 FOR calific_2 = 'ZUGRAV' 
COUNT TO mcount3 FOR calific_3 = 'ZUGRAV' 
mcount=mcount1+mcount2+mcount3
@7,2 say 'Zugrav: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'MUZICIAN' 
COUNT TO mcount2 FOR calific_2 =  'MUZICIAN' 
COUNT TO mcount3 FOR calific_3 =  'MUZICIAN' 
mcount=mcount1+mcount2+mcount3
@7,2 say 'Muzician: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'MUZICANT' 
COUNT TO mcount2 FOR calific_2 =  'MUZICANT' 
COUNT TO mcount3 FOR calific_3 =  'MUZICANT' 
mcount=mcount1+mcount2+mcount3
@7,2 say 'Muzicant: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =   'SCULPTOR' 
COUNT TO mcount2 FOR calific_2 =   'SCULPTOR' 
COUNT TO mcount3 FOR calific_3 =   'SCULPTOR' 
mcount=mcount1+mcount2+mcount3
@8,2 say 'Sculptor: '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR calific_1 =  'PREPARATOR' 
COUNT TO mcount2 FOR calific_2 =  'PREPARATOR' 
COUNT TO mcount3 FOR calific_3 =  'PREPARATOR' 
mcount=mcount1+mcount2+mcount3
@9,2 say 'Preparator: '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'ECONOMIST-CONTABIL'    
COUNT TO mcount2 FOR calific_2 = 'ECONOMIST-CONTABIL'     
COUNT TO mcount3 FOR calific_3 = 'ECONOMIST-CONTABIL'     
mcount=mcount1+mcount2+mcount3
@10,2 say 'Economist-contabil:    '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'MECANIZATOR EXPLOAT'  
COUNT TO mcount2 FOR calific_2 =  'MECANIZATOR EXPLOAT'  
COUNT TO mcount3 FOR calific_3 =  'MECANIZATOR EXPLOAT'  
mcount=mcount1+mcount2+mcount3
@11,2 say 'Mecanizator expl.forest:  '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'PRELUCRATOR PRIN ASCHIERE'  
COUNT TO mcount2 FOR calific_2 =  'PRELUCRATOR PRIN ASCHIERE'  
COUNT TO mcount3 FOR calific_3 =  'PRELUCRATOR PRIN ASCHIERE'  
mcount=mcount1+mcount2+mcount3
@12,2 say 'Prelucrator prin aschiere:  '+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'SORA MEDICALA'  
COUNT TO mcount2 FOR calific_2 =  'SORA MEDICALA'  
COUNT TO mcount3 FOR calific_3 =  'SORA MEDICALA'  
mcount=mcount1+mcount2+mcount3
@13,2 say 'Sora medicala:      '+ LTRIM(STR(mcount)) 

******************************************************
COUNT TO mcount1 FOR calific_1 =  'POMPIER'  
COUNT TO mcount2 FOR calific_2 =  'POMPIER'  
COUNT TO mcount3 FOR calific_3 =  'POMPIER'  
mcount=mcount1+mcount2+mcount3
@14,2 say 'Pompier:          '+ LTRIM(STR(mcount)) 



wait '' timeout 0
DEACTIVATE WINDOW term
DEACT WIND tot

close databases
set mouse on
return