PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → [WD9] : Etat + requête faisant appel à une procédure globale
[WD9] : Etat + requête faisant appel à une procédure globale
Iniciado por vbenner, ago., 24 2005 7:37 PM - Sem resposta
#1
Publicado em agosto, 24 2005 - 7:37 PM
Bonjour,

Voici un programme ACCESS parce qu'un exemple vaut mieux qu'un long discours.

J'ai un état : etatVENTE basé sur une requête reqVENTE qui est la suivante :

SELECT LIGNE, Sum(PRIX) AS SOMME_PRIX, SommeDesVentesAnnulees(LIGNE, 01/07/2005, 31/07/2005) AS SOMME_ANNULATIONS
FROM T_VENTES
WHERE DATE_VENTE >= 01/07/2005
AND DATE_VENTE <= 31/07/2005

Dans un module, j'écris la chose suivante :

Function SommeDesVentesAnnulees(LaLigne, DateDeb, DateFin) AS DOUBLE
Dim Rst as Recordset
Dim ReqSQL as String
ReqSQL = "SELECT Sum(PRIX) " & _
"FROM T_VENTES " & _
"WHERE Tarif = 'NUL' " & _
"AND DATE_VENTE >= " & DateDeb & " " & _
"AND DATE_VENTE <= " & DateFin & " "

Une vente, c'est un prix et une ligne
Une vente annulée, c'est un prix, une ligne et un code tarif = NUL

Dans cet état, j'affiche la ligne, la somme des ventes et la somme des ventes annulées
avec autant de lignes qu'il existe de dates différentes : par exemple :

DATE VENTES ANNULATIONS
02/07/2005 1000 10
05/07/2005 1200 0
07/07/2005 2500 500

Lequel résultat serait la synthèse des lignes suivantes :
DATE PRIX_VENTE TARIF NUM_TICKET
02/07 800 100% 1
02/07 100 100% 2
02/07 10 NUL 3
02/07 90 100% 4
05/07 1000 50% 5
05/07 200 100% 6
07/07 2000 100% 7
07/07 500 NUL 8

Mon problème est que je n'arrive pas à intégrer dans
une requête un appel à une fonction globale.

Si quelqu'un peut me dépanner soit par réponse
sur le forum ou par eMail ! Merci d'avance,

Vincent BENNER
vbenner AT pageup DOT fr
→ Voltar para WINDEV 2024