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
|
PROCÉDURE RechercheMontantSolde(
@parametre0 est une chaîne,
@parametre1 est une chaîne,
@parametre2 est une chaîne,
@parametre3 est un entier sur 8 octets,
@parametre8 est un entier sur 8 octets)// La depense en
MaProcédure est une Source de Données
rMontantCompte est un réel
rTotalEngagees est un réel
rSoldeCompte est un réel
rTotalEngageesEtEncours est un réel
sCodeChapitre est une chaîne
rMontantChapitre est un réel
rep est un booléen= HExécuteRequêteSQL(MaProcédure, MaConnexion, hRequêteSansCorrection ,...
"CALL RechercheMontantSolde('" + @parametre0 + "','" +@parametre1+ "','" +@parametre2+ "','" +@parametre3+ "',@parametre4 ,@parametre5,@parametre6,@parametre7,@parametre8);"+...
"SELECT @parametre4, @parametre5,@parametre6,@parametre7,@parametre8; ")
SI rep = Vrai ALORS
HLitPremier(MaProcédure,hSansRafraîchir)
SI PAS HEnDehors() ALORS
rMontantCompte = MaProcédure.@parametre4//montant comppte
rTotalEngagees = MaProcédure.@parametre5//total
// rSoldeCompte = MaProcédure.@parametre6//solde
// CALCUL DE RESULTATS
rTotalEngageesEtEncours = rTotalEngagees + @parametre8
rSoldeCompte = rMontantCompte - rTotalEngageesEtEncours
//RELATIF AU CHAPITRE
sCodeChapitre = MaProcédure.@parametre7//CODE CHAPITRE
rMontantChapitre = MaProcédure.@parametre8//MONTANT CHAPITRE
FIN
SINON
Erreur(HErreurInfo())
FIN
RENVOYER (rMontantCompte,rTotalEngagees,rSoldeCompte,sCodeChapitre,rMontantChapitre) |
Partager