MIR7-MIRO – INVFO-GSBER/División – valor por defecto

Caso: se busca que al crear un documento por la MIRO o MIR7, que traiga por defecto un valor para el campo DIVISIÓN (INVFO-GSBER).

Solución:

1. Para crear valores por defecto en los datos de cabecera, deberíamos implementar la BADI MRM_HEADER_DEFAULT, ingresando por la SE18, podemos ver de que se trata:

2. Por la SE19, la implementamos:

3. Usaremos el único método, el HEADER_DEFAULT_SET. En nuestro caso, como el campo DIVISIÓN no está en los parámetros de salida, debo actualizarlo mediante un FIELD-SYMBOL. Hacemos doble-click en el método:

4. Agregamos el código

FIELD-SYMBOLS: <fs_rbkpv> TYPE mrm_rbkpv.
DATA: c_rbkpv(15) TYPE c VALUE '(SAPLMR1M)RBKPV'.
 
CASE sy-tcode.
WHEN 'MIR7' OR 'MIRO'.
CHECK i_rbkpv-gsber IS INITIAL.
ASSIGN (c_rbkpv) TO <fs_rbkpv>.
<fs_rbkpv>-gsber = 'DIVISIÓN'.
 
ENDCASE.

Anuncios