MIL004 - Stampa modelli di riclassificazione¶

Sorgente: cbl/mil004.cbl | Program-ID: MIL004 | Tipo: Programma interattivo (mmmask)

Menu: Contabilita' > Bilancio > Riclassificazioni; Contabilita' > Controllo di Gestione

Scopo¶

Stampa o estrae su file il contenuto di un modello di riclassificazione bilancio. Il parametro wo-parametro = "N" attiva la modalita' estrazione (senza stampa fisica), altrimenti viene prodotta la stampa tramite COGS54. Il modello viene letto da COGBIL; per ogni voce del modello vengono cercati i conti associati in COGBPCO.

Storico modifiche¶

Maggio 2026 - Rimosso reset automatico modelli all'apertura¶

In z-carica-controlli era presente un blocco che, alla riapertura del programma, scandiva tutti i record di COGBIL e impostava anb-modello = 1 (sovrascrivendo i codici modello esistenti). Questo "manutenzione interna" alterava i dati al primo accesso al programma ed era residuo di una vecchia inizializzazione di test. Il blocco e' stato rimosso: il programma non modifica piu' i record COGBIL all'apertura e si limita a leggere il modello richiesto.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	Indexed	Input	Tabelle generali di sistema
COGTABEL	Indexed	Input	Tabelle generiche (tipo "AE": modelli)
COGBIL	Indexed	I/O	Definizione modelli di riclassificazione
COGBPCO	Indexed	Input	Associazione voci bilancio / conti
COGPNCON	Indexed	Input	Piano dei conti (descrizione conto)
RICLA	Sequential	Output	File di estrazione testo
FLSTA	Sequential	Output	File stampa

Il percorso del file ricla: - Se thin client: ext-sys-dir/ricla<modello>.txt - Altrimenti: c:\cont_gest\ricla<modello>.txt

Copybook utilizzate¶

Copybook	Descrizione
wstato.cpy	Gestione status file
wgrave.cpy	Gestione errori gravi
wopenf.cpy	Apertura file generica
wnscr.cpy	Variabili di schermata
cogazien.cpy	Dati azienda
utils54.cpy	Utility gestione stampa (COGS54)
utilcogq38.cpy	Utility COGQ38 (ricerca modelli tabella)

La chiave secondaria cogbpco.k02 e' inclusa esplicitamente a fine procedure division per la scansione per voce di bilancio.

Logica di elaborazione¶

Il parametro wo-parametro determina la modalita' (stampa vs estrazione).
L'utente inserisce il codice modello; la validazione legge COGTABEL tipo "AE" e verifica l'esistenza in COGBIL.
All'avvio della produzione: posizionamento su COGBIL con chiave anb-modello = tm-modello, anb-codice = 0.
Viene saltato il primo record con anb-val = "C" (record di controllo).
Scorrimento sequenziale di COGBIL; ogni cambio di anb-bil o anb-sezione genera un'intestazione di sezione.
Per ogni voce del modello (fosta): scrive la riga descrittiva, poi cerca i conti associati su COGBPCO via chiave secondaria (k02 per anb-chia). Per ogni conto trovato legge COGPNCON per la descrizione.
La riga di dettaglio (rdet) contiene: bil, sez, codice, descrizione voce, mastro, conto, sottoconto, descrizione conto.
In modalita' stampa (si-sta not = "N"): gestione paginazione con ctrri (righe per pagina, soglia 60) e ctrpa (numero pagina).
Il file ricla viene sempre scritto (anche in modalita' estrazione).
Alla fine chiama COGS54 con s54-after-print = "S" per inviare la stampa.

Sezioni bilancio: combil = "1" = Stato Patrimoniale, "2" = Conto Economico. Sezioni: comsez = "1" = Attivita', "2" = Passivita', "3" = Costi, "4" = Ricavi.

Chiamate a sottoprogrammi¶

Programma	Funzione
COGQ38	Ricerca/selezione codice modello (F8)
COGS54	Gestione stampa