Z-GEN-CONTATORE |
  
|
Z-GEN-CONTATORE |
|
Routine generica collegata alle griglie, che centralizza la visualizzazione di un messaggio incrementale da visualizzare in un ciclo di caricamento record (vedi ASN210)
Vedi anche Z-nomegrid-CONTATORE
La routine esegue un refresh del contatore:
✓Ogni record fino a 10
✓Ogni 10 record fino a 100
✓Ogni 100 record fino a 1000
✓Ogni 1000 record oltre
Esempio della chiamata alla routine
*
initialize trs-rec
......
perform wr-cogtrans
if w-verbo-ok
perform z-gen-contatore
else
string "Errore in caricamento transito: " trs-chia1
delimited size into wb-msg
perform vbx-msg-warning
end-if
.
Esempio della routine
*------------------------------------------------------------------*
* Incremento il contatore; conto:
* - 1 record fino a 10
* - 10 record fino a 100
* - 100 record fino a 1000
* - 1000 record oltre
*------------------------------------------------------------------*
z-gen-contatore.
add 1 to w-gen-t-n-rec
add 1 to w-gen-ca
if w-gen-ca > 999
if w-gen-ca-m-unita = 0
move w-gen-ca to w-gen-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
w-gen-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else if w-gen-ca > 99
if w-gen-ca-c-unita = 0
move w-gen-ca to w-gen-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
w-gen-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else if w-gen-ca > 9
if w-gen-ca-d-unita = 0
move w-gen-ca to w-gen-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
w-gen-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else
move w-gen-ca to w-gen-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
w-gen-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
end-if
end-if
.