*&---------------------------------------------------------------------*
*& Form f_revisar_nombres_0300
*&---------------------------------------------------------------------*
*& Validamos que el nombre sea A-Z sin números
*&---------------------------------------------------------------------*
FORM f_revisar_nombres_0300 .
  DATA lv_err TYPE flag.
  CLEAR lv_err.
  IF zdynjcbgvizcurp-nombre_1 IS NOT INITIAL
    AND zdynjcbgvizcurp-nombre_1 CA '0123456789!"#$%&/()¿?'.
    lv_err = abap_true.
  ENDIF.
  IF zdynjcbgvizcurp-nombre_2 IS NOT INITIAL
    AND zdynjcbgvizcurp-nombre_2 CA '0123456789!"#$%&/()¿?'.
    lv_err = abap_true.
  ENDIF.
  IF zdynjcbgvizcurp-apellido_1 IS NOT INITIAL
  AND zdynjcbgvizcurp-apellido_1 CA '0123456789!"#$%&/()¿?'.
    lv_err = abap_true.
  ENDIF.
  IF zdynjcbgvizcurp-apellido_2 IS NOT INITIAL
  AND zdynjcbgvizcurp-apellido_2 CA '0123456789!"#$%&/()¿?'.
    lv_err = abap_true.
  ENDIF.
  IF lv_err = abap_true.
    MESSAGE e007(zmsgcovid).
  ENDIF.
ENDFORM.