Nueva determinación de precio

[neocloudmx2000]

Un saludo compañeros abaperos.

Mi consulta es la siguiente: Al guien sabrá si existe alguna función, BAPI, etc. Para, por medio de código, realizar la misma acción que el menú 'Tratar/Doc.nuevo determ.precio' de la Tx.VA02.

Estoy creando condiciones de precio para pedidos de forma automática por medio de unas funciones (RV_CONDITION_COPY), después de mucho esfuerzo esto ya lo logré. Únicamente me falta actualizarlas en el pedido para que se recalculen los precios, pero no quisiera terminar haciendo esto utilizando "CALL TRANSACTION".

Cuando termine esta tarea la comparto con ustedes.

Gracias de antemano.

[Edd_401]

Esta Lo Hace ! ! ! !


Sd_salesdocument_change . . .

[neocloudmx2000]

Mmmhh no se, utilizando esa BAPI tendría que llenar los registros de la tabla CONDITIONS_IN y crear una condicion de precio igual para cada posición del pedido, siendo que las condiciones de precio ya están creadas y relacionadas para este en la tabla A739 correctamente.

Ni modo, lo tendré que hace por call transaction, al fin y al cabo quiero llamar un solo comando ( Menú: Tratar/Doc.nuevo determ de precio (sy-ucomm=KONB) ).

[gruizgarcia]

Rv_condition_copy

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'.