EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
 OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
 OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP

 EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[M200201]" PAR-DECR 0'
 W_Fini="FAUX"
 W_ANCIEN=""
 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP
    
    IF W_ANCIEN#W_Cle[1,25] THEN	
     i=1
     LOOP
     WHILE ENR_FACTURAIDE<1,i> # "" DO


       W_Lib=ENR_FACTURAIDE<2,i>

       W_REGUL=0
       IF W_Lib="PRISE EN CHARGE S.D.A.S. MANDATAIRE" THEN
	  W_REGUL=INT(((ENR_FACTURAIDE<3,i>*33)/100)+1/2)
	  W_REGUL=-W_REGUL
       END
       IF W_Lib="PRISE EN CHARGE SDAS H.DIMANCHE" THEN
	  W_REGUL=INT(((ENR_FACTURAIDE<3,i>*154)/100)+1/2)
       END

       IF W_REGUL#"0" THEN	
		READ ENR_COMPLFACT FROM F.COMPLFACT,W_Cle[1,5]:"002M" ELSE ENR_COMPLFACT=""
		ENR_COMPLFACT<1,-1>="REGUL PRISE EN CHARGE SDAS 01/02"
		ENR_COMPLFACT<2,-1>=0
		ENR_COMPLFACT<3,-1>=0
		ENR_COMPLFACT<4,-1>=W_REGUL
		ENR_COMPLFACT<5,-1>=""
		ENR_COMPLFACT<6,-1>=""
		ENR_COMPLFACT<7,-1>=0
		WRITE ENR_COMPLFACT ON F.COMPLFACT,W_Cle[1,5]:"002M"
	END
       i=i+1
     REPEAT

    END
    W_ANCIEN=W_Cle[1,25]
 REPEAT

STOP
