ABAP实例：如何生成年月的输入帮助

  在ABAP的设计过程中经常会出现账务期输入,格式为年月。如果我们使用spmon元素为参考,但是系统无输入帮助,用户常常出错，为了避免输入错误。我们可以自定义输入帮助,步骤如下:

    1、定义选择变量
 

parameter p_spmon  type spmon  default  sy - datum + 0 ( 6 ) obligatory.
    select - options s_spmon  for  s031 - spmon  default  sy - datum + 0 ( 6 ) obligatory.

    

    2、定义帮助子过程

form  monat_f4.
      data: begin of mf_dynpfields occurs  1 .
              include structure dynpread.
      data: end   of mf_dynpfields.
      data: mf_returncode   like sy - subrc,
            mf_monat        like isellist - month,
            mf_hlp_repid    like sy - repid.
      field - symbols:  < mf_feld > .

      get cursor field mf_dynpfields - fieldname.
      append mf_dynpfields.
      mf_hlp_repid  =  sy - repid.
       do   2  times.
        call function  ' DYNP_VALUES_READ '
             exporting
                  dyname                =  mf_hlp_repid
                  dynumb                =  sy - dynnr
             tables
                  dynpfields            =  mf_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 .
          mf_hlp_repid  =   ' SAPLALDB ' .
         else .
          read table mf_dynpfields index  1 .
          translate mf_dynpfields - fieldvalue using  ' _  ' .
          exit.
        endif.
      enddo.
       if  sy - subrc  =   0 .
        call function  ' CONVERSION_EXIT_PERI_INPUT '
             exporting
                  input   =  mf_dynpfields - fieldvalue
             importing
                  output  =  mf_monat
             exceptions
                  error_message  =   1 .
         if  mf_monat is initial.
          mf_monat  =  sy - datlo( 6 ).
        endif.
        call function  ' POPUP_TO_SELECT_MONTH '
             exporting
                  actual_month                =  mf_monat
             importing
                  selected_month              =  mf_monat
                  return_code                 =  mf_returncode
             exceptions
                  factory_calendar_not_found  =   01
                  holiday_calendar_not_found  =   02
                  month_not_found             =   03 .
         if  sy - subrc  =   0  and mf_returncode  =   0 .
          call function  ' CONVERSION_EXIT_PERI_OUTPUT '
               exporting
                    input   =   mf_monat
               importing
                    output  =   mf_dynpfields - fieldvalue.
          collect mf_dynpfields.
          call function  ' DYNP_VALUES_UPDATE '
               exporting
                    dyname                =  mf_hlp_repid
                    dynumb                =  sy - dynnr
             tables
                    dynpfields            =  mf_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.                                " MONAT_F4

    

    3、定义输入帮助事件   

at selection - screen on value - request  for  p_spmon.
      perform monat_f4.
    at selection - screen on value - request  for  s_spmon - low.
      perform monat_f4.
    at selection - screen on value - request  for  s_spmon - high.
      perform monat_f4.