OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
W_Cpt1=0
W_CptSal1=0
W_CptSal2=0
W_CptPasSal1=0
W_CptPasSal2=0

EXECUTE 'SELECT CONTRAT AVEC 7<="14457" AND AVEC 2="001" AND AVEC 1<>"02" AND AVEC 65<>"O" AND AVEC 8>"14457" OR =""'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		W_Cpt1 = W_Cpt1 + 1
		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle:"200709" THEN
			IF ENR_CONTRAT<3>="001001" THEN
				W_CptSal1 = W_CptSal1 + 1
			END ELSE
				W_CptSal2 = W_CptSal2 + 1
			END
		END ELSE
			IF ENR_CONTRAT<3>="001001" THEN
				W_CptPasSal1 = W_CptPasSal1 + 1
				PRINT "PAS DE SALAIRE 001001 POUR : ":W_Cle
			END ELSE
				PRINT "PAS DE SALAIRE 001002 POUR : ":W_Cle
				W_CptPasSal2 = W_CptPasSal2 + 1
			END
		END
	END
REPEAT
PRINT ""
PRINT ""
PRINT "TOTAL CONTRAT JUILLET : ":W_Cpt1
PRINT "TOTAL SALAIRE 001001 : ":W_CptSal1
PRINT "TOTAL SALAIRE 001002 : ":W_CptSal2
PRINT "TOTAL PAS DE SALAIRE 001001 : ":W_CptPasSal1
PRINT "TOTAL PAS DE SALAIRE 002001 : ":W_CptPasSal2
STOP