*****************************************************************
*                      PRMOUL COMPBBULLFACTLENS			*
*								*
* LENS:controle si les aids avec bulletins ont bien une facture*
*								*
*****************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE STOP
PRINT "Association :":
INPUT W_Asso
PRINT "Priode (AAAAMM) :":
INPUT W_Periode
EXECUTE 'COMO ON VerifProv.txt'
EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC CodAssoContratDetailCalcul = "':W_Asso:'" AND AVEC PeriodeDetailCalcul = "':W_Periode:'" PAR-DECR CodeAideDetailCalcul PAR @ID'
EXECUTE 'SAUVE-LISTE W_Contrats'
EXECUTE "LISTE W_Contrats" RETURNING MSGCODE
W_ERREURS=""
I=0
IF MSGCODE<1> # "209" THEN
	SELECT F.CONTRAT TO W_Contrats
	W_TamponAide  = ""
	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Contrats ELSE W_Fin = "O"
	WHILE W_Fin = "F"		
		READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] THEN
		   IF TRIM(ENR_CONTRAT<3>) # W_TamponAide THEN
			IF W_TamponAide # "" THEN
				GOSUB 100			
			END
			W_TamponAide = TRIM(ENR_CONTRAT<3>)
		   END
		END
	REPEAT
	GOSUB 200
	EXECUTE 'COMO OFF'
END
STOP

100
EXECUTE 'SELECT FACTURAIDE AVEC 0 = "':W_TamponAide:W_Asso:'M':W_Periode:']"'
EXECUTE 'SAUVE-LISTE W_Factures'
EXECUTE 'LISTE W_Factures' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
	SELECT F.FACTURAIDE TO W_Factures
END ELSE
	I=I+1
	W_ERREURS<I>=W_TamponAide
END
RETURN

200 IF I#0 THEN
   PRINT
   PRINT
   FOR J=1 TO I
	READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_ERREURS<J> THEN
		PRINT "Aide : ":W_ERREURS<J>:" - ":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	END ELSE
		PRINT "Aide : ":W_ERREURS<J>
	END
   NEXT J
END
RETURN
