E' stato creato l'oggetto EDOBJ020 per il controllo data movimento.
Instanziare l'oggetto nella WAM in cui si necessita effettuare i controlli .
DEFINE_COM CLASS(£EDOBJ020) NAME(£vi_CheckDataMovim) REFERENCE(*DEFERRED)
Espone il seguente metodo:
um_Controlla
parametri input
£p_DataMov = Data movimenti nel formato DDMMYYYY
£p_MessageFile = File messaggio (opzionale, specificare se diverso da ED§M01)
parametri output
£p_CodiceErrore = Codice d'errore (opzionale, corrisponde a R_VPFLDTM, se data OK vale BLANK)
£p_Messaggio = Messaggio d'errore in chiaro, se data OK vale BLANK
Esempio d'uso:
* Controllo data movimento
£EDMSGTXT := ""
£vi_CheckDataMovim.um_Controlla P_DATAMOV(£PGDTMV) P_MESSAGGIO(£EDMSGTXT)
IF (£EDMSGTXT *NE *BLANKS)
SET_ERROR FOR_FIELD(£PGDTMV) MSGTXT(£EDMSGTXT)
ENDIF