******************************************
* cration de la rubrique de charge 904  *
* vanessa				 *
******************************************

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

   ENR_RUB904=""

   READ ENR_RUBCHARGE FROM F.RUBCHARGE,"900" ELSE ENR_RUBCHARGE=""
   
   ENR_RUB904=ENR_RUBCHARGE
   ENR_RUB904<1>="REDUCTION GLOBALE S.S."
   ENR_RUB904<3,1>="REDUCTION GLOBALE S.S."
   ENR_RUB904<5,1>="REDUCTION GLOBALE S.S."

   WRITE ENR_RUB904 ON F.RUBCHARGE,"904"

STOP
