[gruizgarcia]

Yo quiero implementar esta bapi , RV_CONDITION_COPY y aun no logro , puedes ayudarme.


LOOP AT TI_DATA ASSIGNING <FD>.
"Tabla para validar dato existente
CLEAR V_EXISTE.
CASE <FD>-CLAVECOND.
WHEN '518'.
KEY_FIELDS-MANDT = SY-MANDT.

KEY_FIELDS-ZSCHL = <FD>-TIPOCOND.
KEY_FIELDS-ZZWERKS_O = <FD>-CENORIGEN.
KEY_FIELDS-ZZORIGEN = <FD>-ALMORIGEN.
KEY_FIELDS-WERKS = <FD>-CENDESTINO.
KEY_FIELDS-ZZDESTIN = <FD>-ALMDESTIN.
KEY_FIELDS-MATNR = <FD>-MATERIAL.
APPEND KEY_FIELDS.
CR-KAPPL = 'V'.
CR-MANDT = SY-MANDT.
CR-KSCHL = <FD>-CLAVECOND.
CR-KBETR = <FD>-IMPORTE.
CR-KPEIN = <FD>-POR.
CR-KMEIN = <FD>-U_MED.
CR-WAERS = <FD>-MONEDA.
APPEND CR.

* WA_PISPR-MANDT = SY-MANDT.
* WA_PISPR-KAPPL = <FS>-TIPOCOND.
* WA_PISPR-KSCHL = <FS>-CLAVECOND.
WA_PISPR-WERKS = <FD>-CENORIGEN.
* WA_PISPR-ZZORIGEN = <FS>-ALMORIGEN.
WA_PISPR-WERKS = <FD>-CENDESTINO.
* WA_PISPR-ZZDESTIN = <FS>-ALMDESTIN.
WA_PISPR-MATNR = <FD>-MATERIAL.
append wa_pispr.
CALL FUNCTION 'SPR_KOMK_KOMP_FILL'
EXPORTING
PI_I_SPR = WA_PISPR
IMPORTING
PE_I_KOMK = KOMK
PE_I_KOMP = KOMP.


CALL FUNCTION 'RV_CONDITION_COPY'
EXPORTING
application = 'V'
condition_table = <FD>-CLAVECOND
condition_type = <FD>-TIPOCOND
* date_from = sy-datum
* date_to = '99990101'
enqueue = 'X'
i_komk = komk
i_komp = komp
key_fields = key_fields
maintain_mode = 'A'
no_authority_check = 'X'
keep_old_records = 'X'
overlap_confirmed = 'X'
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.


CALL FUNCTION 'RV_CONDITION_SAVE'.
CALL FUNCTION 'RV_CONDITION_RESET'.