Ansicht
Dokumentation

CBIH_LB14_UETEMPL_IATYPE_CHECK - EHS: User-Exit zur Prüfung der Art des UnfallkatEintrags

CL_GUI_FRONTEND_SERVICES - Frontend Services   SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Funktionalität

Dieser Funktionsbaustein dient als Vorlage für Prüffunktionen, die Sie für die Art des Unfallkatastereintrags definieren können.

Außerdem steht Ihnen der Funktionsbaustein als Referenzfunktionsbaustein für die Definition der Schnittstelle des User-Exit-Typs IAL_TYPCHK zur Verfügung.

Beispiel

Im folgenden Beispiel wird die Konsistenz der Art des Unfallkatastereintrags anhand der Anzahl der betroffenen Personen untersucht. Die im Beispiel verwendeten Werte für die Art des Unfallkatastereintrags sind im Customizing der Standardauslieferung voreingestellt.

*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_IATYPE) LIKE CCIHT_IAL-IATYPE
*" VALUE(I_IAL_RECN) LIKE CCIHT_IAL-RECN
*" VALUE(I_ADDINF) LIKE RCGADDINF STRUCTURE RCGADDINF
*" EXPORTING
*" VALUE(E_FLG_OK) TYPE ESP1_BOOLEAN
*" VALUE(E_ERROR_MESSAGE)
*" TABLES
*" I_INVPERS_TAB STRUCTURE CCIHS_IPIOT OPTIONAL
*" EXCEPTIONS
*" INTERNAL_ERROR
*"----------------------------------------------------------------------
* ----------------------------------------------------------------------
* Local data
* ----------------------------------------------------------------------
* working table
DATA: L_INVPERS_IOTAB LIKE CCIHS_IPIOT OCCURS 10 WITH HEADER LINE.
DATA: L_COUNT LIKE SY-TABIX VALUE 0.

* ----------------------------------------------------------------------
* Function body
* ----------------------------------------------------------------------
* init export parameters
E_FLG_OK = ESP1_TRUE.
CLEAR E_ERROR_MESSAGE.

* ----------------------------------------------------------
* STEP 1: prepare involved person table (recommended to be copied)
* ----------------------------------------------------------
REFRESH L_INVPERS_IOTAB.

IF ( I_INVPERS_TAB[] IS INITIAL ).

* read involved person data from buffer
CALL FUNCTION 'CBIH_LB14_IAL_SREAD'
EXPORTING
I_RECN = I_IAL_RECN
I_ACTYPE = IC_ACTYPE-SHOW
I_ADDINF = I_ADDINF
* I_FLG_AUTHORITY_CHECK = ESP1_FALSE
* I_FLG_WITH_LOCK = ESP1_FALSE
I_FLG_WITH_MESSAGE = TRUE
I_FLG_IP = ESP1_TRUE
TABLES
E_IP_IOTAB = L_INVPERS_IOTAB
EXCEPTIONS
PARAMETER_ERROR = 1
IAL_NOT_FOUND = 2
NO_AUTHORITY = 3
OTHERS = 4.

IF ( SY-SUBRC NE 0 ).
RAISE INTERNAL_ERROR.
ENDIF.

ELSE.
* use data of imported table
L_INVPERS_IOTAB[] = I_INVPERS_TAB[].

ENDIF. " i_invpers_tab[] is initial


* ----------------------------------
* STEP 2: check IAL type (example)
* ----------------------------------
* determine number of injured persons
L_COUNT = 0.
LOOP AT L_INVPERS_IOTAB WHERE ( IPTYPE = CIH04_IPTYPE-INJURED ).
L_COUNT = L_COUNT + 1.
ENDLOOP.

CASE I_IATYPE.

WHEN 'OPE'.
IF ( L_COUNT NE 1 ).
E_FLG_OK = FALSE.
ENDIF.

WHEN 'MPE'.
IF ( L_COUNT < 2 ).
E_FLG_OK = FALSE.
ENDIF.

WHEN 'NPE'.
IF ( L_COUNT > 0 ).
E_FLG_OK = FALSE.
ENDIF.

WHEN OTHERS.
E_FLG_OK = TRUE.

ENDCASE. " i_iatype

Hinweise

Im Customizing des Arbeitsschutzes können Sie in der Aktivität Arten von Unfallkatastereinträgen festlegen zu jeder Art von Unfallkatastereintrag einen User-Exit-Namen angeben. Diesen User-Exit-Namen müssen Sie zuvor im Customizing der Grunddaten und Werkzeuge unter User-Exits verwalten angelegt und einem Funktionsbaustein zugeordnet haben.

Wenn Sie eine eigene Prüffunktion schreiben, muß diese in der Schnittstelle mit dem Referenzfunktionsbaustein übereinstimmen.

Parameter

E_ERROR_MESSAGE
E_FLG_OK
I_ADDINF
I_IAL_RECN
I_IATYPE
I_INVPERS_TAB

Ausnahmen

INTERNAL_ERROR

Funktionsgruppe

CBIH_LB14

BAL Application Log Documentation   ROGBILLS - Synchronize billing plans  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 5073 Date: 20240523 Time: 183405     sap01-206 ( 61 ms )