메뉴 건너뛰기

SAP 한국 커뮤니티

MODULE f4_drum_s101 INPUT. 2

sapjoy 2006.12.26 18:29 조회 수 : 2375

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
번호 제목 글쓴이 날짜 조회 수
630 REPORT Z09_005 sapjoy 2006.12.18 2514
629 REPORT Z09_006 [1] sapjoy 2006.12.18 2839
628 DBZF1SSEL sapjoy 2006.12.19 2842
627 REPORT Z09_010 sapjoy 2006.12.19 2523
626 PUT_SPFLI PUT_SFLIGHT PUT_SBOOK sapjoy 2006.12.19 2614
625 REPORT Z11_001 sapjoy 2006.12.20 2977
624 REPORT z11_004 . sapjoy 2006.12.22 2465
623 REPORT Z11_005 sapjoy 2006.12.22 2273
622 REPORT Z11_008 sapjoy 2006.12.22 2496
621 REPORT Z11_010 sapjoy 2006.12.22 2358
620 module f4_drum_S101 input. sapjoy 2006.12.26 2541
» MODULE f4_drum_s101 INPUT. 2 sapjoy 2006.12.26 2375
618 REPORT z12_002 sapjoy 2006.12.28 2629
617 REPORT Z13_002 sapjoy 2007.01.03 2309
616 REPORT Z12_004 sapjoy 2007.01.03 2256
615 FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. sapjoy 2007.01.03 2875
614 REPORT Z13_003 sapjoy 2007.01.05 2437
613 REPORT Z13_001 sapjoy 2007.01.08 2362
612 REPORT Z13_012 sapjoy 2007.01.08 2282
611 REPORT Z13_013 sapjoy 2007.01.08 2634