MODULE f4_drum_s101 INPUT.
DATA: l_form TYPE sy-xform
VALUE 'F4_PRUEFLOS_CALLBACK_FORM',
l_fname like dynpread-fieldname.
DATA: lt_return TYPE STANDARD TABLE OF ddshretval with header line,
scr_field LIKE dynpread OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'ZQMT0107'
fieldname = 'DRUM'
* searchhelp = 'ZQM_DRUM'
* shlpparam = 'DRUM'
dynpprog = sy-repid
dynpnr = sy-dynnr
* dynprofield = 'S_101-DRUM'
callback_program = sy-repid
callback_form = l_form
TABLES
return_tab = lt_return[]
EXCEPTIONS
OTHERS = 99.
IF NOT sy-subrc IS INITIAL.
ENDIF.
REFRESH: scr_field.
LOOP AT lt_return.
concatenate 'S_101-' lt_return-fieldname INTO l_fname.
scr_field-fieldname = l_fname.
scr_field-fieldvalue = lt_return-fieldval.
APPEND scr_field.
ENDLOOP.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = scr_field.
.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE. " f4_drum_S101 INPUT
DATA: l_form TYPE sy-xform
VALUE 'F4_PRUEFLOS_CALLBACK_FORM',
l_fname like dynpread-fieldname.
DATA: lt_return TYPE STANDARD TABLE OF ddshretval with header line,
scr_field LIKE dynpread OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'ZQMT0107'
fieldname = 'DRUM'
* searchhelp = 'ZQM_DRUM'
* shlpparam = 'DRUM'
dynpprog = sy-repid
dynpnr = sy-dynnr
* dynprofield = 'S_101-DRUM'
callback_program = sy-repid
callback_form = l_form
TABLES
return_tab = lt_return[]
EXCEPTIONS
OTHERS = 99.
IF NOT sy-subrc IS INITIAL.
ENDIF.
REFRESH: scr_field.
LOOP AT lt_return.
concatenate 'S_101-' lt_return-fieldname INTO l_fname.
scr_field-fieldname = l_fname.
scr_field-fieldvalue = lt_return-fieldval.
APPEND scr_field.
ENDLOOP.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = scr_field.
.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE. " f4_drum_S101 INPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
70 | REPORT Z15_003 | sapjoy | 2007.01.25 | 2198 |
69 | REPORT Z15_007 | eabap | 2007.01.23 | 2678 |
68 | REPORT Z15_006 [2] | sapjoy | 2007.01.23 | 2408 |
67 | REPORT Z15_004 | sapjoy | 2007.01.23 | 2385 |
66 | REPORT Z14_012 | sapjoy | 2007.01.22 | 2203 |
65 | REPORT Z14_011 | sapjoy | 2007.01.22 | 2580 |
64 | REPORT z14_010 | sapjoy | 2007.01.22 | 2261 |
63 | REPORT z14_007 | sapjoy | 2007.01.22 | 2147 |
62 | REPORT z14_006 | sapjoy | 2007.01.22 | 2219 |
61 | REPORT Z14_005 | sapjoy | 2007.01.22 | 2268 |
60 | REPORT Z13_013 | sapjoy | 2007.01.08 | 2634 |
59 | REPORT Z13_012 | sapjoy | 2007.01.08 | 2282 |
58 | REPORT Z13_001 | sapjoy | 2007.01.08 | 2362 |
57 | REPORT Z13_003 | sapjoy | 2007.01.05 | 2437 |
56 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
55 | REPORT Z12_004 | sapjoy | 2007.01.03 | 2256 |
54 | REPORT Z13_002 | sapjoy | 2007.01.03 | 2309 |
53 | REPORT z12_002 | sapjoy | 2006.12.28 | 2629 |
» | MODULE f4_drum_s101 INPUT. 2 | sapjoy | 2006.12.26 | 2375 |
51 | module f4_drum_S101 input. | sapjoy | 2006.12.26 | 2541 |