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

W_RESULTAT = ""

PRINT "Code de l'organisme de prise en charge (3N) : "
INPUT W_Org

PRINT "Priode de dbut  regulariser (AAAAMM) : "
INPUT W_PerDeb

PRINT "Priode de fin  regulariser (AAAAMM) : "
INPUT W_PerFin

W_Mois=W_PerDeb[5,2]
W_An=W_PerDeb[1,4]

W_JourDeb="01/":W_Mois:"/":W_An
W_JourDeb=ICONV(W_JourDeb,"D4/")

W_Mois=W_PerFin[5,2]
W_An=W_PerFin[1,4]

W_Mois=W_Mois+1
IF W_Mois="13" THEN
   W_Mois="01"
   W_An=W_An+1
END

W_JourFin="01/":W_Mois:"/":W_An
W_JourFin=ICONV(W_JourFin,"D4/")-1

EXECUTE 'SSELECT ACCORD AVEC 1 = "':W_Org:'" AND AVEC 5 <= "':W_JourFin:'" AND AVEC 6 >= "':W_JourDeb:'" AND AVEC 18 # "O" PAR 0'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.ACCORD TO W_RESULTAT

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		READ ENR_ACCORD FROM F.ACCORD,CLE ELSE ENR_ACCORD = ""
               
                W_Count=DCOUNT(ENR_ACCORD<14>,CHAR(253))
                W_NbHre07=0
                W_NbHre0810=0
                FOR i = 1 TO W_Count
                   IF ENR_ACCORD<14,i> = "200307" THEN
                      W_NbHre07=W_NbHre07+ENR_ACCORD<16,i>
                   END ELSE
                      IF ENR_ACCORD<14,i> >= "200308" AND ENR_ACCORD<14,i> <= "200310" THEN
                         W_NbHre0810=W_NbHre0810+ENR_ACCORD<16,i>
                      END
                   END
                NEXT i

                W_CleComplFact=CLE[1,5]:"001P"
		READ ENR_COMPLFACT FROM F.COMPLFACT,W_CleComplFact ELSE ENR_COMPLFACT=""
                IF ENR_COMPLFACT="" THEN	
		   W_Mv=1
                END ELSE
                   W_Count=DCOUNT(ENR_COMPLFACT<1>,CHAR(253))
                   W_Mv=W_Count+1
                END
                IF W_NbHre07 # 0 THEN
                   ENR_COMPLFACT<1,W_Mv>="RAPPEL 07/03"
                   ENR_COMPLFACT<2,W_Mv>=W_NbHre07
                   ENR_COMPLFACT<3,W_Mv>="150"
                   W_Rappel=INT(W_NbHre07*1.5 + (1/2))
                   ENR_COMPLFACT<4,W_Mv>=W_Rappel
                   ENR_COMPLFACT<5,W_Mv>="7061120000"
                   ENR_COMPLFACT<6,W_Mv>="100"
                   ENR_COMPLFACT<7,W_Mv>="0"
                   ENR_COMPLFACT<8,W_Mv>=""
                   W_Mv=W_Mv+1
                END
                IF W_NbHre0810 # 0 THEN
                   ENR_COMPLFACT<1,W_Mv>="RAPPEL 08/03 A 10/03"
                   ENR_COMPLFACT<2,W_Mv>=W_NbHre0810
                   ENR_COMPLFACT<3,W_Mv>="266"
                   W_Rappel=INT(W_NbHre0810*2.66 + (1/2))
                   ENR_COMPLFACT<4,W_Mv>=W_Rappel
                   ENR_COMPLFACT<5,W_Mv>="7061120000"
                   ENR_COMPLFACT<6,W_Mv>="100"
                   ENR_COMPLFACT<7,W_Mv>="0"
                   ENR_COMPLFACT<8,W_Mv>=""
                END

                WRITE ENR_COMPLFACT ON F.COMPLFACT,W_CleComplFact

	REPEAT
	
END

STOP
