RGUGBR00 | Blog de ABAP - SAP en General

Archivo

Posts Tagged ‘RGUGBR00’

Crear sustituciones – GGB1

21/08/2013 Ing. Eduardo M. Puricelli 9 comentarios

Caso: se busca crear una sustitución para el campo BKPF-XBLNR (campo referencia) en la MIRO para que si el valor ingresado es numérico, se quiten los ceros a la izquierda de éste.

1. Ingresamos a la transacción GGB1.

Allí vamos a «Contabilidad financiera» – «Cabecera documento» (ya que allí está el campo a sustituir) y presionamos el botón «Nueva Sustitución».

Aquí se crea como una carpeta agrupadora de sustituciones.

Luego de esto, nos posicionamos en la carpeta recién grabada y presionamos el botón «Nuevo Paso». Allí nos va a pedir el/los campos a sustituir. Seleccionamos el nuestro:

Nos va a pedir que sustitución realizaremos. En nuestro caso como vamos a generar algo de código, usaremos un EXIT. En caso de querer reeemplazarlo por una constante usar «Valor constante» y si se desea reemplazarlo por el valor de otro campo, la opción «Asignación campo-campo»

Definimos una descripción para el paso recién creado y nos posicionamos en el filtro de condiciones. Allí indicamos la/s transacciones en las cuales deseamos que se ejecute la sustitución y en nuestro caso que el campo no debe estar vacío.

Para agregar campos y operadores se recomienda usar las opciones de ayuda. Finalmente presionar el botón de verificar () y el Status debe quedar en verde.

Ahora vamos a indicar el EXIT. Nos posicionamos en «Sustitución» y allí vemos que hay que indicar un EXIT (yo ya lo tengo creado como U300).

2. El EXIT se debe crear haciendo una copia Z del programa estándar RGGBS000, por ejemplo como ZRGGBS000.

Ingresar a la transacción GCX2 y reemplazar el programa estándar RGGBS000 por el nuevo Z.

Allí se puede utilizar uno de los UXXX que están comentados que están puestos como ejemplo o crearnos uno nuevo. Lo importante es tener lo siguiente:

* Sustitución campo referencia (XBLNR) sin ceros a la izquierda
exits-name = ‘U300’. » Sustitución campo

referencia (XBLNR) sin ceros a la izquierda
exits-param = c_exit_param_field.
exits-title = text-300.
APPEND exits.

*———————————————————————* FORM U300*
*———————————————————————* Sustitución Campo Referencia de Factura. Si posee ceros a la izquierda se quitan
*———————————————————————FORM u300 USING bkpf-xblnr.

DATA: lv_xblnr TYPE xblnr,
lv_tipo TYPE dd01v-datatype.

CALL FUNCTION ‘NUMERIC_CHECK’
EXPORTING
string_in = bkpf-xblnr
IMPORTING
string_out = lv_xblnr
htype = lv_tipo.

IF lv_tipo NE ‘CHAR’.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’
EXPORTING
input = bkpf-xblnr
IMPORTING
output = bkpf-xblnr.
ENDIF.
ENDFORM. «u0300

*———————————————————————

3. Luego de crear todo el código, debo grabar todo en la GGB1 y finalmente crear una entrada en la transacción OBBH para activar la carpeta de sustituciones creada.

En grado de activación, se debe indicar «1» para activar.

Finalmente se debe ejecutar el programa RGUGBR00 para ajustar los cambios realizados, según el post:

https://abapers.wordpress.com/2013/07/22/regenerar-ggb0-ggb1-validacionessustituciones/

Nota: Tener en cuenta que tanto las sustituciones como las validaciones se ejecutan cuando hablamos de contabilizaciones, en este caso por ejemplo en la MIR7 (documento preliminar prerregistrado) no va a correr la sustitución ya que no se genera documento contable.

Link útil:

http://saptricks.wordpress.com/2012/10/21/truco-29-sustituciones-en-controllingco-usando-exits-ii/