Discussion :

[FloX3]

Bonjour,

Pour des besoins spécifiques, je dois programmer un écran de sélection avec le "choose". Je sais qu'il existe plusieurs façon mais dans mon cas je ne peux qu'utiliser cette méthode.

J'arrive à gérer la pagination (précédente et suivante), mais la sélection rapide me pose soucis.

En effet si je fais une sélection rapide sur une colonne, j'ai le status qui est égale à 45 (pour le moment normal), mais je ne trouve pas de variable qui me donnerai ce que l'utilisateur a saisie, ni l'indice ou le nom de la colonne.

Si une personne à une piste.

Merci

[piliboun]

Bonjour,

Je suis confronté au même problème. J'utilise l'instruction "Choose" pour ouvrir une boite de sélection paramétrée. Cette boite de sélection possède des champs de saisie de critères.



Les utilisateurs voudraient pouvoir utiliser ces champs de saisie évidemment, mais quand ils saisissent les critères et qu'ils tabulent, la fenêtre se ferme avec le code statuts égal à 45.

J'ai donc essayé de trouver une solution en codant ça



mais ça boucle méchamment... J'ai essayé de trouver des exemples dans les codes du standard sage mais sans succès.

Aussi, je me décide à demander l'aide de la communauté. Avez vous déjà été confronté à ce problème et si oui avez vous une solution à celui ci ?

Merci infiniment de votre aide.

[piliboun]

Bonjour,

Finalement j'ai trouvé comment faire (partiellement). Je mets ci dessous :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Subprog S_XPROMO(VALEUR)
Variable Char    VALEUR()
 
Local Char XSELECTION(255)(10)
Local Integer XCPT
 
If clalev([F:XSJ])=0 : Local File XPROMLT [XSJ] : Endif
If clalev([F:XRU])=0 : Local File XPROOPE [XRU] : Endif
Link [F:XSJ] With [F:XRU]XRU0 = [F:XSJ]XCOPE As[XLNK]
 
Gosub XSEL_PROMO
 
# Affichage de la boite de sélection des promotions en fonction de la chaine construite
Repeat 
  Choose [XLNK]
& Where evalue([L]XSELECTION)
& Order By [F:XSJ]SALFCY Asc ; [F:XSJ]XCOPE Asc
& Using
& [F:XSJ]SALFCY Titled mess(00003,00045,1),
& [F:XSJ]XCOPE Titled mess(00070,00190,1),
& [F:XSJ]XLOPE Titled mess(00036,00105,1),
& [F:XSJ]XBPCNUM Titled mess(00078,00117,1),
& [F:XSJ]XDEBAPP Titled mess(00104,00148,1) - mess(00460,00198,1),
& [F:XSJ]XFINAPP Titled mess(00018,00002,1) - mess(00460,00198,1),
& [F:XSJ]XDEBOPE Titled mess(00104,00148,1) - mess(00070,00190,1),
& [F:XSJ]XFINOPE Titled mess(00018,00002,1) - mess(00070,00190,1)
& Sized(80,120)
& Titled mess(00553,05001,1)
  If [S]status = 28 # Si on sélectionne une valeur
    VALEUR = [F:XSJ]XCOPE
  Elsif status = 45 # Si saisie de critères de sélection
    Raz [L]XSELECTION(9)
    If [F:XSJ]SALFCY <> ''
      [L]XSELECTION(9) -= "and pat([F:XSJ]SALFCY,'" + [F:XSJ]SALFCY + "')"
    Endif
    If [F:XSJ]XCOPE <> ''
      [L]XSELECTION(9) -= "and pat([F:XSJ]XCOPE,'" + [F:XSJ]XCOPE + "')"
    Endif
    If [F:XSJ]XLOPE <> ''
      [L]XSELECTION(9) -= "and pat([F:XSJ]XLOPE,'" + [F:XSJ]XLOPE + "')"
    Endif
    If [F:XSJ]XBPCNUM <> ''
      [L]XSELECTION(9) -= "and pat([F:XSJ]XBPCNUM,'" + [F:XSJ]XBPCNUM + "')"
    Endif
  Endif
Until [S]status = 28 or [S]status = 7 or [S]fstat # Sortie si sélection, click sur croix ou pas d'enregistrement
 
End

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$XSEL_PROMO
 
# Normalement le code article et client sont obligatoires, mais en specifique certains ont autorisé les code à blanc, dans ce cas ils sont selectionnable !
[L]XSELECTION(0) = "[F:XRU]XCACC < 3 and ([F:XRU]ITMREF = [M:SOH4]ITMREF(nolign-1) or [F:XRU]ITMREF <= '') and ([F:XSJ]SALFCY = [M:SOH0]SALFCY or [F:XSJ]SALFCY <= '') "
[L]XSELECTION(1) = " and (([F:XSJ]XDEBAPP <> [0/0/0] and [F:XSJ]XDEBAPP <= [M:SOH2]SHIDAT and [F:XSJ]XFINAPP >= [M:SOH2]SHIDAT)"
[L]XSELECTION(2) = " or ([F:XSJ]XDEBAPP  = [0/0/0] and [F:XSJ]XDEBOPE <= [M:SOH2]SHIDAT and [F:XSJ]XFINOPE >= [M:SOH2]SHIDAT))"
[L]XSELECTION(3) =
& " and (([F:XSJ]XDATCON > [0/0/0] and XPROACC <> 'Statut Acc') or ( XPROACC = 'Statut Acc' and [F:XRU]XCACC = 2))  and ([F:XSJ]XBPCNUM = [F:XBPC]XBPCFGD(0) or [F:XSJ]XBPCNUM = [F:XBPC]XBPCFGD(1)"
[L]XSELECTION(4) = " or [F:XSJ]XBPCNUM = [F:XBPC]XBPCFGD(2) or [F:XSJ]XBPCNUM = [F:XBPC]XBPCFGD(3) or [F:XSJ]XBPCNUM = [F:XBPC]XBPCFGD(4) or [F:XSJ]XBPCNUM=[M:SOH0]BPCORD or [F:XSJ]XBPCNUM <= '')"
 
# Ne pas utiliser XSELECTION(9) ici, car alimenté dans S_XPROMO pour saisie de critères de sélection
 
Return

La seule interrogation qui subsiste est comment récupérer les opérateurs ">,<,<=,>=" issus de la sélection rapide dans le choose. Si quelqu'un a une idée, je suis preneur.

Belle journée à vous

[bimiman]

Le choose est assez limité dans les recherches (sauf à coder).
Il vaut mieux utiliser SEl_TABLE ou SEL_LISTE suivant les cas. La recherche rapide est alors gérée nativement.