SAP Reports / Programs | Real Estate Management(RE) SAP RE

VSTBHFAL SAP ABAP INCLUDE - Include LFV7EO90







VSTBHFAL 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 VSTBHFAL 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 VSTBHFAL. "Basic submit
SUBMIT VSTBHFAL AND RETURN. "Return to original report after report execution complete
SUBMIT VSTBHFAL VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT VSTBHFAL

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:

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = '01' OBJECT = 'FVVI_SOID' TOYEAR = TOYEAR IMPORTING NUMBER = VISLID-SOLLID RETURNCODE = RET_CODE EXCEPTIONS OTHERS = 01.

ELECTRONIC_POSTING_FILL_RE CALL FUNCTION 'ELECTRONIC_POSTING_FILL_RE' TABLES TBSSBKPF = I_TBSSBKPF TBSSBSEG = I_TBSSBSEG TBSSPARA = TBSSPARA.

ELECTRONIC_POSTING_MAKE_NEW_RE CALL FUNCTION 'ELECTRONIC_POSTING_MAKE_NEW_RE' TABLES TBSSBKPF = TBSSBKPF TBSSBSEG = TBSSBSEG TBSSPARA = TBSSPARA TMSG = TMSG.

MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.

USERDATA_MAINTAIN CALL FUNCTION 'USERDATA_MAINTAIN' EXPORTING * HERKUNFT = (default = SPACE -> SY-TCODE wird gesetzt) INUSER = RUSER IMPORTING EXUSER = RUSER.

FVAU_AUTHORITY_CHECK CALL FUNCTION 'FVAU_AUTHORITY_CHECK' EXPORTING OBJECT = AUTH_OBJECT AUTHPAR = AUTHPAR EXCEPTIONS NO_AUTHORITY = 1 OTHERS = 2.

FI_COMPANY_CODE_DATA CALL FUNCTION 'FI_COMPANY_CODE_DATA' EXPORTING I_BUKRS = P_BUKRS IMPORTING E_T001 = T001.

FI_PERIOD_DETERMINE CALL FUNCTION 'FI_PERIOD_DETERMINE' EXPORTING I_BUDAT = DATE * I_BUKRS = ' ' I_PERIV = PERIV * I_GJAHR = 0000 I_MONAT = MONTH IMPORTING E_GJAHR = YEAR E_MONAT = MONTH * E_POPER = EXCEPTIONS FISCAL_YEAR = 1 PERIOD = 2 PERIOD_VERSION = 3 POSTING_PERIOD = 4 SPECIAL_PERIOD = 5 VERSION = 6 POSTING_DATE = 7 OTHERS = 8.

FI_PERIOD_CHECK CALL FUNCTION 'FI_PERIOD_CHECK' EXPORTING I_BUKRS = BUKRS I_GJAHR = YEAR I_KOART = '+' I_KONTO = '+' I_MONAT = MONAT EXCEPTIONS ERROR_PERIOD = 1 ERROR_PERIOD_ACC = 2 OTHERS = 3.

ENQUEUE_EFVIBEBE CALL FUNCTION 'ENQUEUE_EFVIBEBE' EXCEPTIONS FOREIGN_LOCK = 01 SYSTEM_FAILURE = 02.

ERROR_RULE_ACCOUNT_NEW CALL FUNCTION 'ERROR_RULE_ACCOUNT_NEW' EXPORTING ARBEITSGEBIET = 'X' CHANNEL = CHANNEL MESSAGENUMMER = 'X' NUR_IMPORT = 'X' SEVERITY = 'X' SORTIERT = ' ' TABLES FEHLER_IMPORT = TMSG.

MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = I_MESSAGES-ARBGB MSGTY = I_MESSAGES-MSGTY MSGV1 = I_MESSAGES-MSGV1 MSGV2 = I_MESSAGES-MSGV2 MSGV3 = I_MESSAGES-MSGV3 MSGV4 = I_MESSAGES-MSGV4 TXTNR = I_MESSAGES-TXTNR EXCEPTIONS MESSAGE_TYPE_NOT_VALID = 01 NOT_ACTIVE = 02.

DATE_CREATE CALL FUNCTION 'DATE_CREATE' EXPORTING DATUM_EIN = SY-DATUM ULTIMO_SETZEN = 'X' IMPORTING DATUM_AUS = LOC_DATE.

DATE_CREATE CALL FUNCTION 'DATE_CREATE' EXPORTING DATUM_EIN = AKTMONAT ULTIMO_SETZEN = 'X' IMPORTING DATUM_AUS = AKTMONAT.

PERIOD_DAY_DETERMINE CALL FUNCTION 'PERIOD_DAY_DETERMINE' EXPORTING I_GJAHR = YEAR_1 I_MONAT = CON_FIRST_PERIOD I_PERIV = T001-PERIV IMPORTING E_FDAY = FIRST_DAY_OF_GJAHR EXCEPTIONS OTHERS = 01.

FIND_TAX_SPREADSHEET CALL FUNCTION 'FIND_TAX_SPREADSHEET' EXPORTING BUCHUNGSKREIS = I_T001-BUKRS IMPORTING SCHEMA = KALSM.

TAX_INDICATOR_CHECK CALL FUNCTION 'TAX_INDICATOR_CHECK' EXPORTING LAND = I_T001-LAND1 STEUERKENNZEICHEN = TAX_SIGN STEUERSCHEMA = KALSM IMPORTING T007A = T007A EXCEPTIONS KALSM_NOT_VALID = 01 NOT_VALID = 02 PARAMETER_ERROR = 03 OTHERS = 04.

CALCULATE_TAX_FROM_NET_AMOUNT CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT' EXPORTING I_BUKRS = PAR_BUKRS I_MWSKZ = PAR_MWSKZ I_WAERS = PAR_WAERS I_WRBTR = CON_AMOUNT IMPORTING E_FWSTE = PAR_TAX_AMOUNT TABLES T_MWDAT = T_MWDAT EXCEPTIONS BUKRS_NOT_FOUND = 01 COUNTRY_NOT_FOUND = 02 MWSKZ_NOT_DEFINED = 03 MWSKZ_NOT_VALID = 04 OTHERS = 05.

T030B_READ





CALL FUNCTION 'T030B_READ' IMPORTING E_ANLAH = H_ANLA_BSCHL E_ANLAS = S_ANLA_BSCHL E_SAKOH = H_SAKO_BSCHL E_SAKOS = S_SAKO_BSCHL.

FI_DOCUMENT_TYPE_CHECK CALL FUNCTION 'FI_DOCUMENT_TYPE_CHECK' EXPORTING I_BLART = BLART I_KOART = CON_KOART EXCEPTIONS ACCOUNT_TYPE = 1 DOCUMENT_TYPE = 2 DOCUMENT_TYPE_FOR_BATCH_ONLY = 3 OTHERS = 4.

FI_DOCUMENT_NUMBER_CHECK CALL FUNCTION 'FI_DOCUMENT_NUMBER_CHECK' EXPORTING I_BELNR = '1' I_BLART = BLART I_BUKRS = BUKRS I_GJAHR = YEAR EXCEPTIONS EXTERNAL_NUMBER_ASSIGNMENT = 1 INTERNAL_NUMBER_ASSIGNMENT = 2 NUMBER_ALREADY_ASSIGNED = 3 NUMBER_NOT_IN_RANGE = 4 OTHERS = 5.

TABWV_READ CALL FUNCTION 'TABWV_READ' EXPORTING F_TABWV = WA_TABWV IMPORTING F_TABWV = WA_TABWV.

USERDATA_MAINTAIN CALL FUNCTION 'USERDATA_MAINTAIN' EXPORTING INUSER = RUSER IMPORTING EXUSER = RUSER.

CHANGEDOCUMENT_PREPARE_TABLES CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES' EXPORTING TABLENAME = TABNAME IMPORTING RESULT = COMP_RESULT TABLES TABLE_NEW = XVIBEOS TABLE_OLD = YVIBEOS EXCEPTIONS OTHERS = 01.

CHANGEDOCUMENT_PREPARE_TABLES CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES' EXPORTING TABLENAME = TABNAME IMPORTING RESULT = COMP_RESULT TABLES TABLE_NEW = XVIEPOS TABLE_OLD = YVIEPOS EXCEPTIONS OTHERS = 01.

CHANGEDOCUMENT_PREPARE_TABLES CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES' EXPORTING TABLENAME = TABNAME IMPORTING RESULT = COMP_RESULT TABLES TABLE_NEW = UPD_N_VIBEAG TABLE_OLD = UPD_O_VIBEAG EXCEPTIONS OTHERS = 01.

DATE_CREATE CALL FUNCTION 'DATE_CREATE' EXPORTING DATUM_EIN = SY-DATUM ULTIMO_SETZEN = 'X' IMPORTING DATUM_AUS = LOC_DATE.

CALCULATE_TAX_FROM_NET_AMOUNT CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT' EXPORTING I_BUKRS = I_ALL_VIEPOS-BUKRS I_MWSKZ = I_ALL_VIEPOS-MWSKZ I_WAERS = INT_VIBEBE-WAERS I_WRBTR = CON_AMOUNT IMPORTING E_FWSTE = PAR_TAX_AMOUNT TABLES T_MWDAT = T_MWDAT EXCEPTIONS OTHERS = 01.

CALCULATE_TAX_FROM_NET_AMOUNT CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT' EXPORTING I_BUKRS = I_VIBEAG-BUKRS I_MWSKZ = I_VIBEAG-MWSKZ I_WAERS = INT_VIBEBE-WAERS I_WRBTR = CON_AMOUNT IMPORTING E_FWSTE = PAR_TAX_AMOUNT TABLES T_MWDAT = T_MWDAT EXCEPTIONS OTHERS = 01.

DATE_CREATE CALL FUNCTION 'DATE_CREATE' EXPORTING DATUM_EIN = CAL_DATE ULTIMO_SETZEN = 'X' IMPORTING DATUM_AUS = CAL_DATE.

CALCULATE_TAX_FROM_NET_AMOUNT CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT' EXPORTING I_BUKRS = PAR_BUKRS I_MWSKZ = PAR_MWSKZ I_WAERS = PAR_WAERS I_WRBTR = CON_AMOUNT IMPORTING E_FWSTE = PAR_TAX_AMOUNT TABLES T_MWDAT = T_MWDAT EXCEPTIONS BUKRS_NOT_FOUND = 01 COUNTRY_NOT_FOUND = 02 MWSKZ_NOT_DEFINED = 03 MWSKZ_NOT_VALID = 04 OTHERS = 05.



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 VSTBHFAL or its description.