*&---------------------------------------------------------------------*
*& Report  ZTEST_CREATE_COND01
*&
*&---------------------------------------------------------------------*
REPORT  ZTEST_CREATE_COND01.

parameters:
    sp_kvewe like BAPICONDCT-COND_USAGE obligatory default 'A',
    sp_kontb like BAPICONDCT-TABLE_NO   obligatory default '071',
    sp_kappl like BAPICONDCT-APPLICATIO obligatory default 'V',
    sp_kschl like BAPICONDCT-COND_TYPE  obligatory default 'VKP0',
    sp_vakey like BAPICONDCT-VARKEY     obligatory,
    sp_datab like BAPICONDCT-VALID_FROM obligatory,
    sp_datbi like BAPICONDCT-VALID_TO   obligatory,
    sp_kondv like BAPICONDIT-COND_VALUE obligatory,
    sp_kondw like BAPICONDIT-CONDCURR   obligatory default 'RUB',
    sp_kopun like BAPICONDIT-COND_P_UNT,
    sp_kouni like BAPICONDIT-COND_UNIT.

start-of-selection.

    data: it_konc like table of BAPICONDCT with header line,
          it_konh like table of BAPICONDHD with header line,
          it_koni like table of BAPICONDIT with header line,
          it_konq like table of BAPICONDQS with header line,
          it_konv like table of BAPICONDVS with header line,
          et_ret2 like table of BAPIRET2   with header line,
          et_knum like table of BAPIKNUMHS with header line,
          it_memb like table of CND_MEM_INITIAL.

    it_konc-cond_usage = sp_kvewe.
    it_konc-table_no   = sp_kontb.
    it_konc-applicatio = sp_kappl.
    it_konc-cond_type  = sp_kschl.
    it_konc-varkey     = sp_vakey.
    it_konc-valid_to   = sp_datbi.
    it_konc-valid_from = sp_datab.
    it_konc-cond_no    = '$1'.

    append it_konc.

    it_konh-cond_no    = '$1'.
    it_konh-created_by = sy-uname.
    it_konh-creat_date = sy-datum.
    it_konh-cond_usage = sp_kvewe.
    it_konh-table_no   = sp_kontb.
    it_konh-applicatio = sp_kappl.
    it_konh-cond_type  = sp_kschl.
    it_konh-varkey     = sp_vakey.
    it_konh-valid_to   = sp_datbi.
    it_konh-valid_from = sp_datab.

    append it_konh.

    it_koni-cond_no    = '$1'.
    it_koni-cond_count = '01'.
    it_koni-applicatio = sp_kappl.
    it_koni-cond_type  = sp_kschl.
    it_koni-scaletype  = 'a'.
    it_koni-calctypcon = 'c'.
    it_koni-cond_value = sp_kondv.
    it_koni-condcurr   = sp_kondw.
    it_koni-cond_p_unt = sp_kopun.
    it_koni-cond_unit  = sp_kouni.
    it_koni-condcurren = sp_kondw.

    append it_koni.

    call function 'BAPI_PRICES_CONDITIONS'
        tables
            ti_bapicondct  = it_konc
            ti_bapicondhd  = it_konh
            ti_bapicondit  = it_koni
            ti_bapicondqs  = it_konq
            ti_bapicondvs  = it_konv
            to_bapiret2    = et_ret2
            to_bapiknumhs  = et_knum
            to_mem_initial = it_memb
       exceptions
           update_error    = 1
           others          = 2.

    if sy-subrc <> 0.
        message id sy-msgid type sy-msgty number sy-msgno
                with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

        rollback work.
    else.
        commit work and wait.
    endif.

    loop at et_ret2.
        write: et_ret2-message.
        skip 1.
    endloop.

    loop at et_knum.
        write: et_knum-cond_no_new.
        skip 1.
    endloop.