
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE PRINT "OUVERTURE FACTURAIDE" ;* en lecture

   EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "200205" AND AVEC ActiviteFact = "M" PAR-DECR 0' 

   W_SalaireVerse=0
   W_Urssaf=0
   W_Prevoyance=0
   W_Provision=0
   W_FraisGestion=0
   W_Autre=0
   W_End = "FAUX"
   W_Sauve=0
   W_Part=0

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE ENR_FACTURAIDE=""
    
      IF W_Sauve # W_Cle[1,25] THEN
         W_Sauve = W_Cle[1,25]


         W_Count=DCOUNT(ENR_FACTURAIDE<2>,CHAR(253))

         FOR i=1 TO W_Count
            BEGIN CASE
               CASE ENR_FACTURAIDE<2,i>[1,13] = "SALAIRE VERSE"
                  W_SalaireVerse=W_SalaireVerse+ENR_FACTURAIDE<5,i>
               CASE ENR_FACTURAIDE<2,i> = "CHARGES APPELEES PAR L'URSSAF"
                  W_Urssaf=W_Urssaf+ENR_FACTURAIDE<5,i>
               CASE ENR_FACTURAIDE<2,i>[1,18] = "CHARGES PREVOYANCE"
                  W_Prevoyance=W_Prevoyance+ENR_FACTURAIDE<5,i>
               CASE ENR_FACTURAIDE<2,i> = "PROVISION POUR CONGES PAYES" OR ENR_FACTURAIDE<2,i> = "REPRISE PROVISIONS POUR CONGES PAYES"
                  W_Provision=W_Provision+ENR_FACTURAIDE<5,i>
               CASE ENR_FACTURAIDE<2,i>[1,16] = "FRAIS DE GESTION"
                  W_FraisGestion=W_FraisGestion+ENR_FACTURAIDE<5,i>
               CASE ENR_FACTURAIDE<2,i>[1,15] = "PRISE EN CHARGE" 
                  W_Part=W_Part+ENR_FACTURAIDE<5,i>
               CASE 1
                  W_Autre=W_Autre+ENR_FACTURAIDE<5,i>
            END CASE
         NEXT i
      END
   REPEAT

   PRINT "Salaire vers : ":W_SalaireVerse
   PRINT "Urssaf : ":W_Urssaf
   PRINT "Prevoyance supplmentaire : ":W_Prevoyance
   PRINT "Provision congs pays : ":W_Provision
   PRINT "Frais de gestion : ":W_FraisGestion
   PRINT "Autre : ":W_Autre
   PRINT "Part. : ":W_Part

STOP
