**********************************************************
* SPECIF ST AMAND POUR DADS (CAR RUB 035 AVEC TAUX SALARIAL ET
*                            PATRONAL = 0)
*  moulinette de mise  jour des cumuls DADS POUR LES RUBRIQUES
* 035 = URSSAF TOTALITE A.A.D. TIT. EXO (CUMUL BASE DE COTISATION = CUMUL 
*                    D'ASSIETTE BRUTE - CUMUL BASE DE COTISATION RUB 038)
* 038 = URSSAF TOTALITE A.A.D. TIT. NON EXO (CUMUL D'ASSIETTE BRUTE = 
*                    CUMUL D'ASSIETTE BRUTE RUB 035)     
**********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE PRINT "OUVERTURE HISTORCUMUL"
EXECUTE 'SELECT HISTORCUMUL AVEC PeriodeHistCum = "2002" AND AVEC 15 = "035"'
EXECUTE 'SAUVE-LISTE W_RequeteHistCum'
EXECUTE "LISTE W_RequeteHistCum" RETURNING MSGCODE
IF MSGCODE<1> # 209 THEN
 SELECT F.HISTORCUMUL TO W_RequeteHistCum
 W_Fin="FAUX"
 LOOP
  READNEXT W_Cle FROM W_RequeteHistCum ELSE W_Fin = "VRAI"
  WHILE W_Fin = "FAUX" DO
   READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Cle ELSE ENR_HISTORCUMUL=""
   W_Count=DCOUNT(ENR_HISTORCUMUL<15>,CHAR(253))
   INDRUB035=0
   INDRUB038=0
   CUMASSBRUTE035=0
   CUMBASECOTIS038=0
   FOR i = 1 TO W_Count
    IF ENR_HISTORCUMUL<15,i>="035" THEN
     INDRUB035=i
     CUMASSBRUTE035=ENR_HISTORCUMUL<16,i>
    END
    IF ENR_HISTORCUMUL<15,i>="038" THEN
     INDRUB038=i
     CUMBASECOTIS038=ENR_HISTORCUMUL<17,i>
    END
   NEXT i
   IF INDRUB035#0 AND INDRUB038#0 THEN
    ENR_HISTORCUMUL<17,INDRUB035>=CUMASSBRUTE035-CUMBASECOTIS038
    ENR_HISTORCUMUL<16,INDRUB038>=CUMASSBRUTE035
    WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_Cle
   END
 REPEAT
END
STOP
