Ansicht
Dokumentation

EXIT_RELARCH_ANALYSE_EABL_001 - User Exit für Analyse Ableseergebnisse

Fill RESBD Structure from EBP Component Structure   Addresses (Business Address Services)  
Diese 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 Druckbelegzeilen zu hinterlegen.

Hierzu stehen Ihnen in der Tabelle XYT_ERDK die Kopfdaten der Druckbelege zur Verfügung, deren Zeilen von dem Report REPDAR_ANALYSE_LINES als archivierbar angesehen werden (Verweildauer abgelaufen, Beleg gedruckt, ....).

Wenn Sie aufgrund Ihrer eigenen Prüfungen Druckbelegzeilen 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 Druckbelegzeilen von 90 Tagen definiert. Für bestimmte Vertragskonten, die in einer kundeneigenen Tabelle (Z_PRDOCL_VKONT) hinterlegt sind, soll die Verweildauer jedoch bei 180 Tagen, bezogen auf das Erstellungsdatum liegen:

*.. Datendefinition
  TABLES: z_prdocl_vkont.

  DATA: v_sy_date       LIKE sy-datum,
        v_comp_date     LIKE sy-datum,
        v_unit_day      LIKE t006-msehi,
        wa_prdocl_vkont LIKE z_prdocl_vkont,
        wa_erdk         like erdk,
        i_prdocl_vkont  LIKE z_prdocl_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   = '90'
      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_prdocl_vkont FROM z_prdocl_vkont.

*.. Überprüfung der Druckbelegköpfe auf Archivierbarkeit
  LOOP AT xyt_erdk INTO wa_erdk.
    READ TABLE i_prdocl_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; Druckbelegzeilen dürfen
*.... 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 ZXE26AU01.##########

Parameter

STOP_DATE

Ausnahmen

Funktionsgruppe

XE26A

Fill RESBD Structure from EBP Component Structure   General Data in Customer Master  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 4584 Date: 20240523 Time: 100630     sap01-206 ( 34 ms )