*******************************
*  29/07/02 Gregory           *
*******************************
* Ouverture de fichier

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

*******************************
* Declaration des variables

W_MOIS=""

*******************************
* Traitement

0
PRINT "PERIODE A TRAITER (AAAAMM) : "
INPUT W_MOIS

IF W_MOIS MATCH "6N" ELSE GOSUB 0
	EXECUTE 'COUNT DETAILCALCUL WITH ContratPeriodeCal = "[':W_MOIS:'" AND WITH ConvColContratDetailCalcul = "01" AND WITH TypePersonnel = "P"'



