如何在Smartforms中使用Read_Text

2020-08-26 06:23发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)专家们, 我正在开发sma...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家们,

我正在开发smartforms。我的探秘是我需要在smartforms中使用read_text。 我正在打印程序中获取文本,如何在smartform中使用此文本。

请建议我。

这是我的打印程序。

报告zsd_invoice_text。
 参数:p_vbeln TYPE vbrk-vbeln。
 数据:fname TYPE rs38l_fnam。

 数据:i_vbrk发生次数0的起点,
      vbeln类型VBELN_VF,
      i_vbrk的结尾。
 数据:lt_lines tline类型标准表,
       wa_lines TYPE线条。
 数据:ld_text(18)TYPE c。
 * DATA:tdobname TYPE tdobname。
 常量:c_id TYPE thead-tdid值'0002',
                       c_object TYPE thead-tdobject VALUE'VBBK'。
 数据:lv_name TYPE tdobname。

 从vbrk中选择vbeln到表i_vbrk中,其中vbeln eq p_vbeln。

 在i_vbrk循环。

 使用键vbeln = i_vbrk-vbeln读取表i_vbrk。

 结束循环。

  lv_name = i_vbrk-vbeln。

 通话功能" READ_TEXT"
     出口
       id = c_id
       语言= sy-langu
       名称= lv_name
       对象= c_object
 *重要
 *标头= ld_header
     桌子
       行= lt_lines
     例外情况
       id = 1
       语言= 2
       名称= 3
       not_found = 4
       对象= 5。
     如果sy-subrc <> 0。
     其他。
       在lt_lines处环行,在wa_lines中。
         连接ld_text wa_lines-tdline INTO ld_text。
       结局。
     万一。



 通话功能" SSF_FUNCTION_MODULE_NAME"
   出口
     formname ='ZSD_INVOICE_TEXT'
 * VARIANT =''
 * DIRECT_CALL =''
  输入
    fm_name = fname
  例外情况
    no_form = 1
    no_function_module = 2
    其他= 3
           。
 如果sy-subrc <> 0。
   消息ID sy-msgid类型sy-msgty编号sy-msgno
           与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
 万一。

 通话功能fname
   出口
 * ARCHIVE_INDEX =
 * ARCHIVE_INDEX_TAB =
 * ARCHIVE_PARAMETERS =
 * CONTROL_PARAMETERS =
 * MAIL_APPL_OBJ =
 * MAIL_RECIPIENT =
 * MAIL_SENDER =
 * OUTPUT_OPTIONS =
 * USER_SETTINGS ='X'
     p_vbeln = p_vbeln
 *重要
 * DOCUMENT_OUTPUT_INFO =
 * JOB_OUTPUT_INFO =
 * JOB_OUTPUT_OPTIONS =
  例外情况
    formatting_error = 1
    internal_error = 2
    send_error = 3
    user_canceled = 4
    其他= 5
           。
 如果sy-subrc <> 0。
   消息ID sy-msgid类型sy-msgty编号sy-msgno
           与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
 ENDIF。

预先感谢

purnaneelu

编辑:Purnaneelu,2009年6月9日上午7:11