MIL005 -- Riclassificazione da Saldi¶

Sorgente: cbl/mil005.cbl | Tipo: Programma batch con maschera parametri | Program-ID: MIL005

Menu: Contabilita' > Bilancio > Riclassificazioni > Riclassif. da Saldi

Scopo¶

Calcola il bilancio riclassificato partendo dai saldi contabili (COGSLPCO) e dalla prima nota non contabilizzata (COGPNONC). Applica un modello di riclassificazione (definito in MIL003) per produrre il bilancio riorganizzato su file CORICLAS.

Interfaccia utente¶

Maschera parametri¶

Campo	Tipo	Descrizione
`tm-esprec`	x(01)	Esercizio precedente (S/N)
`tm-eser-cont`	x(09)	Esercizio contabile (anno1/anno2)
`tm-escl`	x(01)	Esclusione doc. chiusura (S/N)
`tm-escl-ndoc1`	9(06)	N. doc. chiusura conti reddito da escludere
`tm-escl-ndoc1-2`	9(06)	N. doc. chiusura conti reddito da escludere (2)
`tm-escl-ndoc2`	9(06)	N. doc. chiusura stato patrimoniale da escludere
`tm-escl-ndoc2-2`	9(06)	N. doc. chiusura stato patrimoniale da escludere (2)
`tm-bil-parz`	x(01)	Bilancio parziale (S/N)
`tm-da-data`	9(08)	Data inizio (AAAAMMGG)
`tm-a-data`	9(08)	Data fine (AAAAMMGG)
`tm-saldi-i-patr`	x(01)	Includi saldi iniziali C/Patrimoniale (S/N)
`tm-saldi-i-redd`	x(01)	Includi saldi iniziali C/Reddito (S/N)
`tm-data-i-redd`	9(08)	Data saldi iniziali reddito
`tm-divisa`	x(02)	Codice divisa
`tm-wmod-ricla`	x(03)	Modello riclassificazione

Tasti funzione¶

Tasto	Funzione
F3	Conferma e avvia elaborazione
F8	Aiuto: esercizio (WIN157), modello (COGQ38), divisa (COGE22)
ESC	Uscita

File e Tabelle¶

File/Tabella	Copybook	Uso
COGSLPCO	cogslpco.cpy, .fd	Saldi contabili per conto/esercizio (lettura)
COGPNONC	(da mil005.fd)	Prima nota non contabilizzata (lettura)
COGBIL	(da mil005.fd)	Voci di riclassificazione (lettura modello)
COGBPCO	(da mil005.fd)	Associazione voci-conti del piano dei conti (lettura)
CORICLAS (FRICL)	CORICLAS.CPY	Risultato riclassificazione (scrittura)
COGTABEL (tipo 66)	cogfiles.cpy	Tabella esercizio contabile (lettura)
COGTABEL (tipo AE)	cogfiles.cpy	Tabella modelli riclassificazione (lettura)
COGTRANS	(inline)	File temporaneo di transito per elaborazione parziale
Lavoro (copia COGSLPCO)	cogslpco.cpy (con replacing)	Copia temporanea dei saldi
COGCOATT	cogcoatt.cpy	Attributi documenti contabili

Programmi chiamati¶

Programma	Scopo
COGQ38	Selezione modello di riclassificazione (tipo AE)
COGE22	Selezione divisa
WIN157	Selezione esercizio contabile
COGS52W	Gestione date (formattazione/validazione)
COGU10W	Utility valute/conversione divisa
DTPRG / PRGDT	Conversione data <-> progressivo giorni

Copybook principali¶

mil005.select, mil005.fd, mil005.wrk, mil005.decla, mil005-01.scr -- Definizioni generate da Screens
cogslpco.cpy -- Struttura saldi contabili (usata anche per il file lavoro con replacing)
CORICLAS.CPY -- Struttura record riclassificazione
cogconta.cpy -- Struttura tabella esercizio contabile
cogazien.cpy -- Dati azienda
utilcogq38.cpy -- Interfaccia COGQ38
utile22.cpy -- Interfaccia COGE22
k-u10.cpy, utilu10.cpy -- Costanti e interfaccia utility valute

Logica di Elaborazione¶

Flusso principale¶

Lettura parametri esercizio: legge COGTABEL tipo 66 per ottenere gli estremi dell'esercizio contabile (date chiusura, esercizio corrente/precedente)
Raccolta parametri utente: esercizio precedente, esclusione documenti chiusura, bilancio parziale, divisa, modello
Conferma (F3): avvia l'elaborazione

Elaborazione standard (bilancio parziale = N)¶

Fase 1 -- Copia saldi (`leggi01`-`leggi50`)¶

Scorre COGSLPCO per l'esercizio selezionato
Converte gli importi nella divisa richiesta (se diversa dalla divisa del conto)
Scrive la copia nel file di lavoro (LAVORO)

Fase 2 -- Prima nota non contabilizzata (`leggi55`-`leggi85`)¶

Scorre COGPNONC
Esclude movimenti con data effetto compilata (pno-dataeff > 0)
Esclude movimenti con data superiore alla data di situazione
Converte importi nella divisa richiesta
Aggiorna i saldi nel file di lavoro (aggiornasaldo, aggiornaconto)
Verifica la quadratura dare/avere; se non quadra mostra avviso

Fase 3 -- Riclassificazione (`leg100`-`leggi1090`)¶

Scorre il file di lavoro aggiornato
Per ogni sottoconto, tramite tratta, cerca la voce di riclassificazione corrispondente in COGBPCO e accumula i valori sulla voce
Il paragrafo tratta gestisce la formula (segno) per determinare se il saldo va sommato o sottratto

Fase 4 -- Costruzione bilancio (`elfine`)¶

Calcola i totali per sezione (attivita', passivita', costi, ricavi)
Calcola utile/perdita di esercizio
Scrive i totali a pareggio

Elaborazione parziale (bilancio parziale = S)¶

Se tm-bil-parz = "S", viene eseguita la variante parz-00-new: - Utilizza il file COGTRANS come transito - Filtra i movimenti per intervallo date (tm-da-data / tm-a-data) - Gestisce separatamente i saldi iniziali patrimoniali e di reddito in base ai flag tm-saldi-i-patr e tm-saldi-i-redd - Al termine esegue elabora-parz-00-new per produrre la riclassificazione

File temporanei¶

LAVORO: copia di COGSLPCO con prefisso ##RIL + codice operatore
FRICL: file riclassificazione RIC + codice operatore
COGTRANS: file transito #$MIL005. + codice operatore (solo per bilancio parziale)

Note tecniche¶

Il file lavoro usa la stessa struttura di COGSLPCO con REPLACING leading "con-" by "con2-" per evitare conflitti di nomi.
I nomi dei file temporanei includono il codice operatore (wo-oper) per consentire l'uso concorrente da piu' utenti.
Il programma utilizza PERFORM ... THRU in diversi punti (stile legacy).
La variabile wreddito distingue i conti patrimoniali (mastro < conta-cone1) da quelli di reddito.

Documentazione tecnica -- 2026-04-16