TableSupprimeTout(TableJournalCaisse)

POUR K= 1 A 12
mois est une chaîne=ChaîneConstruit(" AND VENTES.Mois_Doc ='%1' ",K)
fnContenuRequete = [
select VENTES.Mois_Doc as Mois_Doc ,
sum(case when VENTES.ETATCOMMANDE in (%1) AND VENTES.ModeReglement ='ESPECE'
then VENTES.TOTALTTC else 0 end) as V_ESP,
sum(case when VENTES.ETATCOMMANDE in (%1) AND VENTES.ModeReglement ='EN COMPTE'
then FCommandes.TOTALTTC else 0 end) as V_CRD,
sum(case when VENTES.ETATCOMMANDE in (%1) AND VENTES.ModeReglement ='CHEQUE'
then VENTES.TOTALTTC else 0 end) as V_CHQ,
// Partie avoir
sum(case when VENTES.ETATCOMMANDE in (%2) AND VENTES.ModeReglement ='ESPECE'
then VENTES.TOTALTTC else 0 end) as A_ESP,
sum(case when FCommandes.ETATCOMMANDE in (%2) AND VENTES.ModeReglement ='EN COMPTE'
then VENTES.TOTALTTC else 0 end) as A_CRD,
sum(case when VENTES.ETATCOMMANDE in (%2) AND VENTES.ModeReglement ='CHEQUE'
then VENTES.TOTALTTC else 0 end) as A_CHQ

FROM VENTES

WHERE
VENTES.EtatTransfert <> '1'
%3
GROUP BY Mois_Doc
ORDER BY Mois_Doc ASC
]
nContenuRequete=ChaîneConstruit(fnContenuRequete,"'FA'","'AV'",mois )

SI PAS HExécuteRequêteSQL(fnsdSourceRequete,hRequêteDéfaut,fnContenuRequete)ALORS
Erreur(HErreurInfo())
RETOUR
FIN
SI HNbEnr(fnsdSourceRequete)<>0 ALORS
TableAjouteLigne(TableJournalCaisse,...
K,...
(fnsdSourceRequete.V_esp-fnsdSourceRequete.A_esp),...
fnsdSourceRequete.V_CHQ,...
fnsdSourceRequete.V_CRD)
FIN
FIN

HAnnuleDéclaration(fnsdSourceRequete)