EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "", "AIDANTSARCHIVEBULL" TO F.AIDANTSARCHIVEBULL ELSE STOP
OPEN "", "ARCHIVEBULL" TO F.ARCHIVEBULL ELSE STOP

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul= "200206" AND AVEC ConvColContratDetailCalcul = "03" PAR NomPrenomAidantDetailCalcul'

EXECUTE 'COMO ON regulBul0602.txt'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle THEN
		W_Count = DCOUNT(ENR_DETAILCALCUL<8>, CHAR(253))
		IF W_Count = 1 AND (ENR_DETAILCALCUL<8,1>="036" OR ENR_DETAILCALCUL<8,1>="037" OR ENR_DETAILCALCUL<8,1>="002") <> 0 THEN
			IF INT(ENR_DETAILCALCUL<16>) >= 0 THEN
				GOSUB 100
			END ELSE
				IF ENR_DETAILCALCUL<16> = ENR_DETAILCALCUL<21> THEN
					W_RubCherchee=ENR_DETAILCALCUL<8,1>
					GOSUB 300
				END ELSE
					GOSUB 200
				END
			END
		END
	END
REPEAT
EXECUTE 'COMO OFF'
STOP

100
*****************************************
* Anomalie : Net  payer positif	*
*****************************************
PRINT W_Cle:" Net  payer >= 0"
PRINT " "
RETURN

200
*****************************************************************
* Anomalie : prsence d'une rubrique aprs net imposable	*
*****************************************************************
PRINT W_Cle:" prsence d'une rubrique aprs net imposable"
PRINT " "
RETURN

300
*************************
* Effacer archive	*
*************************


READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Cle[1,5]: "2002001" THEN

	GOSUB 400

END ELSE
	PRINT "Erreur lecture cumuls sur priode : ":W_Cle
END


READ ENR_AIDANTSARCHIVEBULL FROM F.AIDANTSARCHIVEBULL, W_Cle[1,5]:"2002" THEN
	i = 0
	LOOP
		i = i + 1
	WHILE ENR_AIDANTSARCHIVEBULL<6,i> # W_Cle:"001" AND ENR_AIDANTSARCHIVEBULL<6,i> # ""
	REPEAT
	IF ENR_AIDANTSARCHIVEBULL<6,i> # "" THEN
		ENR_AIDANTSARCHIVEBULL = DELETE(ENR_AIDANTSARCHIVEBULL,6,i)
		WRITE ENR_AIDANTSARCHIVEBULL ON F.AIDANTSARCHIVEBULL,W_Cle[1,5]:"2002"
		DELETE F.ARCHIVEBULL, W_Cle:"001"
	END
END

DELETE F.DETAILCALCUL, W_Cle

RETURN

400
*************************
* MAJ HISTORCUMUL	*
*************************
W_CountHistor = DCOUNT(ENR_HISTORCUMUL<15>, CHAR(253))
IF W_RubCherchee = "036" THEN W_RubCherchee2="038"
IF W_RubCherchee = "037" THEN W_RubCherchee2="035"
IF W_RubCherchee = "032" THEN W_RubCherchee2="001"

GOSUB 500

PRINT W_Cle:" modifi"
PRINT " "

WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_Cle[1,5]:"2002001"
RETURN

500
*****************
* MAJ Rubrique	*
*****************
FOR i = 1 TO W_CountHistor
	IF ENR_HISTORCUMUL<15,i> = W_RubCherchee OR ENR_HISTORCUMUL<15,i> = W_RubCherchee2 OR ENR_HISTORCUMUL<15,i> = "059" THEN
		ENR_HISTORCUMUL<16,i> = INT(ENR_HISTORCUMUL<16,i>) - INT(ENR_DETAILCALCUL<9,1>)
	END
NEXT i
RETURN
