admin/Ai
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add product division map fallback

Browse Source
This commit is contained in:
metacube
2026-06-10 16:17:02 +02:00
parent d1d50e9c0c
commit f23fa1662e
19 changed files with 2399 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TrafagSalesExporter/spartenlogic/Z_PRODSPARTE_MAP_IMPORT.abap
+265
View File
@@ -0,0 +1,265 @@
*&---------------------------------------------------------------------*
*& Report Z_PRODSPARTE_MAP_IMPORT
*&---------------------------------------------------------------------*
*& Zweck: Importiert die in KEDE/KEDR gepflegten Regeln
*& PAPH1 von-bis -> WWPFA aus einem Regel-Export und expandiert
*& Bereiche in Einzelwerte.
*&
*& Ergebnis in ZPRODSPARTE_MAP:
*& PAPH1 -> WWPFA -> WWPSP
*&
*& Keine Tabellenerweiterung fuer PAPH1_BIS/GUELTAB erforderlich.
*& Die Von-bis-Information wird nur beim Import verarbeitet.
*&---------------------------------------------------------------------*
REPORT z_prodsparte_map_import.
PARAMETERS: p_file TYPE string LOWER CASE
DEFAULT 'C:\temp\kede_regeln.csv' OBLIGATORY.
PARAMETERS: p_sep TYPE c LENGTH 1 DEFAULT ';'.
PARAMETERS: p_test TYPE abap_bool DEFAULT 'X' AS CHECKBOX.
TYPES: BEGIN OF ty_rule,
paph1 TYPE zprodsparte_map-paph1,
wwpfa TYPE zprodsparte_map-wwpfa,
gueltab TYPE dats,
END OF ty_rule.
TYPES: BEGIN OF ty_fs,
wwpfa TYPE ce11000-wwpfa,
wwpsp TYPE ce11000-wwpsp,
cnt TYPE i,
END OF ty_fs.
START-OF-SELECTION.
DATA lt_raw TYPE STANDARD TABLE OF string.
cl_gui_frontend_services=>gui_upload(
EXPORTING
filename = p_file
filetype = 'ASC'
CHANGING
data_tab = lt_raw
EXCEPTIONS
OTHERS = 1 ).
IF sy-subrc <> 0.
MESSAGE |Datei { p_file } nicht lesbar, sy-subrc={ sy-subrc }| TYPE 'E'.
ENDIF.
DATA: lt_rule TYPE STANDARD TABLE OF ty_rule,
lt_fields TYPE STANDARD TABLE OF string,
lv_from TYPE string,
lv_to TYPE string,
lv_date TYPE string,
lv_del TYPE string,
lv_wwpfa TYPE string,
lv_gueltab TYPE dats,
lv_skipped TYPE i,
lv_expanded TYPE i,
lv_unsupported TYPE i.
LOOP AT lt_raw INTO DATA(lv_line).
CLEAR: lt_fields, lv_from, lv_to, lv_date, lv_del, lv_wwpfa, lv_gueltab.
SPLIT lv_line AT p_sep INTO TABLE lt_fields.
IF lines( lt_fields ) < 7.
lv_skipped = lv_skipped + 1.
CONTINUE.
ENDIF.
READ TABLE lt_fields INTO lv_from INDEX 1.
READ TABLE lt_fields INTO lv_to INDEX 3.
READ TABLE lt_fields INTO lv_date INDEX 5.
READ TABLE lt_fields INTO lv_del INDEX 6.
READ TABLE lt_fields INTO lv_wwpfa INDEX 7.
CONDENSE: lv_from, lv_to, lv_date, lv_del, lv_wwpfa.
IF lv_from IS INITIAL
OR lv_wwpfa IS INITIAL
OR lv_from CS 'ProdHierarchie'
OR lv_from CS 'Seite'.
lv_skipped = lv_skipped + 1.
CONTINUE.
ENDIF.
IF lv_del = 'X' OR lv_del = 'x'.
lv_skipped = lv_skipped + 1.
CONTINUE.
ENDIF.
IF strlen( lv_date ) = 10
AND lv_date+2(1) = '.'
AND lv_date+5(1) = '.'.
lv_gueltab = |{ lv_date+6(4) }{ lv_date+3(2) }{ lv_date(2) }|.
ENDIF.
IF lv_wwpfa CO '0123456789'
AND strlen( lv_wwpfa ) < 4.
lv_wwpfa = |{ lv_wwpfa ALIGN = RIGHT PAD = '0' WIDTH = 4 }|.
ENDIF.
IF lv_to IS INITIAL.
APPEND VALUE ty_rule(
paph1 = lv_from
wwpfa = lv_wwpfa
gueltab = lv_gueltab ) TO lt_rule.
CONTINUE.
ENDIF.
IF lv_from CO '0123456789'
AND lv_to CO '0123456789'.
DATA(lv_from_i) = CONV i( lv_from ).
DATA(lv_to_i) = CONV i( lv_to ).
DATA(lv_width) = strlen( lv_from ).
IF lv_to_i < lv_from_i.
lv_unsupported = lv_unsupported + 1.
CONTINUE.
ENDIF.
DATA(lv_count) = lv_to_i - lv_from_i + 1.
DO lv_count TIMES.
DATA(lv_num) = lv_from_i + sy-index - 1.
DATA(lv_paph1_num) =
|{ lv_num ALIGN = RIGHT PAD = '0' WIDTH = lv_width }|.
APPEND VALUE ty_rule(
paph1 = lv_paph1_num
wwpfa = lv_wwpfa
gueltab = lv_gueltab ) TO lt_rule.
lv_expanded = lv_expanded + 1.
ENDDO.
CONTINUE.
ENDIF.
" Bekannter alphanumerischer Finance-Bereich: z.B. 09B0 bis 09M4.
IF strlen( lv_from ) = 4
AND strlen( lv_to ) = 4
AND lv_from(2) = lv_to(2).
DATA(lv_alpha) = `0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ`.
DATA(lv_prefix) = lv_from(2).
DO strlen( lv_alpha ) TIMES.
DATA(lv_off3) = sy-index - 1.
DATA(lv_c3) = lv_alpha+lv_off3(1).
DO strlen( lv_alpha ) TIMES.
DATA(lv_off4) = sy-index - 1.
DATA(lv_c4) = lv_alpha+lv_off4(1).
DATA(lv_paph1_alpha) = |{ lv_prefix }{ lv_c3 }{ lv_c4 }|.
IF lv_paph1_alpha >= lv_from
AND lv_paph1_alpha <= lv_to.
APPEND VALUE ty_rule(
paph1 = lv_paph1_alpha
wwpfa = lv_wwpfa
gueltab = lv_gueltab ) TO lt_rule.
lv_expanded = lv_expanded + 1.
ENDIF.
ENDDO.
ENDDO.
ELSE.
lv_unsupported = lv_unsupported + 1.
ENDIF.
ENDLOOP.
SORT lt_rule BY paph1 gueltab DESCENDING.
DELETE ADJACENT DUPLICATES FROM lt_rule COMPARING paph1.
WRITE: / 'CSV-Zeilen gelesen :', lines( lt_raw ).
WRITE: / 'Einzelwerte nach Expansion :', lines( lt_rule ).
WRITE: / 'Expandierte Bereichswerte :', lv_expanded.
WRITE: / 'Uebersprungene Zeilen :', lv_skipped.
WRITE: / 'Nicht expandierbare Bereiche:', lv_unsupported.
ULINE.
IF lt_rule IS INITIAL.
MESSAGE 'Keine gueltigen Regeln gefunden.' TYPE 'E'.
ENDIF.
DATA: lt_fs TYPE STANDARD TABLE OF ty_fs,
ls_fs TYPE ty_fs.
SELECT DISTINCT wwpfa, wwpsp
FROM ce11000
INTO TABLE @DATA(lt_combo)
WHERE wwpfa <> @space
AND wwpsp <> @space.
LOOP AT lt_combo INTO DATA(ls_combo).
READ TABLE lt_fs INTO ls_fs WITH KEY wwpfa = ls_combo-wwpfa.
IF sy-subrc <> 0.
ls_fs-wwpfa = ls_combo-wwpfa.
ls_fs-wwpsp = ls_combo-wwpsp.
ls_fs-cnt = 1.
APPEND ls_fs TO lt_fs.
ELSEIF ls_fs-wwpsp <> ls_combo-wwpsp.
ls_fs-cnt = ls_fs-cnt + 1.
MODIFY lt_fs FROM ls_fs TRANSPORTING cnt
WHERE wwpfa = ls_combo-wwpfa.
ENDIF.
ENDLOOP.
LOOP AT lt_fs INTO ls_fs WHERE cnt > 1.
WRITE: / 'WARNUNG: Familie', ls_fs-wwpfa,
'hat mehrere Sparten in CE11000 - WWPSP bleibt leer.'.
ENDLOOP.
DELETE lt_fs WHERE cnt > 1.
SORT lt_fs BY wwpfa.
DATA: lt_insert TYPE STANDARD TABLE OF zprodsparte_map,
lv_no_fs TYPE i.
LOOP AT lt_rule INTO DATA(ls_rule).
READ TABLE lt_fs INTO ls_fs
WITH KEY wwpfa = ls_rule-wwpfa BINARY SEARCH.
DATA(ls_insert) = VALUE zprodsparte_map(
paph1 = ls_rule-paph1
wwpfa = ls_rule-wwpfa
crdate = sy-datum
cruser = sy-uname ).
IF sy-subrc = 0.
ls_insert-wwpsp = ls_fs-wwpsp.
ELSE.
lv_no_fs = lv_no_fs + 1.
ENDIF.
APPEND ls_insert TO lt_insert.
ENDLOOP.
WRITE: / 'Familien ohne eindeutige Sparte:', lv_no_fs.
ULINE.
WRITE: / '=== Vorschau max. 30 ==='.
WRITE: / 'PAPH1', 10 'WWPFA', 20 'WWPSP'.
ULINE.
DATA lv_i TYPE i.
LOOP AT lt_insert INTO DATA(ls_preview).
lv_i = lv_i + 1.
IF lv_i > 30.
EXIT.
ENDIF.
WRITE: / ls_preview-paph1,
10 ls_preview-wwpfa,
20 ls_preview-wwpsp.
ENDLOOP.
ULINE.
IF p_test = abap_true.
WRITE: / 'TESTLAUF - keine DB-Aenderung.'.
RETURN.
ENDIF.
DELETE FROM zprodsparte_map.
INSERT zprodsparte_map FROM TABLE lt_insert.
IF sy-subrc = 0.
COMMIT WORK.
WRITE: / lines( lt_insert ), 'Einzelwerte in ZPRODSPARTE_MAP geschrieben.'.
ELSE.
ROLLBACK WORK.
WRITE: / 'Fehler beim Schreiben, sy-subrc=', sy-subrc.
ENDIF.