Procedure ActuListeClient(LOCAL Ch_CodeClientSelect est une chaîne, LOCAL Ent_IndiceLigne est un entier)
//** Ouverture de la fenêtre d'attente **
OuvreFille(Fen_OK,"Actualisation en cours..." + RC + RC + "Veuillez patienter...")
ChronoDébut()
//** Paramétrage des critères **
RqtSelectListeClients.ParamContient_CLFacNom = TxtNomClientContient
RqtSelectListeClients.ParamContient_CodeClient = TxtCodeClientContient
RqtSelectListeClients.ParamContient_Ville = TxtVilleContient
RqtSelectListeClients.ParamEgal_CodePostal = TxtCodePostalEgal
//** Exécution de la requête **
HExécuteRequête(RqtSelectListeClients,hRequêteDéfaut)
//** Info de la durée de calcul de la requête **
Message("Exécution Requête a duré : " + DuréeVersChaîne(ChronoFin(),"HH:MM:SS:LLL"))
//** Début chrono pour tps affichage **
ChronoDébut()
//** Actualisation de la table **
TableAffiche(TblClient,taDébut)
//** On se positionne sur la bonne ligne **
SI Ch_CodeClientSelect <> "" ALORS
TableSelectPlus(TblClient,TableCherche(TblClient.CLCode,Ch_CodeClientSelect,rechercheIdentique,1))
SINON
SELON Ent_IndiceLigne
CAS <= 0 :
TableSelectPlus(TblClient,1)
CAS > TblClient..Occurrence :
TableSelectPlus(TblClient,TblClient..Occurrence)
AUTRES CAS :
TableSelectPlus(TblClient,Ent_IndiceLigne)
FIN
FIN
//** Affichage durée tps affichage **
Message("Actualisation de la table a duré : " + DuréeVersChaîne(ChronoFin(),"HH:MM:SS:LLL"))
//** Mise en place du renseignements du nombre de dossiers **
LblNbEnregistrements = "Il y a " + TableOccurrence(TblClient,toTotal) + " Enregistrements dans cette table"
//** Fermeture de la fenêtre d'attente **
Ferme(Fen_OK)

Procedure ActuListeClient(LOCAL Ch_CodeClientSelect est une chaîne, LOCAL Ent_IndiceLigne est un entier)
//** Déclaration des Variables **
Ch_Filtre_CodeClient est une chaîne
Ch_Filtre_NomClient est une chaîne
Ch_Filtre_CPClient est une chaîne
Ch_Filtre_VilleClient est une chaîne
Ch_FiltreGlobal est une chaîne = ""
Dur_TpsTraitement est une Durée
//** Ouverture de la fenêtre d'attente **
OuvreFille(Fen_OK,"Actualisation en cours..." + RC + RC + "Veuillez patienter...")
ChronoDébut()
//*****************************
//** Paramétrage des Filtres **
//*****************************
//** Code Client **
SI TxtCodeClientContient <> Null ALORS
//** Filtre Spécifique **
Ch_Filtre_CodeClient = WDClient.CLCode..Nom + " ~]'" + TxtCodeClientContient + "'"
//** Filtre Global test si 1ier filtre **
SI Ch_FiltreGlobal <> "" ALORS
Ch_FiltreGlobal += " ET "
FIN
//** Filtre Global **
Ch_FiltreGlobal += Ch_Filtre_CodeClient
FIN
//** Nom Client **
SI TxtNomClientContient <> Null ALORS
Ch_Filtre_NomClient = WDClient.CLFacNom..Nom + " ~]'" + TxtNomClientContient + "'"
//** Filtre Global test si 1ier filtre **
SI Ch_FiltreGlobal <> "" ALORS
Ch_FiltreGlobal += " ET "
FIN
//** Filtre Global **
Ch_FiltreGlobal += Ch_Filtre_NomClient
FIN
//** Code Postal Client **
SI TxtCodePostalEgal <> Null ALORS
Ch_Filtre_CPClient = WDClient.CLFacCdp..Nom + " ='" + TxtCodePostalEgal + "'"
//** Filtre Global test si 1ier filtre **
SI Ch_FiltreGlobal <> "" ALORS
Ch_FiltreGlobal += " ET "
FIN
//** Filtre Global **
Ch_FiltreGlobal += Ch_Filtre_CPClient
FIN
//** Ville Client **
SI TxtVilleContient <> Null ALORS
Ch_Filtre_VilleClient = WDClient.CLFacVille..Nom + " ~]'" + TxtVilleContient + "'"
//** Filtre Global test si 1ier filtre **
SI Ch_FiltreGlobal <> "" ALORS
Ch_FiltreGlobal += " ET "
FIN
//** Filtre Global **
Ch_FiltreGlobal += Ch_Filtre_VilleClient
FIN
//** Mise en place du Filtre éventuellement **
SI Ch_FiltreGlobal = "" ALORS
HDésactiveFiltre(WDClient)
SINON
HFiltre(WDClient, Ch_FiltreGlobal)
FIN
//** Info de la durée de calcul de la requête **
Dur_TpsTraitement = DuréeVersChaîne(ChronoFin(),"HH:MM:SS:LLL")
Message("Exécution HFILTRE a durée : " + Dur_TpsTraitement)
Trace("Exécution HFILTRE a durée : " + Dur_TpsTraitement)
//** Début chrono pour tps affichage **
ChronoDébut()
//** On enlève les affichages superflus **
TblClient..AffichageActif = Faux
//** Actualisation de la table **
TableAffiche(TblClient,taDébut)
//** On se positionne sur la bonne ligne **
SI Ch_CodeClientSelect <> "" ALORS
TableSelectPlus(TblClient,TableCherche(TblClient.CLCode,Ch_CodeClientSelect,rechercheIdentique,1))
SINON
SELON Ent_IndiceLigne
CAS <= 0 :
TableSelectPlus(TblClient,1)
CAS > TblClient..Occurrence :
TableSelectPlus(TblClient,TblClient..Occurrence)
AUTRES CAS :
TableSelectPlus(TblClient,Ent_IndiceLigne)
FIN
FIN
//** On Remets les affichages superflus **
TblClient..AffichageActif = Vrai
//** Affichage durée tps affichage **
Dur_TpsTraitement = DuréeVersChaîne(ChronoFin(),"HH:MM:SS:LLL")
Message("Actualisation de la table a durée : " + Dur_TpsTraitement)
Trace("Actualisation de la table a durée : " + Dur_TpsTraitement)
//** Début chrono pour tps Calcul Occurence **
ChronoDébut()
//** Mise en place du renseignements du nombre de dossiers **
LblNbEnregistrements = "Il y a " + TblClient..Occurrence + " Enregistrements dans cette table"
//** Info de la durée de calcul de la requête **
Dur_TpsTraitement = DuréeVersChaîne(ChronoFin(),"HH:MM:SS:LLL")
Message("Calcul Occurrence Table a durée : " + Dur_TpsTraitement)
Trace("Calcul Occurrence Table a durée : " + Dur_TpsTraitement)
//** Fermeture de la fenêtre d'attente **
Ferme(Fen_OK)

//** Gestion de la couleur d'affichage des lignes **
SELON TblClient.CCCode[TblClient]
//** Pour l'artisan **
CAS "ART" :
TblClient[TblClient]..CouleurFond = Gp_Ent_CoulClient_Art
//** Pour le Particulier **
CAS "PAR" :
TblClient[TblClient]..CouleurFond = Gp_Ent_CoulClient_Part
//** Pour le Chantier **
CAS "CHA" :
TblClient[TblClient]..CouleurFond = Gp_Ent_CoulClient_Chan
//** Pour tout les autres cas **
AUTRES CAS :
TblClient[TblClient]..CouleurFond = Gp_Ent_CoulClient_Aut
FIN
//** On gère la couleur de fond de la ligne concernant les clients interdit **
SI TblClient.ClientInterdit[TblClient] = Vrai ALORS
TblClient[TblClient]..CouleurFond = iNoir
TblClient[TblClient]..Couleur = Blanc
FIN