MJ1IAF01 SAP ABAP INCLUDE - Include MJ1I9F01 - Sub-Routines For SAPMJ1IA
MJ1IAF01 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 MJ1IAF01 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 MJ1IAF01. "Basic submit
SUBMIT MJ1IAF01 AND RETURN. "Return to original report after report execution complete
SUBMIT MJ1IAF01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include MJ1I9F01 - Sub-Routines For SAPMJ1IA
INCLUDES used within this REPORT MJ1IAF01
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:
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = T_ITEM-MATNR OLD_UOM = T_ITEM-ORIG_UOM NEW_UOM = T_ITEM-MEINS OLD_QTY = T_ITEM-ORIG_QTY Y_EKPO = EKPO Y_MSEG = MSEG IMPORTING NEW_QTY = T_ITEM-ORIG_QTY EXCEPTIONS OTHERS = 1.
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = T_ITEM-MATNR OLD_UOM = T_ITEM-ORIG_UOM NEW_UOM = T_ITEM-MEINS OLD_QTY = T_ITEM-ORIG_QTY Y_EKPO = EKPO Y_MSEG = MSEG IMPORTING NEW_QTY = T_ITEM-ORIG_QTY EXCEPTIONS OTHERS = 1.
J_1I7_USEREXIT_EXCISE_AFT_SAVE CALL FUNCTION 'J_1I7_USEREXIT_EXCISE_AFT_SAVE' EXPORTING EXCHDR = J_1IEXCHDR TABLES EXCDTL = Z_1IEXCDTL EXCEPTIONS OTHERS = 1.
J_1I6_MESSAGE CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '542' DEF_MSGTY = 'W' MSGTX1 = MSG_TEXT * MSGTX2 = * MSGTX3 = * MSGTX4 = EXCEPTIONS OTHERS = 1.
J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' EXPORTING I_BUKRS = V_BUKRS IMPORTING EXCISE_YEAR = V_EXCISE_YEAR EXCEPTIONS MISS_COMPANY = 1 OTHERS = 2.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = '01' OBJECT = 'J_1IINTNUM' TOYEAR = V_EXCISE_YEAR IMPORTING NUMBER = T_HEADER-DOCNO RETURNCODE = V_RETURN_CODE EXCEPTIONS INTERVAL_NOT_FOUND = 1 NUMBER_RANGE_NOT_INTERN = 2 OBJECT_NOT_FOUND = 3 QUANTITY_IS_0 = 4 QUANTITY_IS_NOT_1 = 5 INTERVAL_OVERFLOW = 6 OTHERS = 7.
J_1I7_USEREXIT_EXCISE_AFT_SAVE CALL FUNCTION 'J_1I7_USEREXIT_EXCISE_AFT_SAVE' EXPORTING EXCHDR = J_1IEXCHDR TABLES EXCDTL = Z_1IEXCDTL EXCEPTIONS OTHERS = 1.
ME_PRICING_REFRESH CALL FUNCTION 'ME_PRICING_REFRESH' "delivery costs EXCEPTIONS OTHERS = 1.
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = T_ITEM-MATNR OLD_UOM = EKPO-MEINS NEW_UOM = T_ITEM-MEINS OLD_QTY = V_QUANTITY Y_EKPO = EKPO Y_MSEG = MSEG IMPORTING NEW_QTY = V_QUANTITY EXCEPTIONS OTHERS = 1.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_AMOUNT = T_ITEM-NAVFW FOREIGN_CURRENCY = EKKO-WAERS LOCAL_CURRENCY = T001-WAERS * RATE = 0 TYPE_OF_RATE = j_1iindcus-j_1icvdexcg IMPORTING LOCAL_AMOUNT = T_ITEM-NAVFW EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 OTHERS = 3.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_AMOUNT = T_ITEM-BED_INVENTORY FOREIGN_CURRENCY = EKKO-WAERS LOCAL_CURRENCY = T001-WAERS TYPE_OF_RATE = j_1iindcus-j_1icvdexcg IMPORTING LOCAL_AMOUNT = T_ITEM-BED_INVENTORY EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 OTHERS = 3.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_AMOUNT = T_ITEM-AED_INVENTORY FOREIGN_CURRENCY = EKKO-WAERS LOCAL_CURRENCY = T001-WAERS TYPE_OF_RATE = j_1iindcus-j_1icvdexcg IMPORTING LOCAL_AMOUNT = T_ITEM-AED_INVENTORY EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 OTHERS = 3.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_AMOUNT = T_ITEM-SED_INVENTORY FOREIGN_CURRENCY = EKKO-WAERS LOCAL_CURRENCY = T001-WAERS TYPE_OF_RATE = j_1iindcus-j_1icvdexcg IMPORTING LOCAL_AMOUNT = T_ITEM-SED_INVENTORY EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 OTHERS = 3.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING POPUP_TITLE = 'Item Number' "#EC NOTEXT IMPORTING RETURNCODE = V_RETURN_CODE TABLES FIELDS = T_SVAL EXCEPTIONS ERROR_IN_FIELDS = 1 OTHERS = 2.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING DEFAULTOPTION = V_DEFAULTOPTION TEXTLINE1 = V_TEXTLINE1 TEXTLINE2 = V_TEXTLINE2 TITEL = V_TITLE * START_COLUMN = 25 * START_ROW = 6 IMPORTING ANSWER = V_ANSWER EXCEPTIONS OTHERS = 1.
J_1I6_MESSAGE CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '194' DEF_MSGTY = 'W' MSGTX1 = MSG_TEXT EXCEPTIONS OTHERS = 1.
J_1I6_MESSAGE CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '768' DEF_MSGTY = 'W' MSGTX1 = MSG_TEXT EXCEPTIONS OTHERS = 1.
J_1I6_MESSAGE CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '193' DEF_MSGTY = 'W' MSGTX1 = MSG_TEXT EXCEPTIONS OTHERS = 1.
CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '193' DEF_MSGTY = 'W' MSGTX1 = MSG_TEXT EXCEPTIONS OTHERS = 1.
J_1I6_UNIT_CONVERSION * call function 'J_1I6_UNIT_CONVERSION' "added 9.3.98
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = T_ITEM-MATNR OLD_UOM = EKPO-MEINS NEW_UOM = T_ITEM-MEINS OLD_QTY = T_ITEM-ORIG_QTY Y_EKPO = EKPO Y_MSEG = MSEG IMPORTING NEW_QTY = T_ITEM-ORIG_QTY EXCEPTIONS OTHERS = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-EXCISE_BED IMPORTING E_AMOUNT = T_ITEM-EXCISE_BED EXCEPTIONS OTHERS = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-EXCISE_AED IMPORTING E_AMOUNT = T_ITEM-EXCISE_AED EXCEPTIONS OTHERS = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-EXCISE_SED IMPORTING E_AMOUNT = T_ITEM-EXCISE_SED EXCEPTIONS OTHERS = 1.
J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' EXPORTING I_BUKRS = EKKO-BUKRS I_BUDAT = T_HEADER-EXDAT IMPORTING EXCISE_YEAR = V_EXCISE_YEAR EXCEPTIONS MISS_COMPANY = 1 OTHERS = 2.
J_1I6_ROUND_TO_NEAREST_AMT * call function 'J_1I6_ROUND_TO_NEAREST_AMT' * exporting * i_amount = t_item-excise_bed * importing * e_amount = t_item-excise_bed * exceptions * others = 1.
J_1I6_ROUND_TO_NEAREST_AMT * call function 'J_1I6_ROUND_TO_NEAREST_AMT' * exporting * i_amount = t_item-excise_sed * importing * e_amount = t_item-excise_sed * exceptions * others = 1.
J_1I6_ROUND_TO_NEAREST_AMT * call function 'J_1I6_ROUND_TO_NEAREST_AMT' * exporting * i_amount = t_item-excise_aed * importing * e_amount = t_item-excise_aed * exceptions * others = 1.
ENQUEUE_EJ_1IEXHDR CALL FUNCTION 'ENQUEUE_EJ_1IEXHDR' EXPORTING MANDT = SY-MANDT TRNTYP = T_HEADER-TRNTYP DOCYR = T_HEADER-DOCYR DOCNO = T_HEADER-DOCNO EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.
DEQUEUE_EJ_1IEXHDR CALL FUNCTION 'DEQUEUE_EJ_1IEXHDR' EXPORTING MANDT = SY-MANDT TRNTYP = T_HEADER-TRNTYP DOCYR = T_HEADER-DOCYR DOCNO = T_HEADER-DOCNO EXCEPTIONS OTHERS = 1.
ENQUEUE_EJ_1IEXDTL CALL FUNCTION 'ENQUEUE_EJ_1IEXDTL' EXPORTING MANDT = SY-MANDT TRNTYP = T_HEADER-TRNTYP DOCYR = T_HEADER-DOCYR DOCNO = T_HEADER-DOCNO ZEILE = J_1IEXCDTL-ZEILE EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.
DEQUEUE_EJ_1IEXDTL CALL FUNCTION 'DEQUEUE_EJ_1IEXDTL' EXPORTING * MODE_J_1IEXCDTL = 'E' MANDT = SY-MANDT TRNTYP = T_HEADER-TRNTYP DOCYR = T_HEADER-DOCYR DOCNO = T_HEADER-DOCNO ZEILE = J_1IEXCDTL-ZEILE EXCEPTIONS OTHERS = 1.
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = T_ITEM-MATNR OLD_UOM = T_ITEM-ORIG_UOM NEW_UOM = T_ITEM-MEINS OLD_QTY = T_ITEM-ORIG_QTY Y_EKPO = EKPO Y_MSEG = MSEG IMPORTING NEW_QTY = T_ITEM-ORIG_QTY EXCEPTIONS OTHERS = 1.
J_1I6_EXC_UNIT_CONVERSION CALL FUNCTION 'J_1I6_EXC_UNIT_CONVERSION' EXPORTING MATNR = t_item-matnr OLD_UOM = t_item-orig_uom NEW_UOM = t_item-meins OLD_QTY = t_item-menga Y_EKPO = ekpo Y_MSEG = mseg IMPORTING NEW_QTY = t_item-menga exceptions others = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-TOTAL_BED IMPORTING E_AMOUNT = T_ITEM-TOTAL_BED EXCEPTIONS OTHERS = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-TOTAL_SED IMPORTING E_AMOUNT = T_ITEM-TOTAL_SED EXCEPTIONS OTHERS = 1.
J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = T_ITEM-TOTAL_AED IMPORTING E_AMOUNT = T_ITEM-TOTAL_AED EXCEPTIONS OTHERS = 1.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING POPUP_TITLE = 'Customs Invoice no.' "#EC NOTEXT
J_1I6_DISPLAY_PART1_PART2 CALL FUNCTION 'J_1I6_DISPLAY_PART1_PART2' EXPORTING BUKRS = T_HEADER-BUKRS TRNTYP = 'GRPO' DOCNO = T_HEADER-DOCNO DOCYR = T_HEADER-DOCYR
EXCEPTIONS OTHERS = 1.
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 MJ1IAF01 or its description.