SAP Reports / Programs | Financial Accounting | Localization(FI-LOC) SAP FI

MJ1IFF01 SAP ABAP INCLUDE - Include MJ1IFF01







MJ1IFF01 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 MJ1IFF01 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 MJ1IFF01. "Basic submit
SUBMIT MJ1IFF01 AND RETURN. "Return to original report after report execution complete
SUBMIT MJ1IFF01 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 MJ1IFF01


INCLUDES used within this REPORT MJ1IFF01

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_DETERMINE_ACCOUNT CALL FUNCTION 'J_1I6_DETERMINE_ACCOUNT' EXPORTING BUKRS = SHEADER-BUKRS WERKS = SHEADER-WERKS EXCGRP = SHEADER-EXGRP TRNTYP = TRNTYP INDICATOR = 'D' " PLA & RG23A TABLES EXCACC = EXCACC EXCEPTIONS OTHERS = 1.

J_1I6_CALCULATE_ACCOUNT_BAL CALL FUNCTION 'J_1I6_CALCULATE_ACCOUNT_BAL' EXPORTING BUKRS = SHEADER-BUKRS WERKS = SHEADER-WERKS EXCGRP = SHEADER-EXGRP TABLES ACCBAL = EXCACC EXCEPTIONS EXCISE_ACC_NOTFOUND = 1.

J_1I6_UNIT_CONVERSION CALL FUNCTION 'J_1I6_UNIT_CONVERSION' "added 6.3.98

J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' EXPORTING I_BUKRS = SHEADER-BUKRS I_BUDAT = BKPF-BUDAT "insert IMPORTING EXCISE_YEAR = SHEADER-EXYEAR EXCEPTIONS MISS_COMPANY = 1.

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = '01' OBJECT = NUM-OBJECT QUANTITY = '1' SUBOBJECT = NUM-SUBOBJECT TOYEAR = NUM-TOYEAR * IGNORE_BUFFER = ' ' IMPORTING NUMBER = SHEADER-EXNUM QUANTITY = NUM-QUANTITY RETURNCODE = NUM-RETURNCODE 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_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = SDETAIL-EXBED IMPORTING E_AMOUNT = SDETAIL-EXBED EXCEPTIONS OTHERS = 1.

J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = SDETAIL-EXAED IMPORTING E_AMOUNT = SDETAIL-EXAED EXCEPTIONS OTHERS = 1.

J_1I6_ROUND_TO_NEAREST_AMT CALL FUNCTION 'J_1I6_ROUND_TO_NEAREST_AMT' EXPORTING I_AMOUNT = SDETAIL-EXSED IMPORTING E_AMOUNT = SDETAIL-EXSED EXCEPTIONS OTHERS = 1.

POPUP_TO_DECIDE_LIST CALL FUNCTION 'POPUP_TO_DECIDE_LIST' EXPORTING START_COL = 18 START_ROW = 4 TITEL = text-004 TEXTLINE1 = text-008 TABLES T_SPOPLI = ADOCOPTION.

POPUP_CONTINUE_YES_NO CALL FUNCTION 'POPUP_CONTINUE_YES_NO' EXPORTING DEFAULTOPTION = 'N' TEXTLINE1 = WA_TEXTLINE1 TEXTLINE2 = WA_TEXTLINE2 TITEL = text-004 IMPORTING answer = FLAG-POST.

POPUP_CONTINUE_YES_NO CALL FUNCTION 'POPUP_CONTINUE_YES_NO' EXPORTING DEFAULTOPTION = 'N' TEXTLINE1 = WA_TEXTLINE1 TEXTLINE2 = WA_TEXTLINE2 TITEL = text-004 IMPORTING answer = FLAG-POST.

POPUP_CONTINUE_YES_NO CALL FUNCTION 'POPUP_CONTINUE_YES_NO' EXPORTING DEFAULTOPTION = 'N' TEXTLINE1 = text-005 TITEL = text-004 IMPORTING answer = FLAG-DELE.

POPUP_CONTINUE_YES_NO CALL FUNCTION 'POPUP_CONTINUE_YES_NO' EXPORTING DEFAULTOPTION = 'N' TEXTLINE1 = text-005 TITEL = text-004 IMPORTING ANSWER = FLAG-DELE.

J_1I6_MESSAGE CALL FUNCTION 'J_1I6_MESSAGE' EXPORTING ARBGB = '8I' MSGNR = '268' DEF_MSGTY = 'E' EXCEPTIONS OTHERS = 1.

POPUP_CONTINUE_YES_NO CALL FUNCTION 'POPUP_CONTINUE_YES_NO' EXPORTING DEFAULTOPTION = 'N' TEXTLINE1 = text-003 TITEL = text-004 IMPORTING answer = FLAG-COMP.

J_1I7_USEREXIT_57F4_COMPLETE CALL FUNCTION 'J_1I7_USEREXIT_57F4_COMPLETE' EXPORTING EXCHDR = J_1IEXCHDR IMPORTING EXCHDR = J_1IEXCHDR EXCEPTIONS OTHERS = 1.

J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' "insert EXPORTING "insert I_BUKRS = SHEADER-BUKRS "insert I_BUDAT = BKPF-BUDAT "insert IMPORTING "insert EXCISE_YEAR = SHEADER-EXYEAR "insert EXCEPTIONS "insert MISS_COMPANY = 1 . "insert

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = '01' OBJECT = NUM-OBJECT QUANTITY = '1' TOYEAR = NUM-TOYEAR IMPORTING NUMBER = SHEADER-DOCNO QUANTITY = NUM-QUANTITY RETURNCODE = NUM-RETURNCODE 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.

POPUP_GET_VALUES





CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING * no_value_check = ' ' POPUP_TITLE = text-002 START_COLUMN = '15' START_ROW = '15' IMPORTING RETURNCODE = POST_DATE TABLES FIELDS = XSVAL EXCEPTIONS ERROR_IN_FIELDS = 1 OTHERS = 2.

J_1I6_MODVAT_POSTING CALL FUNCTION 'J_1I6_MODVAT_POSTING' EXPORTING I_COMP_CODE = SHEADER-BUKRS I_CURRENCY = SHEADER-WAERS I_EXT_REF_DOC = MODPOST-FI_XBLNR I_POST_DATE = SHEADER-FBUDAT IMPORTING E_AWTYP = MODPOST-FI_AWTYP E_AWREF = MODPOST-FI_AWREF E_AWORG = MODPOST-FI_AWORG E_BLART = MODPOST-FI_BLART TABLES I_ACCOUNT_INFO = MDVT_POSTING_TAB EXCEPTIONS FISCAL_PERIOD_ERROR = 1 DOC_CREATE_FAILED = 2 DOC_POST_FAILED = 3 FI_POSTING_ERROR = 4 OTHERS = 5.

J_1I6_DETERMINE_EXC_YEAR CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR' EXPORTING I_BUKRS = SHEADER-BUKRS I_BUDAT = BKPF-BUDAT IMPORTING EXCISE_YEAR = NUM-TOYEAR EXCEPTIONS MISS_COMPANY = 1 OTHERS = 2.

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = '01' OBJECT = NUM-OBJECT QUANTITY = '1' SUBOBJECT = NUM-SUBOBJECT TOYEAR = NUM-TOYEAR * IGNORE_BUFFER = ' ' IMPORTING NUMBER = PART2-SERIALNO QUANTITY = NUM-QUANTITY RETURNCODE = NUM-RETURNCODE 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_1I6_ENQUEUE_DEQUEUE * CALL FUNCTION 'J_1I6_ENQUEUE_DEQUEUE' * EXPORTING * I_ACTION = '1' * I_WERKS = SHEADER-WERKS * I_EXGRP = SHEADER-EXGRP * EXCEPTIONS * SYSTEM_FAILURE = 1 * ACTION_MISSING = 2 * WRONG_ACTION = 3 * WERKS_MISSING = 4 * EXGRP_MISSING = 5 * FOREIGN_LOCK = 6 * OTHERS = 7.

J_1I6_ENQUEUE_DEQUEUE CALL FUNCTION 'J_1I6_ENQUEUE_DEQUEUE' EXPORTING I_ACTION = '2' I_WERKS = SHEADER-WERKS I_EXGRP = SHEADER-EXGRP EXCEPTIONS SYSTEM_FAILURE = 1 ACTION_MISSING = 2 WRONG_ACTION = 3 WERKS_MISSING = 4 EXGRP_MISSING = 5 FOREIGN_LOCK = 6 OTHERS = 7.

ENQUEUE_EJ_1IEXHDR CALL FUNCTION 'ENQUEUE_EJ_1IEXHDR' EXPORTING MANDT = SY-MANDT TRNTYP = '57FC' "trntyp DOCYR = SHEADER-DOCYR DOCNO = SHEADER-DOCNO EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.

DEQUEUE_EJ_1IEXHDR CALL FUNCTION 'DEQUEUE_EJ_1IEXHDR' EXPORTING * MODE_J_1IEXCHDR = 'E' MANDT = SY-MANDT TRNTYP = '57FC' "trntyp DOCYR = SHEADER-DOCYR DOCNO = SHEADER-DOCNO EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_1IEXDTL CALL FUNCTION 'ENQUEUE_EJ_1IEXDTL' EXPORTING * MODE_J_1IEXCDTL = 'E' MANDT = SY-MANDT TRNTYP = '57FC' "trntyp DOCYR = SHEADER-DOCYR DOCNO = SHEADER-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 = '57FC' "trntyp DOCYR = SHEADER-DOCYR DOCNO = SHEADER-DOCNO ZEILE = J_1IEXCDTL-ZEILE 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 MJ1IFF01 or its description.