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
| // table de synthese financière des projets
STDonnéesComptables est une Structure
dDate est une Date
moTotalLigne est un monétaire
sGrouptCompta est une chaîne
sGroupBudget est une chaîne
sOrigineTable est une chaîne
nIdOp est un entier
FIN
gtabDonnéesComptables est un tableau de STDonnéesComptables
//creation requete CI de l'operation
sMaReq1 est une chaîne = [
SELECT
Tmp.IDOperations,
Tmp.LibellePoste,
Tmp. RegroupmtCompta,
Tmp.la_somme_OperationCIMontantBudget
FROM (
SELECT
Operation_CI.IDOperations AS IDOperations,
Operation_CI.OperationCIDateValidationCI AS OperationCIDateValidationCI,
Compta_Type.LibellePoste AS LibellePoste,
Compta_Type.RegroupmtCompta AS RegroupmtCompta,
SUM(Operation_CI.OperationCIMontantBudget) AS la_somme_OperationCIMontantBudget
FROM
Compta_Type,
Operation_CI
WHERE
Compta_Type.IDCompta_Type = Operation_CI.IDCompta_Type
GROUP BY
Operation_CI.IDOperations,
Operation_CI.OperationCIDateValidationCI,
Compta_Type.LibellePoste,
Compta_Type.RegroupmtCompta
) AS Tmp
GROUP BY
Tmp.IDOperations,
ORDER BY
MAX(Tmp.OperationCIDateValidationCI)
]
TableauSupprimeTout(gtabDonnéesComptables)
Req_CIT_Prev est une Source de Données
SI PAS HExécuteRequêteSQL(Req_CIT_Prev, hRequêteDéfaut, sMaReq1) ALORS
Info("Pb dans la requête Structure initiale compta")
RETOUR
FIN
// Ajoute à la table la requete precedente
POUR TOUTE Req_CIT_Prev
gstUneDonnée est un STDonnéesComptables
gstUneDonnée.dDate = Req_CIT_Prev.OperationCIDateValidationCI
gstUneDonnée.moTotalLigne = Req_CIT_Prev.la_somme_OperationCIMontantBudget
gstUneDonnée.sGroupBudget = Req_CIT_Prev.RegroupmtCompta
gstUneDonnée.sGrouptCompta = Req_CIT_Prev.LibellePoste
//cTCDDONNEESCOMITE est une constante du projet
gstUneDonnée.sOrigineTable = cTCDDONNEESCOMITE
Ajoute(gtabDonnéesComptables, gstUneDonnée)
FIN |
Partager