COG005 — Stampa Centri di Costo¶
Sorgente: cbl/cog005.cbl | Program-ID: COG005 | Tipo: Programma di stampa interattivo
Menu: Contabilita' > Archivi & Tabelle > Stampe > Centri di Costo
Scopo¶
Stampa l'elenco dei centri di costo/profitto presenti nell'archivio COGCCOPR. Consente di filtrare per primo livello e di includere opzionalmente la ripartizione (reparto, magazzino/agenzia, percentuale) associata a ciascun centro di costo.
Struttura della maschera¶
| Campo | Variabile | Descrizione |
|---|---|---|
| Primo Livello | tm-liv |
Filtro per primo livello; vuoto = stampa completa |
| Stampa ripartizione | tm-stampa-rip |
"S" = include dettaglio ripartizione da COGPERCC |
Logica di elaborazione¶
Flusso principale¶
- Selezione parametri: l'operatore sceglie il livello (o vuoto per tutti) e se stampare la ripartizione
- Scansione COGCCOPR: lettura sequenziale con
st-cogccopr-notmin→ looprdnxt-cogccopr, filtrata percco-liv1se specificato - Stampa intestazione: ad ogni cambio di primo livello (
dep-liv not = cco-liv1) viene stampata una nuova intestazione con salto pagina - Stampa riga: per ogni centro di costo, stampa livello 1/2/3, descrizione. I livelli intermedi (
cco-liv3 = zero) sono evidenziati con riga vuota e sottolineatura - Stampa ripartizione (se
tm-stampa-rip = "S"): per i centri di costo di terzo livello, cerca le percentuali di ripartizione in COGPERCC (chiave 2) e stampa reparto, magazzino/agenzia e percentuale
Ripartizione¶
Per ogni centro di costo di terzo livello, il programma:
- Legge COGPERCC per chiave 2 (cpc-cc = cco-chia)
- Per ogni percentuale trovata, cerca la descrizione del reparto in COGTABEL (tipo 85) e del magazzino in COGMAGAZ o CAPMAGAZ (in base a az-consorzi)
- Se non ci sono percentuali, stampa "Nessuna ripartizione"
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| COGCCOPR | Input | Centri di costo/profitto |
| COGPERCC | Input | Percentuali di ripartizione per centro di costo (chiave 2) |
| COGTABEL | Input | Tabelle (tipo 85: reparti) |
| COGMAGAZ | Input | Magazzini (se non consorzi) |
| CAPMAGAZ | Input | Magazzini consorzio (se az-consorzi = "S") |
| FLSTA | Output | File spool stampa |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGS54 | Gestione stampa/spooler |
| RNEWCONF | Lettura configurazione (chiave CONTABIL/CA-REP-AGE) |
Copybook principali¶
cog005.wrk, cog005.select, cog005.fd, cog005.decla, cog005-01.scr, cog005.prc, cogpercc.k02, cogazien.cpy, utilncnf.cpy, utils54.cpy
Note¶
- La larghezza di stampa e' 132 caratteri.
- Le colonne di ripartizione (reparto, magazzino, percentuale) sono visibili solo se
tm-stampa-rip = "S". - La configurazione
CONTABIL/CA-REP-AGEviene letta ma non ha effetti visibili nella logica di stampa.