* MAJ CUMUL D'ASSIETTE BRUTE (ATT 16 D'HISTORCUMUL) POUR RUBRIQUE TAXES
* SUR SALAIRES TRANCHE 1 ET TRANCHE 2
EXECUTE 'SELECT HISTORCUMUL AVEC PeriodeHistCum = "2002" AND AVEC EmployeurHistCum < "007"'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
10 READNEXT WCLE ELSE STOP
READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,WCLE ELSE GOTO 10
W_Count=DCOUNT(ENR_HISTORCUMUL<15>,CHAR(253))
W_RUB053=0
W_RUB054=0
W_RUB055=0
FOR j=1 TO W_Count
 IF ENR_HISTORCUMUL<15,j>="053" THEN W_RUB053=j
 IF ENR_HISTORCUMUL<15,j>="054" THEN W_RUB054=j
 IF ENR_HISTORCUMUL<15,j>="055" THEN W_RUB055=j
NEXT j
IF W_RUB053#0 THEN
 W_ASSIETTE=ENR_HISTORCUMUL<16,W_RUB053>
 IF W_RUB054=0 THEN
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,15,-1;"054")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,16,-1;W_ASSIETTE)
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,17,-1;"0")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,18,-1;"0")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,19,-1;"0")
 END ELSE
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,16,W_RUB054;W_ASSIETTE)  
 END
 IF W_RUB055=0 THEN
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,15,-1;"055")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,16,-1;W_ASSIETTE)
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,17,-1;"0")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,18,-1;"0")
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,19,-1;"0")
 END ELSE
  ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,16,W_RUB055;W_ASSIETTE)  
 END
 WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,WCLE
END
GOTO 10
