cov1.0cats零件反沖及同步供貨業(yè)務(wù)處理接口

一、接口簡(jiǎn)單說1在總裝車間整車完工下線時(shí)（OFF-LINE點(diǎn)）會(huì)把完工車輛信CATS，CATS單；對(duì)于備件，如果CATS系統(tǒng)進(jìn)行管理，由需求產(chǎn)生沖；通過接口將零件反沖數(shù)量傳到SAP的整車反沖庫，實(shí)現(xiàn)反沖零件從線邊庫到反沖庫的庫存轉(zhuǎn)移；由于CATS零件反沖品種及對(duì)應(yīng)數(shù)量非常大，而且僅是進(jìn)行口實(shí)現(xiàn)物流與流的集，實(shí)現(xiàn)財(cái)務(wù)的管理及分析；從CATS產(chǎn)生的零件反沖中，通過中間轉(zhuǎn)換程序，取得TACT（TACT為生產(chǎn)節(jié)拍，下同）、內(nèi)外區(qū)分、部品編號(hào)、當(dāng)工順、反沖數(shù)量、反沖日期、工廠代碼；通過本接口在SAP結(jié)算時(shí)點(diǎn)，根據(jù)整車下線輛份作為結(jié)算同步供貨件數(shù)量依CATSCATS系統(tǒng)中沒有這些物料入庫信息?；赟AP系統(tǒng)采購結(jié)算需要，需根據(jù)CATS中的下線反沖線邊庫存的數(shù)據(jù)，以及工費(fèi)及其他領(lǐng)料造成的損壞的數(shù)量，在SAP中通過本程序的增強(qiáng)功能，創(chuàng)建23456無78CATSCATSMQMQSAP8二、輸入頁三、輸出頁四、程序中使用的表PTCO04PTCO04程序中使用功能模塊（FunctionModule）獲取數(shù)據(jù)說3:4input=l_matnroutput= tekomd7:保存日志到透明表8:保存日志到文件9:10:11:刪除服務(wù)器上的文件12:13:數(shù)值類型檢測(cè)14:檢測(cè)數(shù)據(jù)源Original已存E141&Original已存E142:&反沖數(shù)量&處理年月日E143:&處理年月日&E144:&工廠代碼&Part-NOE145:&Part-NO&E146&Part-NO&的工廠視圖不存E148&庫存移出數(shù)量&BAPIE149S150&#,成功導(dǎo)入&(SAP工廠&物料號(hào)&工廠&物料號(hào)&供應(yīng)商&供應(yīng)商&創(chuàng)建采購訂單失敗息:&收貨失敗:&，已取消采購訂單收貨失敗：&,取消采購訂單&:&五、程序流程圖<總體流程數(shù)據(jù)上載數(shù)據(jù)上載到循環(huán)表B對(duì)記錄增加行A表數(shù)據(jù)解析到內(nèi)表定義A:服務(wù)器上載數(shù)有效性檢Y表B循環(huán)結(jié)SORT表CBY將有效非同步供貨件記APPEND至同步供貨件數(shù)APPEND至表B循環(huán)結(jié)SORT表CBY將有效非同步供貨件記APPEND至同步供貨件數(shù)APPEND至N的無效信息記錄到臨時(shí)內(nèi)表作用lt_tep:當(dāng)內(nèi)表C中同一個(gè)original 下的記錄數(shù)超過499條時(shí),需進(jìn)行按499條為一組進(jìn)行分組，分組后的數(shù)據(jù)存入lt_temp.將l_te中的數(shù)據(jù)產(chǎn)生一條SA物料證。循環(huán)表C(WHILEC非空

條進(jìn)行分組到lt_temp的過程參見本流程圖STEP203040同同STEP60操作(將C表循環(huán)結(jié)Lt_tempISNY循環(huán)表IFlt_temp記錄數(shù)于999ANDlt_ 將lt_temp中將lt_temp中的數(shù)據(jù)調(diào)BAPI產(chǎn)生SAP物料憑Y循環(huán)內(nèi)表C結(jié)

=?YY11：APPENDCTOlt_temp2：DELETECINDEX1循環(huán)表E結(jié)結(jié)<STEP10詳細(xì)流程>數(shù)據(jù)有效性檢SelectmatnrfromMarawherematnr=上傳數(shù)據(jù)物料號(hào)數(shù)量檢YN物料是否存YN工廠數(shù)據(jù)是存在N物料是否存YN工廠數(shù)據(jù)是存在YN物料工廠數(shù)存在YN數(shù)量是否有效并不為YYN反沖日期有YYY已存在N子流程結(jié)檢查入庫單據(jù)的重復(fù)Select*from條件:入庫單據(jù)號(hào),物料號(hào),工反沖日期檢SelectwerksfrommarcWherewerks上傳數(shù)據(jù)工廠andmatnr=上傳數(shù)據(jù)物料SelectwerksfromT001WWherewerks上傳數(shù)據(jù)工廠修改成Y修改成YN所有項(xiàng)次內(nèi)容到lt_newpo_item結(jié)子流程子流程開lt_groupisnot 局部?jī)?nèi)表定lt_newpo_item需創(chuàng)建訂單的項(xiàng)目Lt_gr_item收貨項(xiàng)次內(nèi)容工廠采購組織查詢供應(yīng)商結(jié)算期間信息N存在結(jié)算期N存在結(jié)算期N結(jié)算期間記錄大于2NY將lt_group數(shù)據(jù)及錯(cuò)誤REFRESHlt_group子流程結(jié)存在采購訂 YREFRESHlt_group創(chuàng)建訂 傳入?yún)OOPLoopNlt_ekpo中已存在此料及價(jià)格一致項(xiàng) 訂單創(chuàng)建成N子訂單創(chuàng)建成N子流程結(jié)Callbapi,根將訂單、項(xiàng)次內(nèi)容append將訂單及新項(xiàng)次內(nèi)(累加后的數(shù)量)lt_cancel_po_itemLt_group循Lt_group循環(huán)結(jié)將訂單及項(xiàng)次append貨數(shù)量)append至將訂單、項(xiàng)次內(nèi)容appendNN收貨成lt_gr_item及信息寫入信息表Y子子流程結(jié)信息收集物料憑證信<STEP60詳細(xì)流程>檢查分組數(shù)據(jù)并產(chǎn)生物料憑證過子流程結(jié)子流程結(jié)子流程開循環(huán)內(nèi)表lt_temp結(jié)N Y循環(huán)內(nèi)表lt_temp結(jié)根據(jù)lt_temp數(shù)據(jù)調(diào)用BAPI創(chuàng)建物料憑1：BAPI根據(jù)lt_temp數(shù)據(jù)調(diào)用BAPI創(chuàng)建物料憑2:轉(zhuǎn)庫的源倉庫和目的倉庫為固定值， 義如1010線邊倉庫代1020反沖倉庫代創(chuàng)建成Y生生成憑證記的入日子流程結(jié)六、程序規(guī)1;主要變量定義 服務(wù)器上載數(shù)gt_mov_data1上載數(shù)據(jù)串解gt_mov_data2單據(jù)號(hào)及Vin碼有效性過濾后的數(shù)gt_matlistgt_matlist1gt_matlist2－具有有效采購價(jià)格的同步供貨件數(shù)gt_proc_info導(dǎo)入過程信息收集，最終作為寫日志和生成錯(cuò)誤文件的數(shù)據(jù)2;程序結(jié)構(gòu)1；從服務(wù)器文件至gt_content2；將gt_content數(shù)據(jù)根據(jù)layout解析、經(jīng)過PT工廠的氣門墊片消耗數(shù)據(jù)再將數(shù)據(jù)放到gt_mov_data1frm_resolve_data3；LOOP IF數(shù)據(jù)有效同步供貨件數(shù)據(jù)APPEND非同步供貨件數(shù)據(jù)APPEND4；frm_business_transact.LOOPATgt_mov_data2IFFrm_create_.對(duì)分組數(shù)據(jù)調(diào)用BAPI進(jìn)行移庫處frm_append_info5；frm_business_transact1.frm_get_vendor.,gt_matlistAPPENDfrm_check_price.,gt_matlist1APPENDgt_matlist2frm_po_gr_processLOOP按供應(yīng)商/工廠/反沖日期將gt_matlist2數(shù)據(jù)進(jìn)行分組,當(dāng)多與499條需對(duì)分組數(shù)據(jù)檢查是否已存在符合條件的采購訂IF已存創(chuàng)建采購訂單,并對(duì)這些項(xiàng)目進(jìn)行收6；將gt_proc_info追加到接口日志文件及日志數(shù)據(jù)庫七、虛擬代PROGRAMID/NAME: DATEWRITTEN:2010-5-AUTHOR'S LASTPROGRAM PROJECT 鄭州日產(chǎn)VERSION: INCLUDE: CALLS:(RFCAND TABLE: CHANGE REPORTzpvcoi004MESSAGE-IDNOSTANDARDPAGEHEADING LINE-SIZE193 LINE-COUNT TABLES*BOINCLUDE*EO*&*>_mov_data1:將服務(wù)器文件解析后的業(yè)務(wù)數(shù)*>_mov_data2:gt_mov_data1中有效性過濾后數(shù)DATA:BEGINOFgt_mov_data1OCCURS0,originaldoc(25)TYPE filename(130)TYPE procurement(1)TYPE processcode(5)TYPE partno(18)TYPEc, "零件編號(hào)ty(13)TYPEc, backflusdate(8)TYPEc, "反沖日期nt(4)TYPEc, str_ori(74)TYPEc, alter_(1)TYPE "選配件標(biāo)bkfpart(18)TYPE lineno(8)TYPEc, ENDOFgt_mov_data1.DATAgw_mov_data1LIKEDATAgt_mov_data2LIKEgt_mov_data1OCCURS0WITHHEADERLINE.DATAgt_co04alterLIKEzpv_t_co04_xpOCCURS0WITHHEADER*>_matlist*>_matlist1*>_matlist2:具有有效采購價(jià)格的同步供貨件數(shù)DATA:BEGINOFgt_matlistOCCURS0,lifnrLIKElfa1- werksLIKEmarc- backflusdate(8)TYPE originaldoc(25)TYPE filename(130)TYPE lgortLIKEt001l- "位matnrLIKEmara- mengeLIKEekpo-menge, menge_originalLIKEekpo-menge,"物料數(shù)量netprLIKEekpo-netwr, po_unitLIKEekpo-meins, currLIKEbapimepocond-currencycurr_isoLIKEbapimepocond-currency_iso,"貨幣ISO代碼zzspsgLIKEmarc-zzspsg, str_ori(74)TYPEc, lineno(8)TYPEc, ENDOFgt_matlist1LIKEgt_matlistOCCURS0WITHHEADERLINE,gt_matlist2LIKEgt_matlistOCCURS0WITHHEADERDATA:BEGINOFgt_reserv_resbOCCURS0,matnrLIKEmara-matnr,ebelpLIKEresb-ebelp,werksLIKEekpo-werks,lifnrLIKEekko-lifnr,msg(255)TYPEc,cerr(1)TYPEENDOF*DATA:BEGINOFgt_errcontentOCCURS0,originaldoc(25)TYPE procurement(1)TYPE processcode(5)TYPE partno(18)TYPEc, ty(13)TYPEc, backflusdate(8)TYPEc, nt(4)TYPE "工廠代ENDOFBEGINOFgt_proc_infoOCCURS0,filename(130)TYPE originaldoc(25)TYPE procurement(1)TYPE processcode(5)TYPE partno(18)TYPEc, ty(13)TYPEc, backflusdate(8)TYPEc, nt(4)TYPE "工廠代msgid(1)TYPE message(255)TYPE str_ori(74)TYPE lineno(8)TYPEc, ENDOFgt_proc_info.DATA:BEGINOFgt_mail_contentOCCURS0,field1(10)TYPEc,"消息類型field2(10)TYPEc,"運(yùn)行日期field3(10)TYPEc,"運(yùn)行時(shí)間field4(20)TYPEc,"程序名稱field5(255)TYPEc,ENDOFDATA:g_mail_title(20)TYPE g_dateLIKEsy-datum, g_timeLIKEsy- "程序處理開始時(shí)c_log(50)TYPEcVALUECO04的運(yùn)行日志',c_msgtype(8)TYPEcVALUE'消息類型',c_rundate(8)TYPEcVALUE'運(yùn)行日期',c_runtime(8)TYPEcVALUE'運(yùn)行時(shí)間',c_programm(8)TYPEcVALUE'程序名稱',c_msgdesp(8)TYPEcVALUE'消息描述', TYPEc VALUE'CO04', TYPEt001w-werksVALUE'4010', TYPEt001w-werksVALUE'4040', TYPEt001w-werksVALUE'8929', "ZNA工廠代碼C TYPEt001w-werksVALUE'4020', c_lgort_ptzz_frmTYPEt001l-lgortVALUE'5210', c_lgort_ptzz_toTYPEt001l-lgortVALUE "PT鑄造車間轉(zhuǎn)入倉庫5220-鑄沖c_lgort_ptjj_frmTYPEt001l-lgortVALUE'5310', c_lgort_ptjj_toTYPEt001l-lgortVALUE'5320', c_lgort_ptzp_frmTYPEt001l-lgortVALUE'1010', c_lgort_ptzp_toTYPEt001l-lgortVALUE c_lgort_ptcTYPEt001l-lgortVALUE'5220',"PT同步供貨件收貨倉庫-鑄造c_lgort_ptmTYPEt001l-lgortVALUE'5320',"PT同步供貨件收貨倉庫-機(jī)加c_lgort_ptaTYPEt001l-lgortVALUE'1020',"PPTc_lgort_hd_frmTYPEt001l-lgortVALUE1010',"花都工廠線邊倉庫代碼,c_lgort_hd_toTYPEt001l-lgortVALUE1020',"花都工廠反沖倉庫代碼,c_lgort_xf_frmTYPEt001l-lgortVALUE1010',"襄樊工廠線邊倉庫代碼,c_lgort_xf_toTYPEt001l-lgortVALUE1020',c_lgort_zna_frmTYPEt001l-lgortVALUE'1010', c_lgort_zna_toTYPEt001l-lgortVALUE c_bapi_mov_typeLIKEbapi2017_gm_item_create-move_typeVALUE'311',"移動(dòng)類型 LIKEbapi2017_gm_item_create-move_typeVALUE'309',"移動(dòng)類型 LIKEbapi2017_gm_code-gm_code VALUE'04',"移動(dòng)GM代碼c_ebelpLIKEekpo- VALUEc_lgort_zzsgsgLIKEt001l-c_ekorgLIKEt024e-c_ekgrpLIKEekko-c_ekgrp1LIKEekko-c_matklLIKEeina-c_bukrsLIKEt001k-c_po_doc_typeLIKEekko-c_mvtcodeLIKE"Movementc_gr_mvt_indTYPE LIKEt156-c_datb(2)TYPEc_item_catLIKEbapimepoitem-item_catVALUE "PO*&SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAME.PARAMETERS:p_fname(128)TYPEcDEFAULT'ZNCO04'.SELECTION-SCREEN:ENDOFBLOCKb1.PERFORMSTART-OF-MOVEp_fnameTOg_filename. PERFORMfrm_get_data. PERFORMfrm_resolve_data. PERFORMfrm_delete_file. 錄addedbyterry.wangPERFORM PERFORMfrm_business_transact."業(yè)務(wù)處理，生成SAP憑證PERFORMfrm_business_transact1."處理同步供貨件數(shù)據(jù)的采購收貨PERFORMfrm_save_log. END-OF- Form *&功能說明：對(duì)程序中用到的全局變量進(jìn)行初始 FORMLOOPATSCREEN.IFscreen-nameEQ'P_FNAME'.screen-input='0'.MODIFY*REFRESH REFRESH "接口文件保存數(shù)據(jù)的內(nèi)REFRESH REFRESH CLEAR *REFRESH REFRESHgt_mov_data2. Form *&功能說明：解析上傳文件中的內(nèi)容到gt_mov_data1內(nèi)表 FORMDATA:l_noLIKEekpo-ebelp,l_no2(8)TYPEc.DATAlt_input_contentLIKEgt_input_content.REFRESHgt_mov_data1.REFRESHg_date=sy-datum.g_time=sy-LOOPAT*BeginofinsertionbyZhouHongmingon10.14.2005forskiprecordsinwhichpartnobeginwith'4D'*AccordingtoMr.Tim,ngitbeforeanythingelse.gt_mov_data1-partno=gt_input_content-value+31(18).CONDENSEgt_mov_data1-partnoNO-GAPS.TRANSLATEgt_mov_data1-partnoTOUPPERCASE.IFgt_mov_data1-partno+0(2)='4D'.*Endofinsertionbyl_no=l_no+CONCATENATE'[''L'l_no']'INTOgt_mov_data1-filename=gt_input_content-name.gt_mov_data1-originaldoc=gt_input_content-value+0(25).gt_mov_data1-procurement=gt_input_content-value+25(1).gt_mov_data1-processcode=gt_input_content-value+26(5).gt_mov_data1-partno=gt_input_content-value+31(18).gt_mov_data1-ty=gt_input_content-value+49(13).gt_mov_data1-backflusdate=gt_input_content-value+1(8).gt_mov_data1-nt=gt_input_content-value+70(4).gt_mov_data1-str_ori=gt_input_content-value.gt_mov_data1-lineno=l_no2.APPENDCLEARgt_file_name-filenamegt_input_content-name.COLLECTgt_file_name."存放所有文件的文件名CLEARgt_file_name.ATENDOFCLEARSELECT*INTOTABLEgt_co04alterFROMzpv_t_co04_xp. Form *&功能說明：對(duì)上傳數(shù)據(jù)各字段進(jìn)行有效性檢 FORMlt_mov_data1LIKEgt_mov_data1OCCURS0WITHHEADERlt_co04alterLIKEgt_co04alterOCCURS0WITHHEADER TYPEc, TYPE TYPE TYPE TYPELOOPATCONDENSE:gt_mov_data1-gt_mov_data1-backflusdateNO-GAPS.CALLFUNCTION'CONVERSION_EXIT_MATN1_INPUT'input=gt_mov_data1-partnooutput=gt_mov_data1-MODIFYSORTgt_mov_data1BYoriginaldoc.LOOPATgt_mov_data1.*SELECTSINGLE*FROMmaraWHEREmatnrEQgt_mov_data1-partnoANDpstatLIKE'%L%'.IFsy-subrcNE0.PERFORMfrm_build_msgUSINGc_msg_cls_in'145'gt_mov_data1-str_origt_mov_data1-partno''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEARl_msg.*SELECTSINGLE*FROMt001wWHEREwerksEQgt_mov_data1-nt.IFsy-subrcNE0.PERFORMfrm_build_msgUSINGc_msg_cls_in'144'gt_mov_data1-str_origt_mov_data1-nt''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEARl_msg.SELECTSINGLE*FROMmarcWHEREmatnrEQgt_mov_data1-partnoANDwerksEQgt_mov_data1-ntANDlvormNEIFsy-subrcNEPERFORMfrm_build_msgUSINGc_msg_cls_in'146'gt_mov_data1-str_origt_mov_data1-partno''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEARl_msg.*檢查反沖數(shù)量的PERFORMfrm_dec_checkUSINGgt_mov_data1-tyCHANGINGl_valid_flag.IFl_valid_flagNE'Y'ORgt_mov_data1-tyEQ0.PERFORMfrm_build_msgUSINGc_msg_cls_in'142'gt_mov_data1-str_origt_mov_data1-ty''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEARl_msg.*檢查反沖日期的CLEARl_valid_flag.PERFORMfrm_date_checkUSINGgt_mov_data1-backflusdateCHANGINGl_valid_flag.IFl_valid_flagEQ'N'.PERFORMfrm_build_msgUSINGc_msg_cls_in'143'gt_mov_data1-str_origt_mov_data1-backflusdate''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEAR:l_msg,l_valid_flag.*檢查original是否重復(fù)SELECTSINGLE*FROMzpv_t_docchk1WHEREzkfbhEQc_co04ANDwerksEQgt_mov_data1-ntANDbktxtEQgt_mov_data1-originaldocANDmatnrEQgt_mov_data1-partno.IFsy-subrcEQPERFORMfrm_build_msgUSINGc_msg_cls_in'141'gt_mov_data1-str_origt_mov_data1-originaldoc''''CHANGINGPERFORMfrm_append_err_dataUSINGl_msggt_mov_data1.CLEARl_msg.PERFORMfrm_append_valid_dataUSING Form FORMfrm_append_err_dataUSINGpr_msgpw_mov_data1STRUCTUREMOVE-CORRESPONDINGpw_mov_data1TOgt_proc_info.gt_proc_info-message=pr_msg.gt_proc_info-msgid='E'.APPENDgt_proc_info.CLEAR: Form FORMfrm_append_valid_dataUSINGpw_movdataSTRUCTURESELECTSINGLE*FROMWHEREwerksEQpw_movdata-ntANDmatnrEQpw_movdata-partnoANDzzsgsgEQ'X'.IFsy-subrcEQ0.gt_matlist-lineno=pw_movdata-lineno.gt_matlist-matnr=pw_movdata-partno.gt_matlist-werks=pw_movdata-nt.gt_matlist-menge_original=pw_movdata-ty.****區(qū)分PT工廠地byhuanghuibinIFpw_movdata-ntEQc_nt_pt.IFpw_movdata-processcode+2(1)EQgt_matlist-lgort=ELSEIFpw_movdata-processcode+2(1)EQ'M'.gt_matlist-lgort=c_lgort_ptm.gt_matlist-lgort=gt_matlist-lgort=****區(qū)分PT工廠地byhuang gt_matlist-lgort=IFmarc-zzspsgEQ'X'.gt_matlist-zzspsg='X'.gt_matlist-backflusdate=pw_movdata-backflusdate.gt_matlist-originaldoc=pw_movdata-originaldoc.gt_matlist-filename=pw_movdata-filename.gt_matlist-str_ori=pw_movdata-str_ori.APPENDCLEARCLEARAPPENDpw_movdataTO Form *&功能說明：把對(duì)應(yīng)上傳文件的錯(cuò)誤數(shù)據(jù)生成對(duì)應(yīng)的錯(cuò)誤數(shù)據(jù)文件并放 服務(wù)器的出錯(cuò)文 FORMfrm_write_err_fileUSINGDATA:l_subrcLIKEsy-subrc,l_filename(130)TYPEc,l_pfilename(130)TYPElt_errcontentLIKElineOCCURS0WITHHEADER**l_filename=LOOPATgt_proc_infoWHEREfilenameEQpr_filename.gt_proc_info-originaldoc=gt_proc_info-str_ori+0(25).gt_proc_info-procurement=gt_proc_info-str_ori+25(1).gt_proc_info-processcode=gt_proc_info-gt_proc_info-partno=gt_proc_info-str_ori+31(18).gt_proc_info-ty=gt_proc_info-str_ori+49(13).gt_proc_info-backflusdate=gt_proc_info-str_ori+62(8).gt_proc_info-nt=gt_proc_info-str_ori+70(4).MODIFY*IFNOTgt_proc_info[]ISSORTgt_proc_infoBYfilenameoriginaldoc.CLEARgt_proc_info.LOOPATgt_proc_infoWHEREfilenameEQCHECKgt_proc_info-msgidEQMOVE-CORRESPONDINGgt_proc_infoTOgt_errcontent.APPENDgt_errcontent.CLEARCHECKgt_errcontent[]ISNOTINITIAL.lt_errcontent[]=gt_errcontent[].PERFORMfrm_write_err_file_to_srvTABLESUSINGgt_proc_info-filenameCHANGINGl_subrc.REFRESH Form *&功能說明：調(diào)用BAPI生成SAP憑 FORMDATAl_countTYPEDATAlt_movdataLIKEgt_mov_data2OCCURS0WITHHEADERIFgt_mov_data2[]ISSORTgt_mov_data2BYREADTABLEgt_mov_data2INDEX1.APPENDgt_mov_data2TOlt_movdata.DELETEgt_mov_data2INDEX1.LOOPATDESCRIBETABLElt_movdataLINESl_count.IFl_countLT499.READTABLElt_movdataINDEXIFlt_movdata-originaldocEQgt_mov_data2-APPENDgt_mov_data2TOPERFORMfrm_create_TABLESlt_movdata.REFRESHlt_movdata.APPENDgt_mov_data2TOPERFORMfrm_create_TABLESlt_movdata.REFRESHlt_movdata.APPENDgt_mov_data2TOIFlt_movdata[]ISNOTPERFORMfrm_create_TABLESlt_movdata.REFRESHlt_movdata. Form *&功能說明：處理同步供貨件的采購收貨過 FORMPERFORMfrm_get_vendor. PERFORMfrm_check_price. PERFORMfrm_po_gr_process. Form *&功能說明：獲取gt_matlist列表中各記錄的供應(yīng)商信息 FORMDATA:BEGINOFlt_vendorOCCURS0,lifnrLIKElfa1-lifnr,ENDOFl_countTYPEi,l_vendor_existTYPEc.LOOPAT*，BOMIFgt_matlist-zzspsgEQSELECTSINGLE*FROMmastWHEREmatnrEQgt_matlist-matnrANDwerksEQIFsy-subrcNEPERFORMfrm_append_infoexUSING'E''943'gt_matlist-werksgt_matlist-matnr''''gt_matlist.IFgt_matlist-zzspsgEQSELECTeina~lifnrINTOCORRESPONDINGFIELDSOFTABLElt_vendorFROMeinaJOINeineONeina~infnrEQeine~infnrWHEREeina~matnrEQgt_matlist-matnrANDeina~loekzNE'X'ANDeine~werksEQgt_matlist-werksANDeine~ekorgEQc_ekorgANDeine~loekzEQ''ANDeine~esokzEQSELECTeina~lifnrINTOCORRESPONDINGFIELDSOFTABLElt_vendorFROMeinaJOINeineONeina~infnrEQeine~infnrWHEREeina~matnrEQgt_matlist-matnrANDeina~loekzNE'X'ANDeine~werksEQgt_matlist-werksANDeine~ekorgEQc_ekorgANDeine~loekzEQ''ANDeine~esokzEQSORTlt_vendorBYDELETEADJACENTDUPLICATESFROMlt_vendorCOMPARINGDESCRIBETABLElt_vendorLINESl_count.IFl_countEQ1.READTABLElt_vendorINDEX1.gt_matlist-lifnr=lt_vendor-lifnr.APPENDgt_matlistTOgt_matlist1.ELSEIFl_countEQPERFORMfrm_append_infoexUSING'E''287'gt_matlist-werksgt_matlist-matnr''''gt_matlist.******begin2006.4.10byhuanghuibinLOOPATSELECTSINGLE*FROMWHEREwerksEQgt_matlist-werksANDmatnrEQgt_matlist-matnrANDlifnrEQIFsy-subrcEQ0.l_vendor_exist='X'.IFl_vendor_existEQgt_matlist-lifnr=zpv_t_co04vendor-lifnr.APPENDgt_matlistTOgt_matlist1.PERFORMfrm_append_infoexUSING'E''288'gt_matlist-werksgt_matlist-matnr''''gt_matlist. 2006.4.10byhuanghuibinREFRESHCLEAR: Form *&功能說明：檢查gt_matlist1列表中各記錄的價(jià)格信息 FORMDATA:l_field_(3)TYPEc,l_msgidTYPEi,l_msg(255)TYPEc,l_countTYPEi,l_item_cat(1)TYPEc,l_mengeLIKEmard-labst,l_netprLIKEekpo-netwr,l_po_unitLIKEekpo-meins,l_currLIKEekomd-koein.DATA:BEGINOFlt_periodOCCURS0,datbLIKEsy-datum,dateLIKEsy-datum,ENDOFlt_period.LOOPATSELECTz_date1ASdatbz_date2ASdate"獲取供應(yīng)商的結(jié)算期間信息INTOCORRESPONDINGFIELDSOFTABLElt_periodFROMWHERElifnrEQgt_matlist1-lifnrANDbukrsEQc_bukrsANDekorgEQc_ekorgANDz_dqjsEQ'Y'ANDz_date1LEgt_matlist1-backflusdateANDz_date2GEgt_matlist1-DESCRIBETABLElt_periodLINESl_count.IFl_countEQ'1'.READTABLElt_periodINDEX1.IFgt_matlist1-zzspsgEQl_item_cat=l_item_cat=PERFORMfrm_getinfo_priceUSINGgt_matlist1-CHANGINGl_field_IFl_field_NEPERFORMfrm_append_infoexUSING'E'l_field_gt_matlist1-matnr''''''gt_matlist1-menge=l_menge.gt_matlist1-netpr=l_netpr.gt_matlist1-po_unit=l_po_unit.gt_matlist1-curr=l_curr.APPENDgt_matlist1TOELSEIFl_countEQPERFORMfrm_append_infoexUSING'E''289'gt_matlist1-lifnr''''''PERFORMfrm_append_infoexUSING'E''290'gt_matlist1-lifnr''''''l_field_REFRESH Form *&功能說明：取物料的采購信息記錄中的價(jià) FORMfrm_getinfo_price CHANGINGDATA:lt_inf_generalLIKEbapieinaOCCURS0WITHHEADERLINE, LIKEbapireturnOCCURS0WITHHEADERLINE.DATA: TYPEDATA:l_mara_matkl LIKEmara-matkl, LIKEeina-DATA: LIKEekomdOCCURS0WITHHEADERDATA:l_cond_line(5)TYPEn,l_price_text(15)TYPEbapieina-conv_num1,bapieina-conv_den1.SELECTmatklINTOl_mara_matklUPTO1ROWSFROMmaraWHEREmatnrEQ*CALLFUNCTION'BAPI_INFORECORD_GETLIST' = = = =pr_item_cat =pr_werks ='X'inforecord_general=lt_inf_general =DESCRIBETABLElt_inf_generalLINESl_line_num.CASEl_line_num.WHENSELECTSINGLEmatklINTOl_eina_matklFROMeinaWHEREinfnrEQlt_inf_general-IFl_eina_matklISINITIAL.CLEAR:l_mara_matkl.READTABLElt_inf_generalINDEXCALLFUNCTION'ME_GET_INFORECORD_CONDITIONS'i_ekorg=c_ekorgi_esokz=pr_item_cati_infnr=lt_inf_general-info_reci_lifnr=pr_lifnri_matkl=l_mara_matkli_matnr=pr_matnri_werks=pr_werkstekomd=lt_ekomd.l_cond_line=0.IFlt_ekomd[]ISNOTINITIAL.MOVE:'291'TOpr_err_LOOPATlt_ekomdWHEREdatabLEpr_datum1ANDdatbiGEpr_datum1.l_cond_line=l_cond_line+1.MOVE:'Y'TOpr_err_pr_menge1=pr_menge*lt_inf_general-conv_den1/lt_inf_general-conv_num1.pr_netpr=lt_ekomd-kbetr.MOVE:'291'TOpr_err_WHENMOVE:'291'TOpr_err_WHENMOVE:'292'TOpr_err_ Form *&功能說明：根據(jù)信息收集表生成日志數(shù)據(jù) FORMDATA:l_totalTYPEl_succTYPEi,l_errTYPEDATA:lt_proc_infoLIKEgt_proc_infoOCCURS0WITHHEADERLOOPATgt_proc_info-originaldoc=gt_proc_info-str_ori+0(25).gt_proc_info-procurement=gt_proc_info-str_ori+25(1).gt_proc_info-processcode=gt_proc_info-str_ori+26(5). =gt_proc_info-str_ori+31(18). =gt_proc_info-str_ori+49(13).gt_proc_info-backflusdate=gt_proc_info-str_ori+62(8). =gt_proc_info-str_ori+70(4).IFgt_proc_info-msgidEQ'E'ANDgt_proc_info-messageNECONCATENATEgt_proc_info-message(3)gt_proc_info-linenogt_proc_info-message+3INTOgt_proc_info-message.MODIFYSORTgt_proc_infoBYfilenameoriginaldoc.LOOPATgt_proc_info.ATNEWlt_proc_info[]=DELETElt_proc_infoWHEREfilenameNEgt_proc_info-filename.DESCRIBETABLElt_proc_infoLINESl_total.DELETElt_proc_infoWHEREmsgidEQ'E'.DESCRIBETABLElt_proc_infoLINESl_succ.l_err=l_total-l_succ.PERFORMfrm_add_head1USINGgt_proc_info-PERFORMfrm_statisticUSINGgt_proc_info-filenamel_totall_succIFgt_proc_info-messageNEPERFORMfrm_add_logUSINGgt_proc_info-msgidsy-datumsy-uzeit'frm_save_log'ATENDOFPERFORMfrm_write_err_fileUSINGgt_proc_info-filename.PERFORMfrm_log_end.PERFORMPERFORM " Form *&功能說明：將已處理的數(shù)據(jù)文件從輸 刪除并備份到服務(wù)器備 FORMDATAl_subrcLIKEsy-subrc.LOOPATgt_file_name.PERFORMfrm_inputback_fileUSINGgt_file_name-filenameCHANGING Form *&功能說明：對(duì)分組數(shù)據(jù)進(jìn)行檢查并生成SAP憑 FORM TABLESpt_movdataSTRUCTURE LIKEbapi2017_gm_head_01, LIKEbapi2017_gm_code,lw_goodsmvt_headretLIKEbapi2017_gm_head_ret,l_materialLIKEbapi2017_gm_head_ret-mat_doc, LIKEbapi2017_gm_head_ret-mat_doc,l_mat LIKEbapi2017_gm_item_createOCCURS0WITHHEADERLINE, LIKEbapiret2OCCURS0WITHHEADERLINE, LIKEbapiret2OCCURS0WITHHEADERDATA:lt_alter_partLIKEgt_mov_data2OCCURS0WITHHEADERLINE.DATA:lt_mov_dataLIKEgt_mov_data2OCCURS0WITHHEADERLINE.DATA:l_msg(255)TYPEl_msg2(255)TYPEl_flag(1)TYPEc,l_lgortfrmLIKEt001l-lgort,l_lgorttoLIKEt001l-lgort,l_postdateLIKEsy-datum,l_doc_yearLIKEbapi2017_gm_head_ret-doc_year,l_originaldocLIKEgt_mov_data1-originaldoc.READTABLEpt_movdataINDEXIFpt_movdata-ntEQc_nt_hd. "IFHDFactoryl_lgortfrm=c_lgort_hd_frm.l_lgortto=IFpt_movdata-ntEQc_nt_xf. "IFXFFactoryl_lgortfrm=c_lgort_xf_frm.l_lgortto=**BOC IFpt_movdata-ntEQc_nt_zna. "IFZNAFactoryl_lgortfrm=c_lgort_zna_frm.l_lgortto=c_lgort_zna_to.**EO READTABLEpt_movdataINDEX1.lw_goodsmvt_header-pstng_date=pt_movdata-backflusdate.lw_goodsmvt_header-doc_date=sy-datum.lw_goodsmvt_header-header_txt=pt_movdata-originaldoc.lw_goodsmvt_code-gm_code=c_gm_code.CLEARLOOPATpt_movdata.IFpt_movdata-ntEQc_IFpt_movdata-processcode+2(1)EQ'A'.l_lgortfrm=c_lgort_zna_frm.l_lgortto=c_lgort_zna_to. =pt_movdata-partno. =pt_movdata-nt. =l_lgortfrm.lt_goodsmvt_item-move_type=c_bapi_mov_type.lt_goodsmvt_item-entry_qnt=pt_movdata-ty.lt_goodsmvt_item-move_stloc=l_lgortto.APPENDlt_goodsmvt_item.CLEARlt_goodsmvt_item.CALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=lw_goodsmvt_header =lw_goodsmvt_codegoodsmvt_headret=lw_goodsmvt_headretmaterial=l_materialmatyear=l_matyear =lt_goodsmvt_item =lt_bapiret2.IFl_materialISINITIAL.ROLLBACKWORK.LOOPATlt_bapiret2WHEREtypeEQCONCATENATEl_msg2lt_bapiret2-message'/'INTOLOOPATl_originaldoc=pt_movdata-PERFORMfrm_build_msgUSINGc_msg_cls_in'149'pt_movdata-str_orilt_bapiret2-idl_msg2''CHANGINGMOVE-CORRESPONDINGpt_movdataTOgt_proc_info.gt_proc_info-msgid='E'.gt_proc_info-message=l_msg.APPENDgt_proc_info.CLEAR: COMMITWORKANDCALLFUNCTION'BA wait= l_postdate=lw_goodsmvt_header-pstng_date.l_doc_year=lw_goodsmvt_headret-doc_year.****begin309byhuanghuibin2006.4.28LOOPATpt_movdataWHEREntEQc_nt_ptANDalter_EQAPPENDpt_movdataTOIFNOTlt_alter_part[]ISINITIAL.READTABLElt_alter_partINDEXlw_goodsmvt_header-pstng_date=lt_alter_part-backflusdate.lw_goodsmvt_header-doc_date=sy-datum.lw_goodsmvt_header-header_txt=lt_alter_part-originaldoc.lw_goodsmvt_code-gm_code=c_gm_code.CLEARLOOPATIFlt_alter_part-processcode+2(1)EQ'C'.l_lgortfrm=c_lgort_ptzz_frm.l_lgortto=c_lgort_ptzz_to.ELSEIFlt_alter_part-processcode+2(1)EQ'M'.l_lgortfrm=c_lgort_ptjj_frm.l_lgortto=ELSEIFlt_alter_part-processcode+2(1)EQ'A'.l_lgortfrm=c_lgort_ptzp_frm.l_lgortto= =lt_alter_part-partno. =lt_alter_part-nt. =l_lgortto.lt_goodsmvt_item-move_type=c_mtype_309. =lt_alter_part-bkfpart.lt_goodsmvt_item-entry_qnt= APPENDlt_goodsmvt_item.CLEARlt_goodsmvt_item.CALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=lw_goodsmvt_header =lw_goodsmvt_codegoodsmvt_headret=lw_goodsmvt_headretmaterial=l_matdoc_309matyear=l_matyear =lt_goodsmvt_item =lt_bapiret2.IFl_matdoc_309ISINITIAL.ROLLBACKWORK.READTABLElt_bapiret2WITHKEYtype=CALLFUNCTION'BAPI_GOODSMVT_CANCEL'material=l_material =l_doc_yeargoodsmvt_pstng_date=l_postdate =lw_goodsmvt_headret =READTABLElt_bapiretWITHKEYtype='E'.IFsy-subrcEQ0.ROLLBACKREADTABLEpt_movdataINDEX1.l_originaldoc=pt_movdata-originaldoc.PERFORMfrm_build_msgUSINGc_msg_cls_in'154'l_originaldocl_materiallt_bapiret-message''CHANGING COMMITWORKANDCALLFUNCTION'BA wait= READTABLEpt_movdataINDEX1.l_originaldoc=pt_movdata-originaldoc.PERFORMfrm_build_msgUSINGc_msg_cls_in'155'l_originaldocl_materiallw_goodsmvt_headret-mat_doc''CHANGINGLOOPATMOVE-CORRESPONDINGpt_movdataTOgt_proc_info.gt_proc_info-msgid='E'.gt_proc_info-message=l_msg.APPENDgt_proc_info.CLEAR: COMMITWORKANDCALLFUNCTION'BA wait= PERFORMfrm_update_customdbTABLESpt_movdataUSINGl_material.LOOPATpt_movdata.l_originaldoc=pt_movdata-originaldoc.ATFIRST.PERFORMfrm_build_msgUSINGc_msg_cls_in'156'l_originaldocl_materiall_matdoc_309''CHANGINGMOVE-CORRESPONDINGpt_movdataTOgt_proc_info.gt_proc_info-msgid='S'.gt_proc_info-message=l_msg.APPENDgt_proc_info.CLEARCLEARPERFORMfrm_update_customdbTABLESpt_movdataUSINGl_material.LOOPATpt_movdata.l_originaldoc=pt_movdata-originaldoc.ATFIRST.PERFORMfrm_build_msgUSINGc_msg_cls_in'150'l_originaldocl_material''''CHANGINGl_msg.MOVE-CORRESPONDINGpt_movdataTOgt_proc_info.gt_proc_info-msgid='S'.gt_proc_info-message=l_msg.APPENDgt_proc_info.CLEARCLEAR****end309byhuanghuibin2006.4.28 " Form *&功能說明：將記錄及信息寫入信息收集表 FORMfrm_append_infoUSINGpr_msgidpr_parmpw_movdataSTRUCTUREDATA:l_msg(255)TYPEl_parm(74)TYPEl_parm=pw_movdata-MOVE-CORRESPONDINGpw_movdataTOPERFORMfrm_build_msgUSINGc_msg_cls_inpr_msgidl_parmpr_parm''''CHANGINGgt_proc_info-msgid='E'.gt_proc_info-message=l_msg.APPENDgt_proc_info.CLEARCLEAR " Form *&功能說明：將記錄及信息寫入信息收集表 FORMfrm_append_infoexUSINGpw_movdataSTRUCTUREDATA:l_msg(255)TYPEMOVE-CORRESPONDINGpw_movdataTOPERFORMfrm_build_msgUSINGCHANGINGl_msg.gt_proc_info-msgid=pr_flag.gt_proc_info-message=l_msg.APPENDgt_proc_info. " Form --> <-- FORMfrm_po_gr_processDATA:BEGINOFlt_tmpOCCURS LIKElfa1- LIKEmarc- backflusdate(8)TYPE LIKEmara- TYPE originaldoc(25)TYPE LIKEekpo- LIKEt001l- "位 LIKEekpo- LIKEekpo- LIKEekpo-meins, LIKEbapimepocond-currency, LIKEbapimepocond-currency_iso, LIKEmarc- TYPE TYPEc, ENDOFlt_tmp.DATA:lw_tmpLIKEDATAlt_movdataLIKEgt_matlist2OCCURS0WITHHEADERLINE.DATA:l_countTYPEi,l_end_(1)TYPEc,l_num_qty(13)TYPEc,l_num_qty1(13)TYPEc,l_space_numTYPEi.*CHECKgt_matlist2[]ISNOT**********BO*2005.12.20LOOPATgt_matlist2.MOVE-CORRESPONDINGgt_matlist2TOlt_tmp.APPENDlt_tmp. REFRESHDATA:l_sum_menge LIKEekpo-menge,l_sum_mengeoLIKEekpo-SORTlt_tmpBYlifnrwerksbackflusdatematnrfilenameDESCENDING.LOOPATlt_tmp.lw_tmp=l_sum_menge=l_sum_menge+lw_tmp-menge.l_sum_mengeo=l_sum_mengeo+lw_tmp-menge_original.ATENDOFMOVE-CORRESPONDINGlw_tmpTOgt_matlist2.gt_matlist2-menge=l_sum_menge.gt_matlist2-menge_original=l_sum_mengeo.l_num_qty=l_sum_menge.CONDENSEl_num_qtyNO-GAPS.l_space_num=STRLEN(l_num_qty).l_space_num=13-l_space_num.l_num_qty1+l_space_num=gt_matlist2-str_ori+49(13)=l_num_qty1.APPENDgt_matlist2.CLEAR:SORTgt_matlist2BYlifnrwerksbackflusdate.LOOPATgt_matlist2.APPENDgt_matlist2TOATNEWCLEARl_end_ATENDOFbackflusdate.l_end_='X'.DESCRIBETABLElt_movdataLINESl_count.IFl_countEQ499ORl_end_EQ'X'.PERFORMfrm_deal_groupTABLESlt_movdata.REFRESHlt_movdata. " Form 功能說明：對(duì)相同供應(yīng)商、工廠的一組物料進(jìn)行一次采購收貨處 FORMfrm_deal_groupTABLESpt_movdataSTRUCTUREDATA:l_datbLIKEsy-datum,l_countTYPEi.DATA:l_materialdocuLIKEbapi2017_gm_head_ret-mat_doc.DATA:BEGINOFlt_ebelnOCCURS0,ebelnLIKEekko-ebeln,ENDOFlt_ebeln.READTABLEpt_movdataINDEXSELECTSINGLEz_date1INTOl_datbFROMzpv_t_mme041WHERElifnrEQpt_movdata-lifnrANDbukrsEQc_bukrsANDekorgEQc_ekorgANDz_dqjsEQ'Y'ANDz_date1LEpt_movdata-backflusdateANDz_date2GEpt_movdata-SELECTekko~ebelnINTOTABLEFROMekkoJOINekpoONekko~ebelnEQekpo~ebelnWHEREekko~lifnrEQpt_movdata-lifnrANDekko~bukrsEQc_bukrsANDekko~ekorgEQc_ekorgANDekko~bedatEQl_datbANDekko~loekzEQ''ANDekko~bsartEQANDekpo~werksEQpt_movdata-SORTlt_ebelnBYDELETEADJACENTDUPLICATESFROMlt_ebelnCOMPARINGDESCRIBETABLElt_ebelnLINESl_count.IFl_countEQ0.PERFORMfrm_create_po_grTABLESpt_movdataUSINGl_datbELSEIFl_countEQREADTABLElt_ebelnINDEXPERFORMfrm_change_po_grTABLESpt_movdataUSINGl_datblt_ebeln-LOOPATPERFORMfrm_append_infoexUSING'E''293'pt_movdata-matnrpt_movdata-lifnrl_datb''pt_movdata.CLEAR: " Form *& FORMfrm_create_po_grTABLESpt_movdataSTRUCTUREgt_matlist2USINGpr_datb*創(chuàng)建PODATA:lw_create_wa_header LIKEbapimepoheader,lw_create_wa_headerxLIKE LIKESTANDARDTABLEOFbapimepoitemINITIALSIZE0WITHHEADERLINE, LIKESTANDARDTABLEOFbapimepoitemINITIALSIZE0WITHHEADERLINE, LIKEbapimepoitemxOCCURS0WITHHEADERLINE, LIKEbapimepoitemxOCCURS0WITHHEADERLINE, LIKESTANDARDTABLEOFbapimeposcheduleINITIALSIZE0WITHHEADER LIKEbapimeposchedulxOCCURS0WITHHEADERLINE, L