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

PRINT " "
PRINT "    *************************************************"
PRINT "    *      R dition des contrats de travail       *"
PRINT "    *************************************************"
PRINT " "

ENR_VIDE = ""

LOOP
PRINT "Voulez-vous r-diter des contrats en individuel ? (O/N)"
INPUT W_Rep
WHILE W_Rep # "o" AND W_Rep # "O" AND W_Rep # "N" AND W_Rep # "n"
REPEAT

IF W_Rep = "O" OR W_Rep = "o" THEN
	GOSUB 100
	STOP
END

W_Asso = ""
LOOP
PRINT "Veuillez saisir le code de l'association. "
INPUT W_Asso
READ ENR_ASSOCIATION FROM F.ASSOCIATION, W_Asso ELSE 
   PRINT "Cette association n'existe pas."
   W_Asso = ""
END
WHILE W_Asso = ""
REPEAT


W_Mois = ""
LOOP
PRINT "Saisissez maintenant un mois de rfrence (au format AAAAMM, pour restreindre la rdition aux contrats en cours ce mois). "
INPUT W_Mois
W_Mois = INT(W_Mois)
WHILE W_Mois < 200201 AND W_Mois  > 200212
REPEAT



W_CCN = "X"
LOOP
PRINT "Veuillez saisir la CCN concerne (facultative)."
INPUT W_CCN
IF W_CCN # "" THEN
  READ ENR_CONVCOL FROM F.CONVENTIONCOL, W_CCN ELSE 
   PRINT "Cette convention n'existe pas."
   W_CCN = "X"
  END
END
WHILE W_CCN = "X"
REPEAT

W_ADM = "X"
LOOP
PRINT "Inclure les administratifs ?"
INPUT W_ADM
WHILE W_ADM # "o" AND W_ADM # "O" AND W_ADM # "n" AND W_ADM # "N"
REPEAT

W_CDI = ""
LOOP
PRINT "Restreindre la r dition aux CDI ? (O/N)"
INPUT W_CDI
WHILE W_CDI # "o" AND W_CDI # "O" AND W_CDI # "n" AND W_CDI # "N"
REPEAT


W_DateDebMois = W_Mois[5,2] + 1
IF W_DateDebMois = 13 THEN
	W_DateFinMois = ICONV("31/12/":W_Mois[1,4],"D4/")
END ELSE
	W_DateFinMois = ICONV("01/":W_DateDebMois:"/":W_Mois[1,4],"D4/")
END

W_DateDebMois = ICONV("01/":W_Mois[5,2]:"/":W_Mois[1,4],"D4/")


W_Tri = ""
W_Str = 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 2 = "':W_Asso:'" '
IF W_CCN # "" THEN
	W_Str = W_Str:'AND AVEC 1 = "':W_CCN:'" '
END ELSE
	W_Tri = "PAR 1"
END

IF W_CDI = "O" OR W_CDI = "o" THEN
	W_Str = W_Str:'AND AVEC 4 = "I" '
END

IF W_ADM = "n" OR W_ADM = "N" THEN
	W_Str = W_Str:'AND AVEC 6 = "P" '
END

W_Str=W_Str:'AND AVEC 7 < "':W_DateFinMois:'" AND AVEC 8 >= "':W_DateDebMois:'" OR = "" '

W_Str = W_Str:W_Tri


PRINT W_Str
EXECUTE W_Str

W_Fin = "F"
W_CCN = ""
W_ContratOuvert = "F"

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE  W_Fin # "V"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		IF ENR_CONTRAT<1> # W_CCN THEN
			
			
			W_CCN = ENR_CONTRAT<1>
			READ ENR_LIENCONTRAT FROM F.LIENCONTRAT, "CONTRAT":W_Asso:W_CCN ELSE
				WRITE ENR_VIDE ON F.LIENCONTRAT, "CONTRAT":W_Asso:W_CCN
			END

			OPEN "", "CONTRAT":W_Asso:W_CCN TO F.CONTRATENTCONV THEN
				W_ContratOuvert = "V"
			END ELSE
				W_ContratOuvert = "F"
				PRINT "Problme  l'ouverture de CONTRAT":W_Asso:W_CCN
			END
		END
		IF W_ContratOuvert = "V" THEN
			WRITE ENR_VIDE ON F.CONTRATENTCONV, W_Cle	
		END
	END
REPEAT

STOP

100
*******************************
* R dition individuelle	*
*******************************
LOOP
PRINT "Veuillez saisir le code du contrat...([Q] pour Quitter)"
INPUT W_Code
WHILE W_Code # "Q" AND W_Code # "q"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Code THEN
	   IF ENR_CONTRAT<65> # "O" THEN
		OPEN "", "CONTRAT":ENR_CONTRAT<2>:ENR_CONTRAT<1> TO F.CONTRATENTCONV THEN
			WRITE ENR_VIDE ON F.CONTRATENTCONV,W_Code
			READ ENR_LIENCONTRAT FROM F.LIENCONTRAT, "CONTRAT":ENR_CONTRAT<2>:ENR_CONTRAT<1> ELSE
				WRITE ENR_VIDE ON F.CONTRATENTCONV,"CONTRAT":ENR_CONTRAT<2>:ENR_CONTRAT<1>
			END				
		END ELSE
			PRINT "Problme dans la convention ou l'entit du contrat."
		END
	   END ELSE
		PRINT "Ce contrat est supprim. R dition impossible."
	   END
	END ELSE
		PRINT "Code incorrect. Ce contrat n'existe pas !"
	END
REPEAT

RETURN
