Abobe Interactive Form Practice – 2

开始我们的第二个比较具体的例子, 在本例中,我们将对练习1中的接口进行扩展, 添加销售订单行项目表, 以及两个地址信息, 本次练习主要针对数量, 日期,地址等特殊类型做些详细的说明. 而本次练习的Logo将不用静态logo, 转为传输的参数.本例不会涉及多个SO, 只拿单个SO进行打印, 废话不多说, 让我们开始吧.

要求打印的格式如下:

1. 接口设计:

因为还是引用上个例子中的接口, 显然在本例中我们需要加些东西. 比如销售订单的明细, 地址信息等.

为了能够更多的用到接口中的功能, 我定义了几个类型, 以及全局变量, 并且也使用了初始化代码以及子程序, 如下图:

全局变量:

类型定义:

初始化代码:

子程序:

Field symbol:

用到的地方:在初始化代码的地方添加如下代码:

传入参数中, 我们添加了销售订单的行项目数据以及logo的连接地址:

2. Form设计:

2.1 Context定义:

注意wa_header中, 因为我们只需要两个字段,所以要记得把不用的字段deactive掉.

2.2 设计Master页, 这里大家可以看到我使用了很多subform来组织各种信息, 这样的好处是直观,容易组织,也容易理解.

2.3 Master页面的数据绑定:

订货方: 绑定到wa_soldto

送货方: 绑定到wa_shipto

销售订单: 绑定到wa_header-vbeln

创建日期: 绑定到wa_header-erdat

2.4 Content Area的设计

将我们需要的item数据直接拖到content area:

3. 编写程序:

*&amp;---------------------------------------------------------------------*
*&amp; Report  ZBOBO_PDF_DEMO_002
*&amp;
*&amp;---------------------------------------------------------------------*
*&amp; 作者：翱翔云天
*&amp; 博客：www.abaptech.com
*&amp; 描述：SO 抬头信息打印
*&amp;---------------------------------------------------------------------*
 
REPORT  zbobo_pdf_demo_003.
TABLES: vbak.
 
*定义Form的名字
DATA: lv_form_name TYPE fpwbformname.
*定义得到的函数名字，这个函数就是form的接口
DATA: lv_fm_name TYPE rs38l_fnam.
*定义打印参数
DATA: lwa_fp_params TYPE sfpoutputparams.
*定义处理结果
DATA: lv_result TYPE sfpjoboutput.
 
data: it_header type table of vbak.
data: it_item type table of vbap.
data: url type string.
 
parameters: s_vbeln like vbak-vbeln.
 
START-OF-SELECTION.
 
  select * from vbak into corresponding fields of table it_header
   where vbeln = s_vbeln.
  select * from vbap into corresponding fields of table it_item
   where vbeln = s_vbeln.
 
*取得函数的名字
  lv_form_name = 'ZBOBO_PDF_DEMO_003'.
  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name     = lv_form_name
    IMPORTING
      e_funcname = lv_fm_name.
 
* 这个是RFC的名字
  lwa_fp_params-connection = 'ADS'.
* 打开一个打印job
  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      ie_outputparams = lwa_fp_params
    EXCEPTIONS
      cancel          = 1
      usage_error     = 2
      system_error    = 3
      internal_error  = 4
      OTHERS          = 5.
  IF sy-subrc &lt;&gt; 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
 
*调用真正的form接口函数
  url = 'http://www.sap.com/global/images/sap_logo.gif'.
  CALL FUNCTION lv_fm_name
    EXPORTING
      it_header                = it_header
      it_item                  = it_item
      IMAGE_URL                = url
            .
 
* 关闭打印job
  CALL FUNCTION 'FP_JOB_CLOSE'
    IMPORTING
      e_result       = lv_result
    EXCEPTIONS
      usage_error    = 1
      system_error   = 2
      internal_error = 3
      OTHERS         = 4.
  IF sy-subrc &lt;&gt; 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.