EXECUTE 'DATE.FORMAT'
EXECUTE 'SET-DEC ,'
EXECUTE "SET-THOUS ."
OPEN "","TPSTEMPO" TO F.TPSTEMPO ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP
	ENR = ""
PRINT  "******************************************************************"
PRINT  "*          Nombre d'interventions sur une priode                *"
PRINT  "*                 Du 01/08/06 au 31/08/06                        *"
PRINT  "******************************************************************"
W_DateDeb=""
LOOP
WHILE W_DateDeb=""
PRINT "Date dbut (JJ/MM/AAAA) ?"
INPUT W_DateDeb
IF W_DateDeb = "" THEN
PRINT "Traitement abandonn."
STOP
END
W_DateDeb = ICONV(W_DateDeb,"D4/")
REPEAT
W_DateFin=""
LOOP
WHILE W_DateFin=""
PRINT "Date fin (JJ/MM/AAAA) ?"
INPUT W_DateFin
IF W_DateFin = "" THEN
PRINT "Traitement abandonn."
STOP
END
W_DateFin = ICONV(W_DateFin,"D4/")
REPEAT
* Nom utilisateur
User = "Comptage"
* Code asso ou [Vide]
Asso = "001"
* Type d'activit
* Nb : = "P", "M", "I" ou "S"
TypeAct = ""
LOOP
WHILE TypeAct =""
PRINT "Type d'activit (P/M)"
INPUT TypeAct 
IF TypeAct  = "" THEN
	PRINT "Traitement abandonn."
	STOP
END ELSE
   IF TypeAct = "p" THEN TypeAct = "P"
   IF TypeAct = "m" THEN TypeAct = "M"
   IF TypeAct # "P" AND TypeAct # "M" THEN
       TypeAct = ""
   END
END
REPEAT
DateDeb = W_DateDeb
DateFin = W_DateFin
NbJours = DateFin - DateDeb + 1
Tri = ""
* Code dans la slection
Selection = ""
* Basculement de la MOD
BasculMOD = "1"
* Basculement de la MOI
BasculMOI = "0"
* Traitement bulletin existant
AnnuleBS = "0"
* Integration dtaille (prestataire)
SaisieJour = "0"
* Nom fichier (uniquement si appel du PR par le prog de tlgestion)
NomFichierTlg = ""
* code du systme de tlgestion (uniquement si appel du PR par le prog de tlgestion)
SystemeTlg = ""
W_TriErr = ""
W_Sortie = ""
GOSUB 110
IF W_Sortie = "" THEN
	W_Nombre = 0
	GOSUB 1000
	ENR<-1> =  " "
	PRINT  "******************************************************************"
	IF TypeAct = "P" THEN
	PRINT  "Interventions prestataire ente le ":OCONV(DateDeb,"D4/"):" et le ":OCONV(DateFin,"D4/")
	END ELSE
	PRINT  "Interventions mandataire ente le ":OCONV(DateDeb,"D4/"):" et le ":OCONV(DateFin,"D4/")
	END
	IF W_Nombre = 0 THEN 
		PRINT  "aucune intervention trouve"
	END ELSE
		PRINT  W_Nombre:" interventions trouves"
	END
END
STOP
110 ***************************************************************************
*					SubRoutine AffichePlanning				*
*******************************************************************************
* Nb : En prvision d'un calcul encore indfini (16/02/04) des heures supplmentaires
*  valuer sur une semaine, deux semaines, etc..., on appelle toutes les interventions 
* ayant lieu sur un intervalle diffrent du mois  traiter 
* (ex : hres supp a valuer  la semaine, debut du mois un jeudi : on appelle 
* les interventions ds le dernier lundi du mois prcdent, afin de calculer
* les heures suppl. de la semaine en cours au dbut du mois ).
DateDebProspSuppl = DateDeb
DateFinProspSuppl = DateFin 
W_TrtHresSuppl = "F"
W_ParamAffichePlanning = "AFFICHEPLANNING |":User:"|":Asso:"|":TypeAct:"|":DateDebProspSuppl:"|":DateFinProspSuppl:"|":Tri:"|":Selection:"||E|||"
EXECUTE W_ParamAffichePlanning
READ TabInterv FROM F.TPSTEMPO, 'AFFICHEPLANNING':User ELSE TabInterv = "Erreur"
IF TabInterv<1>[1,6] = "Erreur" THEN
	W_Sortie = "Aucune intervention correspondant  la slection." 
END
RETURN
1000
i = 0
LOOP
i = i + 1
WHILE TabInterv<i>[1,4] # "#FIN"
   k = 0
   LOOP
   k = k + 1
   WHILE TabInterv<i,1,k> # ""
	IF TabInterv<i,1,k> = "Interv":TypeAct THEN
	   W_Nombre = W_Nombre + 1
	END
   REPEAT
REPEAT
RETURN
