DMEE Exit function module 21 for change the file name in Croatia
(HR_CGI_XML_CT)
Table of Contents
Create DMEE Exit function module 21........................................................................................2
Change Payment Medium Format in OBPM3 .............................................................................3
Create DMEE Exit function module 21
If you want to generate file name with UN.yyyymmdd.nnnn.SCR.xml, create copy of function module
FI_PAYMEDIUM_SAMPLE_21.
1) Start transaction SE37 and from menu select Goto -> Function Groups -> Create Group
2) Create own Function Group, e.g. ZDMEE_CGI_HR
3) Activate the Function Group
4) Return back to transaction SE37 and type in function module FI_PAYMEDIUM_SAMPLE_21
5) Press button Copy [Ctrl+F5] and create Function Module
ZHRFI_PAYMEDIUM_SAMPLE_21 in above created function group
6) Example source code of your new function module (for OP2022 and lower releases):
FUNCTION zhrfi_paymedium_sample_21.
*"--------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(I_FPAYH) LIKE FPAYH STRUCTURE FPAYH
*" VALUE(I_FPAYHX) LIKE FPAYHX STRUCTURE FPAYHX
*" VALUE(I_FORMAT_PARAMS) TYPE FPM_SELPAR-PARAM
*" VALUE(I_FORMAT_PARAMS_C) TYPE FPM_SELPAR-PARAM
*" VALUE(I_FILENAME) LIKE REGUT-FSNAM
*" VALUE(I_XFILESYSTEM) TYPE DFILESYST
*" TABLES
*" T_FILE_OUTPUT STRUCTURE FPM_FILE
*" CHANGING
*" REFERENCE(C_FILENAME) LIKE REGUT-FSNAM
*"--------------------------------------------------------------------
DATA:
lv_identification TYPE string,
lv_source_doc TYPE numc3,
lv_show_oib TYPE c.
CHECK i_fpayh-zbnks EQ 'HR'. " Delete this line for all Company Codes
IF strlen( i_format_params_c ) GE 17.
* We are expecting, that /CCEE/HRFI_HUB3_PARA is used in OBPM3
lv_source_doc = i_format_params_c+14(3).
ELSE.
CLEAR lv_source_doc.
ENDIF. " IF strlen(i_uparam) GE 17.
IF strlen( i_format_params_c ) GE 29. "SHOW_OIB used
* We are expecting, that ZHRFI_CGI_PARA is used in OBPM3
lv_show_oib = i_format_params_c+28(1).
IF lv_show_oib IS NOT INITIAL.
lv_show_oib = 'X'. "Just to make ABAP_TRUE
ENDIF.
ELSE.
CLEAR lv_show_oib.
ENDIF. " IF strlen(i_uparam) GE 29.
CALL METHOD cl_idfi_cgi_dmee_utils=>get_msgid_hr
EXPORTING
im_direction = 'CREDIT' " Direction (Credit/Debit)
im_show_oib = lv_show_oib " Show OIB (show/hide)
im_dot_separated = 'X' " Separate Sections w/ Dots
im_source_doc = lv_source_doc " Source of the Document (300
/701/803/652/530/502/520)
im_date = sy-datum " Field of type DATS
im_bukrs = i_fpayh-zbukr " Company Code
im_use_memory = abap_true " Use Memory to Store
Identification
IMPORTING
ev_identification = lv_identification. " Identification of MsgId/Fil
e Name for Croatia
CONCATENATE lv_identification '.xml' INTO c_filename.
ENDFUNCTION.
Comments:
• Delete line with “CHECK i_fpayh-zbnks EQ 'HR'.” when you want to use this sample code for
all company codes (foreign payments)
• Use parameter “im_use_memory” in method GET_MSG_ID to control creation of new MsgId
same as File Name
• For higher releases then OP2022, use class cl_idfi_utils_cloud instead of
cl_idfi_cgi_dmee_utils
Change Payment Medium Format in OBPM3
Change customer data in Payment Medium Format in each client.
1) Start transaction OBPM3 and find Payment Medium Format HR_CGI_XML_CT:
2) Double-Click on Event Modules and create new line for Event 21 with value
ZHRFI_PAYMEDIUM_SAMPLE_21
