物料价格分析取未分摊和未分配价格差异
物料价格分析的事务码是：CKM3和CKMVFM
*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST.
TYPE-POOLS: SLIS.
DATA: I_FIELDCAT_ALV TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
I_LAYOUT TYPE SLIS_LAYOUT_ALV, "alv的格式
I_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
TMP_TITLE(70),
W_REPID LIKE SY-REPID.
**---------------------------------------------------------------------*
*** Types
**---------------------------------------------------------------------*
DATA : POS TYPE I,
LW_TITLE(150) TYPE C,
S_mat TYPE CKMLHD-MATNR.
*选择屏幕
data:BEGIN OF itab OCCURS 0,
matnr like mara-matnr,
KALNR like CKMLHD-kalnr,
BDATJ like ckmlcr-bdatj,
POPER like ckmlcr-poper,
VNPRD_EA like ckmlcr-VNPRD_EA,
vnprd_ma like ckmlcr-vnprd_ma,
ABPRD_O LIKE CKMLCR-ABPRD_O,
ZUPRD_O LIKE CKMLCR-ZUPRD_O,
EBPRD_EA LIKE CKMLCR-EBPRD_EA,
ABPRD_mO LIKE CKMLCR-ABPRD_mO,
ZUPRD_mO LIKE CKMLCR-ZUPRD_mO,
EBPRD_mA LIKE CKMLCR-EBPRD_mA,
ESTPRD like mlcd-ESTPRD,
mstprd like mlcd-mstprd,
testprd like mlcd-estprd,
WFPCY LIKE CKMLCR-ABPRD_O,
end of itab.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
PARAMETERS P_BDATJ LIKE CKMLCR-BDATJ OBLIGATORY DEFAULT '2011'.
SELECTION-SCREEN SKIP.
PARAMETERS: P_POPER LIKE CKMLCR-POPER OBLIGATORY DEFAULT '12'.
SELECTION-SCREEN SKIP.
PARAMETERS P_WERKS LIKE CKMLHD-BWKEY OBLIGATORY DEFAULT 'PS01'.
SELECTION-SCREEN SKIP.
SELECT-OPTIONS: S_MATNR FOR S_mat.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK BLK1.
CONCATENATE ' ' P_BDATJ '年' P_POPER
'月'
'未分配差异表' INTO LW_TITLE.
START-OF-SELECTION.
PERFORM GETDATA. "
PERFORM LAYOUT_BUILD. "
PERFORM FIELDS. "
PERFORM DISPLAY_DATA. "
*&---------------------------------------------------------------------*
*& Form getdata
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM GETDATA.
select CKMLHD~matnr
CKMLHD~KALNR
ckmlcr~BDATJ
ckmlcr~POPER
ckmlcr~VNPRD_EA
ckmlcr~vnprd_ma
ckmlcr~ABPRD_O
ckmlcr~ZUPRD_O
ckmlcr~EBPRD_EA
ckmlcr~ABPRD_mO
ckmlcr~ZUPRD_mO
ckmlcr~EBPRD_mA
INTO CORRESPONDING FIELDS OF TABLE itab
from ckmlhd
join ckmlcr on ckmlhd~kalnr = ckmlcr~kalnr
where ckmlhd~matnr in s_matnr
and ckmlhd~bwkey = p_werks
and ckmlcr~BDATJ = p_BDATJ
and ckmlcr~POPER = p_poper.
loop at itab.
select sum( ESTPRD ) sum( mstprd ) into (itab-tESTPRD,itab-mstprd)
from mlcd
where kalnr = itab-kalnr
and bdatj = itab-bdatj
and poper = itab-poper
and CATEG = 'VN'.
itab-estprd = itab-vnprd_ea + itab-vnprd_ma - ( itab-testprd + itab-mstprd ).
itab-WFPCY = itab-EBPRD_EA + + itab-VNPRD_EA - itab-ZUPRD_O - itab-ABPRD_O
+ itab-EBPRD_mA + + itab-VNPRD_mA - itab-ZUPRD_mO - itab-ABPRD_mO.
modify itab.
endloop.
ENDFORM. "GETDATA
*&---------------------------------------------------------------------*
*& Form layout_build
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM LAYOUT_BUILD.
I_LAYOUT-ZEBRA = 'X'.
I_LAYOUT-DETAIL_POPUP = 'X'. "
W_REPID = SY-REPID. "
I_LAYOUT-F2CODE = '&ETA'."
I_LAYOUT-NO_VLINE = 'X'."
I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "
I_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
I_LAYOUT-DETAIL_TITLEBAR = '详细内容'."
ENDFORM. "layout_build
*&---------------------------------------------------------------------*
*& Form fields
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM FIELDS.
REFRESH I_FIELDCAT_ALV.
POS = 0.
CLEAR I_FIELDCAT.
TMP_TITLE = LW_TITLE."
I_FIELDCAT-COL_POS = POS. "
I_FIELDCAT-FIELDNAME = 'MATNR'.
I_FIELDCAT-SELTEXT_L = '物料号'. "
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
POS = POS + 1.
I_FIELDCAT-COL_POS = POS.
I_FIELDCAT-FIELDNAME = 'WFPCY'.
I_FIELDCAT-SELTEXT_L = '没有被分摊'.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
POS = POS + 1.
I_FIELDCAT-COL_POS = POS.
I_FIELDCAT-FIELDNAME = 'ESTPRD'.
I_FIELDCAT-SELTEXT_L = '未分配价格差异'.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
ENDFORM. "fields
*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_REPID "
I_SAVE = ''
IS_LAYOUT = I_LAYOUT "
IT_FIELDCAT = I_FIELDCAT_ALV[] "
I_GRID_TITLE = TMP_TITLE
TABLES
T_OUTTAB = itab. "
ENDFORM. "display_data
物料价格分析取未分摊和未分配价格差异相关推荐
- 【转载】SAP物料账未分摊差异分析
今天在开发处理未分摊差异程序的时候,偶然在网络上看到一篇这样的文章,挺有意思的,特意转载过来,方便大伙学习之用,若有异议,立即撤回. 利用CKMLCP运行完物料分类账之后,差异科目余额通常为0,如果不 ...
- SAP 物料账未分摊差异分析
今天在开发处理未分摊差异程序的时候,偶然在网络上看到一篇这样的文章,挺有意思的,特意转载过来,方便大伙学习之用,若有异议,立即撤回. 利用CKMLCP运行完物料分类账之后,差异科目余额通常为0,如果不 ...
- SAP License：关于未分摊差异的几种处理办法
未分摊/不包括等异常差异现阶段处理方式按照物料来源确认: (1)对于发科研订单的差异,运行物料帐后手工计入科研订单中:(内部订单不象生产工单,因无输出物料则形成未分摊差异,手工转走,实施ERP后还要如 ...
- 关于未分摊差异的几种处理办法
未分摊/不包括等异常差异现阶段处理方式按照物料来源确认: (1) 对于发科研订单的差异,运行物料帐后手工计入科研订单中:(内部订单不象生产工单,因无输出物料则形成未分摊差异,手工转走,实施ERP后还要 ...
- 我未成名君未嫁，可能俱是不如人？
赠妓云英 罗隐 锺陵醉别十余春,重见云英掌上身. 我未成名君未嫁,可能俱是不如人? [赠妓云英 罗隐鉴赏] 罗隐一生怀才不遇.他"少英敏,善属文,诗笔尤俊"(<唐才子传> ...
- 文档服务器连接未响应,win7DNS服务器未响应或者未连接问题的解决
win7DNS服务器未响应或者未连接问题的解决 win7DNS服务器未响应或者未连接问题的解决 经常遇到别人问这个问题,今天搜集了一下网络上的解决方案,然后系统的整理了一下,便于大家理解和解决问题.我 ...
- git撤消所有未提交或未保存的更改
本文翻译自:git undo all uncommitted or unsaved changes I'm trying to undo all changes since my last commi ...
- IIS网站或系统验证码不显示问题——使用了托管的处理程序，但是未安装或未完整安装 ASP.NET...
在IIS上发布了一个系统,但是登陆页面的验证码图片一直出不来,尝试了各种办法,权限.路径.继承父类路径等都不管用,进入Login.html,对着无验证码图片的图标,右键复制图片的网址,粘贴到地址栏,出 ...
- 问题-提示“请确定磁盘未满或未被写保护而且文件未被使用”
问题现象:提示"请确定磁盘未满或未被写保护而且文件未被使用" 问题原因:共享文档是只读共享 没有设置完全共享 所以你没有写权限 问题处理: 1.简单共享解决法 1.1首先打开&qu ...
最新文章
- SQL Server 2012笔记分享-52：可用性指标
- java 变长参数 知乎_变长参数探究
- std::setprecision、std::ios::fixed使用说明
- 从IC设计来看Trace32的用途
- java获取用户地理位置_java web 通过ip获取当前地理位置
- Android在代码中设置drawableLeft(Right/Top/Bottom)
- ES6 import export
- idle点开没反应_翟天临、靳东，一个人越是没文化越是喜欢装
- swiftui动画之tab自定义切换动画_Unity动画系统详解1：在Unity中如何制作动画？
- mac 键盘失灵_苹果电脑按键失灵怎么办_mac键盘部分按键失灵如何修复-win7之家...
- [Java学习] BFS算法示例
- HDOJ Problem - 1299
- 沪深300ETF基金与其业绩比较基准差别的原因
- PGSQL 模糊查询不区分大小写
- 打开anaconda prompt 出错 import ctypes
- QQ和微信amr转mp3
- python爬虫 关键字_包含关键字 python 爬虫 的文章 - 科学空间|Scientific Spaces
- Flink InvalidTypesException: The return type of function could not be determined automatically...
- 报告显示：2023年，电信区块链业产值将达10亿美元
- vs2010编译64位qt5.5