Bonjour à tous

Je sens que je vais devenir chèvre ! Voici un bout de code. Ce code n'est que ce qui reste d'un procédure qui me bloque. J'ai enlevé ce qui fonctionne pour ne garder que ce qui plante


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ProcVendreArticle.ParamByName('ENTREE').Value:=Chaine;
ProcVendreArticle.ParamByName('HTO').Value:=CDS_ENTETEHTO_ENTETE.Value;
ProcVendreArticle.Prepared:=True;
ProcVendreArticle.ExecProc;
CDS_ENTETEHTO_ENTETE.Value contient la valeur "<AUCUN>", est déclarée string et dans la procédure, varchar 25

Voila la procédure enregistrée : elle ne fait pratiquement rien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
prix = 1;
quantite = 1;
remise = 0;  
total_ttc = :prix * :quantite * (1-:remise/100);
  mois = extract(month from current_date);
Toutes les variables ci dessus sont des variables déclarées dans la procédure

Si je mets la ligne bleu de mon code en commentaire, la prrogramme s'execute (et ne fait rien)
Si je laisse la ligne bleue active, j'ai un message de "string truncation"

J'ai essayé de modifier la longueur de HTO, rien à faire. Ce qui est le plus bizarre c'est que cette procédure a fonctionné (elle était plus complète)

J'ai passé la journée dessus sans comprendre quoi que ce soit.

Merci de toute aide