smartforms如何调用自定义内表

1.程序方面：
*&---------------------------------------------------------------------*
*& Report ZTEST001_ABAP08
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ztest001_abap08.

INCLUDE zinc_sf_helper .

DATA: BEGIN OF it_itab OCCURS 0,
      num1 TYPE i,
      num2 TYPE i,
      num3 TYPE i,
   END OF it_itab.

START-OF-SELECTION.
PERFORM frm_get_data.
PERFORM frm_print_data.

*&---------------------------------------------------------------------*
*&    Form  frm_get_data
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
FORM frm_get_data.
  DO 20 TIMES.
it_itab-num1 = it_itab-num1 + 1.
it_itab-num2 = it_itab-num2 + 2.
it_itab-num3 = it_itab-num3 + 3.
APPEND it_itab.
  ENDDO.
ENDFORM.             "frm_get_data

*&---------------------------------------------------------------------*
*&    Form  frm_print_data
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
FORM frm_print_data.
  DATA: m_fm TYPE rs38l_fnam.
  DATA: headername(22) TYPE c.
  DATA: itemsname(22) TYPE c.
  DATA: c_tst(22) TYPE c.
  DATA: l_tst TYPE timestampl.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
   formname          = 'ZTEST001_ABAP08'
IMPORTING
   fm_name          = m_fm
EXCEPTIONS
   no_form          = 1
   no_function_module = 2
   OTHERS          = 3.
  IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

GET TIME STAMP FIELD l_tst. "long form
MOVE l_tst TO c_tst.

CONCATENATE 'ZTEST001_ABAP08' c_tst+8(14) INTO itemsname .
savebuffer it_itab[] itemsname . 如果要传入多个表的数据就接着savebuffer
* savebuffer xxxxxxxxxxxxxxxxxx.

CALL FUNCTION m_fm
EXPORTING
   ptr_items       = itemsname  "这里可以传入多个表，和方法1中的接口使用是一样
* xxxxxxxx       = xxxxxxxxxx
EXCEPTIONS
   formatting_error = 1
   internal_error = 2
   send_error    = 3
   user_canceled = 4
   OTHERS          = 5.
  IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

clearbuffer itemsname .
ENDFORM. "frm_print_data

2.INCLUDE部分
*&---------------------------------------------------------------------*
*& 包括 ZINC_SF_HELPER
*&---------------------------------------------------------------------*

TYPES buffer_id(80) TYPE c.
DATA wa_indx TYPE indx.

DEFINE savebuffer.
perform save_to_buffer using &1 &2.
END-OF-DEFINITION.

DEFINE clearbuffer.
  perform clear_buffer using &1.
END-OF-DEFINITION.
*&--------------------------------------------------------------------*
*&    Form  Get_Unique_Id
*&--------------------------------------------------------------------*
*    text
*---------------------------------------------------------------------*
*    -->ID       text
*---------------------------------------------------------------------*
*FORM get_unique_id USING typeid TYPE c CHANGING id TYPE c.
*  DATA: m_buff(32) TYPE c.
*  CALL FUNCTION 'TH_GET_SESSION_ID'
* IMPORTING
*    session_id    =  m_buff
**    ID_LEN          =
*          .
*  CONCATENATE sy-repid '_' m_buff typeid INTO id.
*ENDFORM.                   "Get_Unique_Id

*&--------------------------------------------------------------------*
*&    Form  Save_To_Buffer
*&--------------------------------------------------------------------*
*    text
*---------------------------------------------------------------------*
*    -->T       text
*    -->BUFF_ID text
*---------------------------------------------------------------------*
FORM save_to_buffer USING t TYPE table typeid TYPE c .
wa_indx-aedat = sy-datum.
wa_indx-usera = sy-uname.
wa_indx-pgmid = sy-repid.
*  PERFORM get_unique_id USING buff_id CHANGING buff_id.
  EXPORT t TO DATABASE indx(hk) ID typeid from wa_indx.
ENDFORM.                   "Save_To_Buffer

*&--------------------------------------------------------------------*
*&    Form  Clear_Buffer
*&--------------------------------------------------------------------*
*    text
*---------------------------------------------------------------------*
*    -->BUFF_ID text
*---------------------------------------------------------------------*
FORM clear_buffer USING buffid TYPE c.
  DELETE FROM DATABASE indx(hk) ID buffid.
ENDFORM.                   "Clear_Buffer

form Restor_buffer using typeid type c changing t type table.
import t from database indx(hk) id typeid.
endform.

3.smart form 方面我就截图了
全局设置->表格接口

smartforms如何调用自定义内表相关推荐

指针传递内表方式做smartforms
以前写SMARTFORMS,传内表数据的时候总要先到SE11建立一个结构,很是麻烦. 下面主要描述一下SMARTFORM是怎么从调用它的程序取相应内表的值. 首先在SMARTFORM 全局定义-> ...
smartform 与调用程序间内表数据传递方法
1.通过表格接口传输 2.通过句柄(export,import)传输 3.通过指针传输: DATA:field(50). "字段长度根据内表所有字段长度总合设定 Field-symbo ...
自定义django表单
The Django Book:第18章自定义Django的admin界面第6章介绍了Django的admin界面,现在是回过头来仔细看看这个的时候了我们前面讲的几次admin是Django的& ...
php调用sap端rfc接口,SAP 接口编程之 RFC 系列(15) : 调用自定义函数
从外部环境调用自定义函数 (FM, Function Module)与调用 SAP 内置的函数并没有不同,需要注意的是在 SAP 系统自定义 FM 的要点: 1)FM 必须是 Remote-enabl ...
dede php 调用自定义字段,在dedecms搜索结果列表页调用自定义字段的方法(绝对可用)...
关于在dedecms搜索结果列表页调用自定义字段的方法比较多有些教程都写得比较含糊,经过织梦者的测试今天推荐一个比较有效的方法给大家,方法是从网络中搜到的,但是绝对可用打开 include/exte ...
python函数文档说明调用方式_Python 跨.py文件调用自定义函数说明
0 前言 os.chdir() :用于改变当前python工作的目录到指定的路径 sys.path:是python搜索模块的一个路径集,为list,自定义的包可以把存放路径加进去,之后直接调用包名就行 ...
dedecms前端无法调用自定义变量怎么解决
网友问ytkah说他的dedecms前端无法调用自定义变量要怎么解决,登录他的网站后台看了一下,自定义变量已经添加了,也写入了数据库表中,但是就是前台没办法调用出来,后面想想可能是文件权限不够,具体是 ...
【Flutter】自定义 Flutter 组件 ( 创建自定义 StatelessWidget、StatefulWidget 组件 | 调用自定义组件 )
文章目录一.Flutter 组件简介二.Flutter 自定义 StatelessWidget 组件流程 1.导入父类包 2.选择继承的父类 3.设置成员变量及构造函数 4.重写 build 方法 ...
dedecms调用自定义会员模型会员信息的方法
小编给大家分享一下dedecms调用自定义会员模型会员信息的方法,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧! dede ...

smartforms如何调用自定义内表

smartforms如何调用自定义内表相关推荐

最新文章

热门文章