J_3RFVATSDF01 SAP ABAP INCLUDE - Subroutines for J_3RFVATSD (Russia: VAT for goods in transit)
J_3RFVATSDF01 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 J_3RFVATSDF01 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 J_3RFVATSDF01. "Basic submit
SUBMIT J_3RFVATSDF01 AND RETURN. "Return to original report after report execution complete
SUBMIT J_3RFVATSDF01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Subroutines for J_3RFVATSD (Russia: VAT for goods in transit)
INCLUDES used within this REPORT J_3RFVATSDF01
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:
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING LOCAL_CURRENCY = gs_local_curr DATE = wa_vatrep-kurrf_dat FOREIGN_CURRENCY = wa_vatrep-waerk RATE = wa_vatrep-kurrf FOREIGN_AMOUNT = wa_vatrep-netwr IMPORTING LOCAL_AMOUNT = wa_vatrep-netwr_loc EXCEPTIONS OTHERS = 1.
REUSE_ALV_GRID_DISPLAY CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' I_BYPASSING_BUFFER = 'X' * I_BUFFER_ACTIVE = ' ' i_callback_program = gs_repid I_CALLBACK_PF_STATUS_SET = gc_status I_CALLBACK_USER_COMMAND = gc_user_command * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = 'J_3RFVAT_REP' * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = * I_GRID_SETTINGS = is_layout = gs_layout it_fieldcat = gt_fieldcat[] IT_EXCLUDING = gt_excluding[] IT_SPECIAL_GROUPS = gt_sp_groups[] IT_SORT = gt_sort[] * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' I_SAVE = gc_save IS_VARIANT = gt_variant it_events = gt_events[] * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = IT_EXCEPT_QINFO = gt_except_qinfo[] TABLES t_outtab = gt_vatrep.
REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = gs_repid i_internal_tabname = 'GT_VATREP' i_structure_name = 'J_3RFVAT_REP' CHANGING ct_fieldcat = rt_fieldcat.
REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING i_list_type = 0 IMPORTING et_events = lt_events.
REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = gc_save CHANGING cs_variant = ls_variant EXCEPTIONS not_found = 2. "#EC FB_RC
REUSE_ALV_VARIANT_F4 CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = gt_variant * i_tabname_header = g_tabname_header * I_TABNAME_ITEM = it_default_fieldcat = gt_fieldcat i_save = gc_save IMPORTING e_exit = ls_exit es_variant = ls_variant EXCEPTIONS not_found = 1.
BAPI_COMPANYCODE_GET_PERIOD CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD' EXPORTING COMPANYCODEID = wa_vat_bseg-bukrs POSTING_DATE = wa_vat_bseg-augdt IMPORTING FISCAL_YEAR = l_gjahr.
BAPI_COMPANYCODE_GET_PERIOD CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD' EXPORTING COMPANYCODEID = wa_bseg-bukrs POSTING_DATE = wa_bseg-augdt IMPORTING FISCAL_YEAR = wa_clr-gjahr.
FI_ADD_AUTHORITY_CHECK CALL FUNCTION 'FI_ADD_AUTHORITY_CHECK' IMPORTING e_xblar = gf_auth_bla e_xgsbe = gf_auth_gsb EXCEPTIONS OTHERS = 1. "#EC FB_RC
FI_ADD_AUTHORITY_CHECK CALL FUNCTION 'FI_ADD_AUTHORITY_CHECK' IMPORTING e_xblar = gf_auth_bla e_xgsbe = gf_auth_gsb EXCEPTIONS OTHERS = 1. "#EC FB_RC
DEQUEUE_E_TABLES CALL FUNCTION 'DEQUEUE_E_TABLES' EXPORTING MODE_RSTABLE = 'X' tabname = lv_tabname varkey = lv_varkey EXCEPTIONS others = 2.
ENQUEUE_E_TABLES CALL FUNCTION 'ENQUEUE_E_TABLES' EXPORTING MODE_RSTABLE = 'X' tabname = lv_tabname varkey = lv_varkey EXCEPTIONS others = 2.
DEQUEUE_E_TABLES * CALL FUNCTION 'DEQUEUE_E_TABLES' * EXPORTING * MODE_RSTABLE = 'X' * tabname = lv_tabname * varkey = lv_varkey * EXCEPTIONS * others = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = wa_vatrep-light__(4) info = gt_light_infos-ddtext IMPORTING result = wa_vatrep-light__ EXCEPTIONS others = 1. "#EC FB_RC
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = wa_vatrep-check__(4) info = gt_status_infos-ddtext IMPORTING result = wa_vatrep-check__ EXCEPTIONS others = 1. "#EC FB_RC
LT_VARIANTS_READ_FROM_LTDX CALL FUNCTION 'LT_VARIANTS_READ_FROM_LTDX' TABLES ET_VARIANTS = LT_VARIANT IT_RA_REPORT = lr_report EXCEPTIONS NOT_FOUND = 1.
CM_F_INITIALIZE CALL FUNCTION 'CM_F_INITIALIZE' EXPORTING APLID = SPACE object_id = gc_err_obj_id.
CM_F_DISPLAY_LOG CALL FUNCTION 'CM_F_DISPLAY_LOG' EXPORTING APLID = SPACE HEADLINE = l_txt SKIP_INFO_SCREEN = 'X' NO_STATISTIC = 'X' * TITLE = 'Test' * OBJECT = P_CURR_ITEM-vbeln GRID_DISPLAY = 'X' WITH_OBJECTINDEPENDENT = SPACE * ALV_VARIANT = .
CALL FUNCTION 'CM_F_DELETE_OBJECT_MESSAGES' EXPORTING APLID = SPACE OBJECT = p_object EXCEPTIONS OTHERS = 0.
CM_F_SET_OBJECT CALL FUNCTION 'CM_F_SET_OBJECT' EXPORTING OBJECT = p_object object_id = gc_err_obj_id.
CM_F_MESSAGE CALL FUNCTION 'CM_F_MESSAGE' EXPORTING ARBGB = wa_msg-msgid MSGNR = wa_msg-msgno MSGTY = wa_msg-msgty MSGV1 = wa_msg-msgv1 MSGV2 = wa_msg-msgv2 MSGV3 = wa_msg-msgv3 MSGV4 = wa_msg-msgv4 MSG_ON_SCREEN = SPACE OBJECT_DEPENDENT = f_obj_dep APPEND_SAME_MSG = SPACE.
RS_SET_SELSCREEN_STATUS CALL FUNCTION 'RS_SET_SELSCREEN_STATUS' EXPORTING p_status = '%_CSP' "Staus for screen 0002 TABLES p_exclude = lt_ucom.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING LOCAL_CURRENCY = gs_local_curr DATE = p_vatrep-wwert_vat FOREIGN_CURRENCY = p_vatrep-waerk * RATE = wa_vatrep-KURSF_VAT FOREIGN_AMOUNT = p_vatrep-mwsbk_cur IMPORTING LOCAL_AMOUNT = p_vatrep-mwsbk_loc EXCEPTIONS OTHERS = 1.
FUNCTION_EXISTS CALL FUNCTION 'FUNCTION_EXISTS' EXPORTING funcname = 'AUTHORITY_CHECK_TCODE' EXCEPTIONS OTHERS = 1.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = p_tcode EXCEPTIONS ok = 0 others = 2.
FUNCTION_EXISTS CALL FUNCTION 'FUNCTION_EXISTS' EXPORTING funcname = 'AUTH_CHECK_TCODE' EXCEPTIONS OTHERS = 1.
AUTH_CHECK_TCODE CALL FUNCTION 'AUTH_CHECK_TCODE' EXPORTING TCODE = p_tcode EXCEPTIONS OTHERS = 2.
J_3RF_CLEAR_TAX_ACCOUNT CALL FUNCTION 'J_3RF_CLEAR_TAX_ACCOUNT' EXPORTING BUKRS = wa_vatrep-bukrs INVOICE_NUMBER = wa_vatrep-belnr_inv INVOICE_GJAHR = wa_vatrep-gjahr_inv TAX_DOCUMENT_NUMB = wa_vatrep-belnr_vat TAX_DOCUMENT_GJAHR = wa_vatrep-gjahr_vat IMPORTING NEW_BELNR = wa_vatrep-belnr_clr NEW_GJAHR = wa_vatrep-gjahr_clr CHANGING CTUMSG = lt_msg_clr EXCEPTIONS BATCH_INPUT = 1 NO_OPEN_LINE = 2 OTHERS = 3.
CM_F_INITIALIZE CALL FUNCTION 'CM_F_INITIALIZE' EXPORTING APLID = SPACE object_id = gc_err_obj_id.
CM_F_DISPLAY_LOG CALL FUNCTION 'CM_F_DISPLAY_LOG' EXPORTING APLID = SPACE HEADLINE = l_txt SKIP_INFO_SCREEN = 'X' NO_STATISTIC = 'X' GRID_DISPLAY = 'X' WITH_OBJECTINDEPENDENT = 'X'.
CM_F_DELETE_OBJECT_MESSAGES * CALL FUNCTION 'CM_F_DELETE_OBJECT_MESSAGES' * EXPORTING * APLID = SPACE * OBJECT = gc_tmp_log_obj * EXCEPTIONS * OTHERS = 0.
SD_INVOICE_RELEASE_TO_ACCOUNT CALL FUNCTION 'SD_INVOICE_RELEASE_TO_ACCOUNT' EXPORTING with_posting = 'B' TABLES it_vbrk = lt_vbrk "billing docs to be released xkomfk = lt_xkomfk "empty xkomv = lt_xkomv "empty xthead = lt_xthead "empty xvbfs = lt_msg_inv "messages xvbpa = lt_xvbpa "empty xvbrk = lt_xvbrk "empty xvbrp = lt_xvbrp "empty xvbrl = lt_xvbrl "empty xvbss = lt_xvbss. "empty
AC_DOCUMENT_RECORD CALL FUNCTION 'AC_DOCUMENT_RECORD' EXPORTING I_AWTYP = l_awtyp I_AWREF = wa_vbrk-VBELN I_AWSYS = wa_vbrk-LOGSYS I_BUKRS = wa_vbrk-BUKRS X_DIALOG = SPACE "#EC LIT_INCOMP TABLES T_DOCUMENTS = lt_fi_docs[].
POSTING_INTERFACE_END CALL FUNCTION 'POSTING_INTERFACE_END' EXCEPTIONS OTHERS = 1. "#EC FB_RC
POSTING_INTERFACE_START CALL FUNCTION 'POSTING_INTERFACE_START' EXPORTING i_client = sy-mandt i_function = l_type i_group = l_grpid i_user = sy-uname I_XBDCC = 'X' EXCEPTIONS OTHERS = 1.
POSTING_INTERFACE_DOCUMENT CALL FUNCTION 'POSTING_INTERFACE_DOCUMENT' EXPORTING i_tcode = l_tcode "type sy-tcode i_sgfunct = l_type "type RFIPI-SGFUNCT I_NO_AUTH = 'X' IMPORTING E_MSGID = wa_msg_vat-msgid E_MSGNO = l_msgno "wa_msg_vat-msgno E_MSGTY = wa_msg_vat-msgty E_MSGV1 = wa_msg_vat-msgv1 E_MSGV2 = wa_msg_vat-msgv2 E_MSGV3 = wa_msg_vat-msgv3 E_MSGV4 = wa_msg_vat-msgv4 E_SUBRC = l_subrc TABLES t_blntab = lt_vat[] "type BLNTAB t_ftpost = lt_bdctab[] "type FTPOST t_fttax = lt_dummytax[] "type FTTAX EXCEPTIONS account_missing = 1 company_code_missing = 2 posting_key_invalid = 3 posting_key_missing = 4 record_type_invalid = 5 transaction_code_invalid = 6 amount_format_error = 7 too_many_line_items = 8 OTHERS = 9.
DDIF_DOMA_GET CALL FUNCTION 'DDIF_DOMA_GET' EXPORTING NAME = p_name "TYPE DDOBJNAME LANGU = sy-langu IMPORTING GOTSTATE = l_GOTSTATE DD01V_WA = l_DD01V_WA TABLES DD07V_TAB = PT_LIGHT_INFOS[] EXCEPTIONS ILLEGAL_INPUT = 2.
RV_INVOICE_REFRESH CALL FUNCTION 'RV_INVOICE_REFRESH' EXPORTING with_posting = 'A' TABLES xkomfk = lt_xkomfk xkomv = lt_xkomv xthead = lt_xthead xvbfs = lt_vbfs xvbss = lt_xvbss xvbpa = lt_xvbpa xvbrk = lt_xvbrk xvbrp = lt_xvbrp.
RV_INVOICE_DOCUMENT_READ CALL FUNCTION 'RV_INVOICE_DOCUMENT_READ' EXPORTING vbrk_i = ls_vbrk activity = '02' "ACTVT_CHANGE konv_read = 'X' no_nast = 'X' "ALR IMPORTING vbrk_e = ls_vbrk * vbuk_e = TABLES xkomv = lt_xkomv xvbpa = lt_xvbpa xvbrk = lt_xvbrk xvbrp = lt_xvbrp xkomfk = lt_xkomfk xvbfs = lt_vbfs xthead = lt_xthead xvbss = lt_xvbss EXCEPTIONS no_authority = 1 OTHERS = 2.
RV_INVOICE_DOCUMENT_ADD CALL FUNCTION 'RV_INVOICE_DOCUMENT_ADD' EXPORTING vbsk_i = ls_vbsk with_posting = 'A' i_no_vblog = 'X' i_no_nast = 'X' i_no_pricing = 'X' i_no_fi_doc = 'X' IMPORTING vbsk_e = ls_vbsk TABLES xkomfk = lt_xkomfk xkomv = lt_xkomv xthead = lt_xthead xvbfs = lt_vbfs xvbpa = lt_xvbpa xvbrk = lt_xvbrk xvbrp = lt_xvbrp xvbss = lt_xvbss.
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 J_3RFVATSDF01 or its description.
J_3RFVATSDF01 - Subroutines for J_3RFVATSD (Russia: VAT for goods in transit) J_3RFVATSDEVE - Events of J_3RFVATSD (Russia: VAT for goods in transit) J_3RFVATSD - VAT for Goods in Transit (Russia) J_3RFVATSD - VAT for Goods in Transit (Russia) J_3RFVATMMTOP - Data Declaration J_3RFVATMMSEL - Selection Screen