Add product division map fallback

2026-06-10 16:17:02 +02:00
parent d1d50e9c0c
commit f23fa1662e
19 changed files with 2399 additions and 18 deletions
@@ -0,0 +1,49 @@
+*&---------------------------------------------------------------------*
+*& Report Z_PRODSPARTE_MAP_EXPORT
+*&---------------------------------------------------------------------*
+*& Zweck: Exportiert die flache Mapping-Tabelle ZPRODSPARTE_MAP zur
+*&        Kontrolle gegen Data(4)/KEDE-Referenz.
+*&
+*& Erwartung nach Z_PRODSPARTE_MAP_BUILD:
+*&   Alle Data(4)-Referenzcodes muessen hier mit gleicher WWPFA stehen.
+*&---------------------------------------------------------------------*
+REPORT z_prodsparte_map_export.
+
+PARAMETERS: p_file TYPE string LOWER CASE
+                   DEFAULT 'C:\temp\zprodsparte_map_export.csv'.
+
+START-OF-SELECTION.
+
+  SELECT paph1, wwpfa, wwpsp
+    FROM zprodsparte_map
+    INTO TABLE @DATA(lt_map)
+    WHERE paph1 <> @space.
+
+  SORT lt_map BY paph1.
+
+  DATA: lt_csv TYPE STANDARD TABLE OF string,
+        lv_sep TYPE c LENGTH 1.
+
+  lv_sep = ';'.
+
+  APPEND |PAPH1{ lv_sep }WWPFA{ lv_sep }WWPSP| TO lt_csv.
+
+  LOOP AT lt_map INTO DATA(ls_map).
+    APPEND |{ ls_map-paph1 }{ lv_sep }{ ls_map-wwpfa }{ lv_sep }{ ls_map-wwpsp }|
+      TO lt_csv.
+  ENDLOOP.
+
+  cl_gui_frontend_services=>gui_download(
+    EXPORTING
+      filename = p_file
+      filetype = 'ASC'
+    CHANGING
+      data_tab = lt_csv
+    EXCEPTIONS
+      OTHERS   = 1 ).
+
+  IF sy-subrc = 0.
+    WRITE: / lines( lt_map ), 'Mapping-Saetze exportiert nach', p_file.
+  ELSE.
+    WRITE: / 'Download-Fehler, sy-subrc=', sy-subrc.
+  ENDIF.