SAP query傳輸及其他記錄

1、要生成TCODE需要先查看報表名并復制報表名。表連接，主表對其他表如果一對多會造成主表數(shù)據(jù)行重復顯示。如果其他表的數(shù)據(jù)可能為空則需使用外部連接，否則主表數(shù)據(jù)也不顯示。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.已預制未過賬發(fā)票數(shù)量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.發(fā)票校驗數(shù)量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.待預制發(fā)票的數(shù)量CLEARYZFP1.IFEKPO-REPOS=X.YZFP1=EKET-WEMNG-FPJY-YZFP.ELSEIFYZFP1=0.ENDIF.待預制發(fā)票金額(不含稅)CLEARYZFP1JE.IFEKPO-REPOS=X.IFYZFP1=EKPO-MENGE.YZFP1JE=EKPO-NETWR.ELSE.YZFP1JE=YZFP1*EKPO-NETPR.ENDIF.ELSE.YZFP1JE=0.ENDIF.待預制發(fā)票金額(單價

7、不準確時由總價反推單價)注：期初導入訂單創(chuàng)建時，將單價寫為1，然后輸入總價有時會出現(xiàn)bug，系統(tǒng)自動回推的單價不準確。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.待預制發(fā)票標識DATAl_SL1TYPEEKPO-MENGE.CLEAR:L_SL1,YZBS.L_SL1=EKET-WEMNG-FPJY-YZFP.IFEKPO-EREKZNEXANDEKPO-REPOS=XANDL_SL10.YZBS=X.ENDIF.已創(chuàng)建交貨單數(shù)量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.待創(chuàng)建交貨單標識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.SELECTSINGLEXQJHMFRO

11、MZMMDG001AINTOXQJHMWHEREXQJHH=EKPO-BEDNR.需求計劃類型CLEARJHLX.SELECTSINGLEJHLXFROMZMMDG001AINTOJHLXWHEREXQJHH=EKPO-BEDNR.需求計劃類型描述CLEARJHLXMS.SELECTSINGLEJHLXMSFROMZMMDG001AINTOJHLXMSWHEREXQJHH=EKPO-BEDNR.需求提報人CLEARTNAME.SELECTSINGLETNAMEFROMZMMDG001AINTOTNAMEWHEREXQJHH=EKPO-BEDNR.提報單位CLEARTBDW.SELECTSING

12、LETBDWFROMZMMDG001AINTOTBDWWHEREXQJHH=EKPO-BEDNR.提報單位描述CLEARTBDWMS.SELECTSINGLETBDWMSFROMZMMDG001AINTOTBDWMSWHEREXQJHH=EKPO-BEDNR.總賬科目DATA:L_AWKEYTYPEBKPF-AWKEY,L_BELNRTYPEBSEG-BELNR.CONCATENATEMSEG-MBLNRMSEG-MJAHRINTOL_AWKEY.CLEARL_BELNR.SELECTSINGLEBELNRFROMBKPFINTOL_BELNRWHEREAWTYP=MKPFANDAWKEY=L_AWKEY.SELECTSINGLEHK