Ansicht
Dokumentation

EXIT_REPDAR_ANALYSE_HEAD_001 - User Exit für Analyse Druckbelegkopf

EXIT_REPDAR_ANALYSE_HEAD_001 - User Exit für Analyse Druckbelegkopf

CPI1466 during Backup   General Data in Customer Master  
Diese Dokumentation steht unter dem Copyright der SAP AG.
SAP E-Book

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_ERDK

Ausnahmen

Funktionsgruppe

XE26A

General 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 )