***********************************************************
*  moulinette qui remet les DETAILCALCUL  l'tat dit   *
*  pour les asso rcemment migres qui ne paient pas les  *
*  salaires en mandataires                                *
*  VANES                                  02/12/2002      *
***********************************************************

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


READ ENR_PERIODESPAIE FROM F.PERIODESPAIE,"1" ELSE ENR_PERIODESPAIE=""

W_Req = ""
EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC 1 = "P" AND AVEC PaieSalContratDetailCalcul = "0" AND AVEC PeriodeDetailCalcul >= "200201" AND AVEC PeriodeDetailCalcul < ":ENR_PERIODESPAIE<1>:" PAR @ID'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE 'LISTE W_Req' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN

	SELECT F.DETAILCALCUL TO W_Req
	
	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin = "V"
	WHILE W_Fin = "F" DO

		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle THEN
			ENR_DETAILCALCUL<1> = "E"
               		WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,W_Cle
		END
	REPEAT

END

STOP
