COGP15 - Stampa Causali Bolla¶

Sorgente: cbl/cogp15.cbl | Tipo: Programma a menu (stampa) | Program-ID: COGP15

Menu: Magazzino > Archivi & Tabelle > Tabelle > Stampe > Causali Bolla

Scopo¶

Stampa l'elenco delle causali bolla configurate su COGTABEL (euta-tipo = 15), con i flag che ne regolano il comportamento (entrata/uscita, cliente/fornitore, concorso a fatturazione/giacenza/valorizzazione). Esegue verifica di consistenza dei flag e segnala in stampa eventuali anomalie.

File e Tabelle¶

File/Tabella	Uso
FEURTAB	Parametri generali
COGTABEL	`euta-tipo = 15` per causali bolla
FLSTA	File stato output

Programmi chiamati¶

COGS54 — selezione stampante (chiamata via util-s54)

Copybook principali¶

File: feurtab.fd, cogp15.select, cogp15.fd, flsta.fd
Record: cogfiles.cpy, flsta.cpy
Working: cogp15.wrk, wopenf, wstato, wgrave, wnscr, cogazien, utils54.cpy
Screen: cogp15-01.scr
A fine procedure: cogp15.prc, mmmask, printer

Costanti¶

k-chr-stampa = 132

Logica di elaborazione¶

Apertura (apri): lettura azienda, apertura COGTABEL.
Conferma stampa (a222): COGS54 per selezione stampante + F3 per conferma.
Scansione COGTABEL (a010):
st-cogtabel-notmin con euta-tipo = 15, euta-cod = LOW-VALUES
rdnxt-cogtabel in loop (a015, a040)
Per ogni causale (a050):
Verifica consistenza dei flag (euta-cb-fl-eu, euta-cb-cli-for, euta-cb-con-fat, euta-cb-con-gia, euta-cb-con-val): se non validi, mostra box-msg con avvertenza
Costruzione riga di stampa: codice, descrizione, tipo (Entrata/Uscita), tipo anagr. (Clienti/Fornitori), flag fatturazione/giacenza/valorizzazione
Cambio pagina ogni (s54-stm-lin - 12) righe
Chiusura: COGS54 finalizzazione + cancel.

Note¶

I controlli di consistenza segnalati a video servono a evidenziare configurazioni errate dell'amministratore: la stampa procede comunque.
Se nessuna causale: messaggio "NESSUNA CAUSALE" e uscita.
Il sorgente contiene molto codice commentato (vecchio standalone): la parte attiva e' minimal e si appoggia a COGS54 per il lifecycle stampa.