Verpacken vorhandener HUs an Auslieferungen

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

Verpacken vorhandener HUs an Auslieferungen

Beitrag von Trilla_CB (ForumUser / 1 / 0 / 0 ) » 12.11.2019 11:46
Hallo ABAP-Community,

ich bin gestern auf ein Problem gestoßen und seitdem auch nicht wirklich weiter gekommen.

Bislang wurden die HUs über eine Fuba verpackt,
der über einen Batch-Input Recorder erstellt wurde.
Dies ist nun leider nicht mehr möglich, da es auch möglich sein muss mehr als 12 HUs zu verpacken (im Screen werden nur 12 angezeigt).

Ich habe bereits WS_DELIVERY_UPDATE implementiert, bekomme jedoch ständig folgende Meldung:
"Position [VBELN] [POSNR] kann für HU [EXIDV] nicht verwendet werden"

Die MATNR passt überein.

Code: Alles auswählen.

  DATA: ls_vbkok TYPE vbkok,
        lf_vbtyp TYPE vbtyp,
        lf_vbeln TYPE vbeln,
        lt_prot  TYPE TABLE OF prott,
        lt_hus   TYPE TABLE OF hum_rehang_hu,
        lt_vekp  TYPE TABLE OF vekp,
        lt_vepo  TYPE TABLE OF vepo,
        lf_pos   TYPE rfpos_vl.

  SELECT SINGLE vbtyp FROM likp INTO lf_vbtyp
    WHERE vbeln = if_vbeln.

  lf_vbeln = if_vbeln.

  ls_vbkok-vbeln_vl = ls_vbkok-vbeln = if_vbeln.
  ls_vbkok-vbtyp_vl = lf_vbtyp.
  ls_vbkok-wabuc = 'X'.

  SELECT * FROM vekp INTO TABLE lt_vekp
    FOR ALL ENTRIES IN mt_hus
    WHERE exidv = mt_hus-hunum.

  SELECT * FROM vepo INTO TABLE lt_vepo
    FOR ALL ENTRIES IN lt_vekp
    WHERE venum = lt_vekp-venum
      AND velin = '1'.

  LOOP AT lt_vekp ASSIGNING FIELD-SYMBOL(<lfs_hu>).
    APPEND INITIAL LINE TO lt_hus ASSIGNING FIELD-SYMBOL(<lfs_assign_hu>).
    lf_pos = lf_pos + 1.
    <lfs_assign_hu>-top_hu_internal = <lfs_hu>-venum.
    <lfs_assign_hu>-top_hu_external = <lfs_hu>-exidv.

*   Pro position ein rehang-satz
    LOOP AT lt_vepo ASSIGNING FIELD-SYMBOL(<lfs_vepo>)
      WHERE venum = <lfs_hu>-venum.

      <lfs_assign_hu>-venum = <lfs_vepo>-venum.
      <lfs_assign_hu>-vepos = <lfs_vepo>-vepos.
      <lfs_assign_hu>-rfbel = if_vbeln.
      <lfs_assign_hu>-rfpos = lf_pos.
    ENDLOOP.
  ENDLOOP.

  CALL FUNCTION 'WS_DELIVERY_UPDATE'
    EXPORTING
      vbkok_wa          = ls_vbkok
      commit            = 'X'
      delivery          = lf_vbeln
    TABLES
      prot              = lt_prot
      it_handling_units = lt_hus.
Danke im Voraus
Chris


Re: Verpacken vorhandener HUs an Auslieferungen

Beitrag von Tron (Top Expert / 1187 / 22 / 274 ) » 21.11.2019 15:01
Moin.
Hier mein Fundstück:
https://tricktresor.de/blog/verpacken-e ... ling-unit/
gruß Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Seite 1 von 1

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und besseren Inhalt:

Vergleichbare Themen

Belegfluss Auslieferungen zur Bestellung
von SAP_ENTWICKLER » 26.11.2015 14:20
Prüfung vorhandener Einträge in Tabelle
von Stahle71 » 11.05.2016 10:00
Selection Screen - Steuerung vorhandener Auswahlopt.
von Hotzenplotz » 02.03.2018 15:14