Belohnung! FuBa RV_CONDITION_COPY Konditionssätze setzen

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  ZBL_TEST_RV_IDOC2
*&---------------------------------------------------------------------*

report  zbl_test_rv_idoc2.


call function 'RV_CONDITION_RESET'.
commit work and wait.


constants: c_matnr(18) value '000000000001400525'.

data:
   cr          like table of komv with header line, " copy_records
   nr,                                              " new record
   key_fields  like table of komg with header line,
   komk        like table of komk with header line,
   komp        like table of komp with header line.


key_fields-mandt = '002'.                " OK
key_fields-vkorg = '0380'.               " OK
key_fields-vtweg = '10'.                 " OK
key_fields-konda = '01'.                 " OK
* key_fields-werks = '1000'.               " ?
* key_fields-spart = '01'.                 " ?
* key_fields-kunnr = '0000151935'.         " ?
key_fields-matnr = c_matnr. " OK
* key_fields-kdatu = sy-datum.             " ??

*********************************************************
* Neue Informationen zum Konditinssatz:
cr-mandt = '002'.
cr-kappl = 'V'.                    " OK
cr-kschl = 'VKP0'.                 " OK
cr-kbetr = '66.77'.                " OK
* cr-knumh = '0000380829'.
* cr-kposn = '000000'.
*cr-stfkz = 'A'.
*cr-krech = 'B'.
*cr-konws = 'CHF'.
cr-kdatu = '20150205'.             " OK
* cr-kunnr = '0000151935'.         " ??
* cr-kpein = '1'.                  " OK
* cr-kmein = '  '.                 " OK
cr-kumza = 1.
cr-kumne = 1.
cr-waers = 'EUR'.                  " OK
cr-knumh = '1'.
cr-kopos = '01'.

append cr.

**********************************************************
* KOMK/KOMP Fuellen
data wa_pispr like table of pispr with header line.

* wa_pispr-kunnr = '0000151935'.     " ??
wa_pispr-matnr = c_matnr.        " OK
wa_pispr-vkorg = '0380'.           " OK
wa_pispr-vtweg = '10'.             " BL


append wa_pispr.


***call function 'SPR_KOMK_KOMP_FILL'
***  exporting
***    pi_i_spr  = wa_pispr
***  importing
***    pe_i_komk = komk
***    pe_i_komp = komp.


* --> KOMK/KOMP werden korrekt gefüllt. Funktion i.o.
**********************************************************

komk-mandt = sy-mandt.
komk-vkorg = '0380'.
komk-vtweg = '10'.
komk-konda = '01'.
komk-erdat = sy-datum.
komk-kvorg = '01'.
komk-hwaer = 'EUR'.
komk-waerk = 'EUR'.
komk-kappl = 'V'.


* Oberen Aufruf (FuBa) ignorieren
clear komp.
komp-kposn = '000001'.
komp-matnr = c_matnr.
*komp-meins = 'ST'.
*komp-mglme = 1.




call function 'RV_CONDITION_COPY'
  exporting
    application              = 'V'             " OK
    condition_table          = '032'           " OK
    condition_type           = 'VKP0'          " OK
    date_from                = '20150105'      " OK
    date_to                  = '20150115'      " OK
*    date_from                = '20150205'      " OK
*    date_to                  = '20150209'      " OK
    enqueue                  = 'X'
    i_komk                   = komk
    i_komp                   = komp
    key_fields               = key_fields
    maintain_mode            = 'A'
    no_authority_check       = 'X'
    no_field_check           = 'X'
    keep_old_records         = ' '
    overlap_confirmed        = 'X'
    used_by_idoc             = ' '
  importing
    e_komk                   = komk
    e_komp                   = komp
    new_record               = nr
  tables
    copy_records             = cr
  exceptions
    enqueue_on_record        = 01
    invalid_application      = 02
    invalid_condition_number = 03
    invalid_condition_type   = 04
    no_authority_ekorg       = 05
    no_authority_kschl       = 06
    no_authority_vkorg       = 07
    no_selection             = 08
    table_not_valid          = 09.


commit work and wait.                              " BL
* SET UPDATE TASK LOCAL.

call function 'RV_CONDITION_SAVE'
  exporting
    i_knumh      = '1'
    i_no_posting = 'X'.