|
procedure locale pour validation |
|
Anonyme
|
Bonjour Je suis debutante en windev et je cherche de l'aide pour ecrire une procedure locale qui puisse valider le nombre de ligne de depenses et les montants repartis. Fichier Depense: iddep idauto, Numdep entier (4),designation chaine(100),Montdep Monetaire, Nbligndep entier(2)
Fichier LigneDepense Idlignedep Idauto, iddep (cle secondaire), numdep entier(4) ,designation chaine (100), codeligne entier (5),Lesignationdep chaine(100) ,Montligndep Monetaire J'aimerais avoir une procedure locale lors de la saisie des lignes de depense qui va verifier: 1)Pour chaquel ligne le montant ne doit pas etre plus grand que le montant de la Depense qui lui est rattaché 2)La somme totale des lignes qui composent une rubrique de depense ne doit pas etre plus grand que le montant definit sur la fiche Depense. 3)Le nombre de lignes saisie pour une Depense donnée ne doit pas etre plus grand que le nombre ligne specifié sur la fiche "Depense". Amicalement
Contribution le : 28/10/2004 17:23
|
|
|
Re: procedure locale pour validation |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Bonjour,
Je ne comprends pas très bien si vous cherchez à résoudre un problème lié à WinDev ou bien un partenariat pour développer votre projet.
Je ne saurais trop vous conseiller de lire le guide d'autoformation livré avec WinDev. Sa lecture croyez moi n'est pas du temps perdu.
Avez vous au moins commencée à écrire quelques lignes? De la façon dont est tournée votre question on à l'impression que vous attendez que l'on vous envoi une fenêtre toute faite prête à être utilisée.
Soyez donc plus précise dans vos questions en ciblant le probleme concerné.
Contribution le : 29/10/2004 11:26
|
|
|
Re: procedure locale pour validation |
|
Anonyme
|
Je ne cherche pas qu'on me developpemon projet...je cherchais juste de l'aide
Contribution le : 29/10/2004 13:57
|
|
|
Re: procedure locale pour validation |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Re bonjour,
Pour de l'aide vous êtes sur le bon site, mais l'exposé de votre problème est bien trop vague, vous ne fournissez que la description d'une partie de votre analyse,
Il faut arriver à comprendre nous n'avons pas votre écran devant les yeux.
Avez vous déjà au moins créé la ou les fenêtres qui permettent la saisies des dépenses ainsi que pour la saisie des lignes de dépense?.
Contribution le : 29/10/2004 14:08
|
|
|
Re: procedure locale pour validation |
|
Anonyme
|
Oui je les ai créées et je serais ravie de te les envoyer...c'est juste j'ai pensé tourner vers le forum pour avancer... A+
Contribution le : 29/10/2004 15:03
|
|
|
Re: procedure locale pour validation |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Si tu veux, je pourrait ainsi t'aider plus facilement
Contribution le : 29/10/2004 15:11
|
|
|
Re: procedure locale pour validation |
|
Anonyme
|
j'aimerais pouvoir créer cette procedure sur la fenetre de saisie si possible et s'il y a une erreur envoyer un message indiquant que montant saisie est plus grande ou que le nombre de lignes depasse le nombre spécifié dans "Depense" Merci
Contribution le : 03/11/2004 18:50
|
|
|
Re: procedure locale pour validation |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Bonjour, Cette fonction est a appeler dans la fonction locale RADEnregistre de la fenêtre Fiche_LigneDepense
SI PAS IsMontantOK(Iddep..ValeurAffichée,Montligndep) ALORS
Info("Le montant n'est pas correct")
RENVOYER Faux
FIN
Le code de la fonction est le suivant:
PROCEDURE IsMontantOK(pIdDepense,pMontantDepense)
Rsl est une Source de Données
Sql est une chaîne
nMontantVentile est un monétaire
nSommeDejaSaisies est un monétaire
Sql = "SELECT Depense.Montligndep AS MontantVentile FROM Depense WHERE IDDep = " + pIdDepense
SI PAS HExécuteRequêteSQL(Rsl,hRequêteDéfaut,Sql) ALORS
Erreur(HErreurInfo())
RENVOYER Faux
FIN
HLitPremier(Rsl)
SI HEnDehors(Rsl) ALORS RENVOYER Faux //Enregistrement non trouvé Il y a un problème
nMontantVentile = Rsl.MontantVentile
Sql = "SELECT SUM(Montligndep) AS SommeDepense FROM LigneDepense WHERE iddep = " + pIdDepense
SI PAS HExécuteRequêteSQL(Rsl,hRequêteDéfaut,Sql) ALORS
Erreur(HErreurInfo())
RENVOYER Faux
FIN
HLitPremier(Rsl)
SI HEnDehors(Rsl) ALORS RENVOYER Faux //Enregistrement non trouvé Il y a un problème
nSommeDejaSaisies = Rsl.SommeDepense
SI nSommeDejaSaisies+pMontantDepense>nMontantVentile ALORS
Info("ATTENTION : L'ajout de ce montant va dépasser le montant voté !")
RENVOYER Faux
FIN
RENVOYER Vrai
A toi d'y apporter les modifications nécessaires.
Contribution le : 03/11/2004 21:14
|
|
|
Re: procedure locale pour validation |
|
Anonyme
|
Salut drcharly93
Peux tu me clarifier sur cette variable(pMontantDepense) utilisée dans la procedure car je ne vois son integration que lors de ce calcul:nSommeDejaSaisies+pMontantDepense>nMontantVentile
J'ai pensé que c'est le montant que l'usager est entrain de saisir Je veux juste m'assurer. Merci
Contribution le : 04/11/2004 16:52
|
|
|
Re: procedure locale pour validation |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
bonjour,
Oui, il s'agit du paramètre dans la déclaration de la fonction IsMontantOK()
Ce paramètre contient la valeur du champ MontLigndep de la fenêtre Fiche depense lors de l'appel de la fonction IsMontantOK().
Contribution le : 04/11/2004 19:17
|
|
|
Re: procedure locale pour validation |
|
Anonyme
|
Salut Drcharly Cette procédure ne fonctionne pas si les dépenses et lignes de dépenses sont enregistrées sur une base annuelle L'idée est de controler chaque montant par année Cordialement
Contribution le : 15/11/2004 17:24
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.