* COMPTE SALARIES PRESTATAIRE ET MANDATAIRE AU DERNIER JOUR DE LA PERIODE SELECTIONNEE
* FAIT POUR SAINT-LO LE 26/09/2002 - DIDIER

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

1
PRINT "PERIODE A TRAITER (JJ/MM/AAAA) :"
INPUT W_PERIODEDEB1
W_PERIODEDEB=ICONV(W_PERIODEDEB1,"D4/")
IF W_PERIODEDEB="" THEN GOTO 1
W_ANNEEMOIS=W_PERIODEDEB1[7,4]:W_PERIODEDEB1[4,2]

*PRINTER ON


********************************************************************************************
* COMPTE SALARIES EXCLUSIF PREST ET MAND ET COMUNS
********************************************************************************************

EXECUTE 'TSELECT CONTRAT AVEC 7 <= "':W_PERIODEDEB:'" AND AVEC 8 = "" OR >= "':W_PERIODEDEB:'" AND AVEC 6 = "P" AND AVEC 65 # "O" PAR @ID'
W_FINI="FAUX"
W_MAND="FAUX"
W_PREST="FAUX"
W_COMPTEUR=0
W_COMPTMAND=0
W_COMPTPREST=0
W_PRESTMAND=0
W_ANCIENCODE=""
W_HEURESMAND=0
W_HEURESPREST=0
W_TOTHHMAND1=0
W_TOTHHPREST1=0
W_TOTHHMANDPREST1=0
W_TOTHHMAND2=0
W_TOTHHPREST2=0
W_TOTHHMANDPREST2=0
W_TOTHHMAND3=0
W_TOTHHPREST3=0
W_TOTHHMANDPREST3=0
W_TOTHHMAND4=0
W_TOTHHPREST4=0
W_TOTHHMANDPREST4=0
W_TOTHHMAND5=0
W_TOTHHPREST5=0
W_TOTHHMANDPREST5=0
W_CUMHHPREST=0
W_CUMHHMAND=0
W_CUMHHMANDPREST=0
W_MANDATCDD=0
W_MANDATCDI=0
W_PRESTCDD=0
W_PRESTCDI=0
W_TOTMANDATPRESTCDD=0
W_TOTMANDATPRESTCDI=0
W_TOTMANDATCDD=0
W_TOTMANDATCDI=0
W_TOTPRESTCDD=0
W_TOTPRESTCDI=0

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
UNTIL W_FINI="VRAI" DO
    READ ENR_CONTRAT FROM F.CONTRAT,W_CLE ELSE ENR_CONTRAT =""
    READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE:W_ANNEEMOIS ELSE ENR_DETAILCALCUL=""
    IF W_ANCIENCODE="" THEN
       W_ANCIENCODE=W_CLE[1,5]
    END	
    IF W_ANCIENCODE # W_CLE[1,5] THEN
       GOSUB 100
	W_ANCIENCODE=W_CLE[1,5]
	W_MAND="FAUX"
	W_PREST="FAUX"
        W_HEURESMAND=0
        W_HEURESPREST=0
    END

    IF ENR_CONTRAT<1>="02" THEN
	W_MAND="VRAI"
        W_HEURESMAND=W_HEURESMAND+ENR_DETAILCALCUL<6>
        IF ENR_CONTRAT<4>="D" THEN W_MANDATCDD=1 ELSE W_MANDATCDI=1
    END ELSE
	W_PREST="VRAI"
        W_HEURESPREST=W_HEURESPREST+ENR_DETAILCALCUL<6>
        IF ENR_CONTRAT<4>="D" THEN W_PRESTCDD=1 ELSE W_PRESTCDI=1
    END


REPEAT
GOSUB 100
W_CUMHHPREST=W_CUMHHPREST "R26,(#10)"
W_CUMHHMAND=W_CUMHHMAND "R26,(#10)"
W_CUMHHMANDPREST=W_CUMHHMANDPREST "R26,(#10)"
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES                    ":W_COMPTPREST
PRINT "CUMUL DES HEURES DES SALARIES EXCLUSIFS PRESTATAIRES         ":W_CUMHHPREST
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES <75 H              ":W_TOTHHPREST1
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES >=75 H ET < 85 H   ":W_TOTHHPREST2
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES >=85 H ET < 120 H  ":W_TOTHHPREST3
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES >=120 H ET < 151 H ":W_TOTHHPREST4
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES >=151 H            ":W_TOTHHPREST5
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES CDI                ":W_TOTPRESTCDI
PRINT "NOMBRE DE SALARIES EXCLUSIFS PRESTATAIRES CDD                ":W_TOTPRESTCDD
PRINT
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES                     ":W_COMPTMAND
PRINT "CUMUL DES HEURES DES SALARIES EXCLUSIFS MANDATAIRES          ":W_CUMHHMAND
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES <75 H               ":W_TOTHHMAND1
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES >=75 H ET < 85 H    ":W_TOTHHMAND2
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES >=85 H ET < 120 H   ":W_TOTHHMAND3
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES >=120 H ET < 151 H  ":W_TOTHHMAND4
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES >=151 H             ":W_TOTHHMAND5
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES CDI                 ":W_TOTMANDATCDI
PRINT "NOMBRE DE SALARIES EXCLUSIFS MANDATAIRES CDD                 ":W_TOTMANDATCDD
PRINT
PRINT "NOMBRE DE SALARIES COMMUNS                                   ":W_PRESTMAND
PRINT "CUMUL DES HEURES DES SALARIES COMMUNS                        ":W_CUMHHMANDPREST
PRINT "NOMBRE DE SALARIES COMMUNS <75 H                             ":W_TOTHHMANDPREST1
PRINT "NOMBRE DE SALARIES COMMUNS >=75 H ET < 85 H                  ":W_TOTHHMANDPREST2
PRINT "NOMBRE DE SALARIES COMMUNS >=85 H ET < 120 H                 ":W_TOTHHMANDPREST3
PRINT "NOMBRE DE SALARIES COMMUNS >=120 H ET < 151 H                ":W_TOTHHMANDPREST4
PRINT "NOMBRE DE SALARIES COMMUNS >=151 H                           ":W_TOTHHMANDPREST5
PRINT "NOMBRE DE SALARIES COMMUNS CDI                               ":W_TOTMANDATPRESTCDI
PRINT "NOMBRE DE SALARIES COMMUNS CDD                               ":W_TOTMANDATPRESTCDD
PRINT

STOP
******
100 IF W_MAND="VRAI" THEN
   IF W_PREST="VRAI" THEN
      IF W_PRESTCDI=1 THEN
       W_TOTMANDATPRESTCDI=W_TOTMANDATPRESTCDI+1
      END ELSE
       IF W_MANDATCDI=1 THEN
        W_TOTMANDATPRESTCDI=W_TOTMANDATPRESTCDI+1
       END ELSE
        W_TOTMANDATPRESTCDD=W_TOTMANDATPRESTCDD+1
       END
      END
      W_PRESTMAND=W_PRESTMAND+1
      W_CUMHHMANDPREST=W_CUMHHMANDPREST+W_HEURESMAND+W_HEURESPREST
      BEGIN CASE
       CASE W_HEURESMAND+W_HEURESPREST<7500
        W_TOTHHMANDPREST1=W_TOTHHMANDPREST1+1
       CASE W_HEURESMAND+W_HEURESPREST<8500
        W_TOTHHMANDPREST2=W_TOTHHMANDPREST2+1
       CASE W_HEURESMAND+W_HEURESPREST<12000
        W_TOTHHMANDPREST3=W_TOTHHMANDPREST3+1
       CASE W_HEURESMAND+W_HEURESPREST<15100
        W_TOTHHMANDPREST4=W_TOTHHMANDPREST4+1
       CASE 1
        W_TOTHHMANDPREST5=W_TOTHHMANDPREST5+1
      END CASE
   END ELSE
      IF W_MANDATCDI=1 THEN
       W_TOTMANDATCDI=W_TOTMANDATCDI+1
      END ELSE
       W_TOTMANDATCDD=W_TOTMANDATCDD+1
      END
      W_COMPTMAND=W_COMPTMAND+1
      W_CUMHHMAND=W_CUMHHMAND+W_HEURESMAND
      BEGIN CASE
       CASE W_HEURESMAND<7500
        W_TOTHHMAND1=W_TOTHHMAND1+1
       CASE W_HEURESMAND<8500
        W_TOTHHMAND2=W_TOTHHMAND2+1
       CASE W_HEURESMAND<12000
        W_TOTHHMAND3=W_TOTHHMAND3+1
       CASE W_HEURESMAND<15100
        W_TOTHHMAND4=W_TOTHHMAND4+1
       CASE 1
        W_TOTHHMAND5=W_TOTHHMAND5+1
      END CASE
   END
END ELSE
   IF W_PRESTCDI=1 THEN
    W_TOTPRESTCDI=W_TOTPRESTCDI+1
   END ELSE
    W_TOTPRESTCDD=W_TOTPRESTCDD+1
   END
   W_COMPTPREST=W_COMPTPREST+1
   W_CUMHHPREST=W_CUMHHPREST+W_HEURESPREST
   BEGIN CASE
    CASE W_HEURESPREST<7500
     W_TOTHHPREST1=W_TOTHHPREST1+1
    CASE W_HEURESPREST<8500
     W_TOTHHPREST2=W_TOTHHPREST2+1
    CASE W_HEURESPREST<12000
     W_TOTHHPREST3=W_TOTHHPREST3+1
    CASE W_HEURESPREST<15100
     W_TOTHHPREST4=W_TOTHHPREST4+1
    CASE 1
     W_TOTHHPREST5=W_TOTHHPREST5+1
   END CASE
END
RETURN



