開發(fā)開發(fā)技術(shù)說明TechnicalPagePagePAGE100of總體信 TS_MM13_V1.1CATS&Impulse庫存修正數(shù)據(jù)接口對應(yīng)功能說明書文件名稱:FS_MM13_V1.8CATS&Impulse庫存修正數(shù)據(jù)接口 最后修改日期 開發(fā)對象類型 報 √接 增 負(fù)責(zé)該技術(shù)說明書顧問 文檔修改歷未解決的 一、接口簡單說1程序背景描MM13CATS系統(tǒng)零部件庫存修正業(yè)務(wù)流程的接口處理CATS數(shù)據(jù)文件以批處理的方式導(dǎo)進(jìn)SAP，并產(chǎn)生相應(yīng)的物料憑證和3.SAP產(chǎn)生會計憑證的分錄由FICOMMSAP系統(tǒng)里配置，保證所產(chǎn)生的憑證必須符合財務(wù)部門的要2程序名3事務(wù)代4權(quán)限代5語言需6調(diào)用其他事無7處理頻率CATS8:00（統(tǒng)日期）到中間MAP系8排序標(biāo)準(zhǔn)二、輸入頁字段描字段類缺省檢查或選擇√三、輸出頁四、數(shù)據(jù)源說TZ-+-+-+-+-+-+-+-+檢驗--+-+-+-+-+-+-+-+直接制造費(fèi)用-具-+共性費(fèi)用-費(fèi)-+共性費(fèi)用--+共性費(fèi)用--共性費(fèi)用-資料費(fèi)/+共性費(fèi)用--共性費(fèi)用-消防費(fèi)/+共性費(fèi)用--共性費(fèi)用-倉儲費(fèi)/+共性費(fèi)用--共性費(fèi)用-物料消耗/消+-+共性費(fèi)用-試驗校驗費(fèi)試驗設(shè)備費(fèi)-共性費(fèi)用-試驗校驗費(fèi)試驗設(shè)備費(fèi)用/取+共性費(fèi)用-試驗校驗費(fèi)-共性費(fèi)用-試驗校驗費(fèi)+其他/共性費(fèi)用--共性費(fèi)用-包裝費(fèi)/+直接營業(yè)費(fèi)用-轉(zhuǎn)費(fèi)--+直接營業(yè)費(fèi)用-費(fèi)整車--+播-播/+-直接營業(yè)費(fèi)用-+直接用-宣傳-直接用-宣傳費(fèi)/+直接開發(fā)費(fèi)用-設(shè)計費(fèi)-直接開發(fā)費(fèi)用-設(shè)計費(fèi)+材料費(fèi)/直接開發(fā)費(fèi)用-試制費(fèi)-直接開發(fā)費(fèi)用-試制費(fèi)材料費(fèi)/+-直接開發(fā)費(fèi)用-驗費(fèi)-材料費(fèi)/+-+直接開發(fā)費(fèi)用-進(jìn)費(fèi)--直接開發(fā)費(fèi)用-進(jìn)費(fèi)-其他/+直接開發(fā)費(fèi)用--直接開發(fā)費(fèi)用-品購置費(fèi)/+-品準(zhǔn)備費(fèi)/+程序中使用的表表中文描英文描OrdermasterHeader:Segment:StorageGeneralMaterialntDataforStorageLocationDataforMaterialCostCenterMaster(一般地區(qū)VendorMaster(General供應(yīng)商主記錄組織數(shù)Vendormasterrecordpurchasingorganizationdata(公司代碼VendorMaster(MMIM:BAPIMMIM:PossibleCodesforBAPIGoodsMovementCATSCATS自定義表格/視圖說 MM13自建表，保存配置數(shù)據(jù)。該表保存的是YD7、YD8、YF1、ZPV_T_CATSMOVMM13CATS庫存操作業(yè)務(wù)類SAP移動類型ZPV_T_CATSDATAMM13自建表，本接口程序上載數(shù)據(jù)文件中通過數(shù)據(jù)校驗的數(shù)據(jù)保存程序中使用功能模塊（FunctionModule）獲取數(shù)據(jù)說明從服務(wù)器接口數(shù)據(jù)：公用FORMfrm_get_data程序中使用功能模塊（FunctionModule）生成數(shù)據(jù)說創(chuàng)建物料憑證 寫錯誤文件到服務(wù)器 公用FORM上載數(shù)據(jù)文件備份 公用FORM寫日志文件到服務(wù)器 公用FORM五、程序流程<程序特殊性說明(不以文件為單位區(qū)分，統(tǒng)一校驗ZPV_T_CATSDATAZPV_T_CATSDATA中的數(shù)據(jù)，如果還未處理或處理失④業(yè)務(wù)處理時，數(shù)據(jù)不以上載文件為單位，處理完一個文件中的數(shù)據(jù)后處理下一個文件。而是所有數(shù)據(jù)(ZPV_T_CATSDATA中的滿足記帳日期條件并且未處理或⑤ZPV_T_CATSDATA⑥程序在生成日志、寫日志統(tǒng)計信息、生成錯誤文件時，仍然要與上載數(shù)據(jù)文件對照；同時，也要將以前程序運(yùn)行時存至表ZPV_T_CATSDATA中，本次程序運(yùn)行處理的<總體流程STEP根據(jù)程序本次運(yùn)行的Log記錄(內(nèi)gt_logcontentSTEPSTEP根據(jù)程序本次運(yùn)行的Log記錄(內(nèi)gt_logcontentSTEP內(nèi)表gt_trans_data中數(shù)據(jù)，按照排序順序＋原始憑證(外部的物料單)＋工廠＋行項目按照SORTF＋原始憑證(外部的物料單)＋工廠STEPSTEP準(zhǔn)備業(yè)務(wù)處理數(shù)據(jù)至內(nèi)表gt_trans_data中開STEPSTEP上載數(shù)據(jù)文件數(shù)據(jù)至公用內(nèi)表二STEP解析STEP解析gt_input_content中數(shù)據(jù)至自定義內(nèi)表STEPSTEP以前程序運(yùn)行時存至表zpv_t_catsdata記帳日期小于等于當(dāng)前日期，在本次程序運(yùn)時進(jìn)行處理，保存至內(nèi)表STEP上載數(shù)據(jù)數(shù)據(jù)校STEP保存數(shù)據(jù)校驗發(fā)現(xiàn)錯誤的數(shù)據(jù)至內(nèi)gt_error_content，用于生成錯誤數(shù)據(jù)文STEP調(diào)用公用Form寫Log題STEP的數(shù)據(jù)至表zpv_t_catsdata中STEPSTEP調(diào)用公用Form顯示結(jié)STEP至公用內(nèi)表gt_logcontent；輸出錯誤數(shù)據(jù)到對應(yīng)的錯誤文件中；將原上載數(shù)據(jù)件從Inbound移到STEP根據(jù)執(zhí)行結(jié)果更新表中數(shù)據(jù)狀態(tài)欄位六、程序規(guī) 為從表zpv_t_catsdata中的以前存放至表中， 程序結(jié)構(gòu)(可對照總體流程PERFORM g_start_datesy- GETTIMEFIELD MOVEp_fnameTOPERFORM PERFORM PERFORM PERFORMfrm_get_table_data. PERFORMfrm_cancel_chk_error_ 取消數(shù)據(jù)校驗發(fā)現(xiàn)錯誤的原始憑PERFORM PERFORM zpv_t_catsdataPERFORM PERFORM PERFORM zpv_t_catsdataPERFORM END-OF-PERFORM PERFORM PERFORM 七、接口消八、虛擬代碼（VirtualPROGRAMID/NAME: DATEAUTHOR'S LASTUPDATE:PROGRAM PROJECTVERSION: INCLUDE: CHANGE REPORTzpvmmi013NOSTANDARDPAGEMESSAGE-ID "581-LINE- LINE-COUNTINCLUDE:INCLUDETYPE-POOLS: TYPEGlobaldatadefine-InternalDATA:BEGINOFgt_source_dataOCCURS0,filename(130)TYPEc, mtsnr(10)TYPEc, TYPEc, optype(3)TYPE "CATS操作類型，需要程序Map到移動類 TYPEc, lifnr(10)TYPEc, kostl(10)TYPEc, aufnr(12)TYPE matnr(18)TYPE TYPE erfmg(13)TYPEc, ummat(18)TYPEc, TYPEc, TYPEc, sgtxt(50)TYPEc, TYPE ********BOLayoutbyhuanghuibin********EOLayoutbyhuanghuibin2006.5.12************tcode(20)TYPEc,"<-附加欄位->bwart(3)TYPEc,"<-附加欄位->sortf(3)TYPEn,"<-附加欄位->inord(12)TYPEc, TYPEn, check_errTYPEc, TYPEn, TYPE BOmodifybyjiangjg2010.07.22ZNAY99 LIKEzpv_t_catsmov-EOmodifybyjiangjg2010.07.22ZNAY99ENDOF********byhuanghuibingt_source_data_checkLIKEgt_source_dataOCCURS0WITHHEADER********byhuanghuibinDATA:BEGINOFgt_table_dataOCCURSoptypeLIKEzpv_t_catsdata-optype,mtsnrLIKEzpv_t_catsdata-mtsnr,zitemLIKEzpv_t_catsdata-zitem,budatLIKEzpv_t_catsdata-budat,lifnrLIKEzpv_t_catsdata-lifnr,kostlLIKEzpv_t_catsdata-kostl,aufnrLIKEzpv_t_catsdata-aufnr,matnrLIKEzpv_t_catsdata-matnr,werksLIKEzpv_t_catsdata-werks,lgortLIKEzpv_t_catsdata-lgort,erfmgLIKEzpv_t_catsdata-erfmg,ummatLIKEzpv_t_catsdata-ummat,umwrkLIKEzpv_t_catsdata-umwrk,umlgoLIKEzpv_t_catsdata-umlgo,sgtxtLIKEzpv_t_catsdata-sgtxt,grundLIKEzpv_t_catsdata-grund, LIKEzpv_t_catsdata-flag,divisLIKEzpv_t_catsdata-divis,proceLIKEzpv_t_catsdata-proce, TYPE TYPE BOmodifybyjiangjg2010.07.22ZNAY99 LIKEzpv_t_catsmov-EOmodifybyjiangjg2010.07.22ZNAY99ENDOFDATA:BEGINOFgt_trans_dataOCCURS********BObyhuanghuibin2006.5.12budatLIKEzpv_t_catsdata-budat,********EO分組標(biāo)準(zhǔn)根據(jù):日期/排序碼/原始物料單/工廠byhuanghuibin2006.5.12sortf(3)TYPEn, mtsnrLIKEzpv_t_catsdata-mtsnr,"<-分組欄位->werksLIKEzpv_t_catsdata-werks,"<-分組欄位->zitemLIKEzpv_t_catsdata-zitem,"<-排序欄位->filename(130TYPEc,"文件名-數(shù)據(jù)來源optypeLIKEzpv_t_catsdata-optype,lifnrLIKEzpv_t_catsdata-lifnr,kostlLIKEzpv_t_catsdata-kostl,aufnrLIKEzpv_t_catsdata-aufnr,matnrLIKEzpv_t_catsdata-werksLIKEzpv_t_catsdata-werks,lgortLIKEzpv_t_catsdata-lgort,erfmgLIKEzpv_t_catsdata-erfmg,ummatLIKEzpv_t_catsdata-ummat,umwrkLIKEzpv_t_catsdata-umwrk,umlgoLIKEzpv_t_catsdata-umlgo,sgtxtLIKEzpv_t_catsdata-sgtxt,grundLIKEzpv_t_catsdata- LIKEzpv_t_catsdata-flag,divisLIKEzpv_t_catsdata-divis,proceLIKEzpv_t_catsdata-BOmodifybyjiangjg2010.07.22ZNAY99 LIKEzpv_t_catsmov-EOmodifybyjiangjg2010.07.22ZNAY99ENDOFDATA:BEGINOFgt_error_dataOCCURS0,filename(130)TYPEc,ENDOFDATA:BEGINOFgt_current_createOCCURS0.INCLUDESTRUCTUREgt_trans_data. DATA:ENDOFgt_current_create.DATA:BEGINOFgt_create_resultOCCURS0.INCLUDESTRUCTURE DATA:ENDOFDATA:gt_docchkLIKEzpv_t_docchkOCCURS0WITHHEADERLINE.DATA:BEGINOFgt_check_logOCCURS0.INCLUDESTRUCTUREgt_source_data.INCLUDESTRUCTUREzpv_s_lgcont.DATA:ENDOFDATA:BEGINOFgt_trans_logOCCURSINCLUDESTRUCTUREINCLUDESTRUCTUREgt_current_create.INCLUDESTRUCTUREzpv_s_lgcont.DATA:ENDOFForsendmailuse TYPEcVALUEMM13的運(yùn)行日志',c_mail_first_line_field1(8)TYPEcVALUE'消息類型',c_mail_first_line_field2(8)TYPEcVALUE'消息描述'.DATA:BEGINOFgt_mail_contentOCCURSmsgty(8)TYPEc, LIKEzpv_s_lgcont- ENDOFDATA:BEGINOFgt_mtsnr_listOCCURS0, filename(130)TYPEc, TYPE TYPEc,ENDOFgt_mtsnr_list.DATA:BEGINOFgt_mtsnr_werksOCCURS0,filename(130)TYPEc, LIKEzpv_t_catsdata-mtsnr, LIKEzpv_t_catsdata-ENDOFDATA:BEGINOFgt_mtsnr_has_multi_werksOCCURS0,filename(130)TYPEc, LIKEzpv_t_catsdata- TYPEc, ENDOFgt_mtsnr_has_multi_werks.DATA:BEGINOFgt_mtsnr_filenameOCCURS0, LIKEzpv_t_catsdata-mtsnr,filename(130)TYPEc, TYPEc, TYPEc, ENDOFDATA:gt_lifnr_for_541_542LIKElfb1OCCURS0WITHHEADER*BeginchangeofDATA:gt_lifnr_for_yd3_yd4LIKElfb1OCCURS0WITHHEADER*EndchangeofGlobaldata LIKEzpv_t_docchk-zkfbhVALUE'MM13',號c_data_from_table_filename(130)TYPEcVALUE LIKEmara-mstaeVALUE 購 TYPEcVALUE 圖 TYPEcVALUE 圖 TYPEcVALUE 圖 LIKEt001-bukrsVALUE LIKEekko-ekorgVALUEDATA:g_subrcLIKEsy-DATA: DATA:g_space_mtsnr_max_item_number LIKEzpv_t_catsdata-zitem.DATA:g_start_dateLIKEsy-datum,g_start_timeLIKEsy-DataforBAPIFunctionDATA:gw_gm_headerLIKEbapi2017_gm_head_01.DATA:gw_gm_code LIKEbapi2017_gm_code.DATA:gw_gm_headretLIKEDATA:gt_gm_item LIKEbapi2017_gm_item_createOCCURS0WITHHEADERLINE.DATA:gt_gm_returnLIKEbapiret2OCCURS0WITHHEADERLINE.c_file(6)TYPEcVALUEc_bapi_error_parameterLIKEbapiret2-parameterVALUE 稱LIKEmard-lgortVALUE點(diǎn)*LIKEmara-matklVALUE組*LIKEmara-matklVALUE組LIKEmard-lgortVALUE點(diǎn)LIKEmard-lgortVALUE點(diǎn)LIKEmard-lgortVALUE點(diǎn) LIKEzpv_t_catsdata-vbtypVALUE LIKEzpv_t_catsdata-vbtypVALUE'S'. S-處理且成功，F(xiàn)-處理但失敗空-未處理SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAMETITLEtext-001.PARAMETERS:p_fnameLIKErlgrap-filenameDEFAULTc_file.SELECTION-SCREEN:ENDOFBLOCKb1.MAINPERFORMATSELECTION-*ATSELECTION-g_start_date=sy-datum.GETTIMEFIELDMOVEp_fnameTOPERFORM IFgt_input_content[]IS "公用FORMfrm_get_data中已有判斷并且生成了相應(yīng)PERFORMfrm_resolve_data.PERFORMfrm_check_source_data.PERFORMPERFORMfrm_cancel_chk_error_.PERFORMfrm_set_chk_error_data.PERFORMfrm_save_source_data_to_table.PERFORMfrm_set_transaction_data.PERFORMfrm_transaction_dealwith.PERFORMfrm_update_table_data_status.PERFORMfrm_log_error_file_file_backup.END-OF-PERFORMPERFORMPERFORMPERFORMfrm_send_mailTABLESgt_mail_contentUSINGPERFORM (listprocessing Form --> <-- FORMfrm_initialCLEAR:CLEAR:REFRESH:CLEAR:REFRESH: *======= =g_trans_failed_amount=g_trans_success_amount=SELECT*FROMINTOCORRESPONDINGFIELDSOFTABLEWHEREbukrs= ANDaltknNEspace.*BeginchangeofTommy_SELECT*FROMlfb1INTOCORRESPONDINGFIELDSOFTABLEgt_lifnr_for_yd3_yd4WHEREbukrs= ANDaltknNE*EndchangeofSELECTMAX(zitem)INTOFROMzpv_t_catsdataWHEREmtsnrEQLOOPATSCREEN.IFscreen-name='P_FNAME'.screen-input=''.screen-output=MODIFY " Form --> <-- FORMfrm_resolve_data o(8)TYPELOOPATATNEWo=oo+ CLEARMOVE:gt_input_content-gt_input_content-value+53(18)TOgt_source_data-matnr,gt_input_content-value+71(13)TOgt_source_data-erfmg,gt_input_content-value+84(4)TOgt_source_data-werks,gt_input_content-value+88(4)TOgt_source_data-lgort,gt_input_content-value+92(4)TOgt_source_data-umwrk,gt_input_content-value+96(4)TOgt_source_data-umlgo,gt_input_content-value+100(18)TOgt_source_data-ummat,gt_input_content-value+118(50)TOgt_source_data-sgtxt,gt_input_content-value+168(4)TOgt_source_data-**********BObyhuanghuibin2006.5.12***gt_input_content-value+172(1)TOgt_source_data-flag,gt_input_content-value+173(1)TOgt_source_data-divis,gt_input_content-value+174(5)TOgt_source_data-proce,**********BO正負(fù)號標(biāo)志/當(dāng)工順/內(nèi)外區(qū)分byhuanghuibin2006.5.12*** TOgt TRANSLATEgt_source_data-optypeTOUPPERCASE.TRANSLATEgt_source_data-mtsnrTOUPPERCASE.TRANSLATEgt_source_data-lifnrTOUPPERCASE.TRANSLATEgt_source_data-kostlTOUPPERCASE.TRANSLATEgt_source_data-aufnrTOUPPERCASE.TRANSLATEgt_source_data-matnrTOUPPERCASE.TRANSLATEgt_source_data-werksTOUPPERCASE.TRANSLATEgt_source_data-lgortTOUPPERCASE.TRANSLATEgt_source_data-umwrkTOUPPERCASE.TRANSLATEgt_source_data-umlgoTOUPPERCASE.TRANSLATEgt_source_data-ummatTOUPPERCONDENSE:gt_source_data-kostl,gt_source_data-aufnrNO-GAPS.CALLFUNCTIONinput=gt_source_data-output=gt_source_data-callfunctioninput=gt_source_data-output=gt_source_data-***BOmodifybyjiangjg- CALLFUNCTION'CONVERSION_EXIT_MATN1_INPUT'input=gt_source_data-matnroutput=gt_source_data- = =IFsy-subrc<> MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY- WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-callfunctioninput=gt_source_data-output=gt_source_data-CALLFUNCTION'CONVERSION_EXIT_MATN1_INPUT'input=gt_source_data-ummatoutput=gt_source_data- = =IFsy-subrc<>MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-***EOmodifybyjiangjg- APPENDgt_source_data.CLEARgt_file_name-filename=gt_input_content-name.COLLECTgt_file_name.CLEARgt_mtsnr_werks-filename=gt_source_data-filename. =gt_source_data-mtsnr. =gt_source_data-werks.COLLECTCLEARgt_mtsnr_filename-mtsnr= gt_mtsnr_filename-filename=gt_source_data-filename.COLLECTgt_mtsnr_filename.CLEARgt_file_name-filename=c_data_from_table_filename.COLLECTgt_file_name. " Form --> <-- FORMfrm_prepare_maildataCLEARgt_mail_content.gt_mail_content-msgty=c_mail_first_line_field1.gt_mail_content-desp=c_mail_first_line_field2.APPENDgt_mail_content.LOOPATgt_mail_content-msgty=gt_logcontent-msgty.gt_mail_content-desp=gt_logcontent-desp.APPENDgt_mail_content. " Form --> <-- FORMfrm_check_source_dataDATA:l_tabix LIKEsy-tabix, LIKEgt_source_data.DATA:l_check_error_flagTYPEc, TYPESORTgt_source_dataBYfilenamemtsnrwerks gt_source_data_check[]=gt_source_data[].LOOPATSELECTSINGLEmatklINTOgt_source_data-FROMmaraWHEREmatnrEQgt_source_data-MODIFYgt_source_dataTRANSPORTINGBOmodifybyjiangjg2010.07.22Y99SELECTSINGLEacctINTOgt_source_data-FROMzpv_t_catsmovWHEREcatsoptEQgt_source_data-MODIFYgt_source_dataTRANSPORTINGEOmodifybyjiangjg2010.07.22Y99LOOPATgt_source_data.l_tabix=sy-tabix.MOVE-CORRESPONDINGgt_source_dataTOCLEAR:l_check_error_flag,l_item_check_err.ATNEWmtsnr.IFlw_source_data-mtsnrNEIFlw_source_data-optypeNE'711'andlw_source_data-optypeNECHECKlw_source_data-mtsnrNE "711PERFORMfrm_check_exists_in_his_tableUSINGlw_source_dataCHANGINGIFl_check_error_flagNEspace.l_item_check_err='X'. FS PERFORMfrm_check_exists_in_data_tableUSINGlw_source_dataCHANGING IFl_check_error_flagNE l_item_check_err= FS****BO檢查字段不能為空-操作類型/物料/工廠/數(shù)量/庫存地點(diǎn)byhuanghuibinPERFORMfrm_check_nessfieldUSINGgt_source_dataCHANGINGl_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err='X'.gt_source_data-check_err='X'.MODIFYgt_source_dataINDEXl_tabix.****EO檢查字段不能為空-操作類型/物料/工廠/數(shù)量/庫存地點(diǎn)byhuanghuibinPERFORMfrm_check_optype_319_999USINGgt_source_dataCHANGINGl_check_error_flag.IFl_check_error_flagNEspace.IFl_check_error_flagEQ'X'.l_item_check_err='X'.gt_source_data-check_err=MODIFYgt_source_dataINDEXl_tabix.****BObyhuanghuibin2006.5.15*****PERFORMfrm_check_flag_divis_proceUSINGgt_source_dataCHANGINGIFl_check_error_flagNEspace.l_item_check_err='X'.gt_source_data-check_err='X'.MODIFYgt_source_dataINDEXl_tabix.****EObyhuanghuibinPERFORMfrm_map_to_sap_movementCHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=****BObyhuanghuibinPERFORMfrm_recunique_checkCHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=****BObyhuanghuibinPERFORMfrm_check_fields_data_typeUSINGgt_source_dataCHANGINGIFl_check_error_flagNEspace.l_item_check_err='X'.PERFORMfrm_check_werks_and_matnrUSINGgt_source_dataCHANGINGIFl_check_error_flagNEspace.l_item_check_err='X'. bylxhPERFORMfrm_check_matkl_lastcharCHANGINGgt_source_dataIFl_check_error_flagNEl_item_check_err= bylxhPERFORMfrm_check_ye1_2_3_4_yd1_2CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=*BObyhuanghuibinPERFORMfrm_check_yd3_4_5_6CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=*EObyhuanghuibin*BO711712byhuanghuibin對711712PERFORMfrm_check_711_712CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=*BO711712byhuanghuibinPERFORMfrm_check_yd7_yd8CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=PERFORMfrm_check_303_304_305_306USINGgt_source_dataCHANGINGIFl_check_error_flagNEspace.l_item_check_err='X'.****BO313_314_315_316byhuanghuibinPERFORMfrm_check_313_314_315_316USINGgt_source_dataCHANGINGIFl_check_error_flagNEl_item_check_err=****EO313_314_315_316byhuanghuibinPERFORMfrm_check_311_312USINGgt_source_dataCHANGINGl_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=PERFORMfrm_check_yf1_yf2CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=PERFORMfrm_check_541_542CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=*BeginchangeofPERFORMfrm_check_yd3_yd4CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=*EndchangeofPERFORMfrm_check_317_318USINGgt_source_dataCHANGINGl_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=PERFORMfrm_check_309_310CHANGINGgt_source_datal_check_error_flag.IFl_check_error_flagNEspace.l_item_check_err=IFl_item_check_errNEspace.gt_source_data-check_err='X'.MODIFYgt_source_dataINDEXPERFORMPERFOMRfrm_chk_mtsnr_in_multi_file. "frm_check_source_data Form --> <-- FORMfrm_get_table_dataSELECT*INTOCORRESPONDINGFIELDSOFTABLEFROMzpv_t_catsdataWHEREbudatLEsy-datumANDvbtypNE " Form --> <-- FORMfrm_save_source_data_to_tableDATA:lt_catsdataLIKEzpv_t_catsdataOCCURS0WITHHEADERLINE.DATA:l_mtsnrLIKEzpv_t_catsdata-mtsnr, LIKEzpv_t_catsdata-zitem,l_tabixLIKEsy-tabix.SORTgt_source_dataBYfilenamewerksmtsnr SORTgt_source_dataBYfilenamemtsnr g_file_data_warning_amount=LOOPATgt_source_dataWHEREcheck_errEQ'W'.g_file_data_warning_amount=g_file_data_warning_amount+1.LOOPATgt_source_data.l_tabix=sy-tabix.l_mtsnr=gt_source_data-ATNEWmtsnr.l_item=IFl_mtsnrEQl_item=IFgt_source_data-check_errEQspace.l_item=l_item+1.gt_source_data-zitem=MOVE-CORRESPONDINGgt_source_dataTOlt_catsdata.APPENDlt_catsdata.MODIFYgt_source_dataINDEXl_tabix.IFgt_source_data-mtsnrEQspace.g_space_mtsnr_max_item_number=g_space_mtsnr_max_item_number+DESCRIBETABLEgt_source_dataLINESg_file_data_total_amount.DESCRIBETABLElt_catsdataLINESg_file_data_save_table_amount.g_file_data_chk_err_amount=g_file_data_total_amount-g_file_data_save_table_amount-IFlt_catsdata[]ISNOTMODIFYzpv_t_catsdataFROMTABLElt_catsdata.COMMITWORK. " Form -->P_GT_SOURCE_DATA<--P_L_CHECK_ERROR_FLAG FORMfrm_check_fields_data_typeUSINGpv_source_dataLIKECHANGINGDATA:l_desp LIKEzpv_s_lgcont-desp,l_check_resultTYPEchar1.CLEARIFpv_source_data-budatNECALLFUNCTION'RP_CHECK_DATE' =pv_source_data-budatdate_invalid= =IFsy-subrcNEPERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrpv_source_data-matnr

CHANGINGPERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_fields_data_type'l_desp.pr_check_err=CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECT**IFpv_source_data-bldatNE CALLFUNCTION =pv_source_data- DATE_INVALID= = IFsy-subrcNE PERFORMfrm_build_msgUSINGc_msg_cls_in pv_source_data-mtsnrpv_source_data-matnrSPACE CHANGING PERFORMfrm_add_check_logUSING c_msgfailedsy-datumsy- 'frm_check_fields_data_type' pr_check_err= CLEAR gt_mtsnr_list-filename=pv_source_data- =pv_source_data- =pv_source_data- COLLECT **IFpv_source_data-erfmgNECLEARCALLFUNCTION'Z_PV_DEC_CHECK'p_str_in=pv_source_data-erfmgp_result=IFl_check_resultEQ'N'ORpv_source_data-erfmgEQPERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrpv_source_data-matnr

CHANGINGPERFORMfrm_add_check_logUSINGpr_check_err=

c_msgfailedsy-datumsy-uzeit'frm_check_fields_data_type'l_desp.CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECT " Form -->P_GT_SOURCE_DATA<--P_L_CHECK_ERROR_FLAG FORMfrm_check_matkl_lastcharUSINGpv_source_dataLIKECHANGINGDATA:l_desp LIKEzpv_s_lgcont-desp, TYPEstring, TYPEstring, TYPEchar1,l_check_resultTYPEchar1, TYPEn.CLEARl_proce=pv_source_data-proce.CONDENSEl_proceNO-GAPS.l_len=STRLEN(l_proce)IFl_len>0l_len=l_len-1l_last_char=l_proce+l_len(1)l_matkl=pv_source_data-matkl.CONDENSEl_matklNO-GAPS.TRANSLATEl_matklTOUPPERCASE.IFl_last_charEQspace.l_check_result='x'ELSEIFl_last_charCN IFl_matklNE'PLWG02'.l_check_result='x'IFl_matklNE'PLWG01'.l_check_result='x'IFl_check_result='x'PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-werkspv_source_data-pv_source_data-matnrCHANGINGPERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_matkl_lastchar'l_desp.pr_check_err=CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECT " Form -->P_PV_SOURCE_DATA-->P_C_MSGFAILED-->P_SY_DATUM-->P_SY_UZEIT -->P_L_DESP FORMfrm_add_check_logUSINGpv_source_dataLIKEDATAl_desp(255)TYPEc.CLEARgt_check_log.MOVE-CORRESPONDINGpv_source_dataTO =pv_msgty.gt_check_log-rundate=pv_date.gt_check_log-runtime=pv_time.gt_check_log-frmname=pv_frmname.CONCATENATEpv_msgtypv_despINTOl_desp.gt_check_log-desp=l_desp.APPEND " Form --> <-- FORMfrm_set_transaction_data.DATA:l_budatLIKEsy-datum.g_file_data_trans_amount=LOOPATgt_source_dataWHEREcheck_errEQspace.l_budat=gt_source_data-budat.IFl_budatLEsy-MOVE-CORRESPONDINGgt_source_dataTOgt_trans_data.APPENDgt_trans_data.g_file_data_trans_amount=g_file_data_trans_amount+g_table_data_trans_amount=DESCRIBETABLEgt_table_dataLINESLOOPATSELECTSINGLEmatklINTOgt_table_data-matklFROMmaraWHEREmatnrEQgt_table_data-matnr.MODIFYgt_table_dataTRANSPORTINGLOOPATgt_table_dataWHEREcheck_errEQg_table_data_trans_amount=g_table_data_trans_amount+1.MOVE-CORRESPONDINGgt_table_dataTOgt_trans_data.gt_trans_data-filename=c_data_from_table_filename.SELECTSINGLE*FROMzpv_t_catsmovWHEREcatsopt=gt_table_data-optypeANDdivisEQgt_table_data-ANDmatklEQgt_table_data-gt_trans_data-tcode=zpv_t_catsmov-tcode.gt_trans_data-bwart=zpv_t_catsmov-bwart.gt_trans_data-sortf=zpv_t_catsmov-EOmodifybyjiangjg2010.07.22ZNAY99gt_trans_data-acct=zpv_t_catsmov-EOmodifybyjiangjg2010.07.22ZNAY99IFgt_trans_data-bwartEQSELECTSINGLE*FROMzpv_t_stkmovWHEREbutype=gt_table_data-ANDzkfbh=c_development_numberANDkostl=gt_table_data-gt_trans_data-bwart=zpv_t_stkmov-IFgt_trans_data-bwartEQ'YD7'ORgt_trans_data-bwartEQ'YD8'ORgt_trans_data-bwartEQ'YF1'ORgt_trans_data-bwartEQ'YF2'.SELECTSINGLE*FROMzpv_t_inorderWHEREcats_doc=gt_table_data-aufnr.gt_trans_data-inord=zpv_t_inorder-inord.APPENDg_table_data_chk_err_amount=g_table_data_total_amount-g_table_data_trans_amount.DESCRIBETABLEgt_trans_dataLINESg_trans_total_amount. " Form -->P_LW_SOURCE_DATA<--P_L_CHECK_ERROR_FLAG FORMfrm_check_exists_in_his_tableUSINGpv_source_dataLIKECHANGINGDATA:l_despLIKEzpv_s_lgcont-l_budatLIKEmkpf- FSCLEAR SELECTSINGLE*FROMzpv_t_docchkWHEREzkfbh=ANDwerks=pv_source_data-werksANDbktxt=pv_source_data-mtsnr.IFsy-subrcEQ**2ZPV_T_CatsData SELECTSINGLEbudatINTOl_budatFROMmkpfWHEREmblnrEQzpv_t_docchk-SELECTSINGLEbudatINTOl_budatFROMzpv_t_catsdataWHEREwerks=pv_source_data-ANDmtsnr IFpv_source_data-budat+0(4)EQIFpv_source_data-budatEQl_budat**4 SELECTSINGLE*FROMzpv_t_catsdataWHEREwerks=pv_source_data-ANDmtsnr=pv_source_data-mtsnrANDoptype=pv_source_data-optypeANDmatnr=pv_source_data-matnrANDdivis=pv_source_data-ANDerfmg=pv_source_data-erfmgIFsy-subrcEQ

PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-werkspv_source_data-mtsnrCHANGINGPERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_exists_in_his_table'l_desp.pr_check_err='X'.CLEARIFNOTpv_source_data-mtsnrISgt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECT**5 zpv_t_docchkSELECTSINGLE*FROMzpv_t_docchkWHEREzkfbh=ANDwerks=pv_source_data-werksANDbktxt=pv_source_data-mtsnr. SELECTSINGLEbudatINTOl_budatFROMmkpfWHEREmblnrEQzpv_t_docchk-IFpv_source_data-budat+0(4)EQ

PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-werkspv_source_data-mtsnrCHANGINGPERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_exists_in_his_table'l_desp.pr_check_err='X'.CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECTCLEAR: FS " Form -->P_LW_SOURCE_DATA<--P_L_CHECK_ERROR_FLAG FORMfrm_check_exists_in_data_tableUSINGpv_source_dataLIKECHANGINGDATA:l_despLIKEzpv_s_lgcont-desp.DATA:l_cur_year(5)TYPEc.CLEAR FSV3.0CLEARCONCATENATEsy-datum+0(4)'%'INTOSELECTSINGLE*FROMzpv_t_catsdataWHEREwerks=pv_source_data-ANDmtsnr=pv_source_data-mtsnrANDbudatLIKEl_cur_year.SELECTSINGLE*FROMzpv_t_catsdataWHEREmtsnr=pv_source_data- FSV3.0IFsy-subrcEQ PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrspacespacespaceCHANGINGl_desp.PERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_exists_in_data_table'l_desp.pr_check_err=CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECTgt_mtsnr_list. " Form --> <-- FORMfrm_transaction_dealwithDATA:lw_trans_data LIKEgt_trans_data, LIKEbapiret2-row,l_flag_create_successTYPEc, LIKEzpv_s_lgcont-desp, TYPEc, LIKEzpv_s_lgcont-DATA:l_despLIKEzpv_s_lgcont-optypesortfSORTgt_trans_dataBYbudatsortfmtsnrwerksLOOPATMOVE-CORRESPONDINGgt_trans_dataTOATNEW gw_gm_header,gw_gm_code, gt_gm_return,REFRESH:gt_gm_item, gt_gm_return,gt_current_create.l_row=0.PERFORMfrm_fill_bapi_header_dataUSINGl_row=l_row+MOVE-CORRESPONDINGgt_trans_dataTOgt_current_create-row=l_row.APPENDgt_current_create.PERFORMfrm_fill_bapi_item_dataUSINGgt_trans_data.ATENDOFwerks.l_flag_create_success=CALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=gw_gm_header =gw_gm_codegoodsmvt_headret=gw_gm_headret =gt_gm_item =gt_gm_return.LOOPATgt_gm_returnWHEREtype='E'ORtype='A'.l_flag_create_success='N'.IFl_flag_create_success=CALLFUNCTIONg_trans_failed_amount=g_trans_failed_amount+LOOPATPERFORMfrm_add_trans_error_dataUSINGPERFORMfrm_add_trans_result_dataUSINGgt_current_createCLEAR:l_fail_message,LOOPATgt_gm_returnWHERE(type='E'ORtype='A'ANDparameter=c_bapi_error_parameterANDrow=gt_current_create-row.CONDENSEgt_gm_return-CONCATENATEl_fail_messagegt_gm_return-messageINTOl_fail_messageSEPARATEDBYspace.CLEARCONCATENATEgt_current_create-werksgt_current_create-divisINTOPERFORMfrm_build_msgUSINGc_msg_cls_ingt_current_create-mtsnrgt_current_create-optypel_werks_divisgt_current_create-matnrCHANGINGCONCATENATEl_despl_fail_messageINTOl_despSEPARATEDBY

PERFORMfrm_add_trans_logUSINGgt_current_createc_msgfailedsy-datum'frm_transaction_dealwith'CALLFUNCTION'BA wait=g_trans_success_amount=g_trans_success_amount+ READTABLEgt_current_createINDEX1.CLEARl_succ_message.CLEARl_werks_divis.CONCATENATEgt_current_create-werksgt_current_create-divisINTOl_werks_divis.PERFORMfrm_build_msgUSINGc_msg_cls_ingt_current_create-mtsnrgt_current_create-optypel_werks_divisgw_gm_headret-mat_docCHANGING

PERFORMfrm_add_trans_logUSINGgt_current_createc_msgsuccedsy-datum'frm_transaction_dealwith'PERFORMfrm_add_history_recordUSINGgt_current_create-gt_current_create-mtsnrLOOPATPERFORMfrm_add_trans_result_dataUSINGgt_current_create " Form --> <-- FORMfrm_log_error_file_file_backup.DATA:l_despLIKEzpv_s_lgcont-SORTgt_check_logBY SORTgt_trans_logBYfilenamebudatsortfmtsnrwerkszitem.PERFORMfrm_set_log_title.LOOPATCLEARIFgt_file_name-filenameEQ #PVMM13：ZPV_T_CATSDATAl_desp=text-002.#PVMM13PERFORMfrm_build_msgUSINGc_msg_cls_ingt_file_name-filenamespacespacespaceCHANGINGl_desp.PERFORMfrm_add_logUSINGc_msginforsy-datumsy-uzeit'frm_log_error_file_file_backup'l_desp.LOOPATgt_check_logWHEREfilename=gt_file_name-CLEARMOVE-CORRESPONDINGgt_check_logTOgt_logcontent.APPENDgt_logcontent.LOOPATgt_trans_logWHEREfilename=gt_file_name-CLEARMOVE-CORRESPONDINGgt_trans_logTOgt_logcontent.APPENDgt_logcontent.IFgt_file_name-filenameNEPERFORMfrm_output_error_fileUSINGgt_file_name-IFgt_file_name-filenameNEPERFORMfrm_inputback_fileUSINGgt_file_name-filenameCHANGING " Form -->P_GT_SOURCE_DATA<--P_L_CHECK_ERROR_FLAG FORMfrm_check_optype_319_999USINGpv_source_dataLIKECHANGINGDATA:l_despLIKEzpv_s_lgcont-desp.CLEARpr_check_err.IFpv_source_data-optype='319'PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrpv_source_data-pv_source_data-optypeCHANGINGPERFORMfrm_add_check_logUSINGc_msgfailedsy-datumsy-uzeit'frm_check_optype_319_999'l_desp.pr_check_err=CLEARIFNOTpv_source_data-mtsnrISINITIAL.gt_mtsnr_list-filename=pv_source_data-filename. =pv_source_data-werks. =pv_source_data-mtsnr.COLLECT***ORORpv_source_data-erfmgEQ0IFpv_source_data-optype='999'.PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrpv_source_data-pv_source_data-optypeCHANGINGPERFORMfrm_add_check_logUSINGc_msgwarningsy-datumsy-uzeit'frm_check_optype_319_999'l_desp.pr_check_err=IFpv_source_data-kostl=PERFORMfrm_build_msgUSINGc_msg_cls_inpv_source_data-mtsnrpv_source_data-pv_source_data-kostlCHANGINGPERFO