COGK12 — Rilevazione e registrazione Risconti¶
Sorgente: cbl/cogk12.cbl | Tipo: Programma interattivo a griglia con elaborazione contabile | Program-ID: cogk12
Menu: Contabilita' > Bilancio > Ratei/Risconti [Pre-Chiusura:Risconti] ; Contabilita' > Bilancio > Ratei/Risconti infrannuali [Rilevazione Risconti Infrannuali]
Scopo¶
COGK12 gestisce i risconti in fase di pre-chiusura di bilancio (e, in variante, in modalita' infrannuale). Un risconto rappresenta la quota di un costo/ricavo gia' registrato ma di competenza dell'esercizio successivo (o del periodo successivo): il programma individua automaticamente i documenti di prima nota il cui periodo di competenza si estende oltre la data di fine esercizio, calcola la quota da rinviare, la mostra in una griglia di controllo e — a conferma — genera le scritture contabili di rilevazione ( e la contropartita).
Fa coppia complementare con COGK13, che tratta i ratei: COGK12 lavora sui record COGRISCO di tipo "T" (risconti), COGK13 sui record di tipo "R" (ratei).
Il comportamento e' pilotato dal parametro di chiamata wo-parametro:
- primo carattere "A" = fase di rilevazione (pre-chiusura: quota di competenza dell'esercizio in chiusura da stornare);
- primo carattere "B" = fase di ripristino/post-apertura (riporto competenze nel nuovo esercizio);
- secondo carattere "I" = variante infrannuale (registrazioni su primo/secondo periodo, movimento provvisorio).
File e tabelle principali¶
| File/Tabella | Copybook | Uso |
|---|---|---|
| COGRISCO | cogrisco.cpy / .fd / .k02 |
File di lavoro dei risconti/ratei. Tipo record rsc-tipo-rec = "T" (risconti). Chiave1 = tipo + rsc-pno-chia + rsc-cc (A generale / C analitica) + progressivo. Contiene conto, documento, importo totale, importi/competenze dei due periodi, segno, fase (rsc-docum-a, rsc-docum-b) |
| COGPNONC | cogpnonc.cpy / .fd |
Prima nota contabile non contabilizzata: sorgente dei movimenti da riscontare e destinazione delle scritture generate (wr-cogpnonc). Chiave, importo, periodo competenza (pno-pc-da/pno-pc-a), segno |
| COGCOATT | cogcoatt.cpy / .fd / .k01 |
Prima nota contabilizzata anno attivo: seconda sorgente dei documenti da esaminare in carica-tab |
| COGCOPRE | cogcopre.cpy / .fd / .k01 |
Prima nota contabilizzata anno precedente (usata da controlla-doc-presente) |
| COGPNCON | cogpncon.cpy / .fd |
Piano dei conti: flag pco-risconti / pco-ratei che marca il conto come soggetto a risconto/rateo, e descrizione conto |
| COGMOVCC | cogmovcc.cpy / .fd / .k01-agg |
Movimenti di contabilita' analitica (centri di costo): letti per riscontare anche la quota analitica e scritti in fase di aggiornamento (aperto i-o solo se az-ccopr = "S") |
| COGTABEL | cogtabel.cpy |
Tabella generica: tipo 66 (parametri esercizio contabile, conta-rec), tipo 29 (conti/operazioni di contropartita risconti: euta-29-cc-ris-att/op-ris-att/cc-ris-ps/op-ris-ps), tipo 26 |
| COGARIVA | cogariva.cpy / .fd |
Movimenti IVA: per personalizzazione Cortesi (esclusione note di credito tipo doc "03") e per recuperare cliente/fornitore del documento |
| COGGEANA | coggeana.cpy / .fd |
Anagrafica: ragione sociale associata alla riga di contab. analitica |
Flusso principale¶
apri— inizializzazione, apertura file, lettura configurazioni (x999-confi), apertura prima nota contabilizzata attiva/precedente (COGCOATT/COGCOPRE), lettura parametro di chiamata anche in modalita' "called" (utilcogk12).carica-dati-iniziali— imposta descrizione elaborazione e date esercizio da COGTABEL tipo 66 (conta-conchiupre), calcolando data fine/inizio e data registrazione contabile.- Sezioni di accept dei parametri:
a-tm-data-ini-anno,a-tm-data-fine,a-tm-data-init,a-tm-data-regis-contabile,a-tm-prov, con i relativi controlli (validita' date rispetto all'esercizio contabile inx-controlla-tm-data-regis-contabile). carica-tab— (solo sewo-parametro (1:1) = "A") previapulizia-cogrisco, scorre COGCOATT e COGPNONC e per ogni documento richiamacarica-risco.carica-risco— logica di rilevazione: verifica che il conto sia flaggato risconto (pco-risconti = "S"), che il periodo di competenzapno-pc-asuperi la data di fine esercizio, calcola i giorni (calc-tot-giorni, routine DTPRG) e ripartisce l'importo tra primo periodo (rsc-impo-1) e quota da riscontare (rsc-impo-2), scrivendo il record COGRISCO tipo "T". Se attiva la contab. analitica (az-ccopr = "S") replica il calcolo sui movimenti COGMOVCC (carica-risco-cc) con quadratura generale/analitica.a10-loop/a30— carica i record COGRISCO tipo "T" fase attiva ("A") nella grigliae-tm-tab.a-grid/a-accept-grid— gestione griglia: F8 dettaglio documento (WIN053), Ctrl+E eliminazione riga, S+F4 stampa (GRIDADMN), F3 conferma aggiornamento.a1-aggiorna— verifica la tabella conti risconti (COGTABEL tipo 29) e lanciaa-aggiorna(fase A) ob-aggiorna(fase B).a-aggiorna/b-aggiorna— generano le scritture di prima nota (wr-cogpnonc) per ogni risconto rilevato, numerano il documento conCOGS25, scrivono la contab. analitica (scrivi-cogmovcc) e infine le righe di contropartita (a-contropartita/b-contropartita) usando i conti/operazioni da COGTABEL tipo 29. La fase viene marcata su COGRISCO (rsc-faseA/B).fine/z-chiudi— chiusura file e finestra.
Sottoprogrammi chiamati¶
| Programma | Ruolo |
|---|---|
| COGS25 | Numerazione documento di prima nota (registro/anno/mese) |
| COGE77W | Gestione/visualizzazione del documento di prima nota generato (F9 nella dialog finale) |
| COGS52W | Editing/formattazione date |
WIN053 (WIN053.COB) |
Dettaglio documento associato alla riga (F8) |
| GRIDADMN | Gestore della griglia |
| DIALOGS | Dialog finale con esito registrazione documento |
| RNEWCONF | Lettura configurazioni (x999-confi) |
| DTPRG / PRGDT | Conversione data↔progressivo giorni per il calcolo dei giorni di competenza |
Configurazioni (RNEWCONF)¶
Lette in x999-confi (ncnf-pac-gen = "C"):
| Gruppo | Chiave | Pilota |
|---|---|---|
| FATTCARICA | reparto-generico-per-cc | Reparto generico da usare nei movimenti di contab. analitica generati |
| CONTABIL | CA-REP-AGE | Se "S", forza reparto generico e magazzino principale sui movimenti COGMOVCC |
| contabil | ca-data-inizio-gestione | Data di inizio gestione centri di costo: i movimenti analitici vengono scritti solo per date pari/successive |
Note¶
- La distinzione risconto attivo/passivo deriva dal segno del documento originale (
pno-segno/rsc-segno): "D" → risconto attivo (accumulato inw-tot-attivo), "A" → risconto passivo (w-tot-passivo). Le contropartite usano i conti dedicati di COGTABEL tipo 29. pulizia-cogriscoelimina i record COGRISCO tipo "T" in fase non consolidata (, "B", "C") prima di ricaricare, evitando duplicazioni tra esecuzioni.inizializza-elenco(S+F5 / F4) azzera l'intero elenco COGRISCO tipo "T"; nel sorgente il flagw-deletabileviene forzato a "S", quindi l'inizializzazione e' di fatto sempre consentita previa doppia conferma.- In modalita' infrannuale (
wo-param2 = "I") le date init/fine e la registrazione vengono derivate dal primo/secondo periodo, il movimento e' provvisorio (tm-prov = "S",pno-fl-pro = "P") e cambiano le etichette dei campi data. - Quando invocato come sottoprogramma (
cogk12-calledvalorizzato), il programma esegue l'aggiornamento senza interazione e restituisce anno/numero documento generato al chiamante (areautilcogk12). - Codice legacy con
PERFORM ... THRUeGO TO: non usare come modello per nuove scritture.