*----------------------------------------------------------------------*
***INCLUDE ZANMA_EVENTOS .
*----------------------------------------------------------------------*

Form 05.

  break-point.

  data: cont like zanma_tabla2-id_pers.

* Leer la tabla de la bd
  select max( id_pers ) from zanma_tabla2 into cont.

  zanma_tabla2-id_pers = cont + 1.

  if ZANMA_TABLA2-NOMBRE <> ''.

    if ZANMA_TABLA2-APELLIDO1 = ''.
      MESSAGE I004(ZANMA_MSG).

    endif.
  endif.

endform.                    "05