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. Nov 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 / 1094 / 18 / 239 ) » 21. Nov 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

Aktuelle Forenbeiträge

Generierte Datei auf bestimmte Email Adresse versenden
vor 11 Stunden von M@atze! 4 / 65
Zweite Zeile vorhanden, dann überprüfen auf Feld Gleichheit
vor 15 Stunden von a-dead-trousers 5 / 111
benutzerdefinierter CSV Ausgabepfad
Gestern von a-dead-trousers 8 / 147
Mehrere Funktionsbausteine verwenden
Gestern von a-dead-trousers 2 / 100

Unbeantwortete Forenbeiträge

Transaktionen MEIS / VE01
Gestern von SAP_ENTWICKLER 1 / 51
Cl_gui_html_viewer Problem
vor 5 Tagen von YoeBoy 1 / 23
Namensänderung von PSP Elementen
vor einer Woche von jamyr 1 / 46
Generische Objekte in der Massenverarbeitung
vor einer Woche von TravellingEntwickler 1 / 116
Virtuelles System anlegen
vor einer Woche von ichse18577 1 / 92