Discussion :

[ricklegend]

Bonjour,

Dans l'en-tête de la commande d'achat, je voudrais rajouter une notation qui fonctionne comme suit :

• Si la commande n'est pas encore facturé, la notation ne peut pas se faire
• Après avoir donné une note, le type statut devient automatiquement "noté"

Deux champs sont créés dans la table PORDER :

• ZSTA = Menu local avec valeur 1 = A noter et 2 = Noté
• ZNOTA = Entier court 2

Voici le code que je voudrais mettre dans SPEPOH de l'écran POH0

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
 
 
$ACTION
Case ACTION
When default
Endcase
Return
 
 
Subprog AV_ZSTA(VALEUR)
Variable Integer VALEUR
 
#Lire PORDER.POHNUM
#Si INVNBR=0 alors Griser le champ ZSTA
Read [POH]POH0=#devrait être le numéro POHNUM
    If !clalev([POH]): Local File PORDER [POH] : Endif
    If !fstat
		If [F:POH]INVNBR=0
        Grizo [M:POH0]ZSTA
    Endif
 
End
 
 
Subprog AM_ZNOTA(VALEUR)
Variable Decimal VALEUR
 
#A la sortie du champ, si la valeur <>0 alors modifier le champs ZSTA ci-dessus à valeur 2
	If [M:POH0]<>0
		[M:POH0]ZSTA=2
		[F:POH]ZSTA=[M:POH0]ZSTA
		Rewrite [F:POH]ZSTA
	Endif
 
 
End

Pourriez-vous m'aider à corriger ce code ?

Remerciements cordiales,

[bimiman]

Bonjour,

Code :

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

1
2
3
4
5
6
If [M:POH0]ZNOTA<>0 # ZNOTA ? A vous de dire
	[M:POH0]ZSTA=2
	[F:POH]ZSTA=[M:POH0]ZSTA # ne sert à rien, sera écrit à l'enregistrement
	Rewrite [F:POH]ZSTA # idem
Endif

[ricklegend]

Merci pour la réponse, cela m'a permis de revoir le code

Par contre je suis confronté à un autre problème : je travaille sur la fonction GESPOH, gestion des commandes
Et ces notes se trouve sur l'écran POH0. Jusque là, il n'y a pas de souci,
Mais lorsqu'un commande d'achat est déjà soldé, je ne peux plus modifier la commande, par conséquent mettre à jour ces nouveaux champs spécifiques.

[bimiman]

Il faut utiliser une action d'avant-zone sur les zones que vous voulez rendre modifiables en mettant dans le traitement :

Code :

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

Actzo [M:POH0]ZONESPE

Puis en action objet :

Code :

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

1
2
3
4
5
$AVANT_MOD
 
If COUZON="ZONESPE" : GPE=1 : Endif
 
Return

[ricklegend]

Bonjour,

Après quelques essais, je n'arrive pas à débloquer l'interdiction

Après recherche dans le code du standard SUBPOH, le message qui bloque la modification d'une commande d'achat soldée se trouve dans le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Subprog C_NBFAC
#-----------------------------------------------------#
# Contrôle sur numéro de ligne élément de facturation #
#-----------------------------------------------------#
Local Shortint NOL : NOL=nolign-1
#----- Interdiction de l'insertion et de la suppression sur commande soldée -----#
If find(status,65,73,82) & [M:POH1]CLEFLG=2
  GMESSAGE=mess(47,194,1)  : mkstat=2 : End
Endif

Pouvez-vous me dire si le code suivant est bon ?

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
$ACTION
Case ACTION
	When "AVANT_MOD" : Gosub AVANT_MOD
 	When default
Endcase
Return
 
$AVANT_MOD
	If COUZON="ZSTA" : GPE=1 : Endif
	If COUZON="ZNOTA" : GPE=1 : Endif
Return
 
Subprog AV_ZNOTA(VALEUR)
Variable Decimal VALEUR
Actzo [M:POH0]ZNOTA
End
 
Subprog AV_ZSTA(VALEUR)
Variable Integer VALEUR
Actzo [M:POH0]ZSTA
End

Merci d'avance

[bimiman]

OK. Essayez plutôt :

Code :

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

1
2
3
4
5
6
7
$AVANT_MOD
 
If zoncou="MA_ZONE_SPE" and [F:POH]CLEFLG=2
    GPE=1
Endif
 
Return

Si ça ne fonctionne pas, je ne saurais pas quoi dire de plus, car j'ai le même cas de figure et c'est bon.

[ricklegend]

Merci