#1
|
|||
|
|||
BAPI Acreedor-Clasificación XK02
Hola a todos, buen día, quisiera saber si alguno de ustedes conoce alguna bapi para la carga de datos en la transacción XK02, quiero modificar la parte de Clasificación donde se agrega una categoría de clase y sus características para cada acreedor.
Ya verifique: VENDOR_MAINTAIN_XK02, VENDOR_UPDATE y BAPI_VENDOR_EDIT; pero solo traen para modificar los datos de dirección del acreedor. Muchas Gracias. |
#2
|
||||
|
||||
Modificacion de datos LFB1
Hola, tal vez ya es muy tarde para responder este post pero aun asi quiero compartir mi solucion a un escenario similar ya que yo necesitaba actualizar un campo de la LFB1, les dejo el codigo que me sirvio para ello.
REPORT zpruebas. DATA: w_lfa1 TYPE lfa1, w_lfb1 TYPE lfb1, w_lfm1 TYPE lfm1, w_lfb1_update TYPE lfb1. DATA: t_xlfas TYPE STANDARD TABLE OF flfas, t_xlfb5 TYPE STANDARD TABLE OF flfb5, t_xlfbk TYPE STANDARD TABLE OF flfbk, t_xlfza TYPE STANDARD TABLE OF flfza, t_ylfas TYPE STANDARD TABLE OF flfas, t_ylfb5 TYPE STANDARD TABLE OF flfb5, t_ylfbk TYPE STANDARD TABLE OF flfbk, t_ylfza TYPE STANDARD TABLE OF flfza, t_xknvk TYPE STANDARD TABLE OF fknvk, t_yknvk TYPE STANDARD TABLE OF fknvk. DATA: t_tvarv TYPE STANDARD TABLE OF tvarvc, w_tvarv TYPE tvarvc. PARAMETERS p_lifnr TYPE lifnr." #Proveedor/Acreedor START-OF-SELECTION. CALL FUNCTION 'VENDOR_READ' EXPORTING i_bukrs = '1000' " Sociedad i_lifnr = p_lifnr " Proveedor capturado IMPORTING e_lfa1 = w_lfa1 e_lfb1 = w_lfb1 EXCEPTIONS not_found = 1 OTHERS = 2. IF sy-subrc EQ 0. w_lfb1_update = w_lfb1. w_lfb1_update-zahls = 'P'." Dato a actualizar CALL FUNCTION 'VENDOR_UPDATE' IN UPDATE TASK EXPORTING i_lfa1 = w_lfa1 " Datos nuevos i_lfb1 = w_lfb1_update " Datos nuevos i_lfm1 = w_lfm1" Datos nuevos i_ylfa1 = w_lfa1 " Datos anteriores i_ylfb1 = w_lfb1 " Datos anteriores i_ylfm1 = w_lfm1 " Datos anteriores TABLES " Las tablas las envio vacias t_xlfas = t_xlfas t_xlfb5 = t_xlfb5 t_xlfbk = t_xlfbk t_xlfza = t_xlfza t_ylfas = t_ylfas t_ylfb5 = t_ylfb5 t_ylfbk = t_ylfbk t_ylfza = t_ylfza * T_XKNVK = * T_YKNVK = . IF sy-subrc EQ 0. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'. IF sy-subrc EQ 0. WRITE 'Proveedor actualizado'. ENDIF. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. ENDIF.
__________________
Drako |
Herramientas | Buscar en Tema |
Desplegado | |
|
|