|
#1
|
|||
|
|||
Nueva determinación de precio
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. |
#2
|
||||
|
||||
Esta Lo Hace ! ! ! !
Sd_salesdocument_change . . . |
#3
|
|||
|
|||
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) ). |
#4
|
|||
|
|||
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'. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|