SAP Reports / Programs | Quality Management | Quality Inspection | Inspection Lot Completion(QM-IM-UD) SAP QM
MQEVAF41 SAP ABAP INCLUDE - Includes for HU Processing
MQEVAF41 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter MQEVAF41 into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT MQEVAF41. "Basic submit
SUBMIT MQEVAF41 AND RETURN. "Return to original report after report execution complete
SUBMIT MQEVAF41 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Includes for HU Processing
INCLUDES used within this REPORT MQEVAF41
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING OBJNR = L_HU_HEADER-OBJNR STATUS = C_STATUS_LAGER EXCEPTIONS OBJECT_NOT_FOUND = 1 STATUS_NOT_ACTIVE = 2 OTHERS = 3.
L_IMSEG_FROM_SONUM_DETERMINE CALL FUNCTION 'L_IMSEG_FROM_SONUM_DETERMINE' EXPORTING I_SOBKZ = L_HUTB-SOBKZ I_SONUM = L_HUTB-SONUM IMPORTING E_RLSOND = L_RLSOND.
READ_NETWORK_AUFPL_APLZL CALL FUNCTION 'READ_NETWORK_AUFPL_APLZL' EXPORTING NPLNR = I_QALS-NPLNR IMPORTING AUFPL = L_IMTAB_WA-AUFPL.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = TEXT-S01.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = TEXT-S04.
VB_CHANGE_BATCH_STATUS CALL FUNCTION 'VB_CHANGE_BATCH_STATUS' EXPORTING MATNR = I_QALS-MATNR CHARG = I_QALS-CHARG WERKS = I_QALS-WERKVORG ZUSTD = P_RQEVA-CHARG_ZUST BYPASS_READ = C_KREUZ BYPASS_LOCK = SPACE MEINS = I_QALS-MENGENEINH BYPASS_POST = C_KREUZ AUTHORITY_CHECK = C_KREUZ TABLES ZIMSEG = L_ZIMSEGTAB EXCEPTIONS NO_STATUS_TO_CHANGE = 00.
HU_UPDATE_STOCK CALL FUNCTION 'HU_UPDATE_STOCK' EXPORTING IT_VENUM = LT_VENUM_HU_POST IT_REQUEST = L_HUMSEG_T EXCEPTIONS HUS_LOCKED = 01 OTHERS = 99.
QMHU_SET_UD_QUANTITY_HUM CALL FUNCTION 'QMHU_SET_UD_QUANTITY_HUM' EXPORTING I_PRUEFLOS = QALS-PRUEFLOS I_QMHUPOS_T = L_HUMTAB_T.
HU_ITEM_QPLOS CALL FUNCTION 'HU_ITEM_QPLOS' EXPORTING IF_QPLOS = QALS-PRUEFLOS IF_DELETE = 'X' IT_HUM_QM = L_HUMTAB_T EXCEPTIONS ERROR = 1 OTHERS = 2.
HU_SET_COMBINATION CALL FUNCTION 'HU_SET_COMBINATION' EXPORTING IT_HU_IMSEG = LT_HU_IMSEG EXCEPTIONS ERROR = 1 OTHERS = 2.
HU_UPDATE_FROM_HUMSEG CALL FUNCTION 'HU_UPDATE_FROM_HUMSEG' CHANGING CT_HU_MSEG = L_HU_FROM_HUMSEG_T EXCEPTIONS IMSEG_Q_HIGHER = 1 FATAL_ERROR = 2 OTHERS = 3.
QAMB_REFRESH_DATA CALL FUNCTION 'QAMB_REFRESH_DATA' EXPORTING I_PRUEFLOS = I_QALS-PRUEFLOS.
MB_CREATE_GOODS_MOVEMENT CALL FUNCTION 'MB_CREATE_GOODS_MOVEMENT' EXPORTING IMKPF = L_IMKPF XALLR = C_KREUZ "Immer initial anfangen XALLP = C_KREUZ "Nur buchen, wenn alle Posit. o.k
QMHU_SET_UD_QUANTITY_HUM CALL FUNCTION 'QMHU_SET_UD_QUANTITY_HUM' EXPORTING I_PRUEFLOS = QALS-PRUEFLOS I_QMHUPOS_T = L_HUMTAB_T.
HU_ITEM_QPLOS CALL FUNCTION 'HU_ITEM_QPLOS' EXPORTING IF_QPLOS = QALS-PRUEFLOS IF_DELETE = 'X' IT_HUM_QM = L_HUMTAB_T EXCEPTIONS ERROR = 1 OTHERS = 2.
QAMB_COLLECT_RECORD CALL FUNCTION 'QAMB_COLLECT_RECORD' EXPORTING REFRESH = C_KREUZ LOTNUMBER = I_QALS-PRUEFLOS DOCYEAR = L_EMKPF-MJAHR DOCNUMBER = L_EMKPF-MBLNR DOCPOSITION = L_EMTAB_WA-MBLPO TYPE = '3'.
QAMB_COLLECT_RECORD CALL FUNCTION 'QAMB_COLLECT_RECORD' EXPORTING LOTNUMBER = I_QALS-PRUEFLOS DOCYEAR = L_EMKPF-MJAHR DOCNUMBER = L_EMKPF-MBLNR DOCPOSITION = L_EMTAB_WA-MBLPO TYPE = '3'.
QAST_STATUS_CHECK CALL FUNCTION 'QAST_STATUS_CHECK' EXPORTING I_OBJNR = QALS-OBJNR I_STATUS = C_STATUS_VE EXCEPTIONS STATUS_NOT_ACTIV = 01.
CALL FUNCTION 'QAST_PROCESS_ACTIVITY' EXPORTING I_OBJNR = QALS-OBJNR I_VORGANG = C_VORG_BB_STARTEN_NACH_VE EXCEPTIONS NOT_ALLOWED = 01.
QAST_PROCESS_ACTIVITY CALL FUNCTION 'QAST_PROCESS_ACTIVITY' EXPORTING I_OBJNR = QALS-OBJNR I_VORGANG = C_VORG_BB_BEENDEN EXCEPTIONS NOT_ALLOWED = 01.
QMHU_SET_UD_QUANTITY_HUM CALL FUNCTION 'QMHU_SET_UD_QUANTITY_HUM' EXPORTING I_PRUEFLOS = QALS-PRUEFLOS I_QMHUPOS_T = L_HUMTAB_T.
HU_ITEM_QPLOS CALL FUNCTION 'HU_ITEM_QPLOS' EXPORTING IF_QPLOS = QALS-PRUEFLOS IF_DELETE = 'X' IT_HUM_QM = L_HUMTAB_T EXCEPTIONS ERROR = 1 OTHERS = 2.
QAST_PROCESS_ACTIVITY CALL FUNCTION 'QAST_PROCESS_ACTIVITY' "note 1159267 EXPORTING I_CHECK_ONLY = C_KREUZ I_DIALOG = SPACE I_OBJNR = QALS-OBJNR I_VORGANG = C_VORG_BB_BEENDEN EXCEPTIONS NOT_ALLOWED = 01.
QAST_PROCESS_ACTIVITY CALL FUNCTION 'QAST_PROCESS_ACTIVITY' EXPORTING I_OBJNR = QALS-OBJNR I_VORGANG = C_VORG_BB_BEENDEN EXCEPTIONS NOT_ALLOWED = 01.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = SPACE.
DDUT_DOMVALUES_GET CALL FUNCTION 'DDUT_DOMVALUES_GET' EXPORTING NAME = 'QMGBUCHHUM' LANGU = SY-LANGU TABLES DD07V_TAB = L_DD07V_TAB EXCEPTIONS ILLEGAL_INPUT = 1 OTHERS = 2.
F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'QMGBUCHHUM' VALUE_ORG = 'S' TABLES VALUE_TAB = S_VALUE_TAB EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3.
QPK1_UD_CODE_PICKUP_LEAN CALL FUNCTION 'QPK1_UD_CODE_PICKUP_LEAN' EXPORTING I_KATALOGART = rqeva-vkatart I_WERKS = rqeva-vwerks I_AUSWAHLMGE = rqeva-vauswahlmg I_CODEGRUPPE = rqeva-vcodegrp I_CODE = rqeva-vcode I_RETURN_IF_ONE = 'X' IMPORTING E_QPK1AC = qpk1ac EXCEPTIONS NO_MATCH_IN_RANGE = 1 NO_USER_SELECTION = 2 NO_AUTHORIZATION = 3 OBJECT_LOCKED = 4 LOCK_ERROR = 5 OBJECT_MISSING = 6 OTHERS = 7.
MB_SIMULATE_SERIALNUMBER CALL FUNCTION 'MB_SIMULATE_SERIALNUMBER' EXPORTING IMSEG = L_ZIMSEG IMKPF = P_L_IMKPF ITCODE = MQEVA_TCODE IMPORTING ESHKZG = L_ESHKZG EBSTUP = L_BSTUP EBSTCH = L_BSTCH EVRGNG = L_MM_VORGANG ESNBWG = L_SNBWG E_EMKPF = L_SIM_EMKPF E_EMSEG = L_SIM_EMSEG.
SERIAL_PROFILE_READ CALL FUNCTION 'SERIAL_PROFILE_READ' EXPORTING PROFILE_R = QALS-SERNP OPERATION_R = 'HUSL' IMPORTING T_377 = L_T377 EXCEPTIONS NO_T377P_ENTRY = 1 NO_T377_ENTRY = 2 OTHERS = 3.
SERIAL_COPY_HU_MM CALL FUNCTION 'SERIAL_COPY_HU_MM' EXPORTING PROFILE = QALS-SERNP MATERIAL = L_ZIMSEG-MATNR QUANTITY = L_XANZSN MBLNR = '$' MJAHR = L_MJAHR ZEILE = L_ZEILE_TEMP BLART = L_BLART BWART = L_ZIMSEG-BWART SHKZG = L_ESHKZG M_WERK = L_ZIMSEG-WERKS M_LAGER = L_ZIMSEG-LGORT J_VORGANG = L_MM_VORGANG R_MATERIAL = L_ZIMSEG-MATNR KMATNR = L_ZIMSEG-MATNR BSTCH = L_BSTCH BSTUP = L_BSTUP HUMPOS_TAB = L_HUMPOS_TAB BUDAT = P_L_IMKPF-BUDAT EXCEPTIONS OBJECTLIST_NOT_FOUND.
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name MQEVAF41 or its description.