** CHANGE LE TYPE DE MODULATION
** POUR UNE CCN
** POUR UNE ASSO

PRINT "POUR QUELLE ENTITE JURIDIQUE"
INPUT W_CODEASSO

PRINT "POUR QUELLE CONVENTION COLLECTIVE"
INPUT W_CODECCN

PRINT "TYPE DE MODULATION DE DEPART (C=AVEC MODUL/S=SANS MODUL/L=LIMITE AU CREDIT)"
INPUT W_TYPEMODUL1

PRINT "TYPE DE MODULATION DE FIN (C=AVEC MODUL/S=SANS MODUL/L=LIMITE AU CREDIT)"
INPUT W_TYPEMODUL2

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

EXECUTE 'SELECT CONTRAT AVEC 1 = "':W_CODECCN:'" AND AVEC 2 = "':W_CODEASSO:'" AND AVEC 5 = "M" AND AVEC 6 = "P" AND AVEC DernLissage = "':W_TYPEMODUL1:'" AND AVEC 65 # "O"'
EXECUTE "SAUVE-LISTE LISTEMOULMODUL"
EXECUTE "LISTE LISTEMOULMODUL" CAPTURING MSG RETURNING MSGCODE

IF MSGCODE<1>=209 THEN STOP
SELECT F.CONTRAT TO LISTEMOULMODUL

W_FIN=0
LOOP
	READNEXT CLE FROM LISTEMOULMODUL ELSE W_FIN=1
	UNTIL W_FIN=1 DO
	
	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
	ENR_CONTRAT<69,DCOUNT(ENR_CONTRAT<69>,CHAR(253))>=W_TYPEMODUL2
	WRITE ENR_CONTRAT ON F.CONTRAT,CLE
REPEAT
