SAP ABAP ALV下钻
在显示出来的ALV里面双击，跳转到自开发的程序或者标准程序
REPORT zalv02.
TABLES : makt.
SELECT-OPTIONS : s_matnr FOR makt-matnr .
DATA: gt_out LIKE TABLE OF makt .
DATA: gs_out LIKE makt .
SELECT *
INTO TABLE gt_out
FROM
makt
WHERE matnr IN s_matnr.
DATA: gs_layout TYPE lvc_s_layo .
DATA: gs_fieldcat TYPE lvc_s_fcat .
DATA: gt_fieldcat TYPE lvc_t_fcat .
*&---全局内表定义
FIELD-SYMBOLS: <gt_output> TYPE STANDARD TABLE, " 定义指针
<gs_output>,
<dyn_field>,
<fs_color> TYPE lvc_t_scol,
<fs_style> TYPE lvc_t_styl.
gs_layout-cwidth_opt = 'X'. "列宽自适应
gs_layout-zebra = 'X'. "斑马线
gs_fieldcat-fieldname = 'MATNR ' .
gs_fieldcat-coltext = '物料编码' .
APPEND gs_fieldcat TO gt_fieldcat .
CLEAR: gs_fieldcat .
gs_fieldcat-fieldname = 'MAKTX ' .
gs_fieldcat-coltext = '物料描述' .
APPEND gs_fieldcat TO gt_fieldcat .
CLEAR: gs_fieldcat .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
* i_callback_pf_status_set = 'FRM_STATUS_SET'
i_callback_user_command = 'FRM_USER_COMMAND'
**
* I_GRID_SETTINGS =
is_layout_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat
i_save = 'A'
* i_grid_settings = ls_grid_settings
* it_events = lt_events
* is_variant = ls_variant
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_out
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FORM frm_user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
* WHEN '&IC1'.
READ TABLE gt_out INDEX rs_selfield-tabindex INTO gs_out .
IF sy-subrc = 0.
IF rs_selfield-fieldname+0(1) = 'M' ."AND P_YFWD = 'X'.
* SUBMIT ZALV01 WITH P_MATNR = gs_out-matnr
* AND RETURN .
IF rs_selfield-fieldname EQ 'MATNR'.
CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
EXPORTING
tcode = 'MM03'
EXCEPTIONS
ok = 0
not_ok = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
CHECK gs_out-matnr IS NOT INITIAL.
SET PARAMETER ID 'MAT' FIELD gs_out-matnr .
CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
ENDIF.
* CLEAR:S_POPER.
* FREE:S_POPER.
* S_POPER-SIGN = 'I'.
* S_POPER-OPTION = 'BT' .
* S_POPER-LOW = RS_SELFIELD-FIELDNAME+1(3) .
* APPEND S_POPER.
*
*
*
* SUBMIT ZCO001_ITEM WITH P_BUKRS = <FS_BUKRS>
* WITH P_GJAHR = <FS_GJAHR>
* WITH P_RCNTR = <FS_RCNTR>
* WITH S_POPER IN S_POPER
* WITH P_RACCT = <FS_RACCT>
* AND RETURN.
* "双击凭证号进入FB03
* IF FU_SELFIELD-FIELDNAME EQ 'BELNR'.
* CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
* EXPORTING
* TCODE = 'FB03'
* EXCEPTIONS
* OK = 0
* NOT_OK = 2
* OTHERS = 3.
* IF SY-SUBRC <> 0.
* ENDIF.
* CHECK GS_ALV-BELNR IS NOT INITIAL.
* SET PARAMETER ID 'BLN' FIELD GS_ALV-BELNR.
* SET PARAMETER ID 'BUK' FIELD GS_ALV-RBUKRS.
* SET PARAMETER ID 'GJR' FIELD GS_ALV-GJAHR.
* CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* ENDIF.
* ENDIF.
ENDIF.
ENDIF .
ENDFORM .
*&---------------------------------------------------------------------*
*& Report ZALV01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zalv01.
TABLES : mara.
SELECT-OPTIONS : s_matnr FOR mara-matnr .
PARAMETERS : P_matnr TYPE mara-matnr .
DATA: gt_out LIKE TABLE OF mara .
SELECT *
INTO TABLE gt_out
FROM
mara
WHERE matnr = P_MATNR .
DATA: gs_layout TYPE lvc_s_layo .
DATA: gs_fieldcat TYPE lvc_s_fcat .
DATA: gt_fieldcat TYPE lvc_t_fcat .
gs_layout-cwidth_opt = 'X'. "列宽自适应
gs_layout-zebra = 'X'. "斑马线
gs_fieldcat-fieldname = 'MATNR ' .
gs_fieldcat-coltext = '物料编码' .
APPEND gs_fieldcat TO gt_fieldcat .
CLEAR: gs_fieldcat .
gs_fieldcat-fieldname = 'ERSDA ' .
gs_fieldcat-coltext = '日期' .
APPEND gs_fieldcat TO gt_fieldcat .
CLEAR: gs_fieldcat .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
* i_callback_pf_status_set = 'FRM_STATUS_SET'
i_callback_user_command = 'FRM_USER_COMMAND'
**
* I_GRID_SETTINGS =
is_layout_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat
i_save = 'A'
* i_grid_settings = ls_grid_settings
* it_events = lt_events
* is_variant = ls_variant
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_out
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FORM FRM_USER_COMMAND USING FU_UCOMM LIKE SY-UCOMM
FU_SELFIELD TYPE SLIS_SELFIELD.
ENDFORM .
SAP ABAP ALV下钻相关推荐
- 如何在 SAP ABAP ALV 报表里以交通灯的方式显示某一列的值
在本教程的这篇步骤里,我们介绍了 ALV 层次顺序表的输出实现明细. SAP ABAP ALV 层次顺序表如何使用双表头(Multiple Headers)进行数据输出 本文介绍如何在 ALV 层次顺 ...
- SAP ABAP ALV控制显示的网格中的每一个字段属性
字段目录是用来控制ALV显示的网格中每个字段的属性的,比如字段的顺序,对齐方式,可编辑状态,颜色,等等.常用的字段如下: row_pos:默认值为0,可选值为1.2.3,既最大分3级别显示 field ...
- SAP abap alv报表实例
这是一个sap alv报表实例 REPORT ztest005.*定义类型组 TYPE-POOLS: abap,slis.*定义ALV变量 DATA : lt_fieldcat TYPE slis_t ...
- SAP ABAP ALV 整理
本人诚心接ABAP远程开发任务,价格公道,有需要的联系我,欢迎个人,甲方爸爸,乙方私信联系. 客制化的F4帮助 DEMO 如下 AT SELECTION-SCREEN ON VALUE-REQUEST ...
- SAP ABAP ALV构建动态输出列与构建动态内表
首先,简单说明一下要用到的表类型.类.函数: 表类型 LVC_T_FCAT-(存放自定义列属性的表类型,一般用到的属性有:FIELDNAME.OUTPUTLEN.DATATYPE.INTTYPE.IN ...
- SAP ABAP ALV（LVC）的一个自定义事件（F4帮助事件，回车ENTER按钮事件）的一个实例
1. 定义和注册事件接受器类 *----------------------------------------------------------------------* * CLASS LCL_ ...
- 具备自动刷新功能的 SAP ABAP ALV 报表
该报表主要结构如下,完整代码见文末. f_call_rfc_wait: 发起异步调用,等待 1 秒钟,来模拟每隔 1 秒刷新屏幕的效果. f_display_data: ALV 常规操作,调用函数 R ...
- SAP ABAP ALV list background render
Created by Jerry Wang, last modified on Jun 23, 2014 以后台方式运行report BCALV_GRID_DEMO: 该background job运 ...
- SAP ABAP alv中设置回车事件
* 添加这段刷新代码 READ TABLE t_data_hz INDEX rs_selfield-tabindex. " 将变动内容更新到内表 DATA: lr_grid T ...
最新文章
- 《Adobe Flash Professional CC经典教程》——1.3 使用“库”面板
- 微软安全管理解决方案 为企业安全保驾护航
- oracle回收ddl权限,oracle禁止指定用户DDL操作触发器
- 解决AttributeError: module ‘cv2.cv2‘ has no attribute ‘estimateRigidTransform‘
- Spark：使用partitionColumn选项读取数据库原理
- 分享45套2011年和2012年的高质量免费网站模板
- 因虚假广告，顺丰被罚！
- django 获取环境变量_python – django settings.py os.environ.get(“X”)没有获取正确的值...
- matlab数组补零,fft补零 - 木头弯弯的小窝 - 与非博客 - 与非网
- 全局索引 前缀索引_面试系列 索引种类与优化
- 系统缓存全解析2：页面输出缓存
- python网络通信基础-udp+NetAssist（网络调试助手）
- 服务器lsass状态代码c0000005,lsass.exe是什么进程？Win7系统提示Lsass.exe系统错误的原因及解决方法...
- 【Java3D】Java3D的Demo
- Java获取文本文件编码
- 强连通分量分解详解 超级详细
- 设计师常用的10种平面设计风格，你知道几个？
- OpenCL Function Qualifiers (函数限定符)
- 程序员应了解的那些事（4）求递归算法的时间复杂度
- 转：Ubuntu常用命令速查