HMGforum.com

Tonton,

Comment ça marge?

Serge

Bonsoir serge ,
ce n'est qu' une partie d'un programme.
Pour ajouter un produit tu appuies sur Ref MatPrem ,en suite tu appuie sur la 1er case de la grille pour ajouter des articles
ci joint une image
si vous voulez je peux vous envoyer un programme de gestion mais en francais.

Tonton,

Je comprends un peut comment ça marche maintenant. Seulement le probleme du combobox je ne comprends pas?

Serge

Bonjour,
1- Tout d'abord définir les tableaux suivants ( aRefMatPrem := {}, aLargMatPrem := {}, aPrixMatPrem := {}, ; ) dans static
2-creer les tableaux cités ci dessus:==> CreTableau()

FUNCTION CreTableau()
local Num_Lign_Grille, NumLigGriAcces,NumLigMOeuvre

aRefMatPrem := {}
aLargMatPrem := {}
aPrixMatPrem := {}

select Mat_Prem_2vis
set order to tag reference // Design
do while !eof()
aadd(aRefMatPrem, Mat_Prem_2vis->REFERENCE)
aadd(aLargMatPrem, Mat_Prem_2vis->Largeur*100)
aadd(aPrixMatPrem, Mat_Prem_2vis->PrixUnitMp)
skip
enddo
return
3-dans la grille COLUMNCONTROLS { {'COMBOBOX', aRefMatPrem}, ;
......
4-toujours dans la grille mettre ON HEADCLICK { {||AjMatPrem()} } ;
......
function AjMatPrem
WinDevis.GrdDevis.additem({0,140,0,0.00,0.00,0,0.00,1,,0.00,30,0.00})
WinDevis.GrdDevis.value := WinDevis.GrdDevis.itemcount
return nil
voila grosso modo la création d'un COMBOBOX dans la grille
Si vous êtes interessé je peux vous envoyer le programme complet.
j’espère que cela vous servira
je m'excuse de ne pas employer l'anglais car je le maîtrise très mal.

Tonton,

Je t'envoie mon couriel par private message.

Serge

Bonjour tout le monde,
comme promis je vous envoi un petit programme de devis pour clients , je répondrais a toutes vos questions.
je pense que dans un prochain avenir je vous mettrai une gestion commerciale (possible en anglais).
bonne continuation

Je pense que je comprends le systeme un peut. Mais pour le probleme du combobox, il faut que vous m'explique ce que manque!
Une version anglaise / commerciale sera bien possible!

Serge

bonjour,
je voudrais utiliser combobox pour qu'il m'affiche la référence et non le numéro dans un grille avec un ROWSOURCE.

I would like to use combobox so that it shows me the reference and not the number in a grid with a ROWSOURCE.
merci beaucoup

Hello,
I have created a browse in my procedure file that I use for all searches or lists and it works very well.
I send parameters to the browse depending on what table I am using and what fields I want to see.
I think this is what you may be looking for. I COULD NOT GET THE DROP DOWN COMBO TO WORK FOR ME.
If this is what you need I could give a sample. Actually I think I posted a sample before but can not locate it on the forum.
It is a browse from parameters.
Franco

Sorry Tonton, at the moment I have no time to look at it!
Serge