PTRA_WEB_MAINF04 SAP ABAP INCLUDE - PTRAWEBMAINF04

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

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

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:

PTRA_UTIL_MEM_FIELD_CONV_GET CALL FUNCTION 'PTRA_UTIL_MEM_FIELD_CONV_GET' EXPORTING tabname = p_util fieldname = l_help_field_2 IMPORTING field_conversion = lt_util_field_conversion_t EXCEPTIONS error_occurred = 1.

PTRA_UTIL_MEM_DATATYPE_LABEL CALL FUNCTION 'PTRA_UTIL_MEM_DATATYPE_LABEL' EXPORTING i_tabname = l_help_field_1 i_fieldname = l_help_field_2 IMPORTING e_scrtext_l = l_help_field_3 EXCEPTIONS error_occurred = 1 OTHERS = 2.

PTRA_UTIL_MEM_DATATYPE_LABEL CALL FUNCTION 'PTRA_UTIL_MEM_DATATYPE_LABEL' EXPORTING i_tabname = lwa_field_selection-table i_fieldname = lwa_field_selection-field IMPORTING e_scrtext_m = lf_help_scrtext_m EXCEPTIONS error_occurred = 1 OTHERS = 2.

PTRA_UTIL_MEM_DATATYPE_LABEL CALL FUNCTION 'PTRA_UTIL_MEM_DATATYPE_LABEL' EXPORTING i_tabname = lwa_field_selection-table i_fieldname = lwa_field_selection-field IMPORTING e_scrtext_l = lf_help_scrtext_l EXCEPTIONS error_occurred = 1 OTHERS = 2.

PTRA_SCREEN_MEM_TRIP_GET * CALL FUNCTION 'PTRA_SCREEN_MEM_TRIP_GET' * EXPORTING * i_employeenumber = p_employeenumber * i_tripnumber = p_tripnumber * i_periodnumber = p_periodnumber * IMPORTING * e_general_data = lewa_general_data * et_receipts = let_receipts * et_advances = let_advances * et_mileage = let_mileage * et_itinerary = let_itinerary * et_deductions = let_deductions * et_costdist_trip = let_costdist_trip * et_costdist_itin = let_costdist_itin * et_costdist_rece = let_costdist_rece * et_costdist_mile = let_costdist_mile * et_history = lt_history * EXCEPTIONS * error_occurred = 1 * OTHERS = 2.

PTRA_UTIL_EXPENSE_REPORT_GET * CALL FUNCTION 'PTRA_UTIL_EXPENSE_REPORT_GET' * EXPORTING * i_employeenumber = p_employeenumber * i_tripnumber = p_tripnumber * i_periodnumber = p_periodnumber * i_trip_action = 'DIS' * IMPORTING * e_head = wa_head * et_beleg = t_beleg * et_vsch = t_vsch * et_kmver = t_kmver * et_ziel = t_ziel * et_abzug = t_abzug * et_rsplit = t_rsplit * et_zsplit = t_zsplit * et_bsplit = t_bsplit * et_ksplit = t_ksplit * et_aend = t_aend * et_editor = t_editor * et_paufa = t_paufa * EXCEPTIONS * error_occurred = 1.

PTRA_MYK_TRIP_SAVE
*  CALL FUNCTION 'PTRA_MYK_TRIP_SAVE'
*    EXPORTING
*      i_employeenumber = p_employeenumber
*      i_tripnumber     = p_tripnumber
*      i_periodnumber   = p_periodnumber
*      i_head           = wa_head
*      it_beleg         = t_beleg
*      it_vsch          = t_vsch
*      it_vsch_db       = t_vsch
*      it_kmver         = t_kmver
*      it_ziel          = t_ziel
*      it_abzug         = t_abzug
*      it_rsplit        = t_rsplit
*      it_zsplit        = t_zsplit
*      it_bsplit        = t_bsplit
*      it_ksplit        = t_ksplit
*      it_aend          = t_aend
*      it_editor        = t_editor
*      it_paufa         = t_paufa.

ALE_BAPI_GET_UNIQUE_RECEIVER CALL FUNCTION 'ALE_BAPI_GET_UNIQUE_RECEIVER' EXPORTING object = 'BUS6001' method = 'CHECKACCOUNTASSIGNMENT' IMPORTING receiver = receivers TABLES filterobjects_values = zw_filterobjects_values "log. systems

PTRM_UTIL_INFOTYPES_GET CALL FUNCTION 'PTRM_UTIL_INFOTYPES_GET' EXPORTING i_employeenumber = p_employeenumber i_datum_von = lwa_date_w_fn i_datum_bis = lwa_date_w_fn i_ppnnn = 'p0017' IMPORTING infotype = lwa_p0017 EXCEPTIONS error_occurred = 1 OTHERS = 2.

PTRM_UTIL_COMP_CODE_0001_0017 CALL FUNCTION 'PTRM_UTIL_COMP_CODE_0001_0017' EXPORTING i_employeenumber = p_employeenumber i_datum_von = lwa_date_w_fn i_datum_bis = lwa_date_w_fn i_create_error_msg = ' ' IMPORTING e_comp_code = l_bukrs EXCEPTIONS error_occurred = 1 OTHERS = 2.

KOKRS_GET_FROM_BUKRS CALL FUNCTION 'KOKRS_GET_FROM_BUKRS' "Read controlling area EXPORTING i_bukrs = lwa_company_codes-company_code IMPORTING e_kokrs = lwa_company_codes-co_area EXCEPTIONS no_kokrs_found = 1 OTHERS = 2 .

PTRA_DB_GET_MASTER_COST_ASSIGN CALL FUNCTION 'PTRA_DB_GET_MASTER_COST_ASSIGN' EXPORTING employeenumber = p_employeenumber begin_date = p_date end_date = p_date budat = budat "GLW note 1628223 IMPORTING * ARIK021127 begin * rsplit_stamm = lt_rsplit_stamm.