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

*******************************************************************
* PROG. Original LISTEHRESAIDANTMAND modifi pour Maubeuge : 	*
* Anne Marie Hannecart ne voulait que les heures effectues par 	*
* des salaris de maubeuge alors qu'ils fusionnent dans leur base *
* les salaires de Cambrai => modifi le SELECT...			*
*									MICHAEL	*
* cf appel n 0050658								*
*******************************************************************


*initialisation des variables
W_NOM=""
W_PRENOM=""
W_NOMPRENOM=""
W_HRES=""
W_MNT=""

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

W_Str =  'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC PeriodeDetailCalcul = "':W_MoisDeb:'" AND AVEC CodeAidantDetailCalcul < "50000" PAR NomPrenomAidantDetailCalcul'

EXECUTE W_Str
PRINTER ON

PRINT "                        LISTE DES HEURES PAR AIDANT EN MANDATAIRE                    "
W_ANCIENCODE=""

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle THEN
		W_HRES=W_HRES+ENR_DETAILCALCUL<6>
		W_MNT=W_MNT+ENR_DETAILCALCUL<7>
	END
	
	IF W_ANCIENCODE#W_Cle[1,5] THEN
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] THEN
		
			W_NOM=ENR_CIVILAIDANT<2>
			W_NOM=W_NOM[1,20]
			W_PRENOM=ENR_CIVILAIDANT<3>
			W_PRENOM=W_PRENOM[1,20]
			W_NOMPRENOM=W_NOM:" ":W_PRENOM
			W_HRES=W_HRES/100
			W_HRES=W_HRES "R2"
			W_MNT=W_MNT/100
			W_MNT=W_MNT "R2"

			PRINT W_NOMPRENOM:SPACE(41-LEN(W_NOMPRENOM)):W_HRES:SPACE(10-LEN(W_HRES)):"heures ":W_MNT:SPACE(10-LEN(W_MNT)):"euros"
		END
		W_ANCIENCODE=W_Cle[1,5]
		W_NOM=""
		W_PRENOM=""
		W_NOMPRENOM=""
		W_HRES=""
		W_MNT=""
	END
REPEAT

PRINT W_NOMPRENOM:SPACE(41-LEN(W_NOMPRENOM)):W_HRES:SPACE(10-LEN(W_HRES)):"heures ":W_MNT:SPACE(10-LEN(W_MNT)):"euros"


STOP

