《SAPquery传输和他记录文本》由会员分享，可在线阅读，更多相关《SAPquery传输和他记录文本（20页珍藏版）》请在金锄头文库上搜索。
1、要生成TCODE需要先查看报表名并复制报表名。表连接，主表对其他表如果一对多会造成主表数据行重复显示。如果其他表的数据可能为空则需使用外部连接，否则主表数据也不显示。ZMMRP011 采购订单查询报表的代码记录物料长描述DATA:lt_linesTYPETABLEOFtlineWITHHEADERLINE,l_nameTYPEthead-tdname.物料长文本CLEAR:lt_lines,l_name,LONGTEXT.l_name=EKPO-matnr.CALLFUNCTIONREAD_TEXTEXPORTINGclient=sy-mandtid=GRUNlanguage=1name=l_
2、nameobject=MATERIALTABLESlines=lt_linesEXCEPTIONSid=1language=2name=3not_found=4object=5reference_check=6wrong_access_to_archive=7OTHERS=8.IFsy-subrc0.*ImplementsuitableerrorhandlinghereENDIF.LOOPATlt_lines.CONCATENATELONGTEXTlt_lines-tdlineINTOLONGTEXT.ENDLOOP.批准日期取法(供应部01审批日期)SELECTSINGLEMAX(UDATE
3、)FROMCDPOSASAINNERJOINCDHDRASBONAOBJECTCLAS=BOBJECTCLASANDAOBJECTID=BOBJECTIDANDACHANGENR=BCHANGENRINTORLDATEWHEREAOBJECTCLAS=EINKBELEGANDAOBJECTID=EKPO-EBELNANDATABNAME=EKKOANDFNAME=FRGKEANDVALUE_OLD=0ANDVALUE_NEW=1.已预制未过账发票数量DATA:BEGINOFLT_EKBE1OCCURS0,EBELNTYPEEKBE-EBELN,EBELPTYPEEKBE-EBELP,MENGE
4、TYPEEKBE-MENGE,SHKZGTYPEEKBE-SHKZG,ENDOFLT_EKBE1.REFRESHLT_EKBE1.SELECTEBELNEBELPMENGESHKZGFROMEKBEINTOTABLELT_EKBE1WHEREEBELN=EKPO-EBELNANDEBELP=EKPO-EBELPANDBEWTP=T.CLEARYZFP.LOOPATLT_EKBE1.IFLT_EKBE1-SHKZGEQS.YZFP=YZFP+LT_EKBE1-MENGE.ENDIF.IFLT_EKBE1-SHKZGEQH.YZFP=YZFP-LT_EKBE1-MENGE.ENDIF.ENDLOO
5、P.发票校验数量DATA:BEGINOFLT_EKBEOCCURS0,EBELNTYPEEKBE-EBELN,EBELPTYPEEKBE-EBELP,MENGETYPEEKBE-MENGE,SHKZGTYPEEKBE-SHKZG,ENDOFLT_EKBE.REFRESHLT_EKBE.SELECTEBELNEBELPMENGESHKZGFROMEKBEINTOTABLELT_EKBEWHEREEBELN=EKPO-EBELNANDEBELP=EKPO-EBELPANDBEWTP=Q.CLEARFPJY.LOOPATLT_EKBE.IFLT_EKBE-SHKZGEQS.FPJY=FPJY+LT_
6、EKBE-MENGE.ENDIF.IFLT_EKBE-SHKZGEQH.FPJY=FPJY-LT_EKBE-MENGE.ENDIF.ENDLOOP.待预制发票的数量CLEARYZFP1.IFEKPO-REPOS=X.YZFP1=EKET-WEMNG-FPJY-YZFP.ELSEIFYZFP1=0.ENDIF.待预制发票金额(不含税)CLEARYZFP1JE.IFEKPO-REPOS=X.IFYZFP1=EKPO-MENGE.YZFP1JE=EKPO-NETWR.ELSE.YZFP1JE=YZFP1*EKPO-NETPR.ENDIF.ELSE.YZFP1JE=0.ENDIF.待预制发票金额(单价
7、不准确时由总价反推单价)注：期初导入订单创建时，将单价写为1，然后输入总价有时会出现bug，系统自动回推的单价不准确。CLEARYZFP2JE.IFEKPO-REPOS=X.IFYZFP1=EKPO-MENGE.YZFP2JE=EKPO-NETWR.ELSE.YZFP2JE=YZFP1*(EKPO-NETWR/EKPO-MENGE).ENDIF.ELSE.YZFP2JE=0.ENDIF.待收货标识DATAl_SLTYPEEKPO-MENGE.CLEAR:L_SL,SHBS.L_SL=EKPO-MENGE-EKET-WEMNG.IFEKPO-ELIKZNEXANDL_SL0.SHBS=X.END
8、IF.待预制发票标识DATAl_SL1TYPEEKPO-MENGE.CLEAR:L_SL1,YZBS.L_SL1=EKET-WEMNG-FPJY-YZFP.IFEKPO-EREKZNEXANDEKPO-REPOS=XANDL_SL10.YZBS=X.ENDIF.已创建交货单数量DATA:BEGINOFLT_LIPSOCCURS0,VGBELTYPELIPS-VGBEL,VGPOSTYPELIPS-VGPOS,LFIMGTYPELIPS-LFIMG,ENDOFLT_LIPS.REFRESHLT_LIPS.SELECTVGBELVGPOSLFIMGFROMLIPSINTOTABLELT_LIPSW
9、HEREVGBEL=EKPO-EBELNANDVGPOS=EKPO-EBELP.CLEARINDM.LOOPATLT_LIPS.INDM=INDM+LT_LIPS-LFIMG.ENDLOOP.待创建交货单标识DATAl_SL2TYPEEKPO-MENGE.CLEAR:L_SL2,INDMBS.L_SL2=EKET-WEMNG-INDM.IFEKPO-ELIKZNEXANDEKPO-WEPOS=XANDL_SL20.INDMBS=X.ENDIF.寄售物资当前单价(不含税)DATA:LS_A017TYPEA017.CLEAR:LS_A017.SELECTSINGLE*FROMA017INTOLS_
10、A017WHEREMATNR=EKPO-MATNRANDESOKZ=2ANDKAPPL=MANDLIFNR=EKKO-LIFNRANDDATBIGEEKET-EINDTANDDATABLEEKET-EINDT.IFSY-SUBRCEQ0ANDEKPO-PSTYP=2.SELECTSINGLEKBETRFROMKONPINTOJSDJWHEREKNUMH=LS_A017-KNUMH.JSDJ=JSDJ*100/117.ELSEIFJSDJ=0.ENDIF.寄售物资当前金额(不含税)JSJE=JSDJ*EKPO-MENGE.需求计划名称CLEARXQJHM.SELECTSINGLEXQJHMFROMZMMDG001AINTOXQJHMWHEREXQJHH=EKPO-BEDNR
