***********************************************************
* VERIFICATION DES CUMULS PAR RAPPORT AUX VALEURS DE MOIS *
* ALAIN 17/10/2001                                        *
***********************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILECRITUREAUX" TO F.DETAILECRITUREAUX ELSE STOP
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","PLANCOMPTABLE" TO F.PLANCOMPTABLE ELSE STOP

W_ReqDetail = ""

EXECUTE 'SSELECT DETAILECRITUREAUX AVEC 11 # "" PAR 3 PAR 11'

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

IF MSGCODE<1> # 209 THEN

W_FINI = "FAUX"	
CUMUL6 = 0
CUMUL7 = 0
AncCpte = ""
PRINTER ON

LOOP
	READNEXT CLE FROM W_ReqDetail ELSE W_FINI = "VRAI"
WHILE W_FINI = "FAUX"

	READ ENR_DETAILAUX FROM F.DETAILECRITUREAUX,CLE ELSE ENR_DETAILAUX = ""
	
	IF ENR_DETAILAUX<3> <> AncCpte THEN
		IF CUMUL6 <> CUMUL7 THEN
			READ ENR_CIVILAIDE FROM F.CIVILAIDE,AncCpte ELSE ENR_CIVILAIDE = ""
			PRINT AncCpte:' ':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>
			EXECUTE 'SELECT DETAILECRITUREAUX AVEC 11 # "" AND AVEC 3 = "':AncCpte:'"'
			W_FIN = "FAUX"
			LOOP
				READNEXT CleDet ELSE W_FIN = "VRAI"
			WHILE W_FIN = "FAUX"
				READ ENR_DETAILAUX FROM F.DETAILECRITUREAUX,CleDet ELSE ENR_DETAILAUX = ""
				ENR_DETAILAUX<11> = ""
				WRITE ENR_DETAILAUX ON F.DETAILECRITUREAUX,CleDet
			REPEAT
		END
		CUMUL6 = 0
		CUMUL7 = 0
		AncCpte = CLE
	END

	CUMUL6 = CUMUL6 + ENR_DETAILAUX<6>
	CUMUL7 = CUMUL7 + ENR_DETAILAUX<7>
REPEAT

END


W_ReqDetail = ""

EXECUTE 'SSELECT DETAILECRITUREGENE AVEC 11 # "" PAR 3 PAR 11'

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

IF MSGCODE<1> # 209 THEN

W_FINI = "FAUX"	
CUMUL6 = 0
CUMUL7 = 0
AncCpte = ""
PRINTER ON

LOOP
	READNEXT CLE FROM W_ReqDetail ELSE W_FINI = "VRAI"
WHILE W_FINI = "FAUX"

	READ ENR_DETAILGENE FROM F.DETAILECRITUREGENE,CLE ELSE ENR_DETAILGENE = ""
	
	IF ENR_DETAILGENE<3> <> AncCpte THEN
		IF CUMUL6 <> CUMUL7 THEN
			READ ENR_PLANCPTE FROM F.PLANCOMPTABLE,AncCpte ELSE ENR_PLANCPTE = ""
			PRINT AncCpte:' ':ENR_PLANCPTE<1>
			EXECUTE 'SELECT DETAILECRITUREGENE AVEC 11 # "" AND AVEC 3 = "':AncCpte:'"'
			W_FIN = "FAUX"
			LOOP
				READNEXT CleDet ELSE W_FIN = "VRAI"
			WHILE W_FIN = "FAUX"
				READ ENR_DETAILGENE FROM F.DETAILECRITUREGENE,CleDet ELSE ENR_DETAILGENE = ""
				ENR_DETAILGENE<11> = ""
				WRITE ENR_DETAILGENE ON F.DETAILECRITUREGENE,CleDet
			REPEAT
		END
		CUMUL6 = 0
		CUMUL7 = 0
		AncCpte = CLE
	END

	CUMUL6 = CUMUL6 + ENR_DETAILGENE<6>
	CUMUL7 = CUMUL7 + ENR_DETAILGENE<7>
REPEAT

END

STOP
