Validacion de NIT en transaccion XD01 y XD02

[aalvarez2605]

Hola a todos nccesito por favor validar que el RIF en las transacciones XD01 y XD02 no se repita, active el user exit SAPMF02D y le coloque codigo al siguiente include:

&---------------------------------------------------------------------*
*& Include ZXF04U01
*&---------------------------------------------------------------------*

TABLES: kna1.

DATA: lv_kunnr LIKE kna1-kunnr.

CLEAR lv_kunnr.

SELECT SINGLE kunnr INTO lv_kunnr
FROM kna1
WHERE kunnr <> i_kna1-kunnr
AND stcd1 EQ i_kna1-stcd1
AND loevm NE 'X'.

IF sy-subrc = 0.
MESSAGE 'Rif ya lo tiene asignado a otro Deudor, Verifique' TYPE 'E'.
ENDIF.

Al modificar el RIF por uno que ya existe, el valida pero el mensaje me lo envia en otra pestaña, en otra pantalla, que puedo revisar.

Muchas Gracias

Saludos

Ana

[nickel_seifer]

No se si funcione, puedes aumentar lo siguiente al mensaje: DISPLAY LIKE ‘S’, quedando así:

MESSAGE ‘Texto mensaje’ TYPE ‘E’ DISPLAY LIKE ‘S’.