*&---------------------------------------------------------------------*
*& Report SAPBAPITESTMARKING *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT sapbapitestmarking.
*ENHANCEMENT-POINT SAPBAPITESTRELEASING_G4 SPOTS ES_SAPBAPITESTRELEASING STATIC.
*ENHANCEMENT-POINT SAPBAPITESTRELEASING_G5 SPOTS ES_SAPBAPITESTRELEASING.
*ENHANCEMENT-POINT SAPBAPITESTRELEASING_G6 SPOTS ES_SAPBAPITESTRELEASING STATIC.
*ENHANCEMENT-POINT SAPBAPITESTRELEASING_G7 SPOTS ES_SAPBAPITESTRELEASING.
TABLES: t001, t001w, mbew.
DATA: t_out_list_vo TYPE STANDARD TABLE OF bapimarkingoutlist WITH HEADER LINE,
t_return_vo TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
t_out_list_fr TYPE STANDARD TABLE OF bapireleasingoutlist WITH HEADER LINE,
t_return_fr TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
f_valuation TYPE bapivaluation.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) TEXT-102 FOR FIELD p_buper MODIF ID cco.
SELECTION-SCREEN POSITION 35.
PARAMETERS p_buper TYPE ckipricesupdate-p_buper
MEMORY ID bup MODIF ID cco.
SELECTION-SCREEN POSITION 39.
PARAMETERS p_gjahr TYPE ckipricesupdate-p_gjahr MEMORY ID gej
MODIF ID cco.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS p_bukrs FOR t001-bukrs.
SELECT-OPTIONS p_werks FOR t001w-werks.
SELECT-OPTIONS p_matnr FOR mbew-matnr MATCHCODE OBJECT mat1
MODIF ID mat.
SELECTION-SCREEN SKIP 1.
* Beginn Block Bewertung...
SELECTION-SCREEN BEGIN OF BLOCK bewertung WITH FRAME TITLE TEXT-108.
PARAMETERS: p_legal TYPE ckipricesupdate-legal DEFAULT 'X'
MODIF ID leg,
p_konzer TYPE ckipricesupdate-konzern
MODIF ID kon,
p_profct TYPE ckipricesupdate-profitcenter
MODIF ID pro.
SELECTION-SCREEN END OF BLOCK bewertung.
* Ende Block Bewertung...
SELECTION-SCREEN SKIP 2.
PARAMETERS: p_test TYPE ckipricesupdate-p_test DEFAULT 'X'.
START-OF-SELECTION.
f_valuation-legal = p_legal.
f_valuation-group = p_konzer.
f_valuation-profitcenter = p_profct.
* checkman problems ...
DATA: f_matnr TYPE bapimaterial,
t_matnr TYPE TABLE OF bapimaterial.
LOOP AT p_matnr.
CLEAR f_matnr.
MOVE-CORRESPONDING p_matnr TO f_matnr.
APPEND f_matnr TO t_matnr.
ENDLOOP.
CALL FUNCTION 'BAPI_COSTESTIMATE_MARKING'
EXPORTING
posting_year = p_gjahr
posting_period = p_buper
valuation_view = f_valuation
* COSTINGRUN =
* COSTINGRUN_DATE =
testrun = p_test
TABLES
return = t_return_vo
out_list = t_out_list_vo
in_material = t_matnr
in_plant = p_werks
in_comp_code = p_bukrs.
IF p_test EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
* IMPORTING
* RETURN =
.
ENDIF.
REFRESH t_out_list_fr.
REFRESH t_return_fr.
CALL FUNCTION 'BAPI_COSTESTIMATE_RELEASING'
EXPORTING
posting_year = p_gjahr
posting_period = p_buper
* COSTINGRUN =
* COSTINGRUN_DATE =
* NO_OF_MAT_IN_POST_DOC = 400
testrun = p_test
TABLES
return = t_return_fr
out_list = t_out_list_fr
in_material = t_matnr
in_plant = p_werks
in_comp_code = p_bukrs.
.
IF p_test EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
* IMPORTING
* RETURN =
.
EXPORT t_return_fr TO MEMORY ID 'T_RETURN_FR'.
ENDIF.
.
ck24 bapi BAPI_COSTESTIMATE_MARKING BAPI_COSTESTIMATE_RELEASING
最新推荐文章于 2023-02-28 17:07:50 发布