Gracias
Muchas gracias por tu ayuda BALLAN, me fue de mucha ayuda.
La solucion:
LOOP AT IT_MAIL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = IT_MAIL-KUNNR
IMPORTING
OUTPUT = IT_MAIL-KUNNR.
SELECT KUNNR KNURL
INTO CORRESPONDING FIELDS OF TABLE IT_KNA1
FROM KNA1
WHERE KUNNR = IT_MAIL-KUNNR.
IF SY-SUBRC = 0.
* Validar campo de E-MAIL
IF NOT IT_MAIL-KNURL CA '@' OR NOT IT_MAIL-KNURL CA '.'.
CONCATENATE 'E-mail con formato incorrecto, cliente:'
IT_MAIL-KUNNR INTO MENSAJE.
MESSAGE ID '00' TYPE 'I' NUMBER 001 WITH MENSAJE.
LEAVE PROGRAM.
*<<RUTINA PARA VALIDAR SI EXISTE EL CORREO.
* LOOP AT IT_KNA1.
* IF NOT IT_KNA1-KNURL IS INITIAL AND
* IT_KNA1-KNURL <> IT_MAIL-KNURL.
*
* MESSAGE ID '00' TYPE 'I' NUMBER 001 WITH
* 'E-mail ya existe y son diferentes, CHECAR'.
* ENDIF.
* ENDLOOP.
* ELSE
*>>RUTINA PARA VALIDAR SI EXISTE EL CORREO.
|