Vai al contenuto

COGH07 -- Riclassificazione Da Art. Di Chiusura

Sorgente: cbl/cogh07.cbl | Program-ID: COGH07 | Tipo: Elaborazione interattiva

Menu: Contabilita' > Bilancio > Riclass. IV Direttiva C.E.E. > Riclassificazione Da Art.Di Chiusura

Scopo

Esegue la riclassificazione del bilancio secondo la IV Direttiva CEE partendo dagli articoli di chiusura contabile (patrimoniale ed economico). Legge gli archivi di chiusura dell'esercizio corrente e, opzionalmente, dell'esercizio precedente per il raffronto. Costruisce un file di lavoro con i saldi per conto, li distribuisce sulle voci del modello di riclassificazione CEE (COGPCCEE), calcola conto economico, utile/perdita e stato patrimoniale.

File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB (COGTABEL) Indicizzato Input Tabella generica (tipo 66: esercizio contabile, tipo 56: divise)
COGPCCEE Indicizzato Input Schema riclassificazione IV Direttiva CEE
COGFOCEE Indicizzato Input Formule riclassificazione CEE
COGPNCON Indicizzato Input Piano dei conti (via cogh07.select)
CHIUPAT Indicizzato Input Chiusura patrimoniale esercizio corrente ({ese}CHIUS.ARC)
CHIUECO Indicizzato Input Chiusura economica esercizio corrente ({ese}ECONO.ARC)
CHIUPA1 Indicizzato Input Chiusura patrimoniale esercizio precedente
CHIUEC1 Indicizzato Input Chiusura economica esercizio precedente
LAVSAL Indicizzato I-O File lavoro saldi (#$sald.arc in tmp)
LAVRIC Indicizzato I-O File lavoro riclassificazione (#$ricl.arc in tmp)
LAVLAV Indicizzato I-O File lavoro operazioni (#$oper.arc in tmp)

Programmi chiamati

Programma Scopo
COGU10W Conversione importi tra divise
COGE22 Selezione divisa (lista F8)

Copybook principali

Copybook Descrizione
cogh07.wrk, .select, .fd, .decla, .scr Definizioni Screens
cogfiles.cpy Record COGTABEL (euta-*)
cogconta.cpy Struttura contabilita' (conta-*)
cogpnonc.cpy Record prima nota contabilizzata (pno-*)
k-u10.cpy Costanti COGU10W
utile22.cpy Utility selezione (COGE22)
utilu10.cpy Utility conversione importi

Struttura del programma

Parametri in input (maschera)

Variabile Campo Descrizione
tm-modello Modello Codice modello riclassificazione (3 cifre)
tm-quadro Quadro Codice quadro CEE (2 cifre)
tm-raffr Raffronto S/N: raffronto con anno precedente
tm-divisa Divisa Codice divisa per conversione importi

Flusso principale

  1. apri: inizializzazione, lettura tabella esercizio (tipo 66), determinazione esercizio corrente (w-ese) e precedente (w-ese-1). Costruzione path archivi chiusura ({ese}CHIUS.ARC, {ese}ECONO.ARC) dalla directory archivi. Apertura file lavoro temporanei (LAVSAL, LAVRIC, LAVLAV) in output poi I-O.

  2. a000-c: apertura archivi chiusura. Se mancano quelli dell'esercizio precedente, fl-file = '*' e il raffronto viene disabilitato.

  3. a-tm-modello / a-tm-quadro / a-tm-raffr / a-tm-divisa: sequenza accept parametri con validazione (modello e quadro verificati su COGPCCEE).

  4. a-riga-fine: conferma, avvio elaborazione.

  5. Elaborazione chiusura esercizio corrente (a018-a025):

  6. Scansione sequenziale CHIUPAT (patrimoniale) e CHIUECO (economica)
  7. Per ogni record: conversione divisa (COGU10W), aggiornamento saldo su LAVSAL (agg-saldo), aggiornamento riclassificazione su LAVRIC (agg-conto), accumulo totali dare/avere

  8. Controllo quadratura (totdare = totavere)

  9. Elaborazione chiusura esercizio precedente (a026-a031, se tm-raffr = 'S'):

  10. Stessa logica su CHIUPA1/CHIUEC1 con agg-saldo-1 e agg-conto-1

  11. Creazione archivio lavoro riclassificazione (a032-a035):

  12. Scansione COGPCCEE: per ogni voce con conto (cee-mastro != 0) esegue agg-ricl (associa saldi ai conti dello schema). Per voci con formula (cee-flform = 'S') esegue agg-form.

  13. Elaborazione conto economico (a035-a038):

  14. Normalizzazione flag formula 'C' (agg-flagc)

  15. Scansione voci del quadro economico, calcolo per livello gerarchico (flag-rott 1-6 da letma a letmi2), chiamata agg-coneco

  16. Riporto utile/perdita nello stato patrimoniale (a039-a041):

  17. Cerca voci con cee-flform = 'P' (puntatore) e riporta utile/perdita (agg-utile)

  18. Elaborazione stato patrimoniale (a042-a046):

    • Stessa logica del conto economico per i quadri patrimoniali (agg-coneco2, flag-rott 1-7 da quadro a letmi2)

Struttura file di lavoro

LAVSAL (lsa-rec): chiave = mastro + conto + sconto + anno, con prodare/proavere/currency.

LAVRIC (lri-rec): chiave gerarchica (modello/quadro/letma/numro/numar/letmi/prdes), con dare/avere/saldo per esercizio corrente e precedente, flform, oper, currency.

LAVLAV (lav-rec): stessa struttura di LAVRIC con in piu' descrizione (50 car.).

Note

  • I file di chiusura vengono cercati nella directory archivi con il pattern {esercizio_3cifre}CHIUS.ARC e {esercizio_3cifre}ECONO.ARC.
  • I record di chiusura usano la struttura COGPNONC (prima nota contabilizzata).
  • La conversione divisa avviene tramite COGU10W con operazione k-u10-cambio.
  • Se la prima nota non quadra viene mostrato un avviso ma l'elaborazione prosegue.

Documentazione tecnica -- 2026-04-28