1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92
|
PROCEDURE AUDITEURS_Liste(Table est une chaîne)
Sablier(Vrai)
TableSupprimeTout({Table, indChamp})
SI TableauCherche(Tableau_Radios, tcLinéairePremier, "Affichage", 1) = -1 ALORS
RENVOYER 0
FIN
Code_Requete_Auditeurs est une chaîne
Code_Requete_Radios est une chaîne
Nb_Auditeurs est un entier
Code_Requete_Auditeurs =
[
SELECT DISTINCT
Auditeur.IDAuditeur AS IDAuditeur,
Auditeur.Complet AS Complet,
Auditeur.Liste_Noire AS Liste_Noire,
Auditeur.Sexe AS Sexe,
Auditeur.Nom AS Nom,
Auditeur.Prenom AS Prenom,
Auditeur.Age AS Age,
Auditeur.Email AS Email,
Auditeur.Adresse AS Adresse,
Auditeur.Code_Postal AS Code_Postal,
Auditeur.Commune AS Commune,
Auditeur.Telephone_Fixe AS Telephone_Fixe,
Auditeur.Telephone_Portable AS Telephone_Portable,
Auditeur.Humeur AS Humeur,
Auditeur.Mailing_Mail AS Mailing_Mail,
Auditeur.Mailing_Sms AS Mailing_Sms,
Auditeur.Commentaires AS Commentaires,
Auditeur.Date_Heure_Creation AS Date_Heure_Creation
FROM
Radio,
Radio_Auditeur,
Auditeur
WHERE
Radio.IDRadio = Radio_Auditeur.IDRadio
AND Auditeur.IDAuditeur = Radio_Auditeur.IDAuditeur
AND (%1)
ORDER BY
Nom ASC
]
TableauTrie(Tableau_Radios, ttMembre, "+IDRadio")
POUR i = 1 _A_ Tableau_Radios..Occurrence
SI Tableau_Radios[i]:p_Affichage = 1 ALORS
SI Code_Requete_Radios = "" ALORS
Code_Requete_Radios = "Radio.IDRadio = " + Tableau_Radios[i]:p_IDRadio
SINON
Code_Requete_Radios += " OR Radio.IDRadio = " + Tableau_Radios[i]:p_IDRadio
FIN
FIN
FIN
Code_Requete_Auditeurs = ChaîneConstruit(Code_Requete_Auditeurs, Code_Requete_Radios)
SI HExécuteRequêteSQL(Requete_Auditeurs, hRequêteDéfaut, Code_Requete_Auditeurs) = Vrai ALORS
POUR TOUT Requete_Auditeurs
TableAjouteLigne({Table, indChamp},...
Requete_Auditeurs.IDAuditeur,...
Requete_Auditeurs.Complet,...
"",...
Requete_Auditeurs.Liste_Noire,...
Requete_Auditeurs.Sexe,...
"",...
Requete_Auditeurs.Nom,...
Requete_Auditeurs.Prenom,...
Requete_Auditeurs.Email,...
Requete_Auditeurs.Age,...
Requete_Auditeurs.Commune,...
Requete_Auditeurs.Code_Postal,...
Requete_Auditeurs.Humeur,...
"",...
Requete_Auditeurs.Mailing_Mail,...
"",...
Requete_Auditeurs.Mailing_Sms,...
"")
Nb_Auditeurs++
FIN
FIN
HLibèreRequête(Requete_Auditeurs)
Sablier(Faux)
RENVOYER Nb_Auditeurs |
Partager