AMPLIACIN CAMPO TEXTO PROVEEDOR-CLIENTE .
Pasos para la Ampliacin de listados estndar FBL1N-FBL5N:
1. Creacin del elemento de datos ZNAME (tipo CHAR 35).
2. Creacin estructura ZFI_RFPOS que contendr un nico campo
(ZFI_RFPOS -CAMPO) de estructura ZNAME.
3. Ampliar las tablas RFPOS, RFPOSX con la nueva estructura ZFI_RFPOS
creada.
Para ello aadir entradas a la tabla DD03L.
4. Para que se actualicen los listados se han de ejecutar los programas:
RFPOSXEXTEND y BALVBUFDEL.
5. Una vez se ha incluido el campo en la salida de datos hay que
completar el proceso para encontrar los valores de salida. Para ello se
usa la BTE 1650 y un mdulo de funcin:
a. Copiamos el mdulo de funcin de ejemplo
SAMPLE_INTERFACE_00001650, al que le hemos llamado
ZSAMPLE_INTERFACE_00001650. En ella ponemos el cdigo
necesario.
b. Ir a la transaccin FIBF e ir:
Men de Opciones -> Productos -> de un cliente
c. As creamos una nueva entrada con el nombre (ZFBL1N) y
descripcin (Ampliacin columnas FBL1N) que queramos pero
siempre activando el flag de Producto Activo.
d. Una vez creada vamos a Opciones -> Mdulos P/S -> de un
cliente y aadimos una nueva entrada con:
Evento = 00001650.
Producto = al creado en el punto anterior (ZFBL1N).
Mdulo de funcin creado (ZSAMPLE_INTERFACE_00001650).
ZSAMPLE_INTERFACE_00001650
FUNCTION ZSAMPLE_INTERFACE_00001650.
*"--------------------------------------------------------------------*"*"Interfase local
*" IMPORTING
*"
VALUE(I_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*" EXPORTING
*"
VALUE(E_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*"--------------------------------------------------------------------*-------------- Initialize Output by using the following line
---------DATA: lv_num(10)." type lifnr.
E_POSTAB = I_POSTAB.
CASE sy-tcode.
WHEN 'FBL1N'.
SELECT SINGLE
INTO lv_num
WHERE bukrs =
belnr =
gjahr =
buzei =
lifnr FROM bseg
i_postab-bukrs AND
i_postab-belnr AND
i_postab-gjahr AND
i_postab-buzei.
SELECT SINGLE name1 FROM lfa1
INTO e_postab-campo
WHERE lifnr = lv_num.
WHEN 'FBL5N'.
SELECT SINGLE
INTO lv_num
WHERE bukrs =
belnr =
gjahr =
buzei =
kunnr FROM bseg
i_postab-bukrs AND
i_postab-belnr AND
i_postab-gjahr AND
i_postab-buzei.
SELECT SINGLE name1 FROM kna1
INTO e_postab-campo
WHERE kunnr = lv_num.
ENDCASE.
ENDFUNCTION.