calcul.prg

System "somaj" for city Beius

procedure calcul

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

USE someri
@0,24 say'M'
@0,30 say'F'

COUNT TO mcount1 FOR calific_1 = 'ZIDAR' and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'ZIDAR' and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'ZIDAR' and sexul='M'
mcount=mcount1+mcount2+mcount3
@1,2 say 'Zidari:               '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'ZIDAR' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'ZIDAR' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'ZIDAR' and sexul='F'
mcount=mcount1+mcount2+mcount3
@1,30 say ''+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 = 'TAMPLAR' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'TAMPLAR' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'TAMPLAR' and sexul='F'
mcount=mcount1+mcount2+mcount3
@2,30 say ''+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 =  'TAPITER' and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'TAPITER' and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'TAPITER' and sexul='F'
mcount=mcount1+mcount2+mcount3
@3,30 say ''+ LTRIM(STR(mcount)) 
*************************************************
COUNT TO mcount1 FOR calific_1 =  'VANZATOARE'  and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'VANZATOARE'  and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'VANZATOARE'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@4,2 say 'Vanzator:             '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 =  'MECANIC AUTO'    and sexul='F'
COUNT TO mcount2 FOR calific_2 =   'MECANIC AUTO'   and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'MECANIC AUTO'   and sexul='F'
mcount=mcount1+mcount2+mcount3
@5,30 say ''+ LTRIM(STR(mcount)) 
*************************************************
COUNT TO mcount1 FOR calific_1 =  'SOFER'   and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'SOFER'    and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'SOFER'   and sexul='M'
mcount=mcount1+mcount2+mcount3
@6,2 say 'Sofer:                '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 = 'COCATOR-COFETAR'   and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'COCATOR-COFETAR'   and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'COCATOR-COFETAR'   and sexul='F'
mcount=mcount1+mcount2+mcount3
@7,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 =  'CROITORIE'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'CROITORIE'      and sexul='M'
COUNT TO mcount3 FOR calific_3 =   'CROITORIE'    and sexul='M'
mcount=mcount1+mcount2+mcount3
@8,2 say 'Croitor:              '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'CROITORIE'    and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'CROITORIE'    and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'CROITORIE'    and sexul='F'
mcount=mcount1+mcount2+mcount3
@8,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 =   'ELECTRICIAN'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =   'ELECTRICIAN'       and sexul='M'
COUNT TO mcount3 FOR calific_3 =    'ELECTRICIAN'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@9,2 say 'Electrician:          '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =   'ELECTRICIAN'    and sexul='F'
COUNT TO mcount2 FOR calific_2 =   'ELECTRICIAN'     and sexul='F'
COUNT TO mcount3 FOR calific_3 =   'ELECTRICIAN'    and sexul='F'
mcount=mcount1+mcount2+mcount3
@9,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 =   'CONTABIL'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =   'CONTABIL'       and sexul='M'
COUNT TO mcount3 FOR calific_3 =   'CONTABIL'    and sexul='M'
mcount=mcount1+mcount2+mcount3
@10,2 say 'Contabil:             '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 = 'LUCRATOR COMERCIAL' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'LUCRATOR COMERCIAL' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'LUCRATOR COMERCIAL' and sexul='F'
mcount=mcount1+mcount2+mcount3
@11,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 ='LACATUS MECANIC'   and sexul='M'
COUNT TO mcount2 FOR calific_2 ='LACATUS MECANIC'   and sexul='M'
COUNT TO mcount3 FOR calific_3 ='LACATUS MECANIC'   and sexul='M'
mcount=mcount1+mcount2+mcount3
@12,2 say 'Lacatus mecanic:      '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'LACATUS MECANIC'  and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'LACATUS MECANIC'  and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'LACATUS MECANIC'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@12,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'DEPANATOR'   and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'DEPANATOR'   and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'DEPANATOR'   and sexul='M'
mcount=mcount1+mcount2+mcount3
@13,2 say 'Depanator:            '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'DEPANATOR'  and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'DEPANATOR'  and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'DEPANATOR'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@13,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'OPERATOR PRELUCRAREA LEMNULUI' and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'OPERATOR PRELUCRAREA LEMNULUI'and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'OPERATOR PRELUCRAREA LEMNULUI' and sexul='M'
mcount=mcount1+mcount2+mcount3
@14,2 say 'Operator prel. lemn:  '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'OPERATOR PRELUCRAREA LEMNULUI' and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'OPERATOR PRELUCRAREA LEMNULUI'   and sexul='F'
COUNT TO mcount3 FOR calific_3 =   'OPERATOR PRELUCRAREA LEMNULUI'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@14,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'OPERATOR PTTR' and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'OPERATOR PTTR'and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'OPERATOR PTTR' and sexul='M'
mcount=mcount1+mcount2+mcount3
@15,2 say 'Operator PTTR:        '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR calific_1 =  'OPERATOR CHERESTEA' and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'OPERATOR CHERESTEA'   and sexul='F'
COUNT TO mcount3 FOR calific_3 =   'OPERATOR CHERESTEA'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@16,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'COMERCIANTA' and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'COMERCIANTA' and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'COMERCIANTA' and sexul='M'
mcount=mcount1+mcount2+mcount3
@17,2 say 'Comerciant:           '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =   'COMERCIANTA' and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'COMERCIANTA'   and sexul='F'
COUNT TO mcount3 FOR calific_3 =   'COMERCIANTA'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@17,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'ELECTROMECANIC'  and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'ELECTROMECANIC'  and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'ELECTROMECANIC'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@18,2 say 'Electromecanic:       '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'ELECTROMECANIC' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'ELECTROMECANIC' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'ELECTROMECANIC' and sexul='F'
mcount=mcount1+mcount2+mcount3
@18,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'CONTABIL STATISTICIAN'  and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'CONTABIL STATISTICIAN'  and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'CONTABIL STATISTICIAN'  and sexul='M'
mcount=mcount1+mcount2+mcount3