sap技巧浅谈(一)

TYPES: BEGIN OF type_one_row,
   ;
  ;
  END OF type_one_row.
TYPES: type_one_table TYPE type_one_row OCCURS 0.
TYPES:BEGIN OF type_two_row,
   ;
  ;
END OF type_two_row.
TYPES: type_two_table TYPE type_two_row OCCURS 0. 
data: ptr_one type c , ptr_two  type c.
data: WA_one type TYPE_one_ROW,
          IG_one   type  TYPE_one_TABLE,
          WA_two      type   TYPE_two_ROW,
          IG_two        type   TYPE_two_TABLE.
PERFORM restor_buffer USING ptr_one CHANGING ig_one.
PERFORM restor_buffer USING ptr_two  CHANGING ig_two.
FORM restor_buffer USING typeid TYPE c CHANGING t TYPE table.
  IMPORT t FROM DATABASE indx(hk) ID typeid.
ENDFORM.  
                 
DEFINE savebuffer.
  perform save_to_buffer using &1 &2.
END-OF-DEFINITION.
DEFINE clearbuffer.
  perform clear_buffer using &1.
END-OF-DEFINITION.
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.
  EXPORT t TO DATABASE indx(hk) ID typeid FROM wa_indx.
ENDFORM.  
FORM clear_buffer USING buffid type c.
  DELETE FROM DATABASE indx(hk) ID buffid.
ENDFORM.
;
FORM frm_display_data.
  DATA: onename(18) TYPE c .
  DATA: twoname(18)  TYPE c .
  CONCATENATE 'XXXX' sy-uzeit INTO onename.
  CONCATENATE 'XXXX' sy-uzeit INTO twoname.
  savebuffer ig_output_h[] onename.
  savebuffer ig_output_d[] twoname.
 CALL FUNCTION  YYY
    EXPORTING
      ptr_one = onename
      ptr_two  = twoname.
 clearbuffer onename.
clearbuffer twoname.
ENDFORM.  

阅读更多
个人分类: 技术文章
上一篇如何设置IE7的打开方式
下一篇打印控制
想对作者说点什么? 我来说一句

sap crm 一点通

2016年04月29日 19KB 下载

财务凭证的替代OBBH

2012年06月11日 423KB 下载

浅谈数据库设计技巧

2007年05月31日 354KB 下载

数据库设计技巧

2007年11月17日 92KB 下载

没有更多推荐了,返回首页

关闭
关闭