
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
W_Ok = "F"
LOOP WHILE W_Ok = "F" DO
	PRINT "Entrez la priode de rfrence (AAAAMM)"
	INPUT W_MoisDeb
	IF W_MoisDeb MATCHES "6N" THEN
		W_Ok = "V"
	END
REPEAT

EXECUTE 'LISTER DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul = "':W_MoisDeb:'" AND AVEC 2 = "807" PAR NomPrenomAidantDetailCalcul CodeAidantDetailCalcul NomPrenomAidantDetailCalcul TOTAL MontSaisie807 SUPP-ID (P'

EXECUTE 'LISTER DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul = "':W_MoisDeb:'" AND AVEC 2 = "808" PAR NomPrenomAidantDetailCalcul CodeAidantDetailCalcul NomPrenomAidantDetailCalcul TOTAL MontSaisie808 SUPP-ID (P'

STOP
