Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie modo "A"

Questa routine riempe nel record di transito i campi collegati ad una merce (necessari per l'ordinamento su di essi)

Esempio della chiamata alla routine

Viene innescata automaticamente da:

Questo routine deve essere utilizzata quando nella griglia è presente una merce, e si sta valorizzando il file di transito:

*---------------------------------------------------------------

* Imposto una merce

*---------------------------------------------------------------

if fl-fine-merci = "N"

perform rdnxt-cogmerci

if w-verbo-invalido

move "N" to fl-fine-merci

else

move mer-chia to t-gor-r-mer-cm

perform z-riempi-t-gor-mer-cm

end-if

end-perform

Esempio della routine

*------------------------------------------------------------------*

* Valorizzazione dei campi relativi ad una colonna merce

*------------------------------------------------------------------*

z-riempi-t-gor-r-mer.

initialize util-s68

move 'Estrai-Dati' to s68-ope

move t-gor-r-mer-cm to s68-cm

move 'S' to s68-da-estrarre-dm

move 'S' to s68-da-estrarre-cma

move 'S' to s68-da-estrarre-cmf

move 'S' to s68-da-estrarre-cmc

move 70 to s68-len-default

perform z-s68-t-gor-r-mer-ep

call 'COGS68W' using stringhe util-s68

move s68-dm to t-gor-r-mer-dm

move s68-cma to t-gor-r-mer-cma

move s68-cmf to t-gor-r-mer-cmf

move s68-cmc to t-gor-r-mer-cmc

Z-RIEMPI-T-GOR-merce