没有合适的资源?快使用搜索试试~ 我知道了~
双击ALV.txt
需积分: 7 1 下载量 34 浏览量
2012-10-11
14:48:14
上传
评论
收藏 5KB TXT 举报
温馨提示
试读
6页
SAP ALV 双击
资源推荐
资源详情
资源评论
REPORT ZSTANDARDCOST NO STANDARD PAGE HEADING
LINE-SIZE 250 LINE-COUNT 58 MESSAGE-ID Z1.
TABLES: KEKO,KEPH,MAKT.
DATA:BEGIN OF IT_LIST OCCURS 1000,
KADAT LIKE KEKO-KADAT, "成本核算日期从
BIDAT LIKE KEKO-BIDAT, "成本核算日期到
MATNR LIKE KEKO-MATNR, "物料号
MAKTX LIKE MAKT-MAKTX, "物料描述
WERKS LIKE KEKO-WERKS, "工厂
BWKEY LIKE KEKO-BWKEY, "估价范围
LOSGR LIKE KEKO-LOSGR, "批量产品成本核算
KALNR LIKE KEKO-KALNR, "成本估算编号
CPUDT LIKE KEKO-CPUDT, "成本估算创建日期
BDATJ LIKE KEKO-BDATJ, "记帐日期 YYYY
FEH_STA LIKE KEKO-FEH_STA, "成本核算状态
TATAL LIKE KEPH-KST001, "合计
KST001 LIKE KEPH-KST001, "原料成本
KADKY LIKE KEPH-KADKY, "成本估算日期
KKZST LIKE KEPH-KKZST, "标识下限层/层
KST002 LIKE KEPH-KST002, "包装物成本
KST004 LIKE KEPH-KST004, "人工
KST006 LIKE KEPH-KST006, "变动费用
KST008 LIKE KEPH-KST008, "固定成本
KST010 LIKE KEPH-KST010, "摊提成本
END OF IT_LIST.
type-pools : slis.
DATA : fcat TYPE SLIS_T_FIELDCAT_ALV.
LINE-SIZE 250 LINE-COUNT 58 MESSAGE-ID Z1.
TABLES: KEKO,KEPH,MAKT.
DATA:BEGIN OF IT_LIST OCCURS 1000,
KADAT LIKE KEKO-KADAT, "成本核算日期从
BIDAT LIKE KEKO-BIDAT, "成本核算日期到
MATNR LIKE KEKO-MATNR, "物料号
MAKTX LIKE MAKT-MAKTX, "物料描述
WERKS LIKE KEKO-WERKS, "工厂
BWKEY LIKE KEKO-BWKEY, "估价范围
LOSGR LIKE KEKO-LOSGR, "批量产品成本核算
KALNR LIKE KEKO-KALNR, "成本估算编号
CPUDT LIKE KEKO-CPUDT, "成本估算创建日期
BDATJ LIKE KEKO-BDATJ, "记帐日期 YYYY
FEH_STA LIKE KEKO-FEH_STA, "成本核算状态
TATAL LIKE KEPH-KST001, "合计
KST001 LIKE KEPH-KST001, "原料成本
KADKY LIKE KEPH-KADKY, "成本估算日期
KKZST LIKE KEPH-KKZST, "标识下限层/层
KST002 LIKE KEPH-KST002, "包装物成本
KST004 LIKE KEPH-KST004, "人工
KST006 LIKE KEPH-KST006, "变动费用
KST008 LIKE KEPH-KST008, "固定成本
KST010 LIKE KEPH-KST010, "摊提成本
END OF IT_LIST.
type-pools : slis.
DATA : fcat TYPE SLIS_T_FIELDCAT_ALV.
DATA : wa LIKE LINE OF FCAT.
DATA: IT_LIST1 LIKE IT_LIST OCCURS 1000 WITH HEADER LINE.
*DATA: TATAL type P DECIMALS 2 .
DATA: PGM LIKE SY-REPID.
PGM = SY-REPID.
DATA DATUM LIKE SY-DATUM. "系统日期
DATUM = SY-DATUM.
*SELECTION-SCREEN SKIP.
*SELECTION-SCREEN BEGIN OF BLOCK BLOCK0 WITH FRAME TITLE TEXT-000.
* PARAMETERS: BUKRS LIKE MSEG-BUKRS .
*SELECTION-SCREEN END OF BLOCK BLOCK0.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
MATNR FOR KEKO-MATNR MEMORY ID MAT, "物料编码
KADKY FOR KEPH-KADKY, "成本核算日期
WERKS FOR KEKO-WERKS OBLIGATORY. "工厂
SELECTION-SCREEN END OF BLOCK BLOCK1.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_LIST
FROM KEPH AS K INNER JOIN KEKO AS L ON L~KALNR = K~KALNR
WHERE L~MATNR IN MATNR AND
L~WERKS IN WERKS AND
K~KADKY IN KADKY AND
l~KADKY IN KADKY AND
K~KADKY = L~KADKY AND
K~KKZST ne 'X'.
DATA: IT_LIST1 LIKE IT_LIST OCCURS 1000 WITH HEADER LINE.
*DATA: TATAL type P DECIMALS 2 .
DATA: PGM LIKE SY-REPID.
PGM = SY-REPID.
DATA DATUM LIKE SY-DATUM. "系统日期
DATUM = SY-DATUM.
*SELECTION-SCREEN SKIP.
*SELECTION-SCREEN BEGIN OF BLOCK BLOCK0 WITH FRAME TITLE TEXT-000.
* PARAMETERS: BUKRS LIKE MSEG-BUKRS .
*SELECTION-SCREEN END OF BLOCK BLOCK0.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
MATNR FOR KEKO-MATNR MEMORY ID MAT, "物料编码
KADKY FOR KEPH-KADKY, "成本核算日期
WERKS FOR KEKO-WERKS OBLIGATORY. "工厂
SELECTION-SCREEN END OF BLOCK BLOCK1.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_LIST
FROM KEPH AS K INNER JOIN KEKO AS L ON L~KALNR = K~KALNR
WHERE L~MATNR IN MATNR AND
L~WERKS IN WERKS AND
K~KADKY IN KADKY AND
l~KADKY IN KADKY AND
K~KADKY = L~KADKY AND
K~KKZST ne 'X'.
剩余5页未读,继续阅读
资源评论
mxfztw
- 粉丝: 2
- 资源: 10
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 1040g0cg310ravpiu6ibg5pg00tsipsln3ju2d0g 2
- 基于Python的SAR图像去噪CNN-NLM设计源码
- redhat6升级到redhat7,过程redhat6.x-> redhat6.10->rehat7.9 主版本最高版本
- 基于Django的流程引擎设计源码
- 基于Node.js的Express框架与MySQL的后台管理系统设计源码
- 基于Java的Flink流批一体数据处理快速集成开发框架设计源码
- FirstFilterOrderCompare
- Screenshot_2024-03-28-19-17-25-020_com.ss.android.lark.jpg
- 基于Java的车辆违章信息查询系统设计源码
- wqeAFSDADWDAESD
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功