ITPub博客

首页 > Linux操作系统 > Linux操作系统 > BDC message

BDC message

原创 Linux操作系统 作者:paulinepang 时间:2013-03-12 14:21:29 0 删除 编辑
  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; }   loop at mess.
    select single text into text from t100 where arbgb = mess-msgid
                                             and msgnr = mess-msgnr
                                             and sprsl = sy-langu.
    cnt_times = 1.
    do 4 times.
      clear len.
      case cnt_times.
        when 1.
          len = strlen( mess-msgv1 ).
          if len <> 0.
            replace '&' with mess-msgv1(len)
                                into text.
          endif.
        when 2.
          len = strlen( mess-msgv2 ).
          if len <> 0.
            replace '&' with mess-msgv2(len)
                                into text length len.
          endif.
        when 3.
          len = strlen( mess-msgv3 ).
          if len <> 0.
            replace '&' with mess-msgv3(len)
                                into text length len.
          endif.
        when 4.
          len = strlen( mess-msgv4 ).
          if len <> 0.
            replace '&' with mess-msgv4(len)
                                into text length len.
          endif.
      endcase.
      cnt_times = cnt_times + 1.
    enddo.
    if mess-msgtyp = 'E' or mess-msgtyp = 'S'.
      message-msgty = mess-msgtyp.
      message-msgtx = text.
      append message.clear message.
    endif.
    clear:mess,text.
  endloop.

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/26856671/viewspace-755837/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2013-02-18

  • 博文量
    9
  • 访问量
    1793