27 mag 2013

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(2p1_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
 
 

Nessun commento: