检验批过账冲销函数.docx

1、检验批过账冲销函数FUNCTIONZRFC.*-*Localinterface:*IMPORTING*VALUE(PI_PRUEFLOS)TYPEQALS-PRUEFLOS*EXPORTING*VALUE(PO_TYPE)TYPECHAR1*VALUE(PO_MESS)TYPEBAPI_MSG*-DATAprueflosTYPEqals-prueflos.CALLFUNCTIONCONVERSION_EXIT_ALPHA_INPUTEXPORTINGinput=pi_prueflosIMPORTINGoutput=prueflos.CALLFUNCTIONENQUEUE_EQQALS1EXPO

2、RTINGprueflos=prueflosEXCEPTIONSforeign_lock=1system_failure=2OTHERS=3.CLEARg_qals.CALLFUNCTIONQPSE_LOT_READEXPORTINGi_prueflos=prueflosi_reset_lot=XIMPORTINGe_qals=g_qalsEXCEPTIONSno_lot=1.IFsy-subrc=0.PERFORMcheck_lotUSINGg_qalsg_subrc.IFNOTg_subrcISINITIAL.CASEg_subrc.WHEN256.g_msgv1=Lot&doesnotr

3、efertoamaterialdoc.WHEN128.g_msgv1=Material&isserialized.REPLACE&WITHg_qals-matnrINTOg_msgv1.WHEN64.g_msgv1=Lot&isnotstockrelevant.WHEN32.g_msgv1=Lot&:Nostocktransferred.WHEN16.g_msgv1=Lot&iscancelled.WHEN8.g_msgv1=Lot&isarchived.WHEN4.g_msgv1=Lot&isblocked.WHEN2.g_msgv1=Lot&isHUmanaged.ENDCASE.REPL

4、ACE&WITHprueflosINTOg_msgv1.po_type=E.po_mess=g_msgv1.ENDIF.ELSE.po_type=E.po_mess=检验批不存在.ENDIF.IFpo_messISINITIAL.CLEARg_qamb_tab.SELECT*FROMqambINTOTABLEg_qamb_tabWHEREprueflos=g_qals-prueflosANDtyp=3.IFsy-subrc0.po_type=E.po_mess=检验批尚未过账.ELSE.CLEARg_mkpf_tab.PERFORMread_mkpfUSINGg_qamb_tabg_mkpf_

5、tabg_subrc.CLEARg_mseg_tab.PERFORMread_msegUSINGg_mkpf_tabg_mseg_tabg_subrc.PERFORMcheck_msegUSINGg_mseg_tabg_qamb_tabg_subrc.PERFORMcreate_goods_movementUSINGg_qalsg_mseg_tabg_subrcpo_mess.IFpo_messISINITIAL.PERFORMpost_goods_movement.PERFORMpost_dataUSINGg_qalsg_qals_leisteg_qamb_tabg_qamb_vb_tabg

6、_subrc.IFNOTg_subrcISINITIAL.po_mess=E.MESSAGEIDsy-msgidTYPEENUMBERsy-msgnoINTOpo_messWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ELSE.COMMITWORKANDWAIT.po_type=S.po_mess=冲销成功.ENDIF.ELSE.po_type=E.ENDIF.ENDIF.ENDIF.ENDFUNCTION.*&-*&FormCHECK_LOT*&-*text*-*-P_QALStext*-P_SUBRCtext*-*FORMcheck_lotUSINGp_qals

7、LIKEqalsp_subrcLIKEsy-subrc.DATA:l_statLIKEjstat,l_stat_tabLIKEjstatOCCURS0WITHHEADERLINE.p_subrc=256.*/NoreferencetomaterialdocumentIFp_qals-zeileISINITIAL.EXIT.ELSE.p_subrc=128.ENDIF.*/SerializedMaterialIFNOTp_qals-sernpISINITIAL.EXIT.ELSE.p_subrc=64.ENDIF.*/BERFCALLFUNCTIONSTATUS_CHECKEXPORTINGob

8、jnr=p_qals-objnrstatus=I0203EXCEPTIONSstatus_not_active=2.IFNOTsy-subrcISINITIAL.EXIT.ELSE.p_subrc=32.ENDIF.*/BTEI&BENDCLEARl_stat.CLEARl_stat_tab.REFRESHl_stat_tab.l_stat-stat=I0219.APPENDl_statTOl_stat_tab.BTEIl_stat-stat=I0220.APPENDl_statTOl_stat_tab.BENDCALLFUNCTIONSTATUS_OBJECT_CHECK_MULTIEXPO

9、RTINGobjnr=p_qals-objnrTABLESstatus_check=l_stat_tab.IFl_stat_tabISINITIAL.EXIT.ELSE.p_subrc=16.ENDIF.*/LSTO&LSTVCLEARl_stat.CLEARl_stat_tab.REFRESHl_stat_tab.l_stat-stat=I0224.APPENDl_statTOl_stat_tab.LSTOl_stat-stat=I0232.APPENDl_statTOl_stat_tab.LSTVCALLFUNCTIONSTATUS_OBJECT_CHECK_MULTIEXPORTINGo

10、bjnr=p_qals-objnrTABLESstatus_check=l_stat_tab.IFNOTl_stat_tabISINITIAL.EXIT.ELSE.p_subrc=8.ENDIF.*/ARSP&ARCH&REO1&REO2&REO3CLEARl_stat.CLEARl_stat_tab.REFRESHl_stat_tab.l_stat-stat=I0225.APPENDl_statTOl_stat_tab.ARSPl_stat-stat=I0226.APPENDl_statTOl_stat_tab.ARCHl_stat-stat=I0227.APPENDl_statTOl_st

11、at_tab.REO3l_stat-stat=I0228.APPENDl_statTOl_stat_tab.REO2l_stat-stat=I0229.APPENDl_statTOl_stat_tab.REO1CALLFUNCTIONSTATUS_OBJECT_CHECK_MULTIEXPORTINGobjnr=p_qals-objnrTABLESstatus_check=l_stat_tab.IFNOTl_stat_tabISINITIAL.EXIT.ELSE.p_subrc=4.ENDIF.*/SPERCALLFUNCTIONSTATUS_CHECKEXPORTINGobjnr=p_qal

12、s-objnrstatus=I0043EXCEPTIONSstatus_not_active=2.IFsy-subrcISINITIAL.EXIT.ELSE.p_subrc=2.ENDIF.*/HUMCALLFUNCTIONSTATUS_CHECKEXPORTINGobjnr=p_qals-objnrstatus=I0443EXCEPTIONSstatus_not_active=2.IFsy-subrcISINITIAL.EXIT.ELSE.p_subrc=0.ENDIF.ENDFORM.CHECK_LOT*&-*&FormREAD_MKPF*&-*text*-*-P_QAMB_TABtext

13、*-P_MKPF_TABtext*-P_SUBRCtext*-*FORMread_mkpfUSINGp_qamb_tabTYPEqambtabp_mkpf_tabTYPEt_mkpf_tabp_subrcLIKEsy-subrc.DATA:BEGINOFl_mkpf_key_tabOCCURS0,mblnrLIKEmkpf-mblnr,mjahrLIKEmkpf-mjahr,ENDOFl_mkpf_key_tab.DATA:l_qambLIKEqamb,l_mkpfLIKEmkpf,l_trtypLIKEt158-trtypVALUEA,l_vgartLIKEt158-vgartVALUEWQ

14、,l_xexitLIKEqm00-qkz.p_subrc=4.LOOPATp_qamb_tabINTOl_qamb.l_mkpf_key_tab-mblnr=l_qamb-mblnr.l_mkpf_key_tab-mjahr=l_qamb-mjahr.COLLECTl_mkpf_key_tab.ENDLOOP.LOOPATl_mkpf_key_tab.CALLFUNCTIONENQUEUE_EMMKPFEXPORTINGmblnr=l_mkpf_key_tab-mblnrmjahr=l_mkpf_key_tab-mjahrEXCEPTIONSforeign_lock=1system_failu

15、re=2OTHERS=3.IFNOTsy-subrcISINITIAL.l_xexit=X.EXIT.ENDIF.CLEAR:l_mkpf.CALLFUNCTIONMB_READ_MATERIAL_HEADEREXPORTINGmblnr=l_mkpf_key_tab-mblnrmjahr=l_mkpf_key_tab-mjahrtrtyp=l_trtypvgart=l_vgartIMPORTINGkopf=l_mkpfEXCEPTIONSerror_message=1.IFNOTsy-subrcISINITIAL.l_xexit=X.EXIT.ELSE.APPENDl_mkpfTOp_mkp

16、f_tab.ENDIF.ENDLOOP.IFNOTl_xexitISINITIAL.EXIT.ELSE.p_subrc=0.ENDIF.ENDFORM.READ_MKPF*&-*&FormREAD_MSEG*&-*text*-*-P_MKPF_TABtext*-P_MSEG_TABtext*-P_SUBRCtext*-*FORMread_msegUSINGp_mkpf_tabTYPEt_mkpf_tabp_mseg_tabTYPEt_mseg_tabp_subrcLIKEsy-subrc.DATA:l_mkpfLIKEmkpf,l_mseg_tabLIKEmsegOCCURS0WITHHEAD

17、ERLINE,l_trtypLIKEt158-trtypVALUEA,l_xexitLIKEqm00-qkz.p_subrc=4.LOOPATp_mkpf_tabINTOl_mkpf.CLEAR:l_mseg_tab.REFRESH:l_mseg_tab.CALLFUNCTIONMB_READ_MATERIAL_POSITIONEXPORTINGmblnr=l_mkpf-mblnrmjahr=l_mkpf-mjahrtrtyp=l_trtyp*/ZEILB=P_ZEILE*/ZEILE=P_ZEILETABLESseqtab=l_mseg_tabEXCEPTIONSerror_message=1.IFNOTsy-subrcISINITIAL.l_xexit=X.EXIT.