********************************************
* BETHUNE                                  *
* AJOUT D'ACTIVITES EN MULTIVALEURS        *
* POUR LES CONVENTIONS COLLECTIVES         *
* 01 ET 06.                                *
*                                          *
*                                          *
*					   *
* CYPRIEN                   JANVIER 2004   *
*                                          *
********************************************

************
* FICHIERS *
************

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


*************
* VARIABLES *
*************

* Compteurs

* Boolens	

* Enregistrements
	W_ListContrat = ""



*********************
* TRAITEMENT GLOBAL *
*********************

EXECUTE 'SELECT CONTRAT AVEC 2 = "002" AND AVEC 8 = "" OR >= "13150" AND AVEC 6 = "P" AND AVEC 65 <> "O"'
EXECUTE 'SAUVE-LISTE W_ListContrat'
EXECUTE "LISTE W_ListContrat" RETURNING MSGCODE

ENR_CONTRAT = ""

IF MSGCODE<1> # 209 THEN

	SELECT F.CONTRAT TO W_ListContrat		

	W_Fini = "FAUX"

	LOOP
		READNEXT W_CleContrat FROM W_ListContrat ELSE W_Fini = "VRAI"
		
	WHILE W_Fini = "FAUX" DO
		i = 1
		READ ENR_CONTRAT FROM F.CONTRAT, W_CleContrat THEN
		
			IF ENR_CONTRAT<1> = "01" THEN
	
				* Positionnement en dernire valeur de l'attribut 36
				LOOP

				WHILE ENR_CONTRAT<36,i> <> "" DO

					i = i + 1

				REPEAT

				* Ajout des multivaleurs de l'attribut 36

				ENR_CONTRAT<36,i> = "002008"
				i = i + 1
				ENR_CONTRAT<36,i> = "002010"
				i = i + 1
				ENR_CONTRAT<36,i> = "002011"
				i = i + 1
				ENR_CONTRAT<36,i> = "002013"
				i = i + 1
				ENR_CONTRAT<36,i> = "002015"
				i = i + 1
				ENR_CONTRAT<36,i> = "002017"
				i = i + 1
				ENR_CONTRAT<36,i> = "002019"
				i = i + 1
				ENR_CONTRAT<36,i> = "002021"
				i = i + 1
				ENR_CONTRAT<36,i> = "002023"
	
				WRITE ENR_CONTRAT ON F.CONTRAT,W_CleContrat

			END
			IF ENR_CONTRAT<1> = "06" THEN

					* Positionnement en dernire valeur de l'attribut 36
					LOOP

					WHILE ENR_CONTRAT<36,i> <> "" DO
	
						i = i + 1

					REPEAT
	
					* Ajout des multivaleurs de l'attribut 36

					ENR_CONTRAT<36,i> = "002007"
					i = i + 1
					ENR_CONTRAT<36,i> = "002009"
					i = i + 1
					ENR_CONTRAT<36,i> = "002012"
					i = i + 1
					ENR_CONTRAT<36,i> = "002014"
					i = i + 1
					ENR_CONTRAT<36,i> = "002016"
					i = i + 1
					ENR_CONTRAT<36,i> = "002018"
					i = i + 1
					ENR_CONTRAT<36,i> = "002020"
						i = i + 1
					ENR_CONTRAT<36,i> = "002022"
					i = i + 1
					ENR_CONTRAT<36,i> = "002024"

					WRITE ENR_CONTRAT ON F.CONTRAT,W_CleContrat

			END
		END
	REPEAT
END ELSE
	PRINT "Aucun enregistrement"

END


STOP
