#1
|
|||
|
|||
exit para control nif en xd02,xd01,fd01,fd02
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 |
#2
|
|||
|
|||
hacelo asi con un BTE
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
__________________
Consultor FI-CO |
Herramientas | Buscar en Tema |
Desplegado | |
|
|