exit para control nif en xd02,xd01,fd01,fd02

[Angela27]

Hola a todos,
necesito hacer un control en maestro de clientes, en el nif comunitario,
he puesto break en exit EXIT_SAPMF02D_001 y no me para, alguien se le ocurre porque puede ser? está activado.
o alguna sugerencia de ampliación u otra forma de poner control.

Muchisimas gracias campeones

[caralbgro]

Tx FIBF

menu opciones->modulos P/S -> de un cliente

nueva entrada

bte 1340 - modulo de funciones ZFI_VALIDACION_CUIT_BTE_1340

Se37 creas esa función

UNCTION ZFI_VALIDACION_CUIT_BTE_1340.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(I_KNA1) LIKE KNA1 STRUCTURE KNA1
*" VALUE(I_KNB1) LIKE KNB1 STRUCTURE KNB1
*" VALUE(I_KNA1_OLD) LIKE KNA1 STRUCTURE KNA1
*" VALUE(I_KNB1_OLD) LIKE KNB1 STRUCTURE KNB1
*" VALUE(I_KNVV) LIKE KNVV STRUCTURE KNVV
*" TABLES
*" T_XKNBK STRUCTURE FKNBK
*" T_XKNB5 STRUCTURE FKNB5
*" T_YKNBK STRUCTURE FKNBK
*" T_YKNB5 STRUCTURE FKNB5
*" T_XKNZA STRUCTURE FKNZA
*" T_YKNZA STRUCTURE FKNZA
*" T_XKNAS STRUCTURE FKNAS OPTIONAL
*" T_YKNAS STRUCTURE FKNAS OPTIONAL
*" T_XKNEX STRUCTURE FKNEX OPTIONAL
*" T_YKNEX STRUCTURE FKNEX OPTIONAL
*" T_XKNVA STRUCTURE FKNVA OPTIONAL
*" T_YKNVA STRUCTURE FKNVA OPTIONAL
*" T_XKNVD STRUCTURE FKNVD OPTIONAL
*" T_YKNVD STRUCTURE FKNVD OPTIONAL
*" T_XKNVI STRUCTURE FKNVI OPTIONAL
*" T_YKNVI STRUCTURE FKNVI OPTIONAL
*" T_XKNVK STRUCTURE FKNVK OPTIONAL
*" T_YKNVK STRUCTURE FKNVK OPTIONAL
*" T_XKNVL STRUCTURE FKNVL OPTIONAL
*" T_YKNVL STRUCTURE FKNVL OPTIONAL
*" T_XKNVP STRUCTURE FKNVP OPTIONAL
*" T_YKNVP STRUCTURE FKNVP OPTIONAL
*" T_XKNAT STRUCTURE FKNAT OPTIONAL
*" T_XKNBW STRUCTURE FKNBW OPTIONAL
*" T_YKNAT STRUCTURE FKNAT OPTIONAL
*" T_YKNBW STRUCTURE FKNBW OPTIONAL
*"----------------------------------------------------------------------

*--- Inicio INSERT - Fernando Flores - 12.01.2009 - Emgasud
DATA: vl_stcd1 TYPE kna1-stcd1.

* Filtro por Transacción (FD01: CREAR Clientes
* FD02: MODIFICAR Clientes
* FK01: CREAR PROVEEDORES
* FK02: MODIFICAR PROVEEDORES
* XK01: ALTA DE PROVEEDORES
* XK02: MODIFICAR PROVEEDORES
* MK01: ALTA DE PROVEEDORES POR MM
* MK02: MODIFICAR PROVEEDORES POR MM
* XD01: ALTA DE CLIENTES
* XD02: MODIFICAR CLIENTES)
IF SY-TCODE = 'FD01' OR SY-TCODE = 'FD02' OR SY-TCODE = 'XK01' OR SY-TCODE = 'XK02'
OR SY-TCODE = 'MK01' OR SY-TCODE = 'MK02' OR SY-TCODE = 'XD01' OR SY-TCODE = 'XD02'
OR SY-TCODE = 'FK01' OR SY-TCODE = 'FK02'.
* Filtro existencia de CUIT en pantalla
IF NOT I_KNA1-STCD1 IS INITIAL.

SELECT SINGLE stcd1
INTO vl_stcd1
FROM kna1
WHERE kunnr NE I_KNA1-kunnr
AND land1 EQ I_KNA1-land1
AND stcd1 EQ I_KNA1-stcd1.

IF SY-SUBRC EQ 0.
MESSAGE e000(zfi).
ENDIF.

ENDIF.
ENDIF.
*--- Fin INSERT - Fernando Flores - 12.01.2009 - Emgasud


ENDFUNCTION.

listo

saludos