1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| HErreurInfo()
req est une Source de Données
Info(HExécuteRequêteSQL(req, "select year(dateop) as an, month(dateop) as mois, sum(ent) as ent, sum(sort) as sort " + ...
"from " + ...
"(select dateop, case mvt when 'E' then montant when 'S' then 0 end as ent, " + ...
"case mvt when 'S' then montant when 'E' then 0 end as sort " + ...
"from caisse_compte cc, mouvement mv, operation op " + ...
"where cc.codecc=mv.codecc and mv.numop=op.numop " + ...
"and codebq='"+Code+"') solde " + ...
"group by year(dateop), month(dateop)"))
HLitPremier(req)
TANTQUE HEnDehors(req)=Faux
TableAjoute(Stat,req.an+TAB+req.Mois+TAB+req.ent+TAB+req.sort+TAB+req.ent-req.sort)
HLitSuivant(req)
FIN
HFerme(req) |