EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TLGPOINTAGE" TO F.TLGPOINTAGE ELSE STOP
OPEN "","TLGMOI" TO F.TLGMOI ELSE STOP
OPEN "","TLGPOINTAGEARCH" TO F.TLGPOINTAGEARCH ELSE STOP
OPEN "","TLGMOIARCH" TO F.TLGMOIARCH ELSE STOP
OPEN "","PERIODESPAIE" TO F.PERIODESPAIE ELSE STOP
OPEN "","TLGPARAM" TO F.TLGPARAM ELSE STOP

READ ENR_PERIODESPAIE FROM F.PERIODESPAIE, "1" THEN
	W_PeriodePaie = ENR_PERIODESPAIE<1>
END
	
IF 	W_PeriodePaie[5,2] = "01" OR W_PeriodePaie[5,2] = "02" OR W_PeriodePaie[5,2] = "03" THEN
	IF W_PeriodePaie[5,2] = "01" THEN
		W_PeriodePaie = ICONV("01/10/":W_PeriodePaie[1,4]-1,"D4/")
	END
	IF W_PeriodePaie[5,2] = "02" THEN
		W_PeriodePaie = ICONV("01/11/":W_PeriodePaie[1,4]-1,"D4/")
	END
	IF W_PeriodePaie[5,2] = "03" THEN
		W_PeriodePaie = ICONV("01/12/":W_PeriodePaie[1,4]-1,"D4/")
	END
END ELSE
    * Modif Guillaume DA10195 19/08/2010 : Le mois tait donn sur 1N  cause de la soustraction. Donc ICONV chou et SELECT faux.
	W_PeriodePaie = ICONV("01/":(W_PeriodePaie[5,2]-3)"R%2":"/":W_PeriodePaie[1,4],"D4/")
END

* Modif Greg - 01/03/2011 - DA10148 - La date de rfrence
* est criture afin d'tre rcupre par les programmes VB,
* qui seront alors obligatoirement synchro avec l'archivage.
ENR_TLGPARAM=""
ENR_TLGPARAM<1>=W_PeriodePaie
WRITE ENR_TLGPARAM ON F.TLGPARAM, "DATEREFARCH"
	
EXECUTE 'SSELECT TLGPOINTAGE AVEC 3 < "':W_PeriodePaie:'"'

W_FIN=0
W_Total=0
J=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	PRINT CLE
UNTIL W_FIN=1 DO

	READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE, CLE THEN
		WRITE ENR_TLGPOINTAGE ON F.TLGPOINTAGEARCH, CLE
		READ ENR_TLGMOI FROM F.TLGMOI, CLE THEN
			WRITE ENR_TLGMOI ON F.TLGMOIARCH, CLE
			DELETE F.TLGMOI,CLE
		END
		DELETE F.TLGPOINTAGE, CLE
	END
REPEAT
STOP