FL-VALIDAZIONE-*

Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.WRK > Variabili utili >

FL-VALIDAZIONE-*

Previous pageReturn to chapter overviewNext page

      77  fl-validazione-contestuale pic x(01) value 'S'.

      77  fl-validazione-post-accept pic x(01) value 'N'.

 

Queste due variabili consentono di controllare in che modo effettuare i controlli

 

FL-VALIDAZIONE-CONTESTUALE

 

Viene impostato ad "S" automaticamente all'avvio del programma.

 

Se rimane "S", alla terminazione di una accept viene eseguita la routine X-CONTROLLA-TM-nome-campo, ed emesso un errore quando necessario.

 

Si può impostare questo valore a "N" per eliminare ogni controllo durante l'editazione di una griglia. Come effetto collaterale, ogni "automatismo" inserito all'interno delle routine "X-CONTROLLA-TM-nome-campo" verrà disattivato.

Di conseguenza tutti i controlli e le elaborazioni si potranno effettuare ad esempio al termine dell'editazione, quando si richiede l'aggiornamento.

 

FL-VALIDAZIONE-POST-ACCEPT

 

Viene impostato ad "S" automaticamente durante l'esecuzione della routine Z-nomegriglia-FINISH-ENTRY.

In questo modo è possibile condizionare quello che viene fatto all'interno delle routine X-CONTROLLA-TM-nome-campo a seconda se siamo al termine dell'accept di una cella (FL-VALIDAZIONE-POST-ACCEPT = "S") oppure durante i controlli finali.

 

NB: questa variabile assume piu' importanza in caso di gestione griglia evoluta: qui, la routine di aggiornamento X-CONTROLLA-TM-nomecampo-AUTO effettua un aggiornamento automatico del file di transito controllato dalle procedure; ora viene effettuato solo nel caso di validazione post-accept; ad esempio, COGE29:

 

      x-controlla-tm-r-car-tab-cod-auto.

          move 'S' to x-f3-ok-parziale

          perform x-controlla-tm-r-car-tab-cod

          if x-f3-ok-parziale           = 'S' and

             fl-validazione-post-accept = 'S'

             perform z-aggiorna-t-gor-r-car-tab-cod

          end-if

          move x-f3-ok-parziale to tm-r-gcv-car-tab-cod (i)

          .