faire ça : nolign-1

Bonjour Sandra NGUESSONG ,

Faites nous savoir si la réponse de saad bou  a été utile en la marquant comme vérifiée .

Pour cela, au niveau de la réponse apportée cliquer sur l'option "Vérifier la réponse".

Cela aura pour effet de marquer la réponse en vert et de permettre aux autres membres de la communauté, ou aux personnes qui auraient également le besoin de voir que cela a fonctionné.

Merci d'avoir utilisé la communauté.

Edwin

ça supprime toute les lignes

Pas du tout ok

Bonjour ! 

Pourriez-vous vous nous dire qu'il est l'objectif de ce script, l'action qui le déclenche et le résultat attendu ? 

Bonjour,

J'aimerai faire un contrôle sur les quantités à livrer lors de la livraison et c'est quand je veux modifier une quantité que cela supprime les lignes.

Si j'ai bien compris, vous voulez contrôler la quantité livrée [M:SDH1]QTY après modification de sa valeur.

C'est quoi l'instruction que vous voulez appliquer:
Afficher un message d'erreur ?  comparer la valeur du champs à un autre champs ? ...

Merci de détailler votre demande.

Exactement comparer les valeurs et afficher un message et celà fonctionne bien mais je m'étais rendu compte que pour toutes les lignes d'une livraison cela prenait la quantité de la première pour faire la comparaison il fait donc ajouter le mot clé nolign-1 sur l'article et ça vérifie maintenant normalement mais le souci est que à la fin j'ai NBLIG = nolign pour pouvoir récupérer toutes les lignes de mon tableau mais ça récupère uniquement la première ligne et ça supprime les autres lignes 

C'est bon merci, j'ai supprimé NBLIG = nolign et tout est ok

Pourriez-vous partager le code ?

If clalev ([F:SOQ]) = 0 : Local File SORDERQ [SOQ]: Endif
FILTER [SOQ] WHERE SOHNUM = [F:SDH]SOHNUM AND ITMREF = [M:SDH1]ITMREF(nolign-1)
For [SOQ]
If [F:SDH]QTY > [F:SOQ]QTY
GMESSAGE= "La quantité à livrer ne doit pas être supérieure à la quantité commandée"
mkstat = 2
Endif
Next
Filter [SOQ]

Utilisez ce code

Subprog AM_QTY(VALEUR)
Variable Decimal VALEUR
If find([M]LINTYP(nolign-1),1,2,6,7,8,9,10)
   If [M]YDLVQTY(nolign-1) <> 0 & VALEUR > [M]YDLVQTY(nolign-1)     
	GMESSAGE= "La quantité à livrer ne doit pas être supérieure à la quantité commandée"
	mkstat = 2      
   Endif
Endif
End