EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","AIDANTSARCHIVEBULL" TO F.AIDANTSARCHIVEBULL ELSE STOP
OPEN "","AIDESARCHIVEBULL" TO F.AIDESARCHIVEBULL ELSE STOP
OPEN "","AIDESARCHIVEFACT" TO F.AIDESARCHIVEFACT ELSE STOP
OPEN "","ARCHIVEBULL" TO F.ARCHIVEBULL ELSE STOP
OPEN "","ARCHIVEFACT" TO F.ARCHIVEFACT ELSE STOP

W_RequeteMoul=""
W_AidantAv=""
W_AnneeAv=""
ENR_AIDANTSARCHIVEBULL=""
PRINTER ON
EXECUTE 'SELECT ARCHIVEBULL PAR AnneeArchive PAR CodeAidantArchive PAR MoisArchive PAR Employeur PAR PrenomEmployeur'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

W_CleAnc=""
IF MSGCODE<1> # 209 THEN

   PRINT '********************************BULLETIN DE PAYE***********************************************'

   SELECT F.ARCHIVEBULL TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      W_Aidant=W_Cle[1,5]
      W_Aides=W_Cle[15,5]
      W_Annee=W_Cle[9,4]
      W_Mois=W_Cle[13,2]

      READ ENR_AIDANTS FROM F.AIDANTSARCHIVEBULL, W_Aidant:W_Annee ELSE ENR_AIDANTS = "NE"

      IF ENR_AIDANTS = "NE" THEN
		PRINT 'FICHIER AIDANTSARCHIVEBULL CODE AIDANT : ':W_Aidant:' PERIODE : ':W_Annee:W_Mois:' CODE CONTRAT : ':W_Cle[5,3]
      END ELSE
	I = 0
	W_TROUV = "FAUX"
	LOOP
		I =  I + 1
	WHILE ENR_AIDANTS<W_Mois,I> # "" DO
		IF ENR_AIDANTS<W_Mois,I> = W_Cle THEN
			W_TROUV = "VRAI"
		END
	REPEAT
	IF W_TROUV = "FAUX" THEN
		PRINT 'FICHIER AIDANTSARCHIVEBULL CODE AIDANT : ':W_Aidant:' PERIODE : ':W_Annee:W_Mois:' CODE CONTRAT : ':W_Cle[6,3]
	END
       END

      IF W_Aides # "001" AND W_Aides # "002" AND W_Aides # "003" THEN
         READ ENR_AIDES FROM F.AIDESARCHIVEBULL,W_Aides:W_Annee ELSE ENR_AIDES = "NE"
         IF ENR_AIDES = "NE" THEN
		PRINT 'FICHIER AIDESARCHIVEBULL CODE AIDANT : ':W_Aidant:' PERIODE : ':W_Annee:W_Mois:' CODE CONTRAT : ':W_Cle[6,3]
	 END ELSE
		I = 0
		W_TROUV = "FAUX"
		LOOP
			I =  I + 1
		WHILE ENR_AIDES<W_Mois,I> # "" DO
			IF ENR_AIDES<W_Mois,I> = W_Cle THEN
				W_TROUV = "VRAI"
			END
		REPEAT
		IF W_TROUV = "FAUX" THEN
			PRINT 'FICHIER AIDESARCHIVEBULL CODE AIDANT : ':W_Aidant:' PERIODE : ':W_Annee:W_Mois:' CODE CONTRAT : ':W_Cle[6,3]
		END
	 END
      END

   REPEAT

END

W_RequeteMoul = ""

EXECUTE 'SELECT ARCHIVEFACT PAR AnneeArchive PAR CodeAideArcFact PAR MoisArchive'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

W_CleAnc=""
IF MSGCODE<1> # 209 THEN

   PRINT '********************************FACTURE AIDE***************************************************'

   SELECT F.ARCHIVEFACT TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      W_Aides=W_Cle[1,5]
      W_Annee=W_Cle[10,4]
      W_Mois=W_Cle[14,2]

      READ ENR_AIDES FROM F.AIDESARCHIVEFACT,W_Aides:W_Annee ELSE ENR_AIDES = "NE"
      IF ENR_AIDES = "NE" THEN
	PRINT 'FICHIER AIDESARCHIVEFACT CODE AIDE : ':W_Aides:' PERIODE : ':W_Annee:W_Mois:' CODE ENTITE : ':W_Cle[6,3]
      END ELSE
	I = 0
	W_TROUV = "FAUX"
	LOOP
		I =  I + 1
	WHILE ENR_AIDES<W_Mois,I> # "" DO
		IF ENR_AIDES<W_Mois,I> = W_Cle THEN
			W_TROUV = "VRAI"
		END
	REPEAT
	IF W_TROUV = "FAUX" THEN
		PRINT 'FICHIER AIDESARCHIVEFACT CODE AIDE : ':W_Aides:' PERIODE : ':W_Annee:W_Mois:' CODE ENTITE : ':W_Cle[6,3]
	END
       END

   REPEAT

END
STOP
