聯(lián)芯科技ERP項(xiàng)目-技術(shù)文檔-SD-008-終端合同執(zhí)行明細(xì)-20090909

DATE\@"yyyy-MM-dd"2009-10-29Version1.0PAGE1聯(lián)芯科技ERP項(xiàng)目 DATE\@"M/d/yyyy"10/29/2009Version1.0 聯(lián)芯科技ERP項(xiàng)目開發(fā)規(guī)格書第I部分:需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡P(guān)P ■SD MACROBUTTONCheckIt_CheckBox￡FI MACROBUTTONCheckIt_CheckBox￡CO MACROBUTTONCheckIt_CheckBox￡IP/FMMACROBUTTONCheckIt_CheckBox￡其它Spec編號(hào)ZLC_SD_009短描述終端合同執(zhí)行表類型MACROBUTTONUnCheckIt_Radiobutton報(bào)表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表單MACROBUTTONCheckIt_Radiobutton流程增強(qiáng)MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級(jí)MACROBUTTONUnCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell李向陽要求日期2009.09.09預(yù)計(jì)開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評(píng)估）必填_____天是否有標(biāo)準(zhǔn)功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標(biāo)準(zhǔn)功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標(biāo)準(zhǔn)功能表單開發(fā)：列出參考的標(biāo)準(zhǔn)的Form的技術(shù)名稱報(bào)表開發(fā)：列出參考的標(biāo)準(zhǔn)報(bào)表文檔變更歷史版本號(hào)文檔維護(hù)時(shí)間姓名簡(jiǎn)要的描述V1.02009.09．09李向陽創(chuàng)建

第II部分:詳細(xì)功能描述目的：查詢營(yíng)銷中心終端類合同執(zhí)行明細(xì)功能描述:功能顧問（必填）在什么情形下執(zhí)行當(dāng)需要了解部門的推廣情況及客戶或產(chǎn)品的推廣情況時(shí)選擇條件（詳細(xì)技術(shù)細(xì)節(jié)列在下面）用戶在系統(tǒng)中可以進(jìn)行的操作權(quán)限特別需求說明如果是單據(jù)，使用SAP標(biāo)準(zhǔn)流程打印還是開發(fā)新程序打印其它特殊功能要求運(yùn)行頻率MACROBUTTONUnCheckIt_Radiobutton任何時(shí)間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運(yùn)行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動(dòng)MACROBUTTONCheckIt_Radiobutton批處理MACROBUTTONCheckIt_Radiobutton在線處理輸出方式MACROBUTTONUnCheckIt_Radiobutton屏幕輸出MACROBUTTONUnCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件輸出）其它：打印機(jī)類型(如無特殊需求，預(yù)設(shè)為激光打印機(jī))紙張大小(如無特殊需求，預(yù)設(shè)為A4橫印)語言(如無特殊需求，預(yù)設(shè)為中文)選擇屏幕：功能顧問（必填）列出報(bào)表或自定義打印程序上選擇屏幕上的字段名稱技術(shù)名稱描述特殊需求 O所有終端合同查詢合同創(chuàng)建時(shí)間段：XXXXTO：XXXX(1)實(shí)際回款時(shí)間段：XXXXTO：XXXX(1)訂單原因：XXXXTO：XXXX(1)銷售地區(qū)：XXXXTO：XXXX(1)客戶名稱：XXXXTO：XXXX(1)產(chǎn)品類別：XXXXTO：XXXX(1)型號(hào)：XXXXTO：XXXX(1)存在欠款的合同：未執(zhí)行完畢的合同：順序字段名稱字段技術(shù)名稱字段描述特殊需求1合同創(chuàng)建時(shí)間段VBAK-ERDAT2實(shí)際回款時(shí)間段BSID/BSAD-BUDAT3訂單原因VBAK-AUGRU4客戶所在地KNA1-REGIO5客戶名稱KNA1-NAME16產(chǎn)品類別VBAP-MVGR27型號(hào)VBAP-MVGR3存在欠款的合同未執(zhí)行完畢的合同報(bào)表/表單的字段功能顧問（必填）列出報(bào)表或自定義打印程序上選擇屏幕上的字段顯示名稱(在屏幕或單據(jù)上的名稱)技術(shù)名稱（字段的來源信息，如果有默認(rèn)值或需要計(jì)算，也需要列出）描述（字段的業(yè)務(wù)含義，包括的內(nèi)容等，例：標(biāo)準(zhǔn)salesorder—所有類型為OR的訂單）特殊需求（如需要加入英文注釋）輸出界面：順序字段名稱字段技術(shù)名稱字段描述特殊需求1合同創(chuàng)建日期VBAK-ERDAT2SAP合同號(hào)VBAK－VBELN3內(nèi)部合同號(hào)VBKD－BSTKD4合同名稱VBAK-KTEXT5銷售VBPA－pernr輸出顯示描述合作伙伴功能=ZM的人員6商務(wù)VBPA－pernr輸出顯示描述合作伙伴功能=Z2的人員7銷售助理VBPA－pernr輸出顯示描述合作伙伴功能=Z1的人員8訂單原因VBAK-AUGRU輸出顯示描述9行項(xiàng)目類別VBAP-PSTYV輸出顯示描述10客戶所在地KNA1-REGIO輸出顯示描述11客戶名稱KNA1-NAME1輸出顯示描述12最終廠商KNA1-NAME1輸出顯示描述合作伙伴功能=Z3的客戶13產(chǎn)品類別VBAP-MVGR2輸出顯示描述14產(chǎn)品類別描述TVM2T-BEZEI輸出顯示描述15產(chǎn)品型號(hào)VBAP-MVGR3輸出顯示描述16產(chǎn)品型號(hào)描述TVM3T-BEZEI輸出顯示描述17物料號(hào)VBAP－MATNR18物料描述MAKT-MAKTX19合同數(shù)量VBAP-ZMENG20目錄價(jià)KONV-KBETR21折扣率KONV-KBETR22一次性優(yōu)惠KONV-KBETR23行項(xiàng)目總金額VBAP-KZWI124回款條件文本25實(shí)際收款時(shí)間BSID/BSAD-BUDAT26實(shí)際收款金額BSID/BSAD-DMBTR27未回款金額同一個(gè)合同內(nèi)行項(xiàng)目總金額的累加，減實(shí)際回款的累加28總交付數(shù)量同一個(gè)合同內(nèi)行項(xiàng)目交貨數(shù)量的累加29開票數(shù)量同一個(gè)合同內(nèi)行項(xiàng)目開票數(shù)量的累加30開票金額VBRP-KZWI1格式/屏幕設(shè)計(jì)：必填報(bào)表和單據(jù)列出紙張附件名（必填）附上Excel/Word附件。(如附檔XXXXXXXX.XLS/或附表XXXX單)（必填）屏幕截圖邏輯關(guān)系：根據(jù)屏幕選擇的內(nèi)容，選擇滿足條件的合同號(hào)；依據(jù)該合同號(hào)顯示該合同的相關(guān)信息:合同抬頭信息（合同創(chuàng)建日期、SAP合同號(hào)、合同名稱、客戶編號(hào)、訂單原因）在VBAK中;合同的行項(xiàng)目信息（產(chǎn)品類別、型號(hào)、物料號(hào)、物料描述、金額、合同數(shù)量、行項(xiàng)目總金額、行項(xiàng)目類別）在VBAP中;其他相關(guān)信息：（內(nèi)部合同號(hào)）在VBKD中；（銷售和商務(wù)、銷售助理）在VBPA中，合作伙伴功能為ZM的是銷售人員編號(hào)，為Z2的是商務(wù)人員編號(hào)，為Z1的是銷售助理編號(hào)，根據(jù)人員編號(hào)找人員姓名VBPA與VBAP通過合同號(hào)VBELN連接VBAK與VBAP通過合同號(hào)VBELN連接根據(jù)客戶編號(hào)，可以在KNA1中查詢到客戶名稱KNA1-NAME1，以及客戶所在地區(qū)最終廠商，在VBPA中合作伙伴功能=Z3，VBPA與VBAP通過合同號(hào)及行項(xiàng)目號(hào)連接目錄價(jià)ZL02在VBAK中的KNUMV與KONV中的KNUMV連接,同時(shí)根據(jù)VBAP中的行項(xiàng)目號(hào)與KONV中的行項(xiàng)目號(hào)查找條件類型KSCHL為Zl02的條目，價(jià)格=KONV-KBETR折扣率ZA00VBAK中的KNUMV與KONV中的KNUMV連接,同時(shí)根據(jù)VBAP中的行項(xiàng)目號(hào)與KONV中的行項(xiàng)目號(hào)查找條件類型KSCHL為ZA00的條目，價(jià)格=KONV-KBETR一次性優(yōu)惠ZB00VBAK中的KNUMV與KONV中的KNUMV連接,同時(shí)根據(jù)VBAP中的行項(xiàng)目號(hào)與KONV中的行項(xiàng)目號(hào)查找條件類型KSCHL為ZB00的條目，價(jià)格=KONV-KBETR回款條件：ZR01為第一次回款，ZR02為第二次回款，ZR03為第三次回款，ZR04為第四次回款，ZR05為第伍次回款。文本為抬頭層次，文本確定過程為Z2。實(shí)際回款日期：實(shí)際回款金額（收款）：總欠款（整個(gè)合同的欠款）=同一個(gè)合同內(nèi)行項(xiàng)目總金額的累加，減實(shí)際回款的累加行項(xiàng)目總交付數(shù)量：根據(jù)SAP合同號(hào)及行項(xiàng)目號(hào)在VBFA中查找后續(xù)憑證類別為C的訂單號(hào)和訂單的行項(xiàng)目號(hào)，再在VBFA中根據(jù)訂單和訂單行項(xiàng)目號(hào)查找下一級(jí)憑證為J的交貨單號(hào)和交貨單行項(xiàng)目號(hào)。根據(jù)交貨單號(hào)和交貨單行項(xiàng)目號(hào)在LIPS中查找該行項(xiàng)目的交貨數(shù)量LFIMG并進(jìn)行累加。行項(xiàng)目開票總數(shù)量和行項(xiàng)目開票總金額：根據(jù)交貨單號(hào)和交貨單行項(xiàng)目號(hào)在VBFA中查找后續(xù)憑證類別為M和N的發(fā)票及發(fā)票的行項(xiàng)目號(hào)，根據(jù)發(fā)票及發(fā)票的行項(xiàng)目號(hào)在VBRP中查找發(fā)票數(shù)量FKIMG以及行項(xiàng)目總金額KZWI1，如果發(fā)票是N的，數(shù)量和金額為負(fù)數(shù)，為M的為正數(shù)，把發(fā)票數(shù)量及行項(xiàng)目總金額累加做為行項(xiàng)目開票總數(shù)量和行項(xiàng)目開票總金額存在欠款的合同：當(dāng)選著此條件時(shí)，輸出總欠款大于0的合同未執(zhí)行完畢的合同：當(dāng)選著此條件時(shí)，輸出除了合同中所有行項(xiàng)目都為“行項(xiàng)目合同總數(shù)量=行項(xiàng)目交貨總數(shù)量=行項(xiàng)目開票總數(shù)量”的合同信息。回款條件與實(shí)際回款金額會(huì)出現(xiàn)多對(duì)多的關(guān)系。銷售,VBPA－ADRNP根據(jù)取得的人員編號(hào)在PA0002中查詢姓NACHN和名VORNA，姓和名合并商務(wù),VBPA－ADRNP根據(jù)取得的人員編號(hào)在PA0002中查詢姓NACHN和名VORNA，姓和名合并銷售助理,VBPA－ADRNP根據(jù)取得的人員編號(hào)在PA0002中查詢姓NACHN和名VORNA，姓和名合并訂單原因,VBAK-AUGRU在TVAUT里查找對(duì)應(yīng)的描述行項(xiàng)目類別,VBAP-PSTYV在TVAPT里查找對(duì)應(yīng)的描述客戶所在地,KNA1-REGIOT005U里查找對(duì)應(yīng)的描述產(chǎn)品類別,VBAP-MVGR2在TVM2T查找對(duì)應(yīng)的描述產(chǎn)品型號(hào)，VBAP-MVGR3在TVM3T查找對(duì)應(yīng)的描述雙擊行，可以進(jìn)入VA43查看該合同號(hào)信息實(shí)際收款時(shí)間:取過帳日期，即BSID/BSAD表中的BUDAT字段實(shí)際收款金額：分為兩類，即非票據(jù)和票據(jù)，兩類收款金額均需要計(jì)算。具體如下：銀行存款和現(xiàn)金B(yǎng)SAD是已清，BSID是未清，均需要取值。根據(jù)過帳日期查找到對(duì)應(yīng)的BSAD/BSID表中的分配字段ZUONR（即銷售訂單號(hào)），文本字段SGTXT（即SAP合同號(hào)）對(duì)于付款方式標(biāo)識(shí)（BSAD/BSID表－ZLSCH字段）分別為B是銀行存款和C是現(xiàn)金付款的收款金額（BSID/BSAD-DMBTR）進(jìn)行累加。累加后金額×（－1）銀行票據(jù)1貼現(xiàn)2質(zhì)押3到期4背書5銀行承兌匯票回款6與回款無關(guān)首先到BSED表中，找到年度字段（BSED-GJAHR）/公司代碼BUKAS和憑證編號(hào)（BSED-BELNR）以及票據(jù)狀態(tài)（BSED-WSTAT）,行項(xiàng)目號(hào)（BSED-BUZEI）,其中上述1貼現(xiàn)2質(zhì)押6與回款無關(guān)三項(xiàng)不計(jì)算為回款。通過BSED表中的值，去BSID/BSAD中取相應(yīng)的憑證編號(hào)（BSED-BELNR）,行項(xiàng)目號(hào)（BSED-BUZEI）對(duì)應(yīng)的收款金額(BSID/BSAD–DMBTR)進(jìn)行累加。在累加時(shí)如果該行項(xiàng)目號(hào)和憑證編號(hào)在BSED中取出票據(jù)狀態(tài)（BSED-WSTAT）為3，4的，說明是商業(yè)承兌匯票（分為到期和背書兩種），累加后還需要×（－1）；票據(jù)狀態(tài)（BSED-WSTAT）為5的，則無需×（－1）樣張：列出業(yè)務(wù)單據(jù)編號(hào)附上樣張的WORD/EXCEL文件顯示的報(bào)表需要顯示總計(jì)和小計(jì)功能其它內(nèi)容：對(duì)報(bào)表/單據(jù)的其它功能進(jìn)行描述*注：刪除上面不適用的行和注釋行.

第III部分:技術(shù)說明ProgramnameTransactioncodeAuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：程序邏輯說明及程序邏輯圖屏幕部分1.顯示效果圖如下：實(shí)現(xiàn)代碼：SELECTION-SCREENBEGINOFBLOCKblk_1WITHFRAMETITLEtext-001.SELECT-OPTIONS:s_erdatFORvbak-erdat.SELECT-OPTIONS:s_budatFORbsid-budat.SELECT-OPTIONS:s_augruFORvbak-augru.SELECT-OPTIONS:s_regioFORkna1-regio.SELECT-OPTIONS:s_name1FORkna1-kunnr.SELECT-OPTIONS:s_mvgr2FORvbap-mvgr2.SELECT-OPTIONS:s_mvgr3FORvbap-mvgr3.SELECTION-SCREENSKIP.PARAMETERS:p_box1TYPEcASCHECKBOXUSER-COMMANDcom,p_box2TYPEcASCHECKBOX.SELECTION-SCREENENDOFBLOCKblk_1.取數(shù)部分1.首先設(shè)置它的必輸項(xiàng)，由于是一個(gè)range，所以需要對(duì)上下限進(jìn)行控制：ATSELECTION-SCREEN.IFp_box1='X'ANDp_box2='X'.MESSAGE'不能同時(shí)選擇2個(gè)條件'TYPE'E'.ENDIF.IFs_mvgr2-highISINITIALANDs_mvgr2-lowISINITIAL.SETCURSORFIELD'S_MVGR2-LOW'."設(shè)置光標(biāo)在提示位置MESSAGE'產(chǎn)品類型不能為空！'TYPE'E'.ENDIF.2．獲取VBAK,VBAP數(shù)據(jù)SELECTvbak~erdatvbak~vbelnvbap~posnrvbak~ktextvbak~kunnrvbak~augruvbap~pstyvvbap~mvgr2vbap~mvgr3vbap~matnrvbap~zmengvbap~kzwi1vbak~knumvINTOTABLEgt_vbakFROMvbakINNERJOINvbapONvbak~vbeln=vbap~vbelnWHEREvbak~erdatINs_erdatANDvbak~augruINs_augruANDvbap~mvgr2INs_mvgr2ANDvbap~mvgr3INs_mvgr3.3.獲取所有的描述**獲取物料描述SELECTmatnrmaktxINTOTABLEgt_maktFROMmaktFORALLENTRIESINgt_vbakWHEREmatnr=gt_vbak-matnrANDspras='1'.**獲取產(chǎn)品描述SELECTmvgr2bezeiINTOTABLEgt_tvm2tFROMtvm2tFORALLENTRIESINgt_vbakWHEREmvgr2=gt_vbak-mvgr2ANDspras='1'.**獲取產(chǎn)品類型描述SELECTmvgr3bezeiINTOTABLEgt_tvm3tFROMtvm3tFORALLENTRIESINgt_vbakWHEREmvgr3=gt_vbak-mvgr3ANDspras='1'.**獲取行項(xiàng)目類別描述SELECTpstyvvtextINTOTABLEgt_tvaptFROMtvaptFORALLENTRIESINgt_vbakWHEREpstyv=gt_vbak-pstyvANDspras='1'.**獲取訂單原因描述SELECTaugrubezeiINTOTABLEgt_tvautFROMtvautFORALLENTRIESINgt_vbakWHEREaugru=gt_vbak-augruANDspras='1'.4.獲取內(nèi)部合同號(hào)*獲取內(nèi)部合同號(hào)SELECTvbelnposnrbstkdINTOTABLEgt_vbkdFROMvbkdFORALLENTRIESINgt_vbakWHEREvbeln=gt_vbak-vbelnANDposnr=gt_vbak-posnr.

5.合作伙伴功能=ZM、Z1、Z2、Z3的人員SELECTvbelnposnrparvwkunnrpernrINTOTABLEgt_vbpaFROMvbpaFORALLENTRIESINgt_vbakWHEREvbeln=gt_vbak-vbelnANDposnr=gt_vbak-posnrANDparvwIN('ZM','Z1','Z2','Z3').6.獲取目錄價(jià)/折扣率/一次性優(yōu)惠:ZL02/ZA00/ZB00在VBAK中的KNUMV與KONV中的KNUMV連接,同時(shí)根據(jù)VBAP中的行項(xiàng)目號(hào)與KONV中的行項(xiàng)目號(hào)查找條件類型KSCHL為ZL02/ZA00/ZB00的條目，價(jià)格=KONV-KBETR.SELECTknumvkposnstunrkschlkbetrINTOTABLEgt_konvFROMkonvFORALLENTRIESINgt_vbakWHEREknumv=gt_vbak-knumvANDkposn=gt_vbak-posnrANDkschlIN('ZL02','ZA00','ZB00')7.行項(xiàng)目總交付數(shù)量:根據(jù)SAP合同號(hào)及行項(xiàng)目號(hào)在VBFA中查找后續(xù)憑證類別為C的訂單號(hào)和訂單的行項(xiàng)目號(hào)，再在VBFA中根據(jù)訂單和訂單行項(xiàng)目號(hào)查找下一級(jí)憑證為J的交貨單號(hào)和交貨單行項(xiàng)目號(hào)。根據(jù)交貨單號(hào)和交貨單行項(xiàng)目號(hào)在LIPS中查找該行項(xiàng)目的交貨數(shù)量LFIMG并進(jìn)行累加.**獲取銷售訂單SELECTvbelvposnvvbelnposnnINTOTABLEgt_vbfa1FROMvbfaFORALLENTRIESINgt_vbakWHEREvbelv=gt_vbak-vbelnANDposnv=gt_vbak-posnrANDvbtyp_n='C'.**獲取交貨單IFgt_vbfa1ISNOTINITIAL.SELECTvbelvposnvvbelnposnnINTOTABLEgt_vbfa2FROMvbfaFORALLENTRIESINgt_vbfa1WHEREvbelv=gt_vbfa1-vbelnANDposnv=gt_vbfa1-posnnANDvbtyp_n='J'.***獲取交貨數(shù)量IFgt_vbfa2ISNOTINITIAL.SELECTvbelnposnrlfimgINTOTABLEgt_lipsFROMlipsFORALLENTRIESINgt_vbfa2WHEREvbeln=gt_vbfa2-vbelnANDposnr=gt_vbfa2-posnn.ENDIF.8.行項(xiàng)目開票總數(shù)量和行項(xiàng)目開票總金額:根據(jù)交貨單號(hào)和交貨單行項(xiàng)目號(hào)在VBFA中查找后續(xù)憑證類別為M和N的發(fā)票及發(fā)票的行項(xiàng)目號(hào)，根據(jù)發(fā)票及發(fā)票的行項(xiàng)目號(hào)在VBRP中查找發(fā)票數(shù)量FKIMG以及行項(xiàng)目總金額KZWI1，如果發(fā)票是N的，數(shù)量和金額為負(fù)數(shù)，為M的為正數(shù)，把發(fā)票數(shù)量及行項(xiàng)目總金額累加做為行項(xiàng)目開票總數(shù)量和行項(xiàng)目開票總金額.***行項(xiàng)目開票總數(shù)量和行項(xiàng)目開票總金額IFgt_vbfa2ISNOTINITIAL.SELECTvbelvposnvvbelnposnnvbtyp_nINTOTABLEgt_vbfa3FROMvbfaFORALLENTRIESINgt_vbfa2WHEREvbelv=gt_vbfa2-vbelnANDposnv=gt_vbfa2-posnnANDvbtyp_nIN('M','N').ENDIF.****獲取發(fā)票數(shù)量和金額IFgt_vbfa3ISNOTINITIAL.SELECTvbelnposnrfkimgkzwi1INTOTABLEgt_vbrpFROMvbrpFORALLENTRIESINgt_vbfa3WHEREvbeln=gt_vbfa3-vbelnANDposnr=gt_vbfa3-posnn.ENDIF.*****對(duì)行項(xiàng)目的數(shù)量和金額進(jìn)行匯總LOOPATgt_vbrpINTOgs_vbrp.READTABLEgt_vbfa3INTOgs_vbfa3WITHKEYvbeln=gs_vbrp-vbelnposnn=gs_vbrp-posnr."反查交貨單IFsy-subrc=0.gs_vbrp_deal-vbtyp_n=gs_vbfa3-vbtyp_n.READTABLEgt_vbfa2INTOgs_vbfa2WITHKEYvbeln=gs_vbfa3-vbelvposnn=gs_vbfa3-posnv."反推銷售單IFsy-subrc=0.READTABLEgt_vbfa1INTOgs_vbfa1WITHKEYvbeln=gs_vbfa2-vbelvposnn=gs_vbfa2-posnv."反推合同IFsy-subrc=0.READTABLEgt_vbakINTOgs_vbakWITHKEYvbeln=gs_vbfa1-vbelvposnr=gs_vbfa1-posnv."獲得合同號(hào)IFsy-subrc=0.gs_vbrp_deal-vbeln=gs_vbak-vbeln.gs_vbrp_deal-posnr=gs_vbak-posnr.ENDIF.ENDIF.ENDIF.ENDIF.9.實(shí)際收款時(shí)間/金額:*--銀行存款和現(xiàn)金SELECTsgtxtbudatzlschdmbtrbukrsgjahrbelnrbuzeiINTOTABLEgt_bsadFROMbsadWHEREbudatINs_budat.SELECTsgtxtbudatzlschdmbtrbukrsgjahrbelnrbuzeiINTOTABLEgt_bsidFROMbsidWHEREbudatINs_budat.**壓縮字符串賦給合同類型字段LOOPATgt_bsadINTOgs_bsad.CONDENSEgs_bsad-sgtxt.IFgs_bsad-zlsch='B'ORgs_bsad-zlsch='C'.gs_vbeln_deal-vbeln=gs_bsad-sgtxt.*補(bǔ)全0CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=gs_vbeln_deal-vbelnIMPORTINGoutput=gs_vbeln_deal-vbeln.gs_vbeln_deal-budat=gs_bsad-budat.gs_vbeln_deal-dmbtr=gs_bsad-dmbtr.gs_vbeln_deal-bukrs=gs_bsad-bukrs.gs_vbeln_deal-gjahr=gs_bsad-gjahr.gs_vbeln_deal-belnr=gs_bsad-belnr.gs_vbeln_deal-buzei=gs_bsad-buzei.APPENDgs_vbeln_dealTOgt_vbeln_deal.ENDIF.gs_vbeln_deal_note-vbeln=gs_bsad-sgtxt.*補(bǔ)全0CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=gs_vbeln_deal_note-vbelnIMPORTINGoutput=gs_vbeln_deal_note-vbeln.gs_vbeln_deal_note-budat=gs_bsad-budat.gs_vbeln_deal_note-dmbtr=gs_bsad-dmbtr.gs_vbeln_deal_note-bukrs=gs_bsad-bukrs.gs_vbeln_deal_note-gjahr=gs_bsad-gjahr.gs_vbeln_deal_note-belnr=gs_bsad-belnr.gs_vbeln_deal_note-buzei=gs_bsad-buzei.APPENDgs_vbeln_deal_noteTOgt_vbeln_deal_note.CLEAR:gs_bsad,gs_vbeln_deal,gs_vbeln_deal_note.ENDLOOP.LOOPATgt_bsidINTOgs_bsid.CONDENSEgs_bsid-sgtxt.IFgs_bsid-zlsch='B'ORgs_bsid-zlsch='C'.gs_vbeln_deal-vbeln=gs_bsid-sgtxt.*補(bǔ)全0CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=gs_vbeln_deal-vbelnIMPORTINGoutput=gs_vbeln_deal-vbeln.gs_vbeln_deal-budat=gs_bsid-budat.gs_vbeln_deal-dmbtr=gs_bsid-dmbtr.gs_vbeln_deal-bukrs=gs_bsid-bukrs.gs_vbeln_deal-gjahr=gs_bsid-gjahr.gs_vbeln_deal-belnr=gs_bsid-belnr.gs_vbeln_deal-buzei=gs_bsid-buzei.APPENDgs_vbeln_dealTOgt_vbeln_deal.ENDIF.gs_vbeln_deal_note-vbeln=gs_bsid-sgtxt.*補(bǔ)全0CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=gs_vbeln_deal_note-vbelnIMPORTINGoutput=gs_vbeln_deal_note-vbeln.gs_vbeln_deal_note-budat=gs_bsid-budat.gs_vbeln_deal_note-dmbtr=gs_bsid-dmbtr.gs_vbeln_deal_note-bukrs=gs_bsid-bukrs.gs_vbeln_deal_note-gjahr=gs_bsid-gjahr.gs_vbeln_deal_note-belnr=gs_bsid-belnr.gs_vbeln_deal_note-buzei=gs_bsid-buzei.APPENDgs_vbeln_deal_noteTOgt_vbeln_deal_note.CLEAR:gs_bsid,gs_vbeln_deal,gs_vbeln_deal_note.ENDLOOP.**刪除不符合要求的合同LOOPATgt_vbeln_dealINTOgs_vbeln_deal.READTABLEgt_vbakINTOgs_vbakWITHKEYvbeln=gs_vbeln_deal-vbeln.IFsy-subrc<>0.DELETEgt_vbeln_dealWHEREvbeln=gs_vbeln_deal-vbeln.ENDIF.CLEAR:gs_vbak.CLEAR:gs_vbeln_deal.ENDLOOP.LOOPATgt_vbeln_deal_noteINTOgs_vbeln_deal_note.READTABLEgt_vbakINTOgs_vbakWITHKEYvbeln=gs_vbeln_deal_note-vbeln.IFsy-subrc<>0.DELETEgt_vbeln_deal_noteWHEREvbeln=gs_vbeln_deal_note-vbeln.ENDIF.CLEAR:gs_vbak.CLEAR:gs_vbeln_deal_note.ENDLOOP.**對(duì)銀行存款和現(xiàn)金內(nèi)表進(jìn)行排序SORTgt_vbeln_dealBYvbelnbudat.**對(duì)銀行存款和現(xiàn)金進(jìn)行統(tǒng)計(jì)LOOPATgt_vbeln_dealINTOgs_vbeln_deal.gs_vbeln_deal_1=gs_vbeln_deal.ATENDOFbudat.SUM.gs_vbeln_deal_1-dmbtr=gs_vbeln_deal-dmbtr.APPENDgs_vbeln_deal_1TOgt_vbeln_deal_1.ENDAT.CLEAR:gs_vbeln_deal,gs_vbeln_deal.ENDLOOP.*--銀行票據(jù)IFgt_vbeln_deal_noteISNOTINITIAL.SELECTbukrsbelnrgjahrbuzeiwstatINTOTABLEgt_bsedFROMbsedFORALLENTRIESINgt_vbeln_deal_noteWHEREbukrs=gt_vbeln_deal_note-bukrsANDbelnr=gt_vbeln_deal_note-belnrANDgjahr=gt_vbeln_deal_note-gjahrANDbuzei=gt_vbeln_deal_note-buzeiANDwstatIN('3','4','5').ENDIF.**整合數(shù)據(jù)到合同LOOPATgt_vbeln_deal_noteINTOgs_vbeln_deal_note.gs_bsed_deal-vbeln=gs_vbeln_deal_note-vbeln.gs_bsed_deal-budat=gs_vbeln_deal_note-budat.gs_bsed_deal-dmbtr=gs_vbeln_deal_note-dmbtr.READTABLEgt_bsedINTOgs_bsedWITHKEYbukrs=gs_vbeln_deal_note-bukrsbelnr=gs_vbeln_deal_note-belnrgjahr=gs_vbeln_deal_note-gjahrbuzei=gs_vbeln_deal_note-buzei.IFsy-subrc=0.gs_bsed_deal-wstat=gs_bsed-wstat.APPENDgs_bsed_dealTOgt_bsed_deal.ENDIF.CLEAR:gs_bsed,gs_bsed_deal.CLEAR:gs_vbeln_deal_note.ENDLOOP.ENDIF.**匯總銀行票據(jù)金額DATA:lv_dmbtrTYPEdmbtr.SORTgt_bsed_dealBYvbelnbudat.LOOPATgt_bsed_dealINTOgs_bsed_deal.gs_bsed_deal_1=gs_bsed_deal.IFgs_bsed_deal-wstat='3'ORgs_bsed_deal-wstat='4'.lv_dmbtr=lv_dmbtr-gs_bsed_deal-dmbtr.ELSEIFgs_bsed_deal-wstat='5'.lv_dmbtr=lv_dmbtr+gs_bsed_deal-dmbtr.ENDIF.ATENDOFbudat.gs_bsed_deal_1-dmbtr=lv_dmbtr.APPENDgs_bsed_deal_1TOgt_bsed_deal_1.CLEAR:lv_dmbtr.ENDAT.CLEAR:gs_bsed_deal,gs_bsed_deal_1.ENDLOOP.10．獲取長(zhǎng)文本信息**讀取合同的項(xiàng)目文本--第一次回款CALLFUNCTION'READ_TEXT'EXPORTINGclient=sy-mandtid='ZR01'language='1'name=tdnameobject='VBBK'TABLESlines=lt_tlineEXCEPTIONSid=1language=2name=3not_found=4object=5reference_check=6wrong_access_to_archive=7OTHERS=8.IFsy-subrc<>0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.*處理長(zhǎng)文本字段LOOPATlt_tline.CONCATENATElv_str1lt_tline-tdlineINTOlv_str1.CLEAR:lt_tline.ENDLOOP.11.對(duì)總欠款進(jìn)行統(tǒng)計(jì)，并同時(shí)判斷行項(xiàng)目合同總數(shù)量=行項(xiàng)目交貨總數(shù)量=行項(xiàng)目開票總數(shù)量的項(xiàng)目*同一個(gè)合同內(nèi)行項(xiàng)目總金額的累加LOOPATgt_alvINTOgs_alv.ls_dmbtr1-vbeln=gs_alv-vbeln.ls_i-vbeln=gs_alv-vbeln.**計(jì)算一個(gè)合同中有多少個(gè)滿足行項(xiàng)目合同總數(shù)量=行項(xiàng)目交貨總數(shù)量=行項(xiàng)目開票總數(shù)量的項(xiàng)目IFgs_alv-zmeng=gs_alv-zmeng1ANDgs_alv-zmeng1=gs_alv-zmeng2.ls_i-i=ls_i-i+1.ENDIF.**一個(gè)合同的所有行項(xiàng)目lv_i1=lv_i1+1.ATENDOFvbeln.SUM.ls_dmbtr1-dmbtr=gs_alv-kzwi1.**添加到內(nèi)表APPENDls_dmbtr1TOlt_dmbtr1.**核算數(shù)量數(shù)否相等ls_i-i=lv_i1-ls_i-i.APPENDls_iTOlt_i.CLEAR:ls_i.CLEAR:lv_i1.