04-22-2018 7:29 AM
Hi Team,
DATA: LS_KOMG TYPE KOMG.
LS_KOMG-TPLST = '1000'.
LS_KOMG-LZONEA = 'AE00000001'.
LS_KOMG-LZONEZ = 'AE00000002'.
LS_KOMG-TDLNR = '0000100035'.
LS_KOMG-ROUTE = '000001'.
DATA: LT_KOMV TYPE TABLE OF KOMV.
DATA: ls_condscale TYPE condscale,
lt_condscale TYPE TABLE OF condscale.
ls_Condscale-kopos = '01'.
ls_condscale-KNUMH = '0000138697'.
*ls_Condscale-klfn1 = '00001'.
ls_Condscale-kbetr = '31.00'.
ls_Condscale-UPDKZ = 'X'.
ls_Condscale-RV13AKONWA = 'USD'.
APPEND ls_condscale to lt_condscale.
clear: ls_condscale.
ls_Condscale-kopos = '01'.
ls_condscale-KNUMH = '0000138697'.
*ls_Condscale-klfn1 = '00002'.
ls_Condscale-kbetr = '32.00'.
ls_Condscale-UPDKZ = 'X'.
ls_Condscale-RV13AKONWA = 'USD'.
APPEND ls_condscale to lt_condscale.
clear: ls_condscale.
ls_Condscale-kopos = '01'.
ls_condscale-KNUMH = '0000138697'.
*ls_Condscale-klfn1 = '00003'.
ls_Condscale-kbetr = '33.00'.
ls_Condscale-UPDKZ = 'X'.
ls_Condscale-RV13AKONWA = 'USD'.
APPEND ls_condscale to lt_condscale.
clear: ls_condscale.
CALL FUNCTION 'RV_CONDITION_COPY'
EXPORTING
application = 'F'
condition_table = '581'
condition_type = 'ZB00'
DATE_FROM = '20180421'
DATE_TO = '99891231'
* ENQUEUE = ' '
* I_KOMK = ' '
* I_KOMP = ' '
key_fields = LS_KOMG
MAINTAIN_MODE = 'A'
* NO_AUTHORITY_CHECK = ' '
* NO_FIELD_CHECK = ' '
* SELECTION_DATE = '00000000'
* KEEP_OLD_RECORDS = ' '
* MATERIAL_M =
* USED_BY_IDOC = ' '
* I_KONA =
* OVERLAP_CONFIRMED = ' '
NO_DB_UPDATE = space
* USED_BY_RETAIL = ' '
* IMPORTING
* E_KOMK =
* E_KOMP =
* NEW_RECORD =
* E_DATAB =
* E_DATBI =
* E_PRDAT =
TABLES
copy_records = LT_KOMV
COPY_STAFFEL = lt_condscale
* COPY_RECS_IDOC =
EXCEPTIONS
OTHERS = 14
.
IF sy-subrc <> 0.
MESSAGE 'ERROR' TYPE 'E'.
ENDIF.
call function 'RV_CONDITION_SAVE'.
call function 'RV_CONDITION_RESET'.
COMMIT WORK.
ls_komg part is working fine, but lt_condscale part is not working....its not updating any scale information on VFSCAR1 Table