COGV78 - Giornale Movimenti Magazzino¶
Funzione¶
Programma selettore per la stampa del giornale movimenti di magazzino (stampa bollato). Determina la versione corretta del programma di stampa da lanciare in base alla configurazione dell'azienda e ad eventuali personalizzazioni.
Menu¶
- Magazzino > Stampe > Giornale Movimenti
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| COGAZIEN | Anagrafica azienda (per az-personal, az-ges-qta-2) |
Lettura |
Logica principale¶
- Inizializzazione:
z-99-init-program,ctr-abil, lettura azienda (rd-azi). - Selezione programma personalizzato: se
az-personalnon e' vuoto, costruisce il nome programma comeCOGV78+az-personal(es.COGV78XX) e tenta di chiamarlo. Se il CALL riesce, il programma personalizzato gestisce tutto. - Programma standard: se non c'e' personalizzazione o il CALL fallisce:
- Se
az-ges-qta-2 = 'S'(gestione doppia UM): chiamaCOGV78F(suffisso "F " con spazio). - Altrimenti: chiama
COGV78NO. - Errore: se anche il CALL al programma standard fallisce, mostra messaggio "Manca programma x stampa magazzino !!".
- Chiusura: cancella il programma chiamato (
cancel name-prog) e termina.
Copybook principali¶
costanti.cpy- Costanti generaliwstato.cpy,wgrave.cpy,wopenf.cpy,wnscr.cpy- Working standardcogazien.cpy- Dati aziendawcont.cpy,wcont1.cpy- Linkage sectionstato.cpy,stato1.cpy,util1.cpy,winmsg.cpy,grave.cpy,mmsubw.cpy- Procedure standard
Note¶
- Il programma non ha screen section ne' file propri: e' puramente un dispatcher.
- I programmi effettivi di stampa sono
COGV78NO(standard) eCOGV78F(con doppia UM). - La logica di personalizzazione tramite
az-personale' un pattern standard del gestionale: il suffisso viene dal campo azienda e permette versioni custom per cliente. - Usa
mmsubw.cpy(sottoprogramma), nonmmmask.cpy.