SAPquery传输和他记录文本.docx

1、SAPquery传输和他记录文本要生成TCODE需要先查看报表名并复制报表名。表连接，主表对其他表如果一对多会造成主表数据行重复显示。如果其他表的数据可能为空则需使用外部连接，否则主表数据也不显示。ZMMRP011 采购订单查询报表的代码记录物料长描述DATA:lt_linesTYPETABLEOFtlineWITHHEADERLINE,l_nameTYPEthead-tdname.物料长文本CLEAR:lt_lines,l_name,LONGTEXT.l_name=EKPO-matnr.CALLFUNCTIONREAD_TEXTEXPORTINGclient=sy-mandtid=GRUNl

2、anguage=1name=l_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审批日期)SELEC

3、TSINGLEMAX(UDATE)FROMCDPOSASAINNERJOINCDHDRASBONAOBJECTCLAS=BOBJECTCLASANDAOBJECTID=BOBJECTIDANDACHANGENR=BCHANGENRINTORLDATEWHEREAOBJECTCLAS=EINKBELEGANDAOBJECTID=EKPO-EBELNANDATABNAME=EKKOANDFNAME=FRGKEANDVALUE_OLD=0ANDVALUE_NEW=1.已预制未过账发票数量DATA:BEGINOFLT_EKBE1OCCURS0,EBELNTYPEEKBE-EBELN,EBELPTYPE

4、EKBE-EBELP,MENGETYPEEKBE-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-ME

5、NGE.ENDIF.ENDLOOP.发票校验数量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-SHKZGE

6、QS.FPJY=FPJY+LT_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.

7、ENDIF.待预制发票金额(单价不准确时由总价反推单价)注：期初导入订单创建时，将单价写为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-ELIKZNEXAND

8、L_SL0.SHBS=X.ENDIF.待预制发票标识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.SELECTVGBELVGPOSLFIMGFROMLIPSI

9、NTOTABLELT_LIPSWHEREVGBEL=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

10、*FROMA017INTOLS_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.SELE

11、CTSINGLEXQJHMFROMZMMDG001AINTOXQJHMWHEREXQJHH=EKPO-BEDNR.需求计划类型CLEARJHLX.SELECTSINGLEJHLXFROMZMMDG001AINTOJHLXWHEREXQJHH=EKPO-BEDNR.需求计划类型描述CLEARJHLXMS.SELECTSINGLEJHLXMSFROMZMMDG001AINTOJHLXMSWHEREXQJHH=EKPO-BEDNR.需求提报人CLEARTNAME.SELECTSINGLETNAMEFROMZMMDG001AINTOTNAMEWHEREXQJHH=EKPO-BEDNR.提报单位CLEA

12、RTBDW.SELECTSINGLETBDWFROMZMMDG001AINTOTBDWWHEREXQJHH=EKPO-BEDNR.提报单位描述CLEARTBDWMS.SELECTSINGLETBDWMSFROMZMMDG001AINTOTBDWMSWHEREXQJHH=EKPO-BEDNR.总账科目DATA:L_AWKEYTYPEBKPF-AWKEY,L_BELNRTYPEBSEG-BELNR.CONCATENATEMSEG-MBLNRMSEG-MJAHRINTOL_AWKEY.CLEARL_BELNR.SELECTSINGLEBELNRFROMBKPFINTOL_BELNRWHEREAWTYP=MKPFANDAWKEY=L_AWKEY.SELECTSINGLEHKONTFROMBSEGINTOSAKNRWHEREBUKRS=MSEG-BUKRSANDGJAHR=MSEG-MJAHRANDBELNR=L_BELNRANDKTOSLNEWRXANDMATNR=MSEG-MATNR.总账科目名称SELECTSINGLETXT20FROMSKATINTOTXT20WHERESAKNR=SAKNRANDKTOPLEQDLXTANDSPRAS=1.