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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
| sMa_requete est une chaîne
sdRQ1 est une Source de Données
sMa_requete = [
SELECT
A.Num_compte,
A.Lib_compte,
PREVISION.Mont_prévision,
A.TOT,
PREVISION.Mont_prévision
FROM
(
SELECT
op.Num_compte,
COMPTE.Lib_compte,
Sum(op.TOT) AS TOT
FROM
(
SELECT
OPERATION.Num_compte,
OPERATION.Cod_devise,
OPERATION.mont,
Taux_USD,
DEVISE.Taux,
OPERATION.mont * Taux_USD / DEVISE.Taux AS TOT
FROM
OPERATION,
DEVISE,
( SELECT Taux AS Taux_USD
FROM DEVISE
WHERE Cod_devise = 'USD'
) AS USD
WHERE
OPERATION.Cod_devise = DEVISE.Cod_devise
]
sMa_requete += RC + " AND Left(OPERATION.Dat_operation,4) = '" + SAI_Saisie1 + "'"
SI COMBO_Opération..ValeurAffichée <> "" ALORS
sMa_requete += RC + " AND OPERATION.Typ_operation = '" + COMBO_Opération..ValeurAffichée + "'"
FIN
sMa_requete += RC + [
) AS op,
COMPTE
WHERE
op.Num_compte = COMPTE.Num_compte
GROUP by Num_compte,Lib_compte
) AS A,
PREVISION
WHERE
A.Num_compte = PREVISION.Num_compte
]
sMa_requete += RC + "AND PREVISION.Année = '" + SAI_Saisie1 + "'"
// copie sMa_requete vers le presse papier pour le debogage
Res est un entier
Res = VersPressePapier(sMa_requete)
SI Res = Faux ALORS
Erreur("Erreur lors de l'écriture dans le presse-papiers")
FIN
// Exécution de la requête
SI PAS HExécuteRequêteSQL(sdRQ1,MaConnexion1,hRequêteSansCorrection,sMa_requete) ALORS Erreur("Problème requête"); RETOUR
// remplit la table TCD
ConstruitTableFichier(TABLE_TCD_operation_periode,sdRQ1,taRemplirTable)
// renomme les colonnes
{"TABLE_TCD_operation_periode._COL1",indChamp}..Titre = "N° compte"
{"TABLE_TCD_operation_periode._COL2",indChamp}..Titre = "Libéllé compte"
{"TABLE_TCD_operation_periode._COL3",indChamp}..Titre = "Prévision avant"
{"TABLE_TCD_operation_periode._COL4",indChamp}..Titre = "Realisation"
{"TABLE_TCD_operation_periode._COL5",indChamp}..Titre = "Prévision prochaine"
nNb_ligne est un entier
TableAjouteLigne(TABLE_TCD_operation_periode)
nNb_ligne = TableOccurrence(TABLE_TCD_operation_periode)
{"TABLE_TCD_operation_periode._COL1",indChamp}[nNb_ligne] = "TOTAUX"
{"TABLE_TCD_operation_periode._COL3",indChamp}[nNb_ligne] = {"TABLE_TCD_operation_periode._COL3",indChamp}[ligneTotal]
{"TABLE_TCD_operation_periode._COL4",indChamp}[nNb_ligne] = {"TABLE_TCD_operation_periode._COL4",indChamp}[ligneTotal]
{"TABLE_TCD_operation_periode._COL5",indChamp}[nNb_ligne] = {"TABLE_TCD_operation_periode._COL5",indChamp}[ligneTotal]
{"TABLE_TCD_operation_periode",indChamp}[nNb_ligne]..CouleurFond = GrisFoncé |
Partager