**********************************************************
*  vrif cumul assiette brute

*  Vanessa
*  juin 2002

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

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMULBIS" TO F.HISTORCUMULBIS ELSE PRINT "OUVERTURE HISTORCUMULBIS" 

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

* PROGRAMME PRINCIPAL

PRINTER ON

   W_Premier="FAUX"
   W_SauveCumul=0

   EXECUTE 'SELECT HISTORCUMULBIS AVEC PeriodeHistCum = "2002"'
   EXECUTE 'SAUVE-LISTE W_RequeteHistCum'
   EXECUTE "LISTE W_RequeteHistCum" RETURNING MSGCODE

   IF MSGCODE<1> # 209 THEN

      SELECT F.HISTORCUMULBIS TO W_RequeteHistCum

      W_Fin="FAUX"

      LOOP
         READNEXT W_Cle FROM W_RequeteHistCum ELSE W_Fin = "VRAI"
      WHILE W_Fin = "FAUX" DO
         READ ENR_HISTORCUMULBIS FROM F.HISTORCUMULBIS,W_Cle ELSE ENR_HISTORCUMULBIS=""

         W_Count=DCOUNT(ENR_HISTORCUMULBIS<15>,CHAR(253))
         FOR i = 1 TO W_Count
            IF ENR_HISTORCUMULBIS<15,i>="001" OR ENR_HISTORCUMULBIS<15,i>="002" OR ENR_HISTORCUMULBIS<15,i>="035" OR ENR_HISTORCUMULBIS<15,i>="036" OR ENR_HISTORCUMULBIS<15,i>="037" OR ENR_HISTORCUMULBIS<15,i>="038" OR ENR_HISTORCUMULBIS<15,i>="039" OR ENR_HISTORCUMULBIS<15,i>="040" OR ENR_HISTORCUMULBIS<15,i>="043" OR ENR_HISTORCUMULBIS<15,i>="044" THEN
               IF W_Premier="FAUX" THEN
                  W_SauveCumul=ENR_HISTORCUMULBIS<16,i>
                  W_Premier="VRAI"
               END ELSE
                  IF W_SauveCumul # ENR_HISTORCUMULBIS<16,i> THEN
                     PRINT W_Cle
                     EXIT
                  END
               END
            END
         NEXT i
         W_Premier="FAUX"

      REPEAT
   END

PRINTER OFF
PRINTER CLOSE

STOP
