ts mmv2.0销售出库及其退库信息接口

总体信 对应功能说明书文件名称:FS_MM21_V1.2销售出库及其退库信息接口作者: 最后修改日期 开发对象类型 报 负责该技术说明书顾问 文档修改历未解决Issue一、接口简单说1ZNA备件销售出库信息由E3S-P系统管理，主要分国内销售和海外销售都在E3S-P系统进行，目前E3S-P系统并不涉及财务数据管理。SAP动作都在SAP系统执行。为了避免用户在E3S-PSAP系统的两次录入，两个系统之间需要建立接口，自动传输相关数据；MM21这ZNASAP系统中的处理。PLS将以上记录整理成数据,按SAP的要求将数据透库存，并打印物料凭证。23456无7系统自动执8二、输入页三、输出页接口程序执行完成后会有报告生四、数据源说MMIM:BAPISAPE3SP五、程序流程开通过公用函数进行数据上开通过公用函数进行数据上循环将gt_gm_data中文件名相同的记进行字段检查，成功记录放gt_gm_ok_data,有问题记录进err份结调用公用函数进行LOG的处调调用相应BAPI创建订单并收对成对成功记录更新凭证循环gt_file_name结对错误记录进行备对源文件进行备六、程序规初始化全局变量:FORM获取上载数据：FORM解析数据内容:FORM进行数据字段有效性检查:对每个文件进行处理：FORM业务处理：FORM写日志头：FORMBAPIFORMfrm_init_matnr_bapi.8.BAPI-item赋值：FORMfrm_add_bapi_item9.BAPI-header赋值：FORMfrm_init_bapi_header.库存移动操作：FORMZ61/Z62的操作:FORMfrm_ball_again/FORM写入日志结尾：FORM更新自定义表：FORM把错误文件写入服务器：FORMBACKUP文件夹下：FORM向服务器写入日志文件：FORM显示日志文件：FORM七、虚拟代码（VirtualPROGRAMID/NAME: DATEAUTHOR'S LASTPROGRAM PROJECTVERSION: INCLUDE: CALLS:(RFCAND CHANGE REPORTzpvmmi021MESSAGE-IDNOSTANDARDPAGEHEADING LINE-SIZE193 LINE-COUNT INCLUDEc_kfbh_mm11(4)TYPEcVALUETABLES:*&SAP*&说 :数据格式一定要定义为字符串的形BEGINOFgt_gm_dataOCCURSfilename(130)TYPE TYPE TYPE "默认为 TYPE TYPE tcode(20)TYPEc, "更新数据SAPTCodevalue(255)TYPEc,ENDOFDATA:BEGINOFgt_errcontentOCCURS0,value(255)TYPEc,ENDOFDATA:gt_errcontent_traLIKETABLEOFgt_errcontentWITHHEADERDATA:BEGINOFgt_gm_ok_dataOCCURSfilename(130)TYPE TYPE optype(3)TYPE mtsnr(16)TYPE budat(8)TYPE kostl(10)TYPE aufnr(12)TYPE matnr(18)TYPE erfmg(13)TYPE erfme(3)TYPE werks(4)TYPE lgort(4)TYPE umwrk(4)TYPE umlgo(4)TYPE sgtxt(15)TYPE "更新数据SAPbktxt(25)TYPEc,value(255)TYPEc,ENDOFgt_gm_ok_data.DATA:gt_gm_ok_data_traLIKETABLEOFgt_gm_ok_dataWITHHEADERLINE.DATA:gt_gm_p0506LIKETABLEOFgt_gm_ok_dataWITHHEADERLINE.DATA:BEGINOFgt_file_idOCCURS0,filename(130)TYPEc, TYPE TYPEc, ENDOFgt_file_id.BEGINOFgt_gm_mtsnrOCCURSoptype(3)TYPE bktxt(25)TYPE mtsnr(16)TYPEc, ENDOFgt_gm_mtsnr.DATA:BEGINOFgt_gm_optypeOCCURS0, LIKEgt_gm_ok_data-sortf,optype(3)TYPE ENDOFBEGINOFgt_new_docchkOCCURSmandtLIKEzpv_t_docchk-mandt, zkfbhLIKEzpv_t_docchk-zkfbh, werksLIKEzpv_t_docchk-werks, bktxtLIKEzpv_t_docchk-bktxt, zpzbhLIKEzpv_t_docchk-zpzbh, ENDOFBEGINOFgt_mail_contentOCCURS0,field1(10)TYPE field5(300)TYPEc, ENDOFgt_mail_content.DATA:g_mail_title(30)TYPEc,"邮件标题g_fname(128)TYPEc, sum_sTYPEi,sum_eTYPEi,sum_tTYPEDATA:g_tot_lineTYPEi,g_suc_lineTYPEi,g_fai_lineTYPEi,g_check_postTYPEc,g_err_(1)TYPEDATA:BEGINOFgt_bwart_listOCCURS10,plsoptLIKEzpv_t_plsmov-plsopt,tcodeLIKEzpv_t_plsmov-tcode,bwartLIKEzpv_t_plsmov-bwart,sortfLIKEzpv_t_plsmov-sortf,inordLIKEzpv_t_plsmov-inord,ENDOFDATA:BEGINOFgt_werks_listOCCURS10,werksLIKEt001w-werks,ENDOFDATA:BEGINOFgt_lgort_listOCCURS10,werksLIKEt001w-werks,lgortLIKEt001l-lgort,ENDOFgt_lgort_list.BAPI_GOODSMVT_CREATEDATA:g_mtsnr(16)TYPEc,"g_budatLIKEsy-datum,g_tcode(20)TYPEc,g_bktxt(25)TYPEDATA:BEGINOFINCLUDESTRUCTUREDATA:ENDOFDATA:BEGINOFINCLUDESTRUCTUREDATA:ENDOFDATA:BEGINOFINCLUDESTRUCTUREDATA:ENDOFDATA:BEGINOFgt_gm_errmsgOCCURSINCLUDESTRUCTUREDATA:ENDOFDATA:BEGINOFgt_gm_itemOCCURSINCLUDESTRUCTUREDATA:ENDOFDATA:gw_bapi_rm_LIKEbapi_rm_,gw_bapi_rm_datgenLIKEbapi_rm_datgen,g_confirmationLIKEbapi_rm_datkey-confirmation,gt_returnLIKETABLEOFbapiret2WITHHEADERLINE.DATA:g_backflush_(1)TYPEc,g_gm_(1)TYPEc,g_werksLIKEmarc-werks,g_lgortLIKEmard-lgort,g_belnrLIKEblpp-DATA:g_xh(5)TYPEg_message(255)TYPEg_ls_mtsnrLIKEgt_gm_ok_data-CONSTANTSc_werks(4)TYPEcVALUE DATA:gt_pt_matlistLIKETABLEOFzpv_t_matlistWITHHEADER*&SELECTION-SCREEN:BEGINOFBLOCKb1WITHFRAME.PARAMETERS:p_fname(128)TYPEcLOWERDEFAULT "SELECTION-SCREEN:ENDOFBLOCKPERFORM MOVEg_fnameTO "接口对应的文件名的前辍,***PERFORM ***PERFORMfrm_resolve_data1. PERFORMfrm_get_data. PERFORMfrm_resolve_data. PERFORMfrm_transact_file. END-OF-PERFORMfrm_write_log. PERFORMfrm_show_log. Form *&功能说明：对程序中用到的全局变量进行初始 *&参数说明 FORMREFRESHgt_file_name. REFRESHgt_sender_list."邮件发送地址列表REFRESHgt_input_content."接口文件保存数据的内REFRESH CLEAR g_fname LOOPATIFscreen-nameEQ'P_FNAME'.screen-input=''.MODIFYPERFORMfrm_init_bwart_list.PERFORMfrm_init_werks_list.PERFORM Form *&功能说明：解析gt_input_content中的内容到gt_po_data内表 *&参数说明 FORMfrm_resolve_data.DATA:l_xh(5)TYPEREFRESHgt_gm_data.REFRESHgt_file_name.LOOPATgt_input_content.gt_gm_data-filenamegt_input_content-name."保存文件名，不能删除l_xh=l_xh+1. =gt_gm_data-optype=gt_input_content-value+0(3).gt_gm_data-tszd1=gt_input_content-value+3(2).gt_gm_data-tszd2=gt_input_content-value+5(2).gt_gm_data-budat=gt_input_content-value+7(8).gt_gm_data-bktxt=gt_input_content-value+15(25).gt_gm_data-mtsnr=gt_input_content-value+40(16).gt_gm_data-matnr=gt_input_content-value+56(18).gt_gm_data-erfmg=gt_input_content-value+74(13).gt_gm_data-lgort=gt_input_content-value+87(4).gt_gm_data-umlgo=gt_input_content-value+91(4).gt_gm_data-bwart=gt_input_content-value+95(3).gt_gm_data-kostl=gt_input_content-value+98(10).gt_gm_data-aufnr=gt_input_content-value+108(12).gt_gm_data-saknr=gt_input_content-value+120(10).gt_gm_data-sgtxt=gt_input_content-CONDENSEgt_gm_data-optypeNO-GAPS.CONDENSEgt_gm_data-tszd1NO-GAPS.CONDENSEgt_gm_data-tszd2NO-GAPS.CONDENSEgt_gm_data-budatNO-GAPS.CONDENSEgt_gm_data-bktxtNO-GAPS.CONDENSEgt_gm_data-mtsnrNO-GAPS.CONDENSEgt_gm_data-matnrNO-GAPS.CONDENSEgt_gm_data-erfmgNO-GAPS.CONDENSEgt_gm_data-lgortNO-GAPS.CONDENSEgt_gm_data-umlgoNO-GAPS.CONDENSEgt_gm_data-bwartNO-GAPS.CONDENSEgt_gm_data-kostlNO-GAPS.CONDENSEgt_gm_data-aufnrNO-GAPS.CONDENSEgt_gm_data-saknrNO-GAPS.CONDENSEgt_gm_data-sgtxtNO-GAPS. PERFORMfrm_check_postdatUSINGgt_gm_data- IFg_check_post= gt_gm_data-werks=c_werks.gt_gm_data-umwrk=CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'input=gt_gm_data-matnroutput=gt_gm_data-CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'input=gt_gm_data-kostloutput=gt_gm_data-CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'input=gt_gm_data-aufnroutput=gt_gm_data-TRANSLATEgt_gm_data-optypeTOUPPERCASE.TRANSLATEgt_gm_data-mtsnrTOUPPERCASE.gt_gm_data-value=gt_input_content-SELECTSINGLE*FROMzna_t_lgortWHEREe3spckEQgt_gm_data-lgort.IFsy-subrcEQgt_gm_data-lgort=zna_t_lgort-APPENDREADTABLEgt_file_idWITHKEYfilename=gt_input_content- =gt_gm_data-IFsy-subrcISNOTgt_file_id-filename=gt_gm_data-filename. =gt_gm_data-bktxt.APPENDgt_file_name-filenamegt_input_content-name.COLLECTgt_file_name."存放所有文件的文件名CLEARgt_file_name.CLEARATENDOFname.l_xh=0. Form *&功能说明：业务处理,需要重点处 *&参数说明 FORMDATA:l_subrcLIKEsy-subrc.LOOPATgt_file_name.REFRESHgt_errcontent.PERFORMfrm_business_transactUSINGgt_file_name-filename."业务处理PERFORMfrm_update_tableUSINGgt_file_name-filename.PERFORMfrm_write_err_fileUSINGgt_file_name-PERFORMfrm_inputback_fileUSINGgt_file_name-filenameCHANGINGl_subrc."将文件从 " Form *&功能说明：业务功能处理，每个开发者的重 *&参数说明 FORMfrm_business_transactUSINGDATA:l_bwart(3)TYPEc. DATA:l_logdsLIKEzpv_s_lgcont-desp.DATA:l_linesTYPECLEAR:DATA:l_char15(15)TYPEc, TYPEc,l_mess_tra(60)TYPEc.PERFORMfrm_log_headUSINGREFRESHLOOPATgt_file_idWHEREfilename=pr_filename.CLEAR:gt_errcontent_tra,gt_errcontent_tra[],gt_gm_ok_data_tra,gt_gm_ok_data_tra[],g_err_LOOPATgt_gm_dataWHEREfilenameEQAND EQgt_file_id-PERFORMIFg_err_ISNOTINSERTLINESOFgt_errcontent_traINTOTABLEINSERTLINESOFgt_gm_ok_data_traINTOTABLECLEAR:gt_errcontent_tra,SORTgt_gm_ok_dataBYsortf.REFRESH:gt_gm_mtsnr,gt_gm_optype.LOOPATgt_gm_ok_dataWHEREfilenameEQCLEAR: =gt_gm_ok_data-optype. =gt_gm_ok_data-bktxt. =gt_gm_ok_data-COLLECT: =gt_gm_ok_data-sortf.gt_gm_optype-optype=gt_gm_ok_data-optype.COLLECT:gt_gm_optype. SORTgt_gm_optypeBYoptype."sortfSORTgt_gm_mtsnrBYoptype.IFgt_gm_optypeISNOTINITIAL.LOOPATLOOPATgt_gm_mtsnrWHEREoptypeEQgt_gm_optype-PERFORMLOOPATgt_gm_ok_dataWHEREfilenameEQ bktxtEQgt_gm_mtsnr-bktxtANDoptypeEQgt_gm_optype-optype.PERFORMMOVE-CORRESPONDINGgt_gm_ok_dataTOgt_errcontent_tra.APPENDgt_errcontent_tra.DESCRIBETABLEgt_gm_itemLINESl_lines.IFl_linesGT0.PERFORMfrm_init_bapi_header.PERFORMfrm_create_matnr_doc.sum_t=sum_t+1.REFRESHDESCRIBETABLEgt_errcontentLINESg_fai_line.g_suc_line=g_tot_line-g_fai_line.sum_s=sum_t-PERFORMfrm_statisticUSINGpr_filenameg_tot_lineg_suc_lineg_fai_line.PERFORMfrm_log_end.CLEARsum_s.CLEARsum_e.CLEARDESCRIBETABLEgt_errcontentLINESg_fai_line.g_suc_line=g_tot_line-g_fai_line.sum_s=sum_t-PERFORMfrm_statisticUSINGpr_filenameg_tot_lineg_suc_lineg_fai_line.PERFORMfrm_log_end.CLEARsum_s.CLEARsum_e.CLEAR " Form *&功能说明：向同一物料单加入BAPI的 *&参数说明 FORMgt_gm_header-pstng_date=sy-datum. =gt_gm_ok_data-budat. =sy-uname.gt_gm_header-ref_doc_no=g_mtsnr.gt_gm_header-header_txt=g_bktxt.SELECTSINGLE*FROMWHEREtcodeEQIFsy-subrcEQgt_gm_code-gm_code=t158g-gt_gm_code-gm_code='03'. Form --> <-- FORMgt_gm_item-material=gt_gm_ok_data-matnr.gt_gm_item-nt=gt_gm_ok_data-werks.gt_gm_item-stge_loc=gt_gm_ok_data-lgort.gt_gm_item-move_type=gt_gm_ok_data-IFgt_gm_item-move_typeEQ'YD1'ORgt_gm_item-move_typeEQgt_gm_item-move_reas=gt_gm_item-costcenter=gt_gm_ok_data-kostl.gt_gm_item-entry_qnt=gt_gm_ok_data-erfmg.IFNOTgt_gm_ok_data-erfmeISINITIAL.gt_gm_item-entry_uom=gt_gm_ok_data-gt_gm_item-move_mat=gt_gm_ok_data-matnr.gt_gm_item-move_nt=gt_gm_ok_data-umwrk.gt_gm_item-move_stloc=gt_gm_ok_data-umlgo.gt_gm_item-item_text=gt_gm_ok_data-*移动类型BWART=Z61，工厂WERKS=8915IFgt_gm_ok_data-bwartEQ'Z61'ORgt_gm_ok_data-bwartEQ'Z62'. =gt_gm_ok_data-aufnr.gt_gm_item-gl_account=gt_gm_ok_data-APPENDCLEARg_mtsnr=gt_gm_ok_data-mtsnr.g_bktxt=gt_gm_ok_data-bktxt.g_tcode=gt_gm_ok_data- " Form *&功能说明：调用BAPI创建物料凭 *&参数说明：pr_tcode的TCode(MB1AMB1B FORMDATA:l_mess_tra(100)TYPEIFgt_gm_optype-optypeEQ'E21'ORgt_gm_optype-optypeEQ'E19'LOOPATgt_gm_item.gt_gm_item-move_type=MODIFYgt_gm_itemTRANSPORTINGCALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=gt_gm_header =gt_gm_codegoodsmvt_headret=gt_gm_headret =gt_gm_item =gt_gm_errmsg.READTABLEgt_gm_errmsgWITHKEYtype='E'.IFsy-subrcISINITIAL.CALLFUNCTIONCONCATENATEtext-301gt_gm_ok_data-optypetext-308g_ls_mtsnrINTOSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'556'l_mess_tratext-309gt_gm_errmsg-message''CHANGINGg_message.INSERTLINESOFgt_errcontent_traINTOTABLEgt_errcontentsum_e=sum_e+1.REFRESHgt_gm_item.CALLFUNCTION'BA wait=同步更新“物料凭证抬头”表ZPV_T_DOCCHKgt_new_docchk-mandt=sy-mandt.gt_new_docchk-zkfbh=c_kfbh_mm11.gt_new_docchk-werks=gt_gm_item-nt.gt_new_docchk-bktxt=g_bktxt.gt_new_docchk-zpzbhgt_gm_headret-mat_doc.APPENDgt_new_docchk.CLEARPERFORMfrm_append_logUSINGc_msgsuccedgt_gm_optype-optypegt_gm_mtsnr-bktxtmat_docCHANGINGIFgt_gm_optype-optypeEQ'E21'ORgt_gm_optype-optypeEQ'E19'PERFORMREFRESH " Form *&功能说明：冲销需要取消掉的物料凭 *&参数说明 FORMfrm_cancel_docUSING LIKEbapi2017_gm_head_02- LIKEbapi2017_gm_head_02- LIKEbapi2017_gm_head_02- LIKEbapi2017_gm_head_retOCCURS0WITHHEADERLINE, LIKEbapiret2OCCURS0WITHHEADERLINE.l_mat_doc=l_doc_year=gt_gm_ok_data-budat+0(4).l_pstng_date=gt_gm_ok_data-budat.CALLFUNCTION'BAPI_GOODSMVT_CANCEL'material=l_mat_doc =l_doc_yeargoodsmvt_pstng_date=l_pstng_date =lt_bapi_goodsmvtheadret =READTABLElt_bapi_errorWITHKEYtype='E'.IFsy-subrcNE0.CALLFUNCTION'BA wait=CALLFUNCTION Form *&功能说明：把错误的文件放在server *&参数说明 FORMfrm_write_err_fileUSINGl_subrcLIKEsy-lt_errcontentLIKEzpv_s_lineOCCURS0WITHHEADERCHECKgt_errcontent[]ISNOTINITIAL.lt_errcontent[]=gt_errcontent[].PERFORMfrm_write_err_file_to_srvTABLESUSINGpr_filenameCHANGING " Form *&功能说明：检验上载数据文件的有效 *&参数说明 FORMDATA:l_lvormLIKEmarc-lvorm,l_pstatLIKEmarc-pstat,l_mstaeLIKEmara-mstae,l_bklasLIKEmbew-bklas,l_lofrmLIKEmard-lvorm,l_verprLIKEmbew-verpr,l_stprsLIKEmbew-stprs,l_lifnrLIKElfa1-lifnr,l_vprsvLIKEmbew-DATA:l_chkok(1)TYPEc,l_datok(1)TYPEc,l_decok(1)TYPEc, TYPEc,l_mess_tra_1(100)TYPEc,l_mess_tra_2(100)TYPEl_chkok=g_xh=gt_gm_data-MOVEgt_gm_data-xhTOg_xh.g_tot_line=g_tot_line+MOVE-CORRESPONDINGgt_gm_dataTOgt_errcontent_tra.APPENDgt_errcontent_tra.CLEARSELECTSINGLE*FROMWHEREzkfbhEQc_kfbh_mm11ANDwerksEQc_werksANDbktxtEQgt_gm_data-bktxt.IFsy-subrcEQ0.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'730'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.对于E3S传输过来OPTYPEE27/E28IFgt_gm_data-optypeEQ'E27'ORgt_gm_data-optypeEQl_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'731'g_xhl_mess_tra''''CHANGINGg_message.MOVE-CORRESPONDINGgt_gm_dataTOgt_errcontent.g_err_='X'.CLEAR:g_check_post.IFgt_gm_data-optypeEQ'E3'ORgt_gm_data-optypeEQ'E4'ORgt_gm_data-optypeEQ'E5'ORgt_gm_data-optypeEQ'E6'.PERFORMfrm_check_postdatUSINGgt_gm_data-budat.IFg_check_post='X'.l_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'748'g_xhl_mess_tra''''CHANGINGg_message.MOVE-CORRESPONDINGgt_gm_dataTOgt_errcontent.g_err_='X'.IFgt_gm_data-optypeEQ'E21'.IFgt_gm_data-tszd2NE'10'.l_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'743'g_xhl_mess_tra''''CHANGINGg_message.MOVE-CORRESPONDINGgt_gm_dataTOgt_errcontent.g_err_='X'.IFgt_gm_data-optypeEQ'E19'.IFgt_gm_data-tszd2NE'11'.l_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'744'g_xhl_mess_tra''''CHANGINGg_message.MOVE-CORRESPONDINGgt_gm_dataTOgt_errcontent.g_err_='X'.READTABLEgt_bwart_listWITHKEYplsopt=gt_gm_data-optype.IFsy-subrcEQ0.gt_gm_ok_data_tra-tcode=gt_bwart_list-tcode.gt_gm_ok_data_tra-bwart=gt_bwart_list- gt_gm_ok_data_tra-sortfgt_bwart_list-sortf."排序字段暂时不考虑l_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'733'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-aufnrISINITIALAND(gt_gm_ok_data_tra-bwartEQ'Z61'ORgt_gm_ok_data_tra-bwartEQ'Z62').l_chkok=CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'732'g_xhl_mess_tra''''CHANGINGg_message. =IFgt_gm_data-optypeEQ'E11'ORgt_gm_data-optypeEQIFgt_gm_data-kostlISINITIAL.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'734'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-optypeEQ'E13'ORgt_gm_data-optypeEQIFgt_gm_data-bwartISINITIALORgt_gm_data-saknrISINITIAL.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'735'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-optypeEQ'E23'ORgt_gm_data-optypeEQIFgt_gm_data-lgortISINITIALORgt_gm_data-umlgoISINITIAL.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'736'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-optypeEQ'E19'ORgt_gm_data-optypeEQIFgt_gm_data-mtsnrISINITIAL.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-323gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'737'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-matnrISNOTINITIAL.SELECTSINGLElvormpstatINTO(l_lvorm,l_pstat)FROMmarcWHEREmatnrEQgt_gm_data-matnrANDwerksEQIFsy-subrcNE0ORl_lvormEQ'X'.l_chkok=''.PERFORMfrm_append_logUSINGc_msgfailed'543'g_xhl_mess_tragt_gm_data-matnrc_werksCHANGINGg_message.g_err_='X'.SEARCHl_pstatFOR'B'.IFsy-subrcNE0.l_chkok=PERFORMfrm_append_logUSINGc_msgfailed'544'g_xhl_mess_tragt_gm_data-matnrc_werksCHANGINGg_message.g_err_='X'.l_chkok=CONCATENATEtext-301gt_gm_data-text-323INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'738'g_xhl_mess_tra''''CHANGINGg_message.g_err_='X'.IFgt_gm_data-matnrISNOTINITIAL.SELECTSINGLEmstaeINTO(l_mstae)FROMmaraWHEREmatnrEQgt_gm_data-IFsy-subrcEQ0ANDl_mstaeEQ'Z1'.l_chkok=''.CONCATENATEtext-301gt_gm_data-text-308gt_gm_data-INTOl_mess_traSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'547'g_xhl_mess_tragt_gm_data-matnr''CHANGINGg_message.g_err_='X'.SELECTSINGLEvprsvverprstprsINTO(l_vprsv,l_verpr,l_stprs)FROMmbewWHEREbwkeyEQc_werksmatnrEQgt_gm_data-matnrANDlvormNE'X'.IFl_vprsvEQ'S'ANDl_stprsEQ0.l_chkok=''.CLEARCONCATENATEtext-301gt_gm_data-text-308gt_gm_data-mtsnrtext-323gt_gm_data-INTOl_mess_tra_2SEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'739'g_xhl_mess_tra_2''''CHANGINGg_message.g_err_='X'.*检查物料的视图是否被删SELECTSINGLElvormINTOl_lvormFROMmardWHEREmatnrEQgt_gm_data-matnrANDwerks=c_werksANDlgort=gt_gm_data-lgort.IFl_lvormISNOTINITIAL.l_chkok=''.CONCATENATEtext-301gt_gm_data-optypetext-308gt_gm_data-mtsnrtext-323gt_gm_data-matnrINTOl_mess_tra_1SEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'740'g_xhl_mess_tra_1''''CHANGINGg_message.g_err_='X'.IFNOTgt_gm_data-erfmeISINITIAL.SELECTSINGLEmsehiINTO(gt_gm_data-erfme)FROMt006aWHEREmseh3EQgt_gm_data-IFsy-subrcNE0.gt_gm_data-erfme='EA'.SELECTSINGLEvprsvverprstprsINTO(l_vprsv,l_verpr,l_stprs)FROMmbewWHEREbwkeyEQgt_gm_data-werksANDmatnrEQgt_gm_data-matnrANDlvormNE'X'.IF(l_vprsvEQ'V'ANDl_verprEQ0)OR(l_vprsvEQ'S'ANDl_stprsEQ0).l_chkok=''.CLEARCONCATENATEtext-301gt_gm_data-text-308gt_gm_data-mtsnrtext-323gt_gm_data-text-346INTOl_mess_tra_2SEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'741'l_mess_tra_2''''''CHANGINGg_message.g_err_='X'.GT_GM_OK_DATA_TRAIFl_chkokEQ'X'.gt_gm_ok_data_tra-filename=gt_gm_data-filename. =gt_gm_data-xh. =gt_gm_data-optype.gt_gm_ok_data_tra-mtsnr=gt_gm_data-mtsnr.gt_gm_ok_data_tra-budat=gt_gm_data-budat.gt_gm_ok_data_tra-kostl=gt_gm_data-kostl.gt_gm_ok_data_tra-aufnr=gt_gm_data-aufnr.gt_gm_ok_data_tra-matnr=gt_gm_data-matnr.gt_gm_ok_data_tra-bktxt=gt_gm_data-bktxt.gt_gm_ok_data_tra-erfmg=gt_gm_data-erfmg.gt_gm_ok_data_tra-erfme=gt_gm_data-erfme.gt_gm_ok_data_tra-werks=gt_gm_data-werks.gt_gm_ok_data_tra-lgort=gt_gm_data-lgort.gt_gm_ok_data_tra-umwrk=gt_gm_data-werks. gt_gm_ok_data_tra-umlgo=gt_gm_data-umlgo.gt_gm_ok_data_tra-sgtxt=gt_gm_data-sgtxt.gt_gm_ok_data_tra-saknr=gt_gm_data-saknr.gt_gm_ok_data_tra-lifnr=l_lifnr.gt_gm_ok_data_tra-value=gt_gm_data-value.gt_gm_ok_data_tra-tcode=gt_gm_data-gt_gm_ok_data_tra-bwart=gt_gm_data-APPENDgt_gm_ok_data_tra.CLEARgt_gm_ok_data_tra.CLEAR:l_lifnr.g_err_= Form *&功能说明：获取PLS操作类型和物料移动类型的对照信息到内 *&参数说明 FORMCLEARSELECTplsopttcodebwartsortfinordFROMzpv_t_plsmovINTOCORRESPONDINGFIELDSOFTABLESORTgt_bwart_listBYDELETEADJACENTDUPLICATESFROMgt_bwart_list. Form *&功能说明：获取工厂列表信息到内 *&参数说明 FORMCLEARgt_werks_list.SELECTwerksFROMt001wINTOCORRESPONDINGFIELDSOFTABLESORTgt_werks_listBYDELETEADJACENTDUPLICATESFROMgt_werks_list. Form *&功能说明：获取库存地点列表信息到内 *&参数说明 FORMCLEARSELECTwerkslgortFROMINTOCORRESPONDINGFIELDSOFTABLESORTgt_lgort_listBYwerksDELETEADJACENTDUPLICATESFROMgt_lgort_list. Form *&功能说明：将处理记录的结果信息写入日志表 *&功能说明：将错误记录写入错误记录表 FORMfrm_append_errlogUSINGpr_msgnopr_parmDATA:l_msg(255)TYPEPERFORMfrm_build_msgUSINGc_msg_cls_inpr_msgnoCHANGINGPERFORMfrm_add_logUSINGc_msgfailedsy-datumsy-uzeit'frm_append_errlog' " Form *&功能说明：将处理记录的结果信息写入日志表 FORMfrm_append_suclogUSINGpr_msgnopr_parmDATA:l_msg(255)TYPEPERFORMfrm_build_msgUSINGc_msg_cls_inpr_msgnoCHANGINGPERFORMfrm_add_logUSINGc_msgsuccedsy-datumsy-uzeit'frm_append_suclog' " Form *&功能说明：在业务处理过程中，把错误数据写到错误数据收集内表 gt_gm_ok_data到 FORMMOVE-CORRESPONDINGgt_gm_ok_dataTOgt_errcontent.APPENDgt_errcontent.CLEAR Form *&功能说明：初始化BAPI： FORMCLEARgt_gm_header.CLEARgt_gm_code.CLEARCLEARCLEARgt_gm_errmsg.REFRESHgt_gm_item.REFRESHgt_gm_errmsg.REFRESHgt_errcontent_tra. Form --> <-- FORMfrm_back_flush_readyDATA:l_text(255) TYPEc.DATA:BEGINOFlt_veridOCCURS0,veridLIKEmkal-verid,ENDOFlt_verid.DATA:l_veridLIKEmkal-verid.DATA:l_char_15(15)TYPEc, TYPEc,l_verid_lineTYPEi.DATA:l_mess_tra(100)TYPEc.CLEARgw_bapi_rm_.CLEARCASEgt_gm_p0506-WHENgw_bapi_rm_-bckfltype=WHENgw_bapi_rm_-bckfltype=WHENg_lgort=SPLITgt_gm_p0506-matnrAT'-'INTOl_char_15l_char_4.TRANSLATEl_char_4TOUPPERCASE.CONDENSEl_char_4.CASEl_char_4.WHENg_werks=WHENg_werks=WHENg_werks=WHENREADTABLEgt_pt_matlistWITHKEYmatnr=gt_gm_p0506-matnr.IFsy-subrcISINITIAL.g_werks=gt_pt_matlist-g_werks=g_lgort=WHENCONCATENATEtext-301gt_gm_p0506-text-308gt_gm_p0506-mtsnrtext-323gt_gm_p0506-matnrINTOl_textSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'742''frm_back_flush_ready'text-308g_ls_mtsnrl_text''CHANGINGg_message.g_backflush_=CONCATENATEtext-301gt_gm_p0506-text-308gt_gm_p0506-mtsnrtext-323gt_gm_p0506-INTOl_mess_traSEPARATEDBYSELECTveridINTOCORRESPONDINGFIELDSOFTABLElt_veridFROMWHEREmatnrEQgt_gm_p0506-matnrANDwerksEQg_werksANDbdatuGEgt_gm_p0506- ANDadatuLEgt_gm_p0506-budat. DESCRIBETABLElt_veridLINESl_verid_line.CASEWHENg_backflush_=PERFORMfrm_append_logUSINGc_msgfailed'557'gt_gm_p0506-xhl_mess_trag_werkstext-330CHANGINGg_message.WHENREADTABLElt_veridINDEX =gt_gm_p0506-matnr. =g_werks. =g_lgort. "1010->FS3.03:g_lgortgw_bapi_rm_datgen-prodversion=lt_verid-verid. =gt_gm_p0506-budat. =gt_gm_p0506-budat.gw_bapi_rm_datgen-docheadertxt=g_ls_mtsnr.gw_bapi_rm_datgen-backflquant=gt_gm_p0506-erfmg.WHENg_backflush_=PERFORMfrm_append_logUSINGc_msgfailed'557'gt_gm_p0506-xhl_mess_trag_werkstext-CHANGINGIFg_backflush_=MOVE-CORRESPONDINGgt_gm_p0506TOgt_errcontent.APPENDgt_errcontent.CLEARgt_errcontent.sum_e=sum_e+1. " Formfrm_gm_ --> <-- FORMfrm_gm_nt_readyUSINGCLEAR:gt_gm_item, =gt_gm_p0506-matnr. =g_werks. =g_lgort. "1010->FS3.03gt_gm_item-move_type=p_move_type.gt_gm_item-costcenter=gt_gm_p0506-kostl.gt_gm_item-orderid=gt_gm_p0506-aufnr.gt_gm_item-entry_qnt=gt_gm_p0506-erfmg.gt_gm_item-move_mat=gt_gm_p0506-matnr.gt_gm_item-move_nt=gt_gm_p0506-werks.gt_gm_item-move_stloc=gt_gm_p0506-lgort.gt_gm_item-item_text=gt_gm_p0506-sgtxt.APPENDgt_gm_item.CLEAR "frm_gm_ Form *&功能说明：将处理记录的结果信息写入日志表 FORMfrm_append_logUSINGp_msgtypep_msgno p_parm2p_parm3 CHANGINGp_message.DATA:l_msg(255)TYPEPERFORMfrm_build_msgUSINGc_msg_cls_inp_msgnoCHANGINGPERFORMfrm_add_logUSINGp_msgtypesy-datumsy-p_frmname " Form --> <-- FORMfrm_ball_againDATA:l_str_lenTYPEi.DATA:l_mess_tra(100)TYPEc.*从工 LOOPATgt_gm_item.CLEAR:l_str_len=STRLEN(gt_gm_item-material)-5.IFl_str_len>0.gt_gm_item-material=gt_gm_item-gt_gm_item-move_type='Z61'. ='8919'.gt_gm_item-stge_loc=MODIFYgt_gm_itemTRANSPORTINGmove_typentstge_locCALLFUNCTION'BAPI_GOODSMVT_CREATE'goodsmvt_header=gt_gm_header =gt_gm_codegoodsmvt_headret=gt_gm_headret =gt_gm_item =gt_gm_errmsg.READTABLEgt_gm_errmsgWITHKEYtype='E'.IFsy-subrcISINITIAL.CALLFUNCTIONCONCATENATEtext-301gt_gm_ok_data-optypetext-308g_ls_mtsnrINTOSEPARATEDBYPERFORMfrm_append_logUSINGc_msgfailed'556'l_mess_tratext-309gt_gm_errmsg-message''CHANGINGg_message.REFRESHCALLFUNCTION'BA wait=同步更新“物料凭证抬头”表ZPV_T_DOCCHKgt_new_docchk-mandt=sy-mandt.gt_new_docchk-zkfbh=c_kfbh_mm11.gt_new_docchk-werks=gt_gm_item-nt.gt_new_docchk-bktxt=g_mtsnr.gt_new_docchk-zpzbhgt_gm_headret-mat_doc.APPENDgt_new_docchk.CLEARPERFORMfrm_append_logUSINGc_msgsuccedgt_gm_optype-optypegt_gm_mtsnr-bktxtmat_doc''

CHANGING " Form --> <-- FORMfrm_update_tableUSINGpr_filenameIFgt_new_docchk[]ISNOTMODIFYzpv_t_docchkFROMTABLEgt_new_docchk.IFsy-subrc=0.COMMITWORKANDPERFORMfrm_append_logUSINGc_msgsucced'556''frm_create_matnr_doc'text-320pr_filenametext-321''