
*****************************************************
* PROG INTEGRANT LES NOUVELLES GRILLES DE LA CCU    *
* ALAIN LE 22/05/03                                 *
*****************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONVENTIONCOL" TO F.CONVENTIONCOL ELSE STOP
OPEN "","GRILLESCC" TO F.GRILLESCC ELSE STOP
OPEN "","TAMPONINF" TO F.TAMPONINF ELSE STOP

W_RESULTAT = ""
W_RESULTATCONV = ""

READ ENR_CONV FROM F.CONVENTIONCOL,'01' ELSE ENR_CONV = ""
ENR_CONV<36> = "VRAI"
WRITE ENR_CONV ON F.CONVENTIONCOL,'01'

READ ENR_CONV FROM F.CONVENTIONCOL,'03' ELSE ENR_CONV = ""
ENR_CONV<36> = "VRAI"
WRITE ENR_CONV ON F.CONVENTIONCOL,'03'

READ ENR_CONV FROM F.CONVENTIONCOL,'06' ELSE ENR_CONV = ""
ENR_CONV<36> = "VRAI"
WRITE ENR_CONV ON F.CONVENTIONCOL,'06'

EXECUTE 'SELECT CONVENTIONCOL AVEC 36 = "VRAI"'
EXECUTE 'SAUVE-LISTE W_RESULTATCONV'
EXECUTE "LISTE W_RESULTATCONV" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	SELECT F.CONVENTIONCOL TO W_RESULTATCONV 

	W_FinConv = "FAUX"
	W_CleConv = ""

	LOOP
		READNEXT W_CleConv FROM W_RESULTATCONV ELSE W_FinConv="VRAI"
	WHILE W_FinConv="FAUX" DO

		EXECUTE 'SELECT TAMPONINF PAR @ID'
		EXECUTE 'SAUVE-LISTE W_RESULTAT' 
		EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

		IF MSGCODE<1> # 209 THEN

			SELECT F.TAMPONINF TO W_RESULTAT 

			W_Fini="FAUX"

			CLE = ""
			SECT = ""
			IMP = ""
			DEB = "TRUE"

			LOOP
				READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
			WHILE W_Fini="FAUX" DO

				ENR_TAMPONINF = ""
				READ ENR_TAMPONINF FROM F.TAMPONINF,W_Cle ELSE ENR_TAMPONINF = ""
		
				WRITE ENR_TAMPONINF ON F.GRILLESCC,W_CleConv:W_Cle
	
			REPEAT

		END

	REPEAT

END

STOP
