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
|
PROCEDURE ListeDesProduitsParPays(nNumPays est un entier, lstProd est une Liste d'entier, sdVueProd est une Source de Données)
sQuery est une chaîne
sdResultQuery est une Source de Données
Trace(HNbEnr(sdVueProd))
sQuery = [
SELECT
sdVueProd.T_produits_ID AS T_produits_ID,
T_distributeurs.T_distributeurs_numPays AS T_distributeurs_numPays
FROM
T_distributeurs,
sdVueProd
WHERE
sdVueProd.T_produits_numDistributeur = T_distributeurs.T_distributeurs_ID
AND
(
T_distributeurs.T_distributeurs_numPays = %1
)
]
sQuery = ChaîneConstruit(sQuery,nNumPays)
SI PAS HExécuteRequêteSQL(sdResultQuery,hRequêteDéfaut,sQuery) ALORS
Erreur(ErreurInfo())
FIN |
Partager