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
|