is it useful?

 

*---------------------------------------------------------------------*
*      Form  CHECK_DATA
*---------------------------------------------------------------------*
FORM check_data.

  SELECT * FROM mbew. EXIT. ENDSELECT.
* controllo che la data inserita sia l'ultimo giorno del mese in corso
  p1_data = p_data + 1.
  IF p_data+4(2) = p1_data+4(2).
    MESSAGE w006 WITH text-m01
                 text-m02.
    IF c_tvarv EQ 'X'.
      MESSAGE e006 WITH text-m03
                        text-m04.
    ENDIF.
  ENDIF.


ENDFORM.                               " CHECK_DATA