Discussion :

[castorameur]

salut les artistes,
je n'ai pas trouvé de solution pour saisir une valeur avec une instruction type INPUT sans passer par un écran.
qlq un l a t il deja fait ?

[BF0509]

Bonjour,

Dans quel cadre voulez-vous faire ça ?

Que voulez vous faire plus précisément ?

[castorameur]

dans une boucle avec des SELISTE je veux demander une quantité entre chaque sélection

j'aurais bien voulu un Qstbox qui permettent de saisir un nombre.
j'ai cherché dans GESECRAN et je n'ai trouvé que des sélections sur listes.
je trouve cela lourd d'appeler un ecran/fenetre en boite de dialogue juste pour une saisie

[BF0509]

Désolé,

Je ne vois personnellement pas d'autre méthode qu'un écran spécifique et du code derrière.

[castorameur]

C'est dingue que l'on n'est même pas une petite instruction d'input en L4G ou dans une biblio de fonctions comme GESCECRAN ou GSAISIE

[mru02]

Bonjour,
Votre post m'a interpellé.
J'imagine que Sage a les mêmes problématiques aussi j'ai cherché un écran générique (si je puis dire) de saisie.
Je suis tombé sur le masque et la fenêtre ASAICAR
Cela a l'air prometteur bien que je n'arrive pas à afficher d'intitulé (l'intitulé est un intitulé évalué sur la zone VALEUR, la formule évaluée est [M]INTZON)
N'ayant pour le moment pas plus de temps à passer sur ce sujet, je vous laisse la main.
Si ce code vous convient et que vous savez le pousser un peu plus loin, merci de compléter ce post car cela m'intéresse tout autant.
Pour info, en fonction du bouton appuyé, la valeur de REPONSE sera différente
Cdt
PS : attention, j'ai testé en client lourd mais pas en client léger

Local Mask ASAICAR [ASAI]
Local Char A_STAMP(14)
Local Char TIT : TIT="Test"
If dim(A_WINDPREV)<=0 : Local Char A_WINDPREV(30) : Endif
Local Integer REPONSE
#
[M:ASAI]CODTYP="L" : # Type X3
[M:ASAI]NOLIB=0 : # Numéro menu local si type X3=Menu local
#[M:ASAI]TCT : # Table de contrôle
[M:ASAI]LONG=4 : # Longueur du texte
#[M:ASAI]VALINT : # Valeur interne
#[M:ASAI]SUPP : # Descriptif
#[M:ASAI]INTZON: # "'Mon intitulé'" : # Intitulé
#
Local Inpbox "ASAICAR" From GFONCTION At A_STAMP With A_WINDPREV Mask [ASAI]
& As [ASAI]
Titled [ASAI] TIT
Boxact [ASAI]
Boxinp [ASAI] Using REPONSE
Infbox num$(REPONSE)-[M:ASAI]VALEUR

End

[castorameur]

merci pour ce début de code.
Actuellement je suis occupé par des problèmes systèmes mais je me remets à ce problème après et vous ferrai un retour.

[bimiman]

Sinon il y a déjà quelque chose de tout fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Local Integer OK
Local Char VALEUR
 
# Paramètres dans l'ordre :
# Char : # Valeur retournée
# Char : # Titre de la boîte
# Char : # Intitulé du champ saisi
# Char : # Type de donnée
# Integer : # No de menu local (si menu local)
# Integer : # Longueur du champ (si alpha)
# Char    : # Paramètre objet (clé 2)
# Integer : # Saisie validé (OK=2)
 
Call SAICAR(VALEUR,"Titre","Libellé","L",0,5,"",OK) From GESECRAN 
 
End

[castorameur]

merci

j'ai cherché dans GESECRAN et je suis passé à côté de SAICAR.
Je vais acheter un écran plus large