*&---------------------------------------------------------------------*
*& 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.



  .