Cespiti — Gestione beni ammortizzabili¶
Area funzionale: Contabilita' / Cespiti Programmi documentati: 12 | Righe totali analizzate: 25.441
Indice¶
- Gestione operativa
- Tabelle e configurazione
- Stampe
- Flusso integrato
- File principali
- Tabella riepilogativa
1. Gestione operativa¶
COGC52 — Inserimento cespiti¶
File: /programmi/eurocoge/cbl/cogc52.cbl (4.834 righe)
Registrazione di nuovi cespiti con dati patrimoniali, categorie ammortamento e conti contabili associati.
Dati acquisiti: Codice, nome, data acquisizione, importo, categoria ammortamento (percentuali ordinario/anticipato/accelerato/ridotto), analitica contabile, fattura riferimento, ubicazione, flag leasing (con date contratto), 8 conti del piano conti.
Validazioni: Conti contabili validati su COGPNCON (8 livelli). Flag tm-cfg-collega-cespiti-coge per collegamento contabile.
Flusso: Input dati → validazione conti → WRITE su COGCESAN + COGCESMO (movimento acquisto iniziale).
File: COGCESAN (ces-), COGCESMO (csm-), COGTABEL (euta- tipo 99), COGPNCON (pco-). CALL: COGS52W, COGS65W, COGU10W, COGS25, WCA005, COGC58, WIN094.
COGC53 — Calcolo quote ammortamento¶
File: /programmi/eurocoge/cbl/cogc53.cbl (1.843 righe)
Computazione automatica quote ammortamento annuali per ciascun cespite in base a categoria, percentuale e data inizio.
Parametri: Anno, data operazione, tipo calcolo (S/D/Z), periodo (A=Annuale/M=Mensile), giorni, rateo.
Logica calcolo:
- Loop su COGCESAN
- Per ogni cespite: calcola percentuale (Std/Ant/Acc/Rid)
- Se leasing: calcola lunghezza contratto
- Importo = CostoStorico x (Perc/100) x (Mesi/12)
- Write COGCESMO con FL-3='D' (movimento ammortamento)
Validazione: Controllo non ricalcolo se FL-3='D' gia' presente per anno/data/cespite.
File: COGCESAN (ces-), COGCESMO (csm-), COGTABEL (euta-), COGBESMO (temp). CALL: COGS52W, COGU10W, COGS25, DTPRG/PRGDT.
COGC56 — Inserimento movimenti cespiti¶
File: /programmi/eurocoge/cbl/cogc56.cbl (2.545 righe)
Registrazione variazioni patrimoniali: aumenti, diminuzioni, vendita, dismissione, plusvalenza, minusvalenza.
Tipologie movimento: '+'=Aumento, '-'=Diminuzione, 'V'=Vendita, 'D'=Dismesso, 'M'=Minusvalenza, 'P'=Plusvalenza, 'B'=Perduto.
Integrazione contabile: Se tm-cfg-colleg-cespiti-coge='S' e tipo V/D: calcolo plus/minusvalenza → genera prima nota contabile via COGE77.
File: COGCESAN (ces-), COGCESMO (csm-), COGTRANS (trs-), COGPNCON (pco-). CALL: COGS52W, COGS25, COGU10W, COGC53, WIN094, GRIDADMN, COGE77, DIALOGS.
COGC54 — Visualizzazione dettaglio cespiti¶
File: /programmi/eurocoge/cbl/cogc54.cbl (1.732 righe)
Consultazione storica dettagliata: tutti i movimenti di un cespite (acquisizione, variazioni, ammortamenti, cessioni) con valori contabili risultanti.
Calcolo residuo: CostoStorico - (AmmStd + AmmAnt + AmmAcc + AmmRid).
Griglia (max 900 righe): Anno, progressivo, tipo movimento, fornitore, fattura, data, importo, percentuale. F6=dettaglio riga, F9=ricerca cespite.
File: COGCESAN (ces-), COGCESMO (csm-), COGTABEL (euta-), FLSTA. CALL: COGS52W, COGU06, GRIDADMN, COGS54, COGU10W.
COGC62 — Visualizzazione cespiti per anno / contabilita' ammortamenti¶
File: /programmi/eurocoge/cbl/cogc62.cbl (2.405 righe)
Report analitico annuale per categoria e stato. Dati pre-aggregati in COGTRANS (non calcolo on-the-fly).
Parametri: Anno (obbligatorio), categoria (opzionale), stato (opzionale).
Dati COGTRANS pre-aggregati: Chiave (cat/cat-bis/cod). Campi: costo storico originale, fondo std precedente, residuo apertura, ammortamento anno, vendita, super-ammortamento, credito imposta.
Flusso: Se categoria=0, rigenera COGTRANS via COGC59 → Loop indicizzato → griglia paginata (100 righe/pagina).
File: COGTRANS (trs-), COGTABEL (euta-), COGPNCON (pco-). CALL: COGU10W, GRIDADMN, COGC59.
2. Tabelle e configurazione¶
COGC50 — Parametri aziendali cespiti¶
File: /programmi/eurocoge/cbl/cogc50.cbl (998 righe)
Gestione parametri aziendali per ammortamenti (soglie, causali). CRUD su COGTABEL tipo 99.
Campi: Descrizione, anni ammortamento, riduzione primo anno, soglia beni, tipo.
File: COGTABEL (euta- tipo 99). CALL: COGU10W, COGU20W, COGS60W, COGS95W, AZVALIDA.
COGC51 — Percentuali d'ammortamento¶
File: /programmi/eurocoge/cbl/cogc51.cbl (2.074 righe)
Setup percentuali ammortamento per categorie cespiti (standard/anticipato/accelerato/ridotto) con associazione ai conti del piano conti.
Struttura bifasica: Record prg=1 per percentuali, prg=2 per conti contabili (fino a 8 mastro/conto/sottoconto). Flag collegamento-cespiti-coge abilita la sezione conti.
File: COGTABEL (euta- tipo 99), COGPNCON (pco-). CALL: COGS52W, COGS60W, COGS67W, COGU20W, WIN114, RNEWCONF.
COGC55 — Causali cespiti¶
File: /programmi/eurocoge/cbl/cogc55.cbl (882 righe)
Manutenzione tabella causali movimenti cespiti. Griglia editable con 16 causali default pre-caricate se tabella vuota.
Causali standard: A(cquisto), +(Aumento), -(Diminuzione), V(endita), D(ismesso), Z, F, S(uper-amm), N, C(redito), I(mposta), T, P(lusval), M(inusval), R(ivalutazione), B(perduto).
Modalita': S=Selezione (ritorna codice), A=Aggiornamento (modifica tabella).
File: COGTABEL (euta- tipo "AO"). CALL: GRIDADMN.
3. Stampe¶
COGP91 — Stampa tabelle ammortamenti¶
File: /programmi/eurocoge/cbl/cogp91.cbl (728 righe)
Report parametri aziendali e percentuali ammortamento con mappatura contabile. Stampa tradizionale a righe su FLSTA.
File: COGTABEL (euta- tipo 99), COGPNCON (pco-). CALL: COGS54, COGU10W.
COGP92 — Stampa lista cespiti¶
File: /programmi/eurocoge/cbl/cogp92.cbl (1.043 righe)
Anagrafica dettagliata cespiti per range codici con dati storici acquisizione, ammortamenti progressivi, variazioni/vendite.
Calcolo per ogni cespite: Loop su COGCESMO → accumulo per causale → residuo = cos_sto - var_dim + var_aum - amm_std - amm_ant - amm_acc - amm_rid.
File: COGCESAN (csa-), COGCESMO (csm-), COGTABEL (euta- tipo 99), COGGEANA (ana-). CALL: COGS54, COGU10W, RNEWCONF.
COGP93 — Stampa sintesi ammortamenti¶
File: /programmi/eurocoge/cbl/cogp93.cbl (2.817 righe)
Report sintetico/analitico ammortamenti per categoria con duplice output: stampa tradizionale e Word XML (WORDMDL).
Dati: Accumulo per categoria: acquisto, ammortamenti std/ant/acc/rid, vendita, plus/minusvalenza.
File: COGCESAN (csa-), COGCESMO (csm-), COGTABEL (euta- tipo 99). CALL: COGS54, COGSC1, COGPA3, WORDMDL, RNEWCONF, C$JUSTIFY.
COGP95 — Stampa bollato cespiti¶
File: /programmi/eurocoge/cbl/cogp95.cbl (3.540 righe)
Stampa definitiva e bollata per scopi legali/fiscali. Output esclusivamente Word con bollo/timbro aziendale.
Parametri: Anno, pagina start, tipo elaborazione, intestazione azienda. Numerazione pagine progressiva con vincolo di inizio.
File: COGCESAN (csa-), COGCESMO (csm-), COGTABEL (euta- tipo 99). CALL: COGS54, COGSC1, COGPA3, WORDMDL, RNEWCONF.
4. Flusso integrato¶
CONFIGURAZIONE:
├── COGC50 (parametri aziendali: soglie, tipo)
├── COGC51 (percentuali ammortamento per categoria + conti)
└── COGC55 (causali movimenti)
OPERATIVITA':
├── COGC52 (inserimento cespite)
│ └── WRITE COGCESAN + COGCESMO (acquisto)
│
├── COGC56 (movimenti: aumento/diminuzione/vendita/dismissione)
│ ├── WRITE COGCESMO (FL-1 = +/-/V/D/M/P/B)
│ └── Se V/D + colleg-coge → COGE77 (prima nota)
│
├── COGC53 (calcolo ammortamenti)
│ └── WRITE COGCESMO (FL-3 = 'D')
│
└── COGC62 (visualizzazione annuale)
└── COGC59 (rigenera COGTRANS aggregato)
CONSULTAZIONE:
├── COGC54 (dettaglio storico cespite — griglia 900 righe)
└── COGC62 (cespiti per anno/categoria — griglia 100 righe)
STAMPE:
├── COGP91 (tabelle ammortamenti)
├── COGP92 (lista cespiti — range codici)
├── COGP93 (sintesi ammortamenti — Word XML)
└── COGP95 (bollato legale — Word XML)
5. File principali¶
| File | Prefisso | Descrizione |
|---|---|---|
| COGCESAN | ces-/csa- | Anagrafica cespiti (codice, nome, categoria, data acq., costi, leasing) |
| COGCESMO | csm- | Movimenti cespiti (FL-1: tipo mov, FL-3: 'D'=ammortamento) |
| COGTABEL | euta- tipo 99 | Parametri categorie ammortamento (percentuali, conti) |
| COGTABEL | euta- tipo "AO" | Causali movimenti cespiti |
| COGPNCON | pco- | Piano conti (validazione 8 conti per categoria) |
| COGTRANS | trs- | Dati pre-aggregati annuali (chiave: cat/cat-bis/cod) |
| COGBESMO | - | File temporaneo per rielaborazioni (COGC53) |
| FLSTA | - | Output stampe report |
6. Tabella riepilogativa¶
| # | Programma | Righe | Tipo | Funzione |
|---|---|---|---|---|
| 1 | COGC52 | 4.834 | Operativo | Inserimento cespiti |
| 2 | COGC53 | 1.843 | Batch | Calcolo quote ammortamento |
| 3 | COGC56 | 2.545 | Operativo | Inserimento movimenti cespiti |
| 4 | COGC54 | 1.732 | Inquiry | Visualizzazione dettaglio cespiti |
| 5 | COGC62 | 2.405 | Inquiry | Visualizzazione cespiti per anno |
| 6 | COGC50 | 998 | Tabella | Parametri aziendali cespiti |
| 7 | COGC51 | 2.074 | Tabella | Percentuali ammortamento |
| 8 | COGC55 | 882 | Tabella | Causali cespiti |
| 9 | COGP91 | 728 | Stampa | Tabelle ammortamenti |
| 10 | COGP92 | 1.043 | Stampa | Lista cespiti |
| 11 | COGP93 | 2.817 | Stampa | Sintesi ammortamenti (Word) |
| 12 | COGP95 | 3.540 | Stampa | Bollato cespiti (Word) |
| TOTALE | 25.441 |