Доброе время суток.
Пытаюсь сделать справочник значений (по F4) для самопального критерия выбора в инфонаборе. Использую F4IF_INT_TABLE_VALUE_REQUEST. Передаю внутреннюю табличку вида
Ключ/Описание со значениями типа "I/Инфозапись".
Всё хорошо, но при выводе получаю "I/IИнфозапись", т.е. код выводится в первый столбец, но при этом ещё и прилепляется к описанию.
Подскажите, кто что может
Спасибо.
Дата:
Code:
Data:
dummy Type c.
Select-Options:
s_doc For dummy.
Data:
Begin Of wa_dict Occurs 0,
value Type c,
descr(60) Type c,
End Of wa_dict,
h_field_wa Like dfies,
h_field_tab Like dfies Occurs 0 With Header Line.
Свободная кодировка:
Code:
At Selection-Screen On Value-Request For s_doc-low.
Perform s_doc_f4.
At Selection-Screen On Value-Request For s_doc-high.
Perform s_doc_f4.
**********************************************************
" Вызов списка значений для вида документов.
Form s_doc_f4.
"break mazarubin.
Refresh:
wa_dict,
h_field_tab.
Perform fillHeader.
Perform fillDict.
Call Function 'F4IF_INT_TABLE_VALUE_REQUEST'
Exporting
retfield = 'VALUE'
dynpprog = sy-repid
window_title = 'Тип документа'
dynpnr = sy-dynnr
display = 'F'
dynprofield = 'S_DOC'
value_org = 'S'
Tables
value_tab = wa_dict
field_tab = h_field_tab
Exceptions
parameter_error = 1
no_values_found = 2
others = 3.
EndForm. " s_doc_f4
**********************************************************
" Заполнение шляпоты справочника
Form fillHeader.
h_field_tab-fieldname = 'VALUE'.
h_field_tab-intlen = 1.
h_field_tab-outputlen = 1.
h_field_tab-datatype = 'CHAR'.
h_field_tab-inttype = 'C'.
h_field_tab-fieldtext = 'Обобщённый тип документа'.
h_field_tab-reptext = 'ТипДок'.
h_field_tab-scrtext_s = 'ТД'.
h_field_tab-scrtext_m = 'ТипДок'.
h_field_tab-scrtext_l = 'Тип документа'.
h_field_tab-keyflag = 'X'.
Append h_field_tab.
h_field_tab-fieldname = 'DESCR'.
h_field_tab-intlen = 60.
h_field_tab-outputlen = 40.
h_field_tab-datatype = 'CHAR'.
h_field_tab-inttype = 'C'.
h_field_tab-fieldtext = 'Наименование'.
h_field_tab-reptext = 'Наим'.
h_field_tab-scrtext_s = 'Наим'.
h_field_tab-scrtext_m = 'Наим'.
h_field_tab-scrtext_l = 'Наименование'.
h_field_tab-keyflag = Space.
Append h_field_tab.
Endform. " fillHeader
**********************************************************
" Заполнение справочника
Form fillDict.
wa_dict-value = 'O'.
wa_dict-descr = 'Заказы на поставку'.
Append wa_dict.
wa_dict-value = 'T'.
wa_dict-descr = 'Заказы ТОРО'.
Append wa_dict.
wa_dict-value = 'R'.
wa_dict-descr = 'Заявки'.
Append wa_dict.
wa_dict-value = 'P'.
wa_dict-descr = 'Техкарты и спецификации'.
Append wa_dict.
wa_dict-value = 'S'.
wa_dict-descr = 'Документы сбыта'.
Append wa_dict.
wa_dict-value = 'I'.
wa_dict-descr = 'Инфозаписи'.
Append wa_dict.
Sort wa_dict By value Ascending.
EndForm. " fillDict
Вход
Регистрация
FAQ пользователя
Поиск
