示例1:

调用J3RFLVMOBVEDH ,取物料的期初/ 期末庫存数、金额

FORM frm_call_j3rflvmobvedh.
DATA: lr_bukrs TYPE RANGE OF bukrs,
ls_bukrs LIKE LINE OF lr_bukrs,
lr_datum TYPE RANGE OF datum,
ls_datum LIKE LINE OF lr_datum. DATA: lo_data TYPE REF TO data.
DATA: lv_buper TYPE buper.
FIELD-SYMBOLS:
<fs_t_data> TYPE ANY TABLE. ls_bukrs-sign = 'I'.
ls_bukrs-option = 'EQ'.
ls_bukrs-low = p_bukrs.
APPEND ls_bukrs TO lr_bukrs. * Caculate the first & last day of the Month
lv_buper = |{ gv_gjahr }{ gv_monat }|. ls_datum-sign = 'I'.
ls_datum-option = 'BT'.
ls_datum-low = gv_start_date.
ls_datum-high = gv_end_date.
APPEND ls_datum TO lr_datum. cl_salv_bs_runtime_info=>set(
EXPORTING
display = abap_false
metadata = abap_false
data = abap_true
). SUBMIT j_3rmobvedh
WITH so_bukrs IN lr_bukrs
WITH so_werks IN s_werks
WITH so_lgort IN s_lgort
WITH so_matnr IN s_matnr
WITH so_budat IN lr_datum
WITH p_xnegp = 'X'
AND RETURN. TRY.
cl_salv_bs_runtime_info=>get_data_ref(
IMPORTING
r_data = lo_data
).
ASSIGN lo_data->* TO <fs_t_data>.
CATCH cx_salv_bs_sc_runtime_info.
* MESSAGE '无法获取ALV数据' TYPE 'E'.
MESSAGE s004 DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDTRY.
IF <fs_t_data> IS ASSIGNED.
gt_3rmobvedh_total = <fs_t_data>.
ENDIF.
cl_salv_bs_runtime_info=>clear_all( ).
ENDFORM.

示例2:
调用 MB51 ,1 取物料查询期间的物料移动数据,2取各个进耗存类别数量、金额

FORM frm_material_list .
DATA: lv_va TYPE slis_vari.
DATA: lr_mjahr TYPE RANGE OF mjahr,
ls_mjahr LIKE LINE OF lr_mjahr,
lr_datum TYPE RANGE OF datum,
ls_datum LIKE LINE OF lr_datum.
DATA: lo_data TYPE REF TO data.
FIELD-SYMBOLS:
<fs_t_data> TYPE ANY TABLE,
<ls_data> TYPE any. ls_datum-sign = 'I'.
ls_datum-option = 'BT'.
ls_datum-low = gv_start_date.
ls_datum-high = gv_end_date.
APPEND ls_datum TO lr_datum.
**通过查询条件形成range
ls_mjahr() = 'IEQ'.
ls_mjahr-low = p_buper+().
APPEND ls_mjahr TO lr_mjahr. PERFORM frm_get_variant CHANGING lv_va."获取程序变式 ***为后续获取ALV数据做设置
cl_salv_bs_runtime_info=>set(
EXPORTING
display = abap_false
metadata = abap_false
data = abap_true ). SUBMIT rm07docs " Tcode MB51
WITH matnr IN s_matnr "物料
WITH werks IN s_werks "工厂
WITH lgort IN s_lgort "库位
WITH budat IN lr_datum "过账日期
WITH rhier_l = ''
WITH rflat_l = abap_true"扁平结构
WITH database = abap_true "读取数据库
WITH alv_def = lv_va"变式
AND RETURN.
** WITH charg IN s_charg "批次
* WITH lifnr IN s_lifnr "供应商
* WITH kunnr IN s_kunnr "客户
* WITH bwart IN s_bwart "移动类型
* WITH sobkz IN s_sobkz "特殊库存
* WITH aufnr IN s_aufnr "生产订单
* WITH kostl IN s_kostl "成本中心
* WITH mat_kdau IN s_kdau "销售订单
* WITH mat_kdpo IN s_kdpo "销售订单行项目
* WITH rsnum IN s_rsnum "预留
* WITH rspos IN s_rspos "预留行
* WITH usnam IN s_usnam "用户
* WITH vgart IN s_vgart
* WITH mblnr IN s_mblnr
* WITH mjahr IN lr_mjahr
* WITH budat IN lr_datum
* WITH xblnr IN s_xblnr TRY.
cl_salv_bs_runtime_info=>get_data_ref(
IMPORTING
r_data = lo_data ).
ASSIGN lo_data->* TO <fs_t_data>.
CATCH cx_salv_bs_sc_runtime_info.
MESSAGE '无法获取ALV数据' TYPE 'E'.
ENDTRY.
cl_salv_bs_runtime_info=>clear_all( ). IF <fs_t_data> IS ASSIGNED.
LOOP AT <fs_t_data> ASSIGNING <ls_data>.
MOVE-CORRESPONDING <ls_data> TO gt_itab.
APPEND gt_itab.
ENDLOOP.
ENDIF. SORT gt_itab.
DELETE ADJACENT DUPLICATES FROM gt_itab COMPARING ALL FIELDS. ENDFORM.

遇到某些需求,顾问要的就是某张标准程序的 某些栏位,逻辑很难理清楚,特别是取期初,期末库存, 或者是某个特定日期的库存,
所以就要调用标准程序取数

以下参考博文:https://www.cnblogs.com/dy-debug/p/5791534.html

程序间获取ALV数据的两种方法:
 
方法1:通过修改SUBMIT的目标程序,把内表EXPORT到内存,SUBMIT后IMPORT ,该方法需要修改目标程序,可以任意设置目标程序的中断点;
示例:
* Execute transaction IA09 to get all Functional Location Tasklists
SUBMIT riplko10
WITH SELECTION-TABLE lt_selscreen
WITH pn_iflo = abap_true "Select Func Loc Tasklists
WITH dy_tcode = 'IA09'
WITH dy_selm = 'D' "Dark mode
AND RETURN
IMPORT sel_tab FROM MEMORY ID 'RIPLKO10'.

这种方法性能比较高但是依赖源程序,需要事先将需要的数据EXPORT到内存,如果是标准程序就需要做增强。

方法2:SUBMIT前屏蔽ALV GRID的显示,使用SUBMIT,然后调用

CL_SALV_BS_RUNTIME_INFO=>GET_DATA_REF 

方法获取数据,(包括显示数据,布局数据,字段数据,过滤器等),这个是SAP提供的API所以我们不关心如何存储,所以该方法不需要修改目标程序就可以直接得到ALV显示的结果,

但不能设置目标程序的中断点,需显示ALV的函数执行完毕方可获取到数据。

FIELD-SYMBOLS <lt_pay_data>   TYPE ANY TABLE.
DATA lr_pay_data TYPE REF TO data.
DATA lt_selscreen TYPE TABLE OF rsparams. "初始设置
CALL METHOD cl_salv_bs_runtime_info=>set
EXPORTING
display = abap_false
metadata = abap_false
data = abap_true. * 调用目标程序
SUBMIT h99cwtr0
WITH SELECTION-TABLE lt_selscreen
AND RETURN. TRY. "获取ALV显示数据
CALL METHOD cl_salv_bs_runtime_info=>get_data_ref
IMPORTING
r_data = lr_pay_data. ASSIGN lr_pay_data->* TO <lt_pay_data>.
CATCH cx_salv_bs_sc_runtime_info. MESSAGE `无法取得ALV术` TYPE 'E'.
ENDTRY. "结束
cl_salv_bs_runtime_info=>clear_all( ).

CL_SALV_BS_RUNTIME_INFO 与读取 ALV相关的方法:

SET()  - 此方法初始化类(清除内存区域),然后允许标志的设置让任何后续ALV对象如何工作。它应该在装程序调用ALV报告程序之前被调用。

参数:

    • DISPLAY - 将它设为abap_false强制所有后续ALV报告在“黑暗模式”下运行,也就是说,ALV不会被输出到GUI。
    • METADATA - 将它设为abap_false防止基本信息(布局,字段目录等)被取到内存中......一般我们不需要。
    • DATA - 将它设为abap_true迫使数据表导出到内存而不是显示报表。

GET_DATA_REF() - 非常灵活的GET_DATA*方法,这种方法可以用来访问该数据表变量的引用(动态而且易用),所以即使不知道ALV数据表的结构也没关系。

参数:

  • R_DATA - 输出ALV数据表。
  • R_DATA_LINE - 如果执行的ALV有HEADER的(可选)。

GET_DATA() - 如果知道需要调用的ALV数据表的结构,可以使用这个方法。
参数:

  • T_DATA - 输出参数数据表。
  • T_DATA_LINE - 如果执行的ALV有HEADER(可选)。
 
CLEAR_ALL() - 此方法清除在 SET()  方法设置的标志。如果之后本程序还需要显示 其他ALV ,
那么这个方法尤为重要,如果不清楚设置,你的ALV 就不会被显示出来。



SUBMIT标准程序取ALV数据的更多相关文章

  1. [Python爬虫] 之四:Selenium 抓取微博数据

    抓取代码: # coding=utf-8import osimport refrom selenium import webdriverimport selenium.webdriver.suppor ...

  2. sql 分组取最新的数据sqlserver巧用row_number和partition by分组取top数据

    SQL Server 2005后之后,引入了row_number()函数,row_number()函数的分组排序功能使这种操作变得非常简单 分组取TOP数据是T-SQL中的常用查询, 如学生信息管理系 ...

  3. Charles 如何抓取https数据包

    Charles可以正常抓取http数据包,但是如果没有经过进一步设置的话,无法正常抓取https的数据包,通常会出现乱码.举个例子,如果没有做更多设置,Charles抓取https://www.bai ...

  4. row_number和partition by分组取top数据

    分组取TOP数据是T-SQL中的常用查询, 如学生信息管理系统中取出每个学科前3名的学生.这种查询在SQL Server 2005之前,写起来很繁琐,需要用到临时表关联查询才能取到.SQL Serve ...

  5. 手把手教你用python打造网易公开课视频下载软件3-对抓取的数据进行处理

    上篇讲到抓取的数据保存到rawhtml变量中,然后通过编码最终保存到html变量当中,那么html变量还会有什么问题吗?当然会有了,例如可能html变量中的保存的抓取的页面源代码可能有些标签没有关闭标 ...

  6. iOS开发——网络实用技术OC篇&网络爬虫-使用青花瓷抓取网络数据

    网络爬虫-使用青花瓷抓取网络数据 由于最近在研究网络爬虫相关技术,刚好看到一篇的的搬了过来! 望谅解..... 写本文的契机主要是前段时间有次用青花瓷抓包有一步忘了,在网上查了半天也没找到写的完整的教 ...

  7. iOS开发——网络使用技术OC篇&网络爬虫-使用正则表达式抓取网络数据

    网络爬虫-使用正则表达式抓取网络数据 关于网络数据抓取不仅仅在iOS开发中有,其他开发中也有,也叫网络爬虫,大致分为两种方式实现 1:正则表达 2:利用其他语言的工具包:java/Python 先来看 ...

  8. iOS—网络实用技术OC篇&网络爬虫-使用java语言抓取网络数据

    网络爬虫-使用java语言抓取网络数据 前提:熟悉java语法(能看懂就行) 准备阶段:从网页中获取html代码 实战阶段:将对应的html代码使用java语言解析出来,最后保存到plist文件 上一 ...

  9. Node.js的学习--使用cheerio抓取网页数据

    打算要写一个公开课网站,缺少数据,就决定去网易公开课去抓取一些数据. 前一阵子看过一段时间的Node.js,而且Node.js也比较适合做这个事情,就打算用Node.js去抓取数据. 关键是抓取到网页 ...

随机推荐

  1. [MVC] 自定义ActionSelector,根据参数选择Action[转载]

    很多时候我们会根据UI传入的参数,呈现不同的View.也就是对于同一个Action如何根据请求数据返回不同的View.通常情况下我们会按照如下方法来写,例如: [AcceptVerbs(HttpVer ...

  2. TODO Android +jacoco的增量覆盖率测试和一些概念

    查了下资料,工具要用mac开发,,,,陷入窘境,正在寻找替代方案. Android中的jacoco只支持offline模式,spring支持on-the-fly(在加载class文件进行,运用java ...

  3. Android测试monkeyRunner

    monkeyrunner的官方文档: https://developer.android.com/studio/test/monkeyrunner monkeyrunner脚本可以执行截图操作 具体执 ...

  4. 前端学习笔记--CSS入门

    1.css概述: 2.css语法: 3.css添加方法: 用单独的文件存储css样式的优点: 优先级: h3得到的样式是内嵌样式覆盖了外部样式. 4.css选择器 标签选择器: 类别选择器: ID选择 ...

  5. (一)AppScan的安装及破解

    IBM AppScan是一款目前最好用的Web 应用安全测试工具,Rational AppScan 可自动化 Web 应用的安全漏洞评估工作,能扫描和检测所有常见的 Web 应用安全漏洞,例如 SQL ...

  6. jQuery隐藏和显示从上往下的实现方法

    jquery 显示隐藏方法实现动画效果 方向 显示 隐藏 左上角到右下角 show() hide() 垂直向下 slideDown() slideUp() 水平与垂直两个方向 toggle() 垂直向 ...

  7. celery timeout的拦截

    0X01 场景 celery任务超时报错,想查看是传入哪一类数据运行时导致的超时(哪一个插件),但是该报错难以拦截. [2019-06-30 17:23:21,070: ERROR/MainProce ...

  8. Python获取百度浏览记录

    Python模拟百度登录实例详解 http://www.jb51.net/article/78406.htm Python实战计划学习作业2-1 http://blog.csdn.net/python ...

  9. Cashe的使用

    1.CacheHelper public class CacheHelper { public static ObjectCache Cache { get { return MemoryCache. ...

  10. learning scala extractor object

    package com.aura.scala.day01 import scala.util.Random object extractorObject { def main(args: Array[ ...