EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

W_RequeteOrg=""
ENR_FUSION=""
i=1

EXECUTE 'TSELECT ORGPRISECHARGE AVEC 18 ="P"'

EXECUTE 'SAUVE-LISTE W_RequeteOrg'
EXECUTE "LISTE W_RequeteOrg" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.ORGPRISECHARGE TO W_RequeteOrg

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteOrg ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle THEN

         IF ENR_ORGPRISECHARGE<51> = 0 THEN
	       * Sans distinction des heures
 	       W_TypeHeure="A"
         END ELSE
            * Distinction semaine et dimanche
	      W_TypeHeure="T"
         END

	   ENR_FUSION<i>=W_Cle:";":ENR_ORGPRISECHARGE<1>:";":ENR_ORGPRISECHARGE<2>:";":W_TypeHeure
	   i = i + 1
	END

   REPEAT

   WRITE ENR_FUSION ON F.FUSION,"FINANCEURSDOM.TXT"

END

EXECUTE 'EFFACER-LISTE W_RequeteOrg'

STOP
