点击此处--->   群内免费提供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