Discussion :

[youcef_b_dz]

Bonjour tous le monde,
j’essaie de faire un petit travail et j'ai utilise une procédure global. dans cette procédure global sont défié 3 paramètres en entrées et un en sortie, or à l’exécution du de mon programme il y a message d'erreur qui s'affiche il indique ce que suit :
le traitement 'CompleteAGauche' attend au plus 0 paramètres et vous passez 3
Merci d'avance pour toute votre aidé.

[tatayo]

Bonjour,
Peux-tu nous montrer la déclaration de la procédure, ainsi que son appel ?

Tatayo.

[youcef_b_dz]

bonsoir
voici le code de ma procédure

// Résumé : <Cette procédure ajouter des caractères à une chaine jusqu'au une taille précisse>
// Description des paramètres d'entrée/sortie de 'CompleteAGauche' :
//
// Syntaxe :
//[ <Résultat> = ] CompleteAGauche (<TextAComp> est chaîne ANSI, <TailleChaine> est entier, <CaractRemp> est chaîne ANSI)
//
// Paramètres :
// TextAComp (chaîne ANSI) : <la chaine de caractére à complétée>
// TailleChaine (entier) : <la longeur maximum de la chaine à complétée>
// CaractRemp (chaîne ANSI) : <le caractère de remplissage>
// Valeur de retour :
// Chaineresultat (chaîne ANSI) : <la chaine de caractère complétée>
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
PROCEDURE CompleteAGauche(TextAComp est une chaîne, TailleChaine est un entier, CaractRemp est une chaîne)
chainerésult est une chaîne
chainerésult = TextAComp
TANTQUE Taille(chainerésult) < TailleChaine
chainerésult=CaractRemp+chainerésult
FIN
RENVOYER chainerésult

Mais j'ai résolu le problème
en faite cette procédure était local a une fenêtre en comme j'avait besoin de l'utilisé dans une autre fenêtre et je ne savait pas comme la rendre global donc j'ai créer une procédure global et j'ai supprimer le code de la procédure local sans la supprimer du référentiel de la première fenêtre.
maintenant ça marche bien.
merci de votre intérêt
Cordialement
Youcef

[Hemgé]

Bonjour,

Vous auriez intérêt à regarder les fonctions Complète et surtout Répète.

Votre code pourrait être plus concis et plus rapide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
PROCEDURE CompleteAGauche(TextAComp est une chaîne, TailleChaine est un entier, CaractRemp est une chaîne)
TailleAComp est un entier = Taille(TextAComp)
//ou TailleCompl est un entier = Taille(SansEspace(TextAComp))
ChaineAjout est une chaîne = Répète(CaractRemp, TailleChaine - TailleAComp)
chainerésult est une chaîne = ChaineAjout + TextAComp
//ou chainerésult est une chaîne = ChaineAjout + SansEspace(TextAComp)
 
RENVOYER chainerésult

Si vous deviez compléter à droite, alors la fonction Complète se suffit à elle même.

Bon travail

Hemgé

PS : pensez à utiliser la balise [CODE] : #

[youcef_b_dz]

merci ça marche très bien

[laurent30s]

C'est bien, clique sur résolu...

Bon dev
Laurent