Прошу прощения проверки нет.
METHOD if_ex_badi_dmeeconvert~process_input_dme.
DATA : wa_parametrs TYPE rsparams.
DATA : wa_select_fields TYPE rsparams.
DATA : l_filename TYPE string.
DATA : l_separ(1).
DATA : BEGIN OF m_ch
, lenght TYPE i
, content TYPE string
* , content(10000) TYPE c
, END OF m_ch.
DATA : BEGIN OF wa_fields
, field_nm(50) TYPE c
, field_ct TYPE string
* , field_ct(10000) TYPE c
, END OF wa_fields.
DATA : wa_m_ch LIKE m_ch.
DATA : it_m_ch LIKE TABLE OF m_ch.
DATA l_len TYPE i.
*1. Определяем имя форматного дерева
READ TABLE im_it_selection_fields INTO wa_parametrs
WITH KEY selname = 'P_TR_ID' .
READ TABLE im_it_selection_fields INTO wa_select_fields INDEX 1.
l_filename = wa_select_fields-low.
*2. Подключаем обработку входящего файла для каждого форматного дерева
CASE wa_parametrs-low.
* ====================================================================
* Для формата 1С (1.1) банков: ПКБ.
* ====================================================================
WHEN 'Z_MCSH_LCNP_PKB' OR 'Z_MCSH_LCNP_CB' OR 'Z_MCSH_LCNP_VZ'.
l_separ = '='.
LOOP AT ch_it_init INTO wa_m_ch.
* IF wa_m_ch-content(1) <> ''.
* Разбираем каждую строку и переводим идентификатор(текст до знака '=') в верхний регистр. Иначе форматное дерево не поймет идентификатор
SPLIT wa_m_ch-content AT l_separ INTO wa_fields-field_nm wa_fields-field_ct.
TRANSLATE wa_fields-field_nm TO UPPER CASE.
* Проверяем каждое поле. Если поле содержит дату в вормате ДД.ММ.ГГГГ, если дата в таком формате, то переводим ее в формат ДД.ММ.ГГ
* поскольку встроенные функции преобразования для типа дерва MCSH пока не работают
l_len = strlen( wa_fields-field_ct ).
IF l_len >= 10.
IF wa_fields-field_ct+2(1) = '.' AND wa_fields-field_ct+5(3) = '.20'.
CONCATENATE wa_fields-field_ct(6) wa_fields-field_ct+8(2)
INTO wa_fields-field_ct.
ENDIF.
ENDIF.
* Заменяем символ ';' на ','
REPLACE ALL OCCURRENCES OF ';' IN wa_fields-field_ct WITH ',' .
CONCATENATE wa_fields-field_nm l_separ wa_fields-field_ct
INTO wa_m_ch-content.
APPEND wa_m_ch TO it_m_ch.
* ENDIF.
ENDLOOP.
REFRESH ch_it_init.
ch_it_init[] = it_m_ch[].
ENDCASE.
ENDMETHOD.