ABAP问题记录---＞物料编码和序列号的相爱相杀

物料编码和序列号是一对多的关系，一个编码对应多个序列号。

FORM FRM_GET_DATA ."局部变量DATA: LT_DATA LIKE GT_DATA.DATA: LV_TABIX TYPE I.IF P1 = 'X'. "打印SELECTMSEG~MATNR,  "物料编码MAKT~MAKTX,  "物料描述MSEG~AUFNR,  "生产订单MARA~MATKL,  "物料组T023T~WGBEZ, "物料组描述MSEG~MEINS AS AMEIN,  "单位MARA~GROES AS GGXH,  "规格型号MSEG~CHARG AS PH, "批号MSEG~MBLNR   "入库凭证FROM MSEGLEFT JOIN MARA  ON MSEG~MATNR = MARA~MATNRLEFT JOIN MAKT  ON MARA~MATNR = MAKT~MATNR AND MAKT~SPRAS = @SY-LANGULEFT JOIN T023T ON MARA~MATKL = T023T~MATKL AND T023T~SPRAS = @SY-LANGUINTO TABLE @DATA(LT_MSEG)WHEREMSEG~MATNR IN @S_MATNRAND MSEG~MBLNR IN @S_MBLNRAND MSEG~INSMK = 'X'.SORT LT_MSEG  BY MATNR.IF LT_MSEG IS NOT INITIAL ."获取序列号SELECTSER03~MBLNR, "入库凭证OBJK~SERNR   "序列号FROM OBJKLEFT JOIN SER03 ON SER03~OBKNR = OBJK~OBKNRINTO TABLE @DATA(LT_SER03)FOR ALL ENTRIES IN @LT_MSEGWHERESER03~MBLNR = @LT_MSEG-MBLNRAND OBJK~SERNR  IN @S_SERNR.SORT LT_SER03 BY MBLNR."获取生产商SELECTZGSPT_MARA~MATNR, "物料编号ZGSPT_MARA~ZMFRNR AS SCS "生产商FROM ZGSPT_MARAINTO TABLE @DATA(LT_MARA)FOR ALL ENTRIES IN @LT_MSEGWHEREMATNR = @LT_MSEG-MATNR.SORT LT_MARA  BY MATNR."订单开工日期SELECTAFKO~AUFNR, "生产订单AFKO~GSTRP  "订单开工日期FROM AFKOINTO TABLE @DATA(LT_AFKO)FOR ALL ENTRIES IN @LT_MSEGWHEREAFKO~AUFNR = @LT_MSEG-AUFNR.SORT LT_AFKO BY AUFNR.ENDIF.LOOP AT LT_MSEG INTO DATA(LW_MSEG).MOVE-CORRESPONDING LW_MSEG TO GS_DATA."生产商READ TABLE LT_MARA INTO DATA(LW_MARA) WITH KEY MATNR = LW_MSEG-MATNR BINARY SEARCH.IF SY-SUBRC = 0.MOVE-CORRESPONDING LW_MARA TO GS_DATA.ENDIF."订单开工日期READ TABLE LT_AFKO INTO DATA(LW_AFKO) WITH KEY AUFNR = LW_MSEG-AUFNR BINARY SEARCH.IF SY-SUBRC = 0.MOVE-CORRESPONDING LW_AFKO TO GS_DATA.ENDIF."生产日期GS_DATA-SCRQ = GS_DATA-GSTRP."序列号READ TABLE LT_SER03 TRANSPORTING NO FIELDS WITH KEY MBLNR = LW_MSEG-MBLNR BINARY SEARCH.IF SY-SUBRC = 0.LV_TABIX = SY-TABIX.LOOP AT LT_SER03 FROM LV_TABIX INTO DATA(LW_SER03).IF LW_MSEG-MBLNR <> LW_SER03-MBLNR.EXIT.ENDIF.MOVE-CORRESPONDING LW_SER03 TO GS_DATA.APPEND GS_DATA TO LT_DATA.CLEAR LW_SER03.ENDLOOP.ENDIF.*      APPEND GS_DATA TO LT_DATA.ENDLOOP.GT_DATA = LT_DATA.ELSEIF P2 = 'X'. "查询SELECT  QYDH,QYDATE,MBLNR,MATNR,MAKTX,AUFNR,MATKL,WGBEZ,SERNR,AMEIN,GGXH,QYL,QYR,QYRQ,SCRQ,GSTRPFROM ZQMT_QYLISTINTO CORRESPONDING FIELDS OF TABLE @GT_DATAWHERE MATNR IN @S_MATNRAND SERNR IN @S_SERNRAND MBLNR IN @S_MBLNRAND QYDH  IN @S_QYDHAND QYDH   LIKE 'YC%'AND QYDATE IN @S_QYDATE.ENDIF.SORT GT_DATA.DELETE ADJACENT DUPLICATES FROM  GT_DATA COMPARING ALL FIELDS.LOOP AT GT_DATA INTO GS_DATA.GS_DATA-QYL = 1.GS_DATA-QYRQ = SY-DATUM.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.
ENDFORM.

ABAP问题记录---＞物料编码和序列号的相爱相杀相关推荐

支付宝与微信转战刷脸支付，多年相爱相杀情归何处？
说起阿里巴巴与腾讯,似乎怎么也绕不开马云跟马化腾. 两马同台,自是不同凡响. 有次,两人同台颁奖. 主持人问马云:"你们都信马,你觉得两人之间最显著的区别是什么?" 马云笑答:&q ...
相关与因果的相爱相杀——新书《为什么：因果关系的新科学》解读（上）
<为什么:因果关系的新科学>(The Book of Why: The New Science of Cause and Effect)是今年3月刚出版的新书,作者是一位传奇人物,81岁的 ...
1024：我与CSDN的相爱相杀
文章目录一.前言二.与CSDN的相爱相杀 1.入目无人四下皆是你 2.金风玉露一相逢 3.待得九宵清风起 4.姜花深处无少年三.总结一.前言不知不觉相伴CSDN已经三年有余,这三年时间登陆多 ...
阿里云CDN技术掌舵人文景：相爱相杀一路狂奔的这十年
提到阿里云CDN,不得不提技术掌舵人姚伟斌(文景),虽然他不是团队中最"老"的同学,但他却历经了淘宝业务发展最为飞速的几年,见证了从最初服务淘宝和集团内部的CDN,到如今国内服务客 ...
人类一败涂地电脑版_iOS账号分享 |人类一败涂地我们继续相爱相杀，PC大火游戏移植！...
「改变能改变的一切,接受不能改变的一切!」 ▼ PC 平台上爆火的多人物理益智游戏<人类一败涂地>(Human: Fall Flat)移动版正式登陆 iOS 和 Android 平台,游 ...
美团支付宝互探腹地相爱相杀再度升级
文章原创来自洞见网:http://www.localonline.com.cn/view/ec/735.html,转载请注明出处. 20年前,网络还未盛行,曾有人做过一场行为艺术"不出门, ...
无责任猜想#冰桶挑战#大佬们相爱相杀众生相
看#冰桶挑战#大佬们点名的关系图谱,无意中发现很多有趣的关系啊,下面为八妹子自娱自乐无责任猜想,认真你就输了哦! 1. 微软谷歌苹果Facebook,老大哥.新小弟之间的相互厮杀 FACEBOOK的 ...
Anchor Based和Anchor Free的相爱相杀与ATSS的诞生
前言我们都知道按照是否出现RPN可将目标检测算法分为two-stage和one-stage,其中one-stage的一个主要代表便是YOLO系列,而根据是否存在先验锚框的定义我们也可以将其分为Anc ...
30年「相爱相杀」：30张照片回顾乔布斯和比尔盖茨之间「不得不说」的故事
Python实战社群 Java实战社群长按识别下方二维码,按需求添加扫码关注添加客服进Python社群▲ 扫码关注添加客服进Java社群▲ 来源丨BI 来源公众号丨新智元(ID:AI_era) ...
30年「相爱相杀」：30张照片回顾乔布斯和比尔盖茨之间「不得不说」的故事...
Python实战社群 Java实战社群长按识别下方二维码,按需求添加扫码关注添加客服进Python社群▲ 扫码关注添加客服进Java社群▲ 来源丨BI 来源公众号丨新智元(ID:AI_era) ...

ABAP问题记录---＞物料编码和序列号的相爱相杀

ABAP问题记录---＞物料编码和序列号的相爱相杀相关推荐

最新文章

热门文章