--------------------------------------------------------------
// Syntaxe :
//ProcedureRechercheManif ()
//
// Paramètres :
//	Aucun
// Valeur de retour :
// 	Aucune

// DateDebut DateFin ComboDateDefinie LieuManif TelResp CodePostalManif ResponManif RaisonSocial
PROCEDURE ProcedureRechercheManif()
   ReqListeOuiNon est une Source de Données
   HExécuteRequêteSQL(ReqListeOuiNon,hRequêteDéfaut,"select* from T_Manif,T_responsable,T_Commune")
   TexteRequete="Select * From T_MANIF,T_COMMUNE,T_RESPONSABLE where "
   //date debut et date fin
   SI DateDebut<>"" ET DateFin<>"" ALORS
      TexteRequete=TexteRequete + "jour_debut_manif between " + DateDebut + " and "  + DateFin +" and " + "jour_fin_manif between " + DateDebut + " and "  + DateFin +" and "
      ElementRequete=Vrai
   SINON SI DateDebut<>""
      TexteRequete=TexteRequete + "jour_debut_manif = " + DateDebut + " and "
      ElementRequete=Vrai 
   SINON SI DateFin <>""
      TexteRequete=TexteRequete + "jour_fin_manif = " + DateFin + " and "
      ElementRequete=Vrai	
   FIN
   //date definie
   SI ComboDateDefinie..ValeurAffichée="non" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "jour_debut_manif =01/01/**** and " 
   FIN
   //type d'exposant
   SI ComboTypeExposant <> "" ALORS
      TexteRequete=TexteRequete + "type_exposant_manif = " + ComboTypeExposant..ValeurAffichée +" and "
   FIN
   //commune de manifestation
   SI LieuManif<>"" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "libele_commune like *"+ LieuManif +"* and "
   FIN
   //tel du responsable
   SI TelResp<>"" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "tel_resp = " + TelResp  + " and " 
   FIN
   //code postal ville manif
   SI CodePostalManif<>"" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "code_cp_commune like *"+ CodePostalManif +"* and "
   FIN
   //nom du responsable
   SI ResponManif<>"" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "nom_resp like *"+ ResponManif +"* and "
   FIN
   //raison social
   SI RaisonSocial<>"" ALORS
      ElementRequete=Vrai
      TexteRequete=TexteRequete + "raison_social_resp like *"+ RaisonSocial +"* and "
   FIN

   //execution de la reqete
   SI ElementRequete=Vrai ALORS
      TexteRequete=TexteRequete + " T_MANIF.id_manif=T_COMMUNE.code_insee_commune and T_MANIF.id_resp_manif=T_RESPONSABLE.id_resp"
      HExécuteRequêteSQL(ReqRechercheManif,hRequêteDéfaut,TexteRequete)
      Info(TexteRequete)
      ElementRequete=Faux
   FIN