********************************************************
* REGENERE LES FICHIERS LIENCONTRAT ET CONTRATxxxyy 
* LORSQU'IL Y A EUT UN PROBLEME DANS LE TRAITEMENT
* D'EDITION DES CONTRATS
********************************************************

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

PRINT "ENTITE "
INPUT W_ENTITE
PRINT "CCN "
INPUT W_CCN

W_NOMFICHIER = "CONTRAT":W_ENTITE:W_CCN

OPEN "",W_NOMFICHIER TO F.CONTRATxxx ELSE STOP

PRINT "DATE DE DEBUT "
INPUT W_DATEDEBUT
PRINT "DATE DE FIN "
INPUT W_DATEFIN
PRINT "TYPE CONTRAT (D ou I)"
INPUT W_TYPECONTRAT
PRINT "1 SEUL CONTRAT OU TOUS (1 ou X)"
INPUT W_QTE

IF W_QTE="1" THEN 
	PRINT "CODE CONTRAT"
	INPUT W_CODECONTRAT
END ELSE
	W_CODECONTRAT=""
END

W_DATEDEBUT = ICONV(W_DATEDEBUT,"D4/")
W_DATEFIN = ICONV(W_DATEFIN,"D4/")


IF W_CODECONTRAT# "" THEN 
	EXECUTE 'SELECT CONTRAT AVEC 0 = "':W_CODECONTRAT:'" AND AVEC 1 = "':W_CCN:'" AND AVEC 2 = "':W_ENTITE:'" AND AVEC 4 = "':W_TYPECONTRAT:'" AND AVEC 7 >= "':W_DATEDEBUT:'" AND <= "':W_DATEFIN:'"'
END ELSE
	EXECUTE 'SELECT CONTRAT AVEC 1 = "':W_CCN:'" AND AVEC 2 = "':W_ENTITE:'" AND AVEC 4 = "':W_TYPECONTRAT:'" AND AVEC 7 >= "':W_DATEDEBUT:'" AND <= "':W_DATEFIN:'"'
END

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	W_CONTRAT=""
	WRITE W_CONTRAT ON F.CONTRATxxx,CLE

REPEAT

W_CONTRAT=""
WRITE W_CONTRAT ON F.LIENCONTRAT,W_NOMFICHIER
