Bonjour à tous,
j'essaye d'effectuer un emballage automatique en ABAP, avec comme variable d'entrée le numéro de bon de livraison, l'article et la quantité.
J'utilise la fonction ci-dessous (peut-être qu'elle n'est pas adapté ? ) et j'ai toujours le message que je n'ai pas de poste à emballer...
Pouvez-vous m'aider SVP ?

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
DATA :  LF_DATA_CHANGED TYPE  XFELD,
        LT_MESSAGES TYPE HUITEM_MESSAGES_T,
        xfeld TYPE XFELD.

DATA :BEGIN OF LT_KOMPV OCCURS 0.
          INCLUDE STRUCTURE KOMPV.
DATA :END OF LT_KOMPV.

DATA :BEGIN OF ls_mess.
        INCLUDE STRUCTURE HUITEM_MESSAGES.
DATA :END OF ls_mess.

DATA :  lf_act_sessions LIKE  SM04DIC-COUNTER,
            lf_max_sessions LIKE  SM04DIC-COUNTER.

LT_KOMPV-POBJKEY = '0083037986'. " Numéro du bon de livraison
LT_KOMPV-POBJPOS = '000010'.        "Position
LT_KOMPV-VELIN = '1'.
APPEND LT_KOMPV.


CALL FUNCTION 'V51P_PACKING_DETERMINATION'
           EXPORTING
                IF_CALL      = 'D'
                IT_KOMPV     = LT_KOMPV[]
           IMPORTING
                ET_MESSAGES      = LT_MESSAGES
           EXCEPTIONS
                PACKINSTRUCTION = 01
                OTHERS              = 99.
Merci d'avance.
Dav