Discussion :

[d.courbiere]

Bonjour,
ce user-exit est utilisé dans la transaction VT01N pour effectuer des contrôles de données qui autorisent ou pas l’enregistrement du transport.
c'est à dire contrôle si le poids est saisi, l'article client, ...si l'emballage est effectué etc...

Le but est d'empêcher l'enregistrement mais de ne pas quitter la transaction.
Or quand le message de type i001, i006 ou i019 devrait apparraître rien ne se passe.
Par contre le message i008 s'affiche toujours. Je ne comprends pas.
Merci pour votre aide.

voici un bout de code :

if xverif = 'X'.
if brgew_error = 'X'. " Si pas de poids
message i001(z1) with i_xvttp-vbeln.
e_errors_occurred = 'X'.
endif.
endif.

if kdmat_error = 'X'."Si pas d article-client
message i006(z1) with xmatnr xkunnr.
e_errors_occurred = 'X'.
endif.

if xpackerr = 'X'. " Si pas d'emballage
message i019(z1) with xmatnr i_xvttp-vbeln.
e_errors_occurred = 'X'.
ENDIF.

if e_errors_occurred = 'X'.
message i008(z1).
endif.


dav

[Celdrøn]

Bonjour,

Pour commencer, vérifie que les messages existent bien dans la classe de message Z1.

Sinon, je pense que le type I n'est pas le bon type à utiliser, car avec un type I le message s'affiche sans interruption de traitement, il me semble tout du moins, donc le dernier affiché écrasera le précédent, et donc comme cela s'enchaîne excessivement vite, t'as l'impression que seul le dernier s'affiche, surtout si le message s'affiche dans la barre d'état en bas de l'écran.

Si tu essaies plutôt d'afficher les messages sous la forme «message type 'W' display like 'I'.» ?
Un message type Warning demande une validation à l'écran mais n'est pas bloquant.

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
if xverif = 'X'.
  if brgew_error = 'X'. " Si pas de poids
    message w001(z1)
      display like 'I'
      with i_xvttp-vbeln.
    e_errors_occurred = 'X'.
  endif.
endif.

if kdmat_error = 'X'."Si pas d article-client
  message w006(z1)
    display like 'I'
    with xmatnr xkunnr.
  e_errors_occurred = 'X'.
endif.

if xpackerr = 'X'. " Si pas d'emballage
  message w019(z1)
    display like 'I'
    with xmatnr i_xvttp-vbeln.
  e_errors_occurred = 'X'.
endif.

if e_errors_occurred = 'X'.
  message w008(z1)
    display like 'I'.
endif.

[d.courbiere]

Bonjour,
Merci pour ton aide, j'ai testé et ça ne fonctionne toujours pas, il n'y a que le i008 qui s'affiche :

if xverif = 'X'.
if brgew_error = 'X'.
message w001(z1) with i_xvttp-vbeln.
e_errors_occurred = 'X'.
endif.
endif.

if kdmat_error = 'X'."CD20170917_1
message w006(z1) with xmatnr xkunnr.
e_errors_occurred = 'X'.
endif.
if xpackerr = 'X'.
message w019(z1) with xmatnr i_xvttp-vbeln.
e_errors_occurred = 'X'.
ENDIF.

if e_errors_occurred = 'X'.
message i008(z1).
endif.

Dav

[sandraros]

Les messages sont ignorés (mais mémorisés) dans l'exit ZXV56U17 (EXIT_SAPLV56U_002) car SAP l'appelle en contrôlant l'exception spéciale ERROR_MESSAGE (cf appel par module fonction SD_SHIPMENTS_CHECK_COMPLETE). C'est pour ça que dans l'exit il y a un paramètre dédié pour signaler qu'une erreur ou warning est à afficher. SAP affichera alors le dernier message "mémorisé" dans l'exit.
Pour afficher une popup, je pense qu'il faut faire comme suit: si le paramètre I_OPT_DIALOG <> space alors il faut faire un CALL FUNCTION 'POPUP_TO_CONFIRM', sinon faire CALL FUNCTION 'SD_SHIPMENT_PROTOCOL_APPEND'.

[d.courbiere]

Bonjour,
Merci sandraros, je vais testé ça et vous tiendrais informé du résultat ;-)

@+ Dav

[d.courbiere]

Je n'ai as utilisé la même fonction POPUP car l'utiklisateur ne devait pas avoir le choix que de valider mais ça m'a tout de même mis sur la voie et j'ai utilisé la fonction POPUP_TO_INFORM.

Concatenate 'Error :' 'Packaging missing ' 'DN' i_xvttp-vbeln INTO xmess1 SEPARATED BY SPACE.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = 'Warning'
txt1 = xmess1.

Merci à tous ;-)
Dav