Discussion :

[Cereal123]

Bonjour,

Je bute sur un problème qui doit être trivial mais je n'arrive pas à voir où est le soucis.

J'ai ajouté un tableau spécifique dans un onglet de la fenêtre OBPC (Fiche client).
Pour y stocker le résultat, j'ai créé une table spécifique ZBPCREPFIL qui a la structure suivante :




Voici le code spécifique associé à l'écran :

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
 
$ACTION
Case ACTION
  When "OUVRE"     : Gosub OUVRE
  When "MODIF"     : Gosub MODIF
  When "LIENS"     : Gosub LIENS
  When default
Endcase
Return
 
############################################################################### $OUVRE
$OUVRE
# Ouvre la table qui contient les champs spécifiques
If clalev([F:ZBPCREPFIL])=0 : Local File "ZBPCREPFIL" [ZBPCR] : ENDIF
 
Return
 
############################################################################### $LIENS
$LIENS
 
Local Integer WNUMLIG
 
#dbgmode = 1
#Dbgaff
 
WNUMLIG = 0
For [F:ZBPCR]ZCR1 Where [F:ZBPCR]BPCNUM = [M:BPC0]BPCNUM
   nolign = WNUMLIG + 1
   [M:BPC6] = [F:ZBPCR]
   WNUMLIG += 1
Next
[M:BPC6]NBLIG = WNUMLIG
 
Return

A l'exécution, lorsque j'ouvre une fiche client, j'ai les messages d'erreur :

et


Je ne comprends pas pourquoi car pourtant l'index existe dans la définition de la table.
(Cela correspond à la ligne 26 du code)
Voyez-vous ce qui cloche ?

C.

[jeromecha]

Moi c'est cette ligne là qui m'interpelle :

Code :

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

If clalev([F:ZBPCREPFIL])=0 : Local File "ZBPCREPFIL" [ZBPCR] : ENDIF

Pourquoi l'éditeur n'a pas transformé ENDIF en Endif ?

J'ai l'habitude de mettre :

Code :

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

If clalev([F:ZBPCR])=0 : Local File ZBPCREPFIL [ZBPCR]  Endif

Mais ça n'a peut-être pas d'impact sur ton problème.

D'autre part tu es sûr que tu passes bien par l'action $OUVRE : mets un petit Infbox pour en être sûr.

[Cereal123]

Merci de cette réponse.
Je passe bien dans la section $OUVRE, et même en ayant changé le code comme indiqué pour ouvrir la table, même punition !

[howto]

Pourquoi ne pas mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Filter [F:ZBPCR] Where [F:ZBPCR]BPCNUM = [M:BPC0]BPCNUM order by ZCR1
For [F:ZBPCR]
    nolign = WNUMLIG + 1
    [M:BPC6] = [F:ZBPCR]
    WNUMLIG += 1
Next
[M:BPC6]NBLIG = WNUMLIG
 
Filter [F:ZBPCR] 
return

[Cereal123]

Merci de cette idée :
J'ai essayé mais j'ai le message "ZCR1 variable inexistante".
En mettant [F:ZBPCR]ZCR1, même problème.
C'est comme si mes index n'étaient pas connus...
Pourtant j'ai forcé la validation de la table.

Une autre idée ?

[howto]

change order by ZCR1 par order by BPCNUM

Si ton index fonctionne ce sera aussi performant

ensuite regarde dans un outil tel que SQL developper si tes index existent bien pour la table que tu as créé

[ConsultantX3]

Bonjour ,
Ca peut être lié a l’abréviation que t'as donné à ta table spé,
bon pour ta table au lieu de l'ouvrir dans le trt tu peux la déclarer directement dans ton objet bpc et t'aura ps besoin de la ré ouvrir dans ton trt,
sinn puisque c'est une table spécifique pas besoin de faire le clalev t'es sur quelle n'est pas ouverte tu déclare directement ta table et tu ferme a la fin de ton trt

[Cereal123]

Ça fonctionne, merci !
Il ne me reste plus qu'à comprendre pourquoi il ne voit pas mes index. Je vais vérifier directement en base.