Z-nomegrid-CREA-TRANSITO-INIT |
  
|
Z-nomegrid-CREA-TRANSITO-INIT |
|
Questa routine racchiude alcune operazioni standard da eseguire all'inizio della costruzione del file di transito.
Esempio della chiamata alla routine
Viene richiamata durante la costruzione del file di transito nel programma sorgente, ad esempio:
*----------------------------------------------------------------
* Creazione file di transito
* Per il momento scorro tutto il file con le testate TCONFER
*----------------------------------------------------------------
z-grid-det-crea-transito.
perform z-grid-det-crea-transito-init
if tm-rif-ordine-cli <> " "
initialize util-gesstr
move "CERCA-PREPARA" to gesstr-ope
move function length(tm-rif-ordine-cli)
to gesstr-len-note
move tm-rif-ordine-cli to gesstr-note (1:gesstr-len-note)
call "GESSTR" using stringhe util-gesstr
gesstr-note
end-if
move 0 to b-prog
if tm-cli-cod <> " "
perform z-grid-det-cerca-per-cliente
else if tm-art-cod <> " "
perform z-grid-det-cerca-per-articolo
else if tm-scad-da <> 0 or tm-scad-a <> 0
perform z-grid-det-cerca-per-datacons
else
perform z-grid-det-cerca-tutto
end-if
end-if
end-if
perform rem-clk
.
Esempio della routine
*------------------------------------------------------------------*
* Operazioni iniziali sul caricamento file di transito
*------------------------------------------------------------------*
z-grid-det-crea-transito-init.
move m-tb-crea-transito-init-01 to wb-g1
move 0 to gor-r-t-n-rec
move 0 to gor-r-ca
move 0 to gor-r-ca-ed
string m-tb-crea-transito-init-02 ' ' gor-r-ca-ed
' ' m-tb-crea-transito-init-03
delimited size into wb-g2
perform clock-msg
.