admin管理员组文章数量:1660164
*&---------------------------------------------------------------------*
*& 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.
.
本文标签: BapiBAPICOSTESTIMATERELEASINGBAPICOSTESTIMATEMARKING
版权声明:本文标题:ck24 bapi BAPI_COSTESTIMATE_MARKING BAPI_COSTESTIMATE_RELEASING 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1729849536a1215227.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论