
**********************************************************************
*								                                     *
*   					                                             *
*								                                     *
* Alain                           Janvier 2007	                     *
**********************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","REGRUBSAISIE" TO F.REGRUBSAISIE ELSE PRINT "OUVERTURE REGRUBSAISIE"
OPEN "","CONTRATSPREV" TO F.CONTRATSPREV ELSE PRINT "OUVERTURE CONTRATSPREV"

**********************************************************************
*READ ENR_REGRUBSAISIE FROM F.REGRUBSAISIE,"RUBRATT" ELSE ENR_REGRUBSAISIE = ""

ENR_REGRUBSAISIE = ""
ENR_REGRUBSAISIE<1>="807"
ENR_REGRUBSAISIE<2>="808"
ENR_REGRUBSAISIE<3>="809"

W_ListeReq=""
EXECUTE 'SELECT CONTRATSPREV AVEC 22 # "02"' 
EXECUTE 'SAUVE-LISTE W_ListeReq'
EXECUTE "LISTE W_ListeReq" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

   SELECT F.CONTRATSPREV TO W_ListeReq
   
   FIN="FAUX"
   LOOP
		READNEXT CLE FROM W_ListeReq ELSE FIN="VRAI"
   WHILE FIN="FAUX" DO
		READ ENR_CONTRATSPREV FROM F.CONTRATSPREV,CLE ELSE ENR_CONTRATSPREV=""
		IF INDEX(ENR_REGRUBSAISIE,ENR_CONTRATSPREV<41>,1) = 0 THEN
			IF ENR_CONTRATSPREV<41> # "" THEN
				ENR_REGRUBSAISIE<-1>=ENR_CONTRATSPREV<41>
			END
		END
		
		IF INDEX(ENR_REGRUBSAISIE,ENR_CONTRATSPREV<42>,1) = 0 THEN
			IF ENR_CONTRATSPREV<42> # "" THEN
				ENR_REGRUBSAISIE<-1>=ENR_CONTRATSPREV<42>
			END
		END
		
	REPEAT
END

EXECUTE 'EFFACER-LISTE W_ListeReq'

WRITE ENR_REGRUBSAISIE ON F.REGRUBSAISIE,"RUBRATT"

STOP


