ABAP 自定义搜索帮助 demo2
PARAMETERS: p_spmon TYPE s031-spmon OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM frm_spmon_f4.
FORM frm_spmon_f4 .
DATA: lt_dynpfields LIKE STANDARD TABLE OF dynpread,
ls_dynpfields LIKE dynpread.
DATA: lv_returncode LIKE sy-subrc,
lv_monat LIKE isellist-month,
lv_repid LIKE sy-repid.
GET CURSOR FIELD ls_dynpfields-fieldname.
APPEND ls_dynpfields TO lt_dynpfields.
lv_repid = sy-repid.
DO 2 TIMES.
CALL FUNCTION ‘DYNP_VALUES_READ’
EXPORTING
dyname = lv_repid
dynumb = sy-dynnr
TABLES
dynpfields = lt_dynpfields
EXCEPTIONS
invalid_abapworkarea = 01
invalid_dynprofield = 02
invalid_dynproname = 03
invalid_dynpronummer = 04
invalid_request = 05
no_fielddescription = 06
undefind_error = 07.
IF sy-subrc = 3.
lv_repid = ‘SAPLALDB’.
ELSE.
READ TABLE lt_dynpfields INTO ls_dynpfields INDEX 1.
TRANSLATE ls_dynpfields-fieldvalue USING '_ '.
EXIT.
ENDIF.
ENDDO.
IF sy-subrc = 0.
CALL FUNCTION ‘CONVERSION_EXIT_PERI_INPUT’
EXPORTING
input = ls_dynpfields-fieldvalue
IMPORTING
output = lv_monat
EXCEPTIONS
error_message = 1.
IF lv_monat IS INITIAL.
lv_monat = sy-datlo(6).
ENDIF.
CALL FUNCTION ‘POPUP_TO_SELECT_MONTH’
EXPORTING
actual_month = lv_monat
IMPORTING
selected_month = lv_monat
return_code = lv_returncode
EXCEPTIONS
factory_calendar_not_found = 01
holiday_calendar_not_found = 02
month_not_found = 03.
IF sy-subrc = 0 AND lv_returncode = 0.
CALL FUNCTION ‘CONVERSION_EXIT_PERI_OUTPUT’
EXPORTING
input = lv_monat
IMPORTING
output = ls_dynpfields-fieldvalue.
COLLECT ls_dynpfields INTO lt_dynpfields.
CALL FUNCTION ‘DYNP_VALUES_UPDATE’
EXPORTING
dyname = lv_repid
dynumb = sy-dynnr
TABLES
dynpfields = lt_dynpfields
EXCEPTIONS
invalid_abapworkarea = 01
invalid_dynprofield = 02
invalid_dynproname = 03
invalid_dynpronummer = 04
invalid_request = 05
no_fielddescription = 06
undefind_error = 07.
ENDIF.
ENDIF.
ENDFORM.