Function - Yes or No POPUP - WFCS_POPUP_YES_NO

SAP/ABAP 개발 2010. 7. 21. 08:43 Posted by KindKay

*&----------------------------------------------------------------*
*& Report  YRTEST0035
*&
*&----------------------------------------------------------------*
*&
*&
*&----------------------------------------------------------------*

report  yrtest0035.

  type-pools: wfcsr.

  data : lv_text type wfcsr_ui_popup_text.

  lv_text-titlebar = 'title'.
  lv_text-question = 'question'.

  data: gv_answer.

*-----------------------------------------------------------------*
end-of-selection.
*-----------------------------------------------------------------*
  call function 'WFCS_POPUP_YES_NO'
    exporting
      pi_ui_popup_text  = lv_text
    changing
      pe_answer         = gv_answer  "YES: 1 /  NO: 2
    exceptions
      error_using_popup = 1
      others            = 2.

   write: gv_answer.



'SAP > ABAP 개발' 카테고리의 다른 글

cx_root - Division by zero  (1) 2010.07.21
Message Class 조회  (1) 2010.07.21
SAPGUI_PROGRESS_INDICATOR - %  (2) 2010.07.19
PP - BOM Item List Function ( MAST STPO STKO )  (2) 2010.07.16
External Operating System Commands - SM49  (2) 2010.07.09

도시바 신도림테크노마트

2010. 7. 21. 00:02

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

SAPGUI_PROGRESS_INDICATOR - %

SAP/ABAP 개발 2010. 7. 19. 11:48 Posted by KindKay



 *&----------------------------------------------------------------*
*& Report  YRTEST0034
*&
*&----------------------------------------------------------------*
*&
*&
*&----------------------------------------------------------------*

REPORT  YRTEST0034.

  include YRTEST0034top.
  include YRTEST0034f01.



*-----------------------------------------------------------------*
start-of-selection.
*-----------------------------------------------------------------*
  select *
    into corresponding fields of table gt_itab2
    from sflight.

  clear: gt_itab[], gt_itab.

  loop at gt_itab2.
    do 10000 times.
      move-corresponding gt_itab2 to gt_itab.
      append gt_itab.
    enddo.
  endloop.

*-----------------------------------------------------------------*
end-of-selection.
*-----------------------------------------------------------------*
  data: l_total type i.
  describe table gt_itab lines l_total.
  loop at gt_itab.
    l_totcnt  = l_totcnt + 1.
    l_totcnt2 = l_totcnt mod 10.
    if l_totcnt2 = 0.
      g_rate = sy-tabix / l_total * 100.
      perform display_rate.
    endif.
  endloop.

  write: 'End'. 



*&----------------------------------------------------------------*
*&  Include           YRTEST0034F01
*&----------------------------------------------------------------*

*&----------------------------------------------------------------*
*&      Form  DISPLAY_RATE
*&----------------------------------------------------------------*
*       text
*-----------------------------------------------------------------*
form display_rate .

  data: l_text(50).

  concatenate g_rate '%' 'progressing ->' gt_itab-carrid
         into l_text separated by space.

  call function 'SAPGUI_PROGRESS_INDICATOR'  "Progress  Bar
    exporting
      percentage = g_rate
      text       = l_text      "
    exceptions
      others     = 1.

endform.                    " DISPLAY_RATE



'SAP > ABAP 개발' 카테고리의 다른 글

Message Class 조회  (1) 2010.07.21
Function - Yes or No POPUP - WFCS_POPUP_YES_NO  (2) 2010.07.21
PP - BOM Item List Function ( MAST STPO STKO )  (2) 2010.07.16
External Operating System Commands - SM49  (2) 2010.07.09
SHD0 - Transaction and Screen Variants  (1) 2010.06.30
 

티스토리툴바