维护 订单 交货单 各种 文本 标准功能

Posted 2020-11-10 ferzalez

      "New long text

      CONCATENATE is_logistics_info-dymb   "打印模板编码
                  is_logistics_info-dymb_t "打印模板名称
                  is_logistics_info-sjmc   "商家名称
                  is_logistics_info-cnckmc "菜鸟仓库名称
                  is_logistics_info-shdz   "收货地址（省-市-区-县-详细地址）
                  is_logistics_info-shrxm  "菜鸟仓收货人姓名
                  is_logistics_info-shrdh  "菜鸟仓收货人电话
                  is_logistics_info-rkdh   "入库单号（即预约单号）
                  is_logistics_info-yysj   "预约时间（到天）
                  is_logistics_info-odlxr  "O店联系人（用以送货联系）
                  is_logistics_info-odlxfs "O店联系方式

             INTO lv_ltext SEPARATED BY ‘|||‘.

      CONCATENATE  ‘|||‘ lv_ltext  ‘|||‘ INTO lv_ltext.
      "Split long text by l32 char
      CALL FUNCTION ‘CONVERT_STRING_TO_TABLE‘
        EXPORTING
          i_string         = lv_ltext
          i_tabline_length = ‘132‘
        TABLES
          et_table         = lt_longtext.

      "Combine long text: Append new long text
      LOOP AT lt_longtext INTO ls_longtext.
        CLEAR ls_tline.
        ls_tline-tdformat = ‘*‘.
        ls_tline-tdline = ls_longtext.
        APPEND ls_tline TO lt_tline.
      ENDLOOP.

      ls_thead-tdid     = ‘Z099‘.
      ls_thead-tdspras  = ‘1‘.
      ls_thead-tdname   = l_vbeln.
      ls_thead-tdobject = ‘VBBK‘.
      "Create text
      CALL FUNCTION ‘CREATE_TEXT‘
        EXPORTING
          fid       = ls_thead-tdid
          flanguage = ls_thead-tdspras
          fname     = ls_thead-tdname
          fobject   = ls_thead-tdobject
        TABLES
          flines    = lt_tline.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.