Serialnummern in Kundenauftrag einfügen

Hier ein kleiner Codeschnipsel mit dem es möglich ist, Serialnummern in eine Kundenauftragsposition einzufügen.

Die vorhanden Serialnummern werden eingelesen. Sind keine vorhanden, so erscheint der Standard-Serialnummerndialog, um Serialnummern einzutragen.

Soll das Hinzufügen ohne Dialog erfolgen, dann muss der Funktionsbaustein SERNR_ADD_TO_DOCUMENT verwendet werden.

Coding

DATA ls_serxx          TYPE rserxx.
DATA lt_serxx          TYPE STANDARD TABLE OF rserxx.
DATA lt_sernr          TYPE STANDARD TABLE OF e1rmsno.
DATA ls_rserob         TYPE rserob.
DATA ls_vbap TYPE vbap.
FIELD-SYMBOLS <sernr>  TYPE e1rmsno.

*** Select customer order item
SELECT single * FROM vbap
INTO ls_vbap
WHERE vbeln = p_vbeln
AND posnr = p_posnr.
CHECK sy-subrc = 0.

*** get existing serial numbers
ls_rserob-taser   = ‘SER02’.
ls_rserob-sdaufnr = ls_vbap-vbeln.
ls_rserob-posnr   = ls_vbap-posnr.
CALL FUNCTION ‘GET_SERNOS_OF_DOCUMENT’
EXPORTING
key_data            = ls_rserob
TABLES
serxx               = lt_serxx
EXCEPTIONS
key_parameter_error = 1
no_supported_access = 2
no_data_found       = 3
OTHERS              = 4.
IF sy-subrc = 3 AND lt_serxx IS INITIAL.
*** No serial numbers exist: show maintenance popup
  ls_serxx-sdaufnr = ls_vbap-vbeln.
ls_serxx-posnr   = ls_vbap-posnr.
CALL FUNCTION ‘SERNR_MAINTAIN_IN_DOCUMENT’
EXPORTING
operation                 = ‘SDAU’
objkopf                   = ‘SER02’
serxx                     = ls_serxx
activity                  = ‘H’ “create
material                  = ls_vbap-matnr
profile                   = ls_vbap-serail
quantity                  = 1
EXCEPTIONS
konfigurations_error      = 1
general_serial_error      = 2
no_profile_operation      = 3
no_automatic              = 4
difference_in_header_data = 5
OTHERS                    = 6.
IF sy-subrc = 0.
*** Post entered serial numbers
    CALL FUNCTION ‘SERIAL_LISTE_POST_AU’.
COMMIT WORK AND WAIT.
ENDIF.
ENDIF.

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• S/4HANA Migration – The Beginning - 25. März 2025
• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024