SAP SMARTFORMS 打印表换行

最新推荐文章于 2024-05-29 10:52:59 发布

乐乐8234

最新推荐文章于 2024-05-29 10:52:59 发布

阅读量933

点赞数 22

文章标签： abap

本文链接：https://blog.csdn.net/u010398600/article/details/135474101

版权

本文详细描述了在ABAP编程中如何使用SMARTFORMS和cl_abap_char_utilities函数进行表单数据的自动换行处理，涉及数据的分割、合并和格式化操作。

摘要由CSDN通过智能技术生成

表单打印自动换行，值的拼接 cl_abap_char_utilities=>cr_lf
SMARTFORMS 设置

程序传值处理
  TYPES: BEGIN OF ty_c,
           zm_zd TYPE char25,
         END OF ty_c.
  DATA: lt_ty1 TYPE TABLE OF ty_c,
        lt_ty2 TYPE TABLE OF ty_c,
        ls_ty LIKE LINE OF lt_ty1.
  DATA: lv_delimiter1(1) VALUE ';',
        lv_delimiter2(1) VALUE ','.
* 编辑表单数据
  DATA: lw_ztcrm070  TYPE ztcrm070,
        lt_ztcrm071  TYPE TABLE OF ztcrm071,
        lw_ztcrm071  TYPE ztcrm071.
  MOVE-CORRESPONDING ls_node_header TO lw_ztcrm070.
  LOOP AT lt_search_result_items INTO ls_search_result_items.
    MOVE-CORRESPONDING ls_search_result_items TO lw_ztcrm071.

    CLEAR:lt_ty1[],lt_ty2[].
    IF lv_delimiter1 CA lw_ztcrm071-zfresult .
      SPLIT lw_ztcrm071-zfresult AT lv_delimiter1 INTO TABLE lt_ty1.
    ENDIF.
    IF lv_delimiter2 CA lw_ztcrm071-standard .
      SPLIT lw_ztcrm071-standard AT lv_delimiter2 INTO TABLE lt_ty2.
    ENDIF.
    LOOP AT lt_ty1 INTO ls_ty.
      IF sy-tabix EQ '1' AND ls_ty-zm_zd IS NOT INITIAL.
        lw_ztcrm071-zfresult = sy-tabix && ':' && ls_ty-zm_zd.
      ELSEIF sy-tabix NE '1' AND ls_ty-zm_zd IS NOT INITIAL..
        lw_ztcrm071-zfresult = lw_ztcrm071-zfresult && cl_abap_char_utilities=>cr_lf && sy-tabix && ':' && ls_ty-zm_zd.
      ENDIF.
    ENDLOOP.
    LOOP AT lt_ty2 INTO ls_ty.
      IF sy-tabix EQ '1' AND ls_ty-zm_zd IS NOT INITIAL.
        lw_ztcrm071-standard = ls_ty-zm_zd.
      ELSEIF sy-tabix NE '1' AND ls_ty-zm_zd IS NOT INITIAL..
        lw_ztcrm071-standard = lw_ztcrm071-standard && cl_abap_char_utilities=>cr_lf && ls_ty-zm_zd.
      ENDIF.
    ENDLOOP.
    "ENDIF.
    lw_ztcrm070-production_date = lw_ztcrm070-charg+2(8).
    APPEND lw_ztcrm071 TO lt_ztcrm071.
  ENDLOOP.
SMARTFORMS 代码处理
DATA:
lt_stram_lines TYPE STANDARD TABLE OF string,
ls_string TYPE string,
lt_text TYPE tlinet.

CLEAR g_chargpid.

ls_string = wa_items-zfresult.
APPEND ls_string TO lt_stram_lines.

CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'
EXPORTING
stream_lines = lt_stram_lines
lf = 'X'
TABLES
itf_text = g_chargpid.