Ansicht
Dokumentation
EXIT_REPDAR_ANALYSE_HEAD_001 - User Exit für Analyse Druckbelegkopf
CPI1466 during Backup General Data in Customer MasterDiese Dokumentation steht unter dem Copyright der SAP AG.
Funktionalität
Mit diesem User-Exit haben Sie die Möglichkeit, eigene Routinen zur Überprüfung der Archivierbarkeit von Druckbelegköpfen zu hinterlegen.
Hierzu stehen Ihnen in der Tabelle XYT_ERDK die Kopfdaten der Druckbelege zur Verfügung, die von dem Report REPDAR_ANALYSE_HEAD als archivierbar angesehen werden (Verweildauer abgelaufen, Zeilen bereits archiviert, ....).
Wenn Sie aufgrund Ihrer eigenen Prüfungen Druckbelege von der Archivierung ausschließen möchten, löschen Sie den entsprechenden Eintrag aus der Tabelle XYT_ERDK.
Beispiel
Im Customizing ist eine Verweildauer für die Druckbelegköpfe von 300 Tagen definiert. Für bestimmte Vertragskonten, die in einer kundeneigenen Tabelle (Z_PRDOCH_VKONT) hinterlegt sind, soll die Verweildauer jedoch bei 600 Tagen, bezogen auf das Erstellungsdatum liegen:
*.. Datendefinition
TABLES: z_prdoch_vkont.
DATA: v_sy_date LIKE sy-datum,
v_comp_date LIKE sy-datum,
v_unit_day LIKE t006-msehi,
wa_prdoch_vkont LIKE z_prdoch_vkont,
wa_erdk like erdk,
i_prdoch_vkont LIKE z_prdoch_vkont occurs 0.
*.. Ermitteln der im System eingestellten SI Einheit für Tag
CALL FUNCTION 'TIME_UNITS'
IMPORTING
day = v_unit_day
EXCEPTIONS
si_unit_missing = 1
others = 2.
*.. Berechnen des Vergleichsdatums
v_sy_date = sy-datum.
CALL FUNCTION 'START_TIME_DETERMINE'
EXPORTING
duration = '600'
unit = v_unit_day
IMPORTING
start_date = v_comp_date
CHANGING
end_date = v_sy_date
EXCEPTIONS
others = 1.
*.. Ermittlung der Vertragskonten, für die die längere Verweildauer
*.. gelten soll
SELECT * INTO TABLE i_prdoch_vkont FROM z_prdoch_vkont.
*.. Überprüfung der Druckbelegköpfe auf Archivierbarkeit
LOOP AT xyt_erdk INTO wa_erdk.
READ TABLE i_prdoch_vkont INTO wa_prdoch_vkont
WITH KEY vkont = wa_erdk-vkont.
IF sy-subrc = 0.
*... Vertragskonto existiert in Ausnahmetabelle; prüfen ob verlängerte
*... Verweildauer ebenfalls abgelaufen ist
IF wa_erdk-erdat > v_comp_date.
*.... Verweildauer ist noch nicht abgelaufen; Druckbelegkopf darf noch
*.... nicht archiviert werden
DELETE xyt_erdk.
ENDIF. "IF wa_erdk-erdat > v_comp_date
ENDIF. "IF sy-subrc = 0
ENDLOOP. "LOOP AT xyt_erdk INTO wa_erdk
Hinweise
Ihr eigenes Coding hinterlegen Sie in der Include Datei ZXE26AU02.
Weiterführende Informationen
#################################
Parameter
XYT_ERDKAusnahmen
Funktionsgruppe
XE26AGeneral Data in Customer Master SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up
Diese Dokumentation steht unter dem Copyright der SAP AG.
Length: 4682 Date: 20240523 Time: 115654 sap01-206 ( 36 ms )