COGV71 -- Etichette Sovrappacco¶
Sorgente: cbl/cogv71.cbl | Tipo: Programma interattivo / selettore stampa | Program-ID: COGV71
Menu:
- Magazzino > Uscite > Bolle > Stampe
- Vendite > Bolle > Stampe
Scopo¶
COGV71 e' il selettore per la stampa delle etichette sovrappacco. Raccoglie i dati identificativi di una bolla (magazzino, anno, tipo, numero), legge la testata della bolla e richiama il modulo di stampa specifico per l'azienda (personalizzato o standard COGV71NO).
Puo' funzionare sia in modalita' autonoma (da menu) sia come subroutine richiamata (CALLED) da altri programmi di stampa bolle.
Interfaccia utente¶
Maschera (tab-maschera / tm-documento)¶
| Campo | Tipo | Descrizione |
|---|---|---|
tm-doc-mag |
x(01) | Magazzino |
tm-doc-ann |
9(04) | Anno documento |
tm-doc-tip |
x(01) | Tipo documento |
tm-doc-num |
9(06) | Numero documento |
Tasti funzione¶
| Tasto | Funzione |
|---|---|
| F3 | Conferma e lancia stampa |
| F8 | Calendario (su anno) |
| Esc | Uscita |
Modalita' CALLED¶
Quando richiamato con v71-called = "COGV71-CALLED" (via utilv71.cpy):
| Campo linkage | Descrizione |
|---|---|
v71-called |
Deve valere "COGV71-CALLED" |
v71-fl-sta |
Flag stato (non utilizzato attualmente, impostato a "N") |
v71-bolla |
Chiave bolla (12 car.: mag + anno + tipo + numero) |
In modalita' called, il programma salta l'accept dei campi, controlla direttamente i dati e lancia la stampa.
Chiamanti noti¶
| Programma | Contesto |
|---|---|
| COGM41 | Situazione bolle (commentato/rimosso in conversione GUI) |
| Programmi di stampa bolla | Richiamo automatico post-stampa |
Logica di Elaborazione¶
Flusso principale¶
- Inizializzazione:
z-99-init-program, controllo abilitazione, apertura file, lettura azienda - Se CALLED: legge il linkage, controlla i dati e salta direttamente alla stampa
- Se autonomo: presenta la maschera, accetta magazzino/anno/tipo/numero con validazione
- Controllo dati (
x-controlla-dati): verifica esistenza bolla leggendo la testata - Lancio stampa (
a-lancia-stampa): - Prepara la struttura
mascheracon i dati della bolla (magazzino, tipo, numero, destinatario, date, ecc.) - Se esiste una personalizzazione aziendale, compone il nome del programma (es.
COGV71XX.COB) e lo chiama - Se non esiste personalizzazione o il programma non viene trovato, chiama
COGV71NO(stampa standard) - Chiusura: chiude i file, esce come subroutine o come programma
Struttura maschera passata al modulo di stampa¶
La struttura maschera (definita in working) contiene tutti i dati della bolla necessari alla stampa:
- Dati documento: magazzino, tipo, numero, data
- Dati destinatario: codice, descrizione 1 e 2
- Dati spedizione: vettori, aspetto, porto, intermediario
- Dati commerciali: causale, pagamento, rate, sconti, listino
- Annotazioni, tipo anagrafico, flag triangolare, max colli
File e Tabelle¶
File acceduti¶
| File/Tabella | Copybook | Uso |
|---|---|---|
| FEURTAB | cogfiles.cpy | Tabella nomi file |
| File da cogv71.select/fd | cogv71.select, cogv71.fd | Testata bolla e file accessori |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGV71NO | Stampa etichetta sovrappacco standard |
| COGV71xx | Stampa personalizzata per azienda (xx = codice personalizzazione) |
| COGS52 | Accept data con calendario (via utils52) |
Copybook principali¶
Screen Designer (generati)¶
| Copybook | Contenuto |
|---|---|
cogv71-01.scr |
Maschera (screen section) |
cogv71.select |
SELECT file |
cogv71.fd |
FD file |
cogv71.wrk |
Working storage |
cogv71.decla |
Declaratives |
cogv71.prc |
Procedure division generate |
Gestionale¶
| Copybook | Contenuto |
|---|---|
cogfiles.cpy |
Record tabella nomi file |
cogazien.cpy |
Dati azienda |
utilv71.cpy |
Interfaccia linkage per chiamata esterna |
k-personal.cpy |
Costanti personalizzazione |
wcont.cpy / wcont1.cpy |
Area comunicazione linkage |
wstato.cpy / wgrave.cpy / wopenf.cpy / wnscr.cpy |
Working standard |
utils52.cpy |
Working per COGS52 (calendario) |
Note tecniche¶
- Il programma era originariamente duplicato da COGV52 (stampa bolle); la configurazione interna e' stata rimossa in fase di conversione GUI (21/06/2007)
- Il tasto F7 (situazione bolle via COGM41) e il tasto F1 (configurazione) sono stati disattivati nella conversione GUI
- Il campo
v71-fl-staviene sempre impostato a "N" prima della chiamata al modulo di stampa - La chiave bolla
v71-bollacorrisponde ates-chia3(12 caratteri)
Documentazione tecnica -- 2026-04-08