* Permet de supprimer un avenant sur un contrat defini
* Suite  plusieurs appels de BEAUVAIS
* mikael le 01/09/2010

OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "PB OUVERTURE FICHIER CONTRAT"

PRINT "SAISIR LE CODE AIDANT (5N)"
INPUT W_CodeAidant

PRINT "SAISIR LE CODE CONTRAT (3N)"
INPUT W_CodeContrat

PRINT "SAISIR LE NUMERO AVENANT"
INPUT W_Avenant

IF LEN(W_CodeAidant)# 5 THEN
	PRINT "ERREUR CODE AIDANT"
	STOP
END

IF LEN(W_CodeContrat)# 3 THEN
	PRINT "ERREUR CODE CONTRAT"
	STOP
END

READ ENR_CONTRAT FROM F.CONTRAT, W_CodeAidant:W_CodeContrat THEN
	W_Max=DCOUNT(ENR_CONTRAT<14>,CHAR(253))
	FOR I= W_Max TO 1 STEP-1
		IF ENR_CONTRAT<14,I>= W_Avenant THEN
			FOR J=14 TO 25
				ENR_CONTRAT=DELETE(ENR_CONTRAT,J,I)
			NEXT
			
			ENR_CONTRAT=DELETE(ENR_CONTRAT,111,I)
			ENR_CONTRAT=DELETE(ENR_CONTRAT,112,I)
			
			I=1
		END
	NEXT

	WRITE ENR_CONTRAT ON F.CONTRAT, W_CodeAidant:W_CodeContrat
END
PRINT "traitement termin"
STOP