存货账龄分析报表(中三)
为什么80%的码农都做不了架构师?>>>
IF A3 = 'X'. "60-90天CLEAR: GS_TOTAL,GT_TOTAL[].CALL FUNCTION 'FIMA_DATE_CREATE'EXPORTINGI_DATE = SY-DATUMI_YEARS = 0I_MONTHS = '-2'I_DAYS = 0I_CALENDAR_DAYS = 0I_SET_LAST_DAY_OF_MONTH = 'X'IMPORTINGE_DATE = LASTDATE.CONCATENATE LASTDATE+(6) '01' INTO FIRSTDAY.DELETE GT_TEMP3 WHERE BUDAT NOT BETWEEN FIRSTDAY AND LASTDATE.LOOP AT GT_TEMP3 INTO GS_TEMP3."去除影响合并字段的值GS_TEMP3-BUDAT = ''.MODIFY GT_TEMP3 FROM GS_TEMP3.ENDLOOP.CLEAR GS_TEMP3.LOOP AT GT_TEMP3 INTO GS_TEMP3.MOVE-CORRESPONDING GS_TEMP3 TO GS_TOTAL.COLLECT GS_TOTAL INTO GT_TOTAL.ENDLOOP.LOOP AT GT_TEMP3 INTO GS_TEMP3."还原不参与合计的字段的值LOOP AT GT_TOTAL INTO GS_TOTAL WHERE BUKRS = GS_TEMP3-BUKRS AND WERKS = GS_TEMP3-WERKS AND LGORT = GS_TEMP3-LGORT AND MATNR = GS_TEMP3-MATNR AND MAKTX = GS_TEMP3-MAKTX.GS_TOTAL-STPRS = GS_TEMP3-STPRS.GS_TOTAL-PEINH = GS_TEMP3-PEINH.GS_TOTAL-LABST = GS_TEMP3-LABST.GS_TOTAL-INSME = GS_TEMP3-INSME.GS_TOTAL-SPEME = GS_TEMP3-SPEME.GS_TOTAL-PRLAB = GS_TEMP3-PRLAB.GS_TOTAL-KALAB = GS_TEMP3-KALAB.GS_TOTAL-SLABS = GS_TEMP3-SLABS.GS_TOTAL-LBLAB = GS_TEMP3-LBLAB.MODIFY GT_TOTAL FROM GS_TOTAL.EXIT.ENDLOOP.ENDLOOP.CLEAR: GS_OUTPUT,GS_TOTAL.LOOP AT GT_TOTAL INTO GS_TOTAL.LOOP AT GT_OUTPUT INTO GS_OUTPUTWHERE BUKRS = GS_TOTAL-BUKRSAND WERKS = GS_TOTAL-WERKSAND LGORT = GS_TOTAL-LGORTAND MATNR = GS_TOTAL-MATNRAND MAKTX = GS_TOTAL-MAKTX.READ TABLE GT_STOCK INTO GS_STOCK WITH KEY BUKRS = GS_TOTAL-BUKRS WERKS = GS_TOTAL-WERKS LGORT = GS_TOTAL-LGORT MATNR = GS_TOTAL-MATNR MAKTX = GS_TOTAL-MAKTX.IF SY-SUBRC <> 0.GS_STOCK-BUKRS = GS_TOTAL-BUKRS.GS_STOCK-WERKS = GS_TOTAL-WERKS.GS_STOCK-LGORT = GS_TOTAL-LGORT.GS_STOCK-MATNR = GS_TOTAL-MATNR.GS_STOCK-MAKTX = GS_TOTAL-MAKTX.GS_STOCK-STOCK = GS_TOTAL-LABST + GS_TOTAL-INSME + GS_TOTAL-SPEME + GS_TOTAL-PRLAB + GS_TOTAL-KALAB + GS_TOTAL-SLABS.IF GS_TOTAL-LGORT IS INITIAL.GS_STOCK-STOCK = GS_TOTAL-LBLAB.ENDIF.CURRENT_STOCK = GS_STOCK-STOCK.IF GS_TOTAL-MENGE <= CURRENT_STOCK.GS_OUTPUT-STNM3 = GS_TOTAL-MENGE.GS_STOCK-MENGE3 = GS_TOTAL-MENGE.ELSE.GS_OUTPUT-STNM3 = CURRENT_STOCK - GS_OUTPUT-STNM1 - GS_OUTPUT-STNM2.GS_OUTPUT-STNM4 = -1.GS_OUTPUT-STNM5 = -1.GS_OUTPUT-STNM6 = -1.GS_OUTPUT-TRMB4 = -1.GS_OUTPUT-TRMB5 = -1.GS_OUTPUT-TRMB6 = -1.ENDIF.GS_OUTPUT-STOCK = GS_STOCK-STOCK.APPEND GS_STOCK TO GT_STOCK.ELSE.IF GS_OUTPUT-STNM3 >= 0.CURRENT_STOCK = GS_STOCK-STOCK.IF GS_TOTAL-MENGE + GS_STOCK-MENGE1 + GS_STOCK-MENGE2 <= CURRENT_STOCK.GS_OUTPUT-STNM3 = GS_TOTAL-MENGE.GS_STOCK-MENGE3 = GS_TOTAL-MENGE.ELSE.GS_OUTPUT-STNM3 = CURRENT_STOCK - GS_OUTPUT-STNM1 - GS_OUTPUT-STNM2.GS_OUTPUT-STNM4 = -1.GS_OUTPUT-STNM5 = -1.GS_OUTPUT-STNM6 = -1.GS_OUTPUT-TRMB4 = -1.GS_OUTPUT-TRMB5 = -1.GS_OUTPUT-TRMB6 = -1.ENDIF.GS_OUTPUT-STOCK = GS_STOCK-STOCK.COLLECT GS_STOCK INTO GT_STOCK.ELSE.CONTINUE.ENDIF.ENDIF.GS_OUTPUT-TRMB3 = GS_TOTAL-STPRS / GS_TOTAL-PEINH * GS_OUTPUT-STNM3.MODIFY GT_OUTPUT FROM GS_OUTPUT.ENDLOOP.ENDLOOP.ENDIF.IF A4 = 'X'. "90-180天CLEAR: GS_TOTAL,GT_TOTAL[].CALL FUNCTION 'FIMA_DATE_CREATE'EXPORTINGI_DATE = SY-DATUMI_YEARS = 0I_MONTHS = '-5'I_DAYS = 0I_CALENDAR_DAYS = 0I_SET_LAST_DAY_OF_MONTH = 'X'IMPORTINGE_DATE = LASTDATE.CONCATENATE LASTDATE+(6) '01' INTO FIRSTDAY.CALL FUNCTION 'FIMA_DATE_CREATE'EXPORTINGI_DATE = SY-DATUMI_YEARS = 0I_MONTHS = '-3'I_DAYS = 0I_CALENDAR_DAYS = 0I_SET_LAST_DAY_OF_MONTH = 'X'IMPORTINGE_DATE = LASTDATE.DELETE GT_TEMP4 WHERE BUDAT NOT BETWEEN FIRSTDAY AND LASTDATE.LOOP AT GT_TEMP4 INTO GS_TEMP4."去除影响合并字段的值GS_TEMP4-BUDAT = ''.MODIFY GT_TEMP4 FROM GS_TEMP4.ENDLOOP.CLEAR GS_TEMP4.LOOP AT GT_TEMP4 INTO GS_TEMP4.MOVE-CORRESPONDING GS_TEMP4 TO GS_TOTAL.COLLECT GS_TOTAL INTO GT_TOTAL.ENDLOOP.LOOP AT GT_TEMP4 INTO GS_TEMP4."还原不参与合计的字段的值LOOP AT GT_TOTAL INTO GS_TOTAL WHERE BUKRS = GS_TEMP4-BUKRS AND WERKS = GS_TEMP4-WERKS AND LGORT = GS_TEMP4-LGORT AND MATNR = GS_TEMP4-MATNR AND MAKTX = GS_TEMP4-MAKTX.GS_TOTAL-STPRS = GS_TEMP4-STPRS.GS_TOTAL-PEINH = GS_TEMP4-PEINH.GS_TOTAL-LABST = GS_TEMP4-LABST.GS_TOTAL-INSME = GS_TEMP4-INSME.GS_TOTAL-SPEME = GS_TEMP4-SPEME.GS_TOTAL-PRLAB = GS_TEMP4-PRLAB.GS_TOTAL-KALAB = GS_TEMP4-KALAB.GS_TOTAL-SLABS = GS_TEMP4-SLABS.GS_TOTAL-LBLAB = GS_TEMP4-LBLAB.MODIFY GT_TOTAL FROM GS_TOTAL.EXIT.ENDLOOP.ENDLOOP.CLEAR: GS_OUTPUT,GS_TOTAL.LOOP AT GT_TOTAL INTO GS_TOTAL.LOOP AT GT_OUTPUT INTO GS_OUTPUTWHERE BUKRS = GS_TOTAL-BUKRSAND WERKS = GS_TOTAL-WERKSAND LGORT = GS_TOTAL-LGORTAND MATNR = GS_TOTAL-MATNRAND MAKTX = GS_TOTAL-MAKTX.READ TABLE GT_STOCK INTO GS_STOCK WITH KEY BUKRS = GS_TOTAL-BUKRS WERKS = GS_TOTAL-WERKS LGORT = GS_TOTAL-LGORT MATNR = GS_TOTAL-MATNR MAKTX = GS_TOTAL-MAKTX.IF SY-SUBRC <> 0.GS_STOCK-BUKRS = GS_TOTAL-BUKRS.GS_STOCK-WERKS = GS_TOTAL-WERKS.GS_STOCK-LGORT = GS_TOTAL-LGORT.GS_STOCK-MATNR = GS_TOTAL-MATNR.GS_STOCK-MAKTX = GS_TOTAL-MAKTX.GS_STOCK-STOCK = GS_TOTAL-LABST + GS_TOTAL-INSME + GS_TOTAL-SPEME + GS_TOTAL-PRLAB + GS_TOTAL-KALAB + GS_TOTAL-SLABS.IF GS_TOTAL-LGORT IS INITIAL.GS_STOCK-STOCK = GS_TOTAL-LBLAB.ENDIF.CURRENT_STOCK = GS_STOCK-STOCK.IF GS_TOTAL-MENGE <= CURRENT_STOCK.GS_OUTPUT-STNM4 = GS_TOTAL-MENGE.GS_STOCK-MENGE4 = GS_TOTAL-MENGE.ELSE.GS_OUTPUT-STNM4 = CURRENT_STOCK - GS_OUTPUT-STNM1 - GS_OUTPUT-STNM2 - GS_OUTPUT-STNM3.GS_OUTPUT-STNM5 = -1.GS_OUTPUT-STNM6 = -1.GS_OUTPUT-TRMB5 = -1.GS_OUTPUT-TRMB6 = -1.ENDIF.GS_OUTPUT-STOCK = GS_STOCK-STOCK.APPEND GS_STOCK TO GT_STOCK.ELSE.IF GS_OUTPUT-STNM4 >= 0.CURRENT_STOCK = GS_STOCK-STOCK.IF GS_TOTAL-MENGE + GS_STOCK-MENGE1 + GS_STOCK-MENGE2 + GS_STOCK-MENGE3 <= CURRENT_STOCK.GS_OUTPUT-STNM4 = GS_TOTAL-MENGE.GS_STOCK-MENGE4 = GS_TOTAL-MENGE.ELSE.GS_OUTPUT-STNM4 = CURRENT_STOCK - GS_OUTPUT-STNM1 - GS_OUTPUT-STNM2 - GS_OUTPUT-STNM3.GS_OUTPUT-STNM5 = -1.GS_OUTPUT-STNM6 = -1.GS_OUTPUT-TRMB5 = -1.GS_OUTPUT-TRMB6 = -1.ENDIF.GS_OUTPUT-STOCK = GS_STOCK-STOCK.COLLECT GS_STOCK INTO GT_STOCK.ELSE.CONTINUE.ENDIF.ENDIF.GS_OUTPUT-TRMB4 = GS_TOTAL-STPRS / GS_TOTAL-PEINH * GS_OUTPUT-STNM4.MODIFY GT_OUTPUT FROM GS_OUTPUT.ENDLOOP.ENDLOOP.ENDIF.
转载于:https://my.oschina.net/lanzp/blog/188364
存货账龄分析报表(中三)相关推荐
- 存货账龄分析报表(上)
为什么80%的码农都做不了架构师?>>> 其实,对于库龄计算,其实并不复杂,关于网上的FIFO,还不是很理解,但是,我跟同事理清了一下思路,把库龄分析的整个流程简单化:1.确定 ...
- 存货账龄分析报表(中)
为什么80%的码农都做不了架构师?>>> *------------------------------------------------------------------ ...
- 存货账龄分析报表(中四)
为什么80%的码农都做不了架构师?>>> IF A5 = 'X'. "180-360天CLEAR: GS_TOTAL,GT_TOTAL[].CALL FUNCTION ...
- 存货账龄分析报表(下)
为什么80%的码农都做不了架构师?>>> *&------------------------------------------------------------- ...
- 水晶报表中对某一栏位值进行处理_合并报表——非同一控制下的企业合并amp;同一控制下的企业合并...
[写在前面] 长期股权投资企业的一种投资行为,投资方通过该行为享有被投资单位的股利分配.净利润等投资收益,处理的是母公司(投资方)的个别财务报表. 只有控股合并才需要编制合并报表,意味着后续计量采用的 ...
- SAP 谈谈存货分析报表
MM物料管理模块中涉及存货.而对存货进行报表分析显得尤为重要.对于存货分析,SAP提供了一大堆MC.*的报表,但基本无企业用,因为大部分是基于信息结构,非常不准确!也很难利用起来.下面是库存分析中的一 ...
- 使用ROW_NUMBER 和partition by 解决报表中的查询问题
在报表中遇到一个查询问题: 原始数据如下: Id cust_id call_date call_result 1 1 2012-03-15 09:00:00 fail 2 1 2012-03-15 0 ...
- 报表中Mail Label 的使用
Crystal Report在报表向导中提供了三种向导类型给用户进行选择--Standard.Cross-Tab和Mail Label,而Visual Studio/BIDS报表向导只有两种--表格格 ...
- 在 ReportViewer 报表中使用表达式
有些表达式在报表中很常用.其中包括更改报表中的数据外观的表达式.计算总数的表达式和更改报表项属性的表达式.本主题介绍了报表中可用于常见任务的一些表达式. 报表中的许多表达式都包含函数.您可以编写使用 ...
最新文章
- c++ 类数组_《深入java虚拟机》读书笔记类加载
- Quartz-任务调度信息持久化到DB中
- spoj 375 Query on a tree (树链剖分)
- NOIP 2016【蚯蚓】
- A. [2021.1.29多校省选模拟11]最大公约数(杜教筛/数论)
- java c3p0获取主键_Tomcatc3p0配置jnid数据源2种实现方法解析
- postgreSQL分页
- 互联网企业安全高级指南3.5 选择在不同的维度做防御
- Mysql DBA 高级运维学习之路-DQL语句之select知识讲解
- bash大括号参数扩展(Parameter Expansion)
- Linux教学项——基础环境及命令教学(包括实用shell脚本)
- 《西游记》的读后感4000字
- Camunda与springboot集成入门实战
- gdown配置代理下载Google drive文件
- jQuery官网下载文档的步骤
- 【论文简读】Diffusion Kernel Attention Network for Brain Disorder Classification用于脑疾病分类的扩散核注意力网络
- MAC OS的HOME和END
- Jeesite4图片上传
- 爆料!华为胡玲或入职头条,职场人该如何说“真话”?
- matlab edittext 回车,安卓中的虚拟键盘实现,KeyEvent的事件分发、处理机制。EditText是如何将KeyEvent事件转为字符输入的?...
热门文章
- html语言h1h2h3,什么是H标签?H1,H2,H3标签使用的方法及重要性
- educoder平台哪里有答案_作业答案辅导平台下载-作业答案辅导软件下载v2.0 安卓免费版...
- 数据库的几种关闭方式
- 肉这么做越吃越瘦!鲜嫩多汁!每次只需 5 分钟,比叫外卖还快!
- 中兴霸道女总裁何雪梅投案自首 案发前净身出户
- Excel制作的自动汇总的评分表模板
- nginx安装,端口配置
- 前端学习(二)Echarts入门——html实现简单echarts图例
- CSS背景图的应用实例
- php开发愤怒的小鸟,如何使用纯CSS实现一只黑色的愤怒小鸟(附代码)