COGC51 -- Percentuali d'Ammortamento¶
Sorgente: cbl/cogc51.cbl | Tipo: Programma interattivo | Program-ID: COGC51
Menu: Contabilita' > Cespiti > Tabelle
Scopo¶
Gestione della tabella percentuali di ammortamento per categorie cespiti. Permette inserimento, modifica e cancellazione delle categorie, ciascuna con le relative aliquote di ammortamento e i conti contabili collegati per le scritture automatiche. I dati sono memorizzati in COGTABEL tipo 99.
File e tabelle¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| COGTABEL (FEURTAB) | Indexed, I-O | Tabella generale: categorie ammortamento (tipo 99) |
| COGPNCON | Indexed, Input | Piano dei conti per validazione conti contabili |
Copybook principali¶
cogc51.wrk/cogc51.select/cogc51.fd/cogc51.prc/cogc51.decla- Screen designercogfiles.cpy- Definizione file tabella generalecogazien.cpy- Dati aziendautils52.cpy- Gestione dateutils67.cpy- Accept conti contabili (mastro/conto/sottoconto) con ricercautilu20.cpy- Accept numeri con decimali (COGU20W)utilncnf.cpy- Configurazione modulo
Struttura del programma¶
Record COGTABEL tipo 99¶
I dati della categoria sono distribuiti su 2 record in COGTABEL:
Record 1 (euta-ces-1-prg = 1): - Chiave: tipo=99, data=0, cat=codice, prg=1 - Contenuto: descrizione, percentuali ammortamento (std, no-amm, ant, acc, rid, spese), tipo cespite (M/I), categoria di stampa
Record 2 (euta-ces-1-prg = 2): - Chiave: tipo=99, data=0, cat=codice, prg=2 - Contenuto: 8 conti contabili (cespite, fondo, amm.ordinari, amm.anticipati, amm.non deducibili, plusvalenze, minusvalenze, riserva)
Campi maschera (tab-maschera)¶
| Campo | Tipo | Descrizione |
|---|---|---|
| tm-data | 9(08) | Data (disabilitato, sempre zero dal 30/03/16) |
| tm-cat | 9(02) | Codice categoria |
| tm-des | X(30) | Descrizione categoria |
| tm-amm-std | 9(03)V99 | % ammortamento standard |
| tm-no-amm | 9(03)V99 | % non ammortizzabile |
| tm-amm-ant | 9(03)V99 | % ammortamento anticipato |
| tm-amm-acc | 9(03)V99 | % ammortamento accelerato |
| tm-amm-rid | 9(03)V99 | % ammortamento ridotto |
| tm-spese | 9(03)V99 | % esubero spese |
| tm-tipoc | X(01) | Tipo cespite (M=materiale, I=immateriale) |
| tm-pc-1..8 | 9(10) | Conti contabili (mastro 2 + conto 2 + sottoconto 6) |
| tm-cat-st | 9(02) | Categoria di stampa alternativa |
Paragrafi principali¶
| Paragrafo | Funzione |
|---|---|
apri |
Inizializzazione, apertura file, lettura configurazione (UTILNCNF) |
a4 |
Inizializzazione maschera, default tipo cespite "M" |
a-tm-cat |
Accept categoria con F8 (ricerca) e F1 (configurazione) |
a-tm-des |
Accept descrizione |
a-tm-amm-std ... a-tm-spese |
Accept 6 percentuali (via COGU20W) |
a-tm-tipoc |
Accept tipo cespite (combo S60) |
a-tm-pc-1 ... a-tm-pc-8 |
Accept 8 conti contabili (via COGS67) |
a-tm-cat-st |
Accept categoria di stampa alternativa |
a-fine-dati |
Validazione e conferma |
a-90-wr |
Inserimento nuova categoria (2 record in COGTABEL) |
a-90-rw |
Modifica categoria esistente (2 record in COGTABEL) |
cancella |
Cancellazione categoria (2 record da COGTABEL) |
visualizza |
Caricamento dati esistenti nella maschera |
send-scr-114 |
Chiamata lookup categoria (via screen 114) |
Flusso di elaborazione¶
- L'utente digita il codice categoria.
- Il programma cerca il record 1 in COGTABEL (tipo=99, data=0, cat=codice, prg=1).
- Se trovato, carica i dati in maschera (
fl-vario = "V") e abilita F4 per cancellazione. - Se non trovato, predispone l'inserimento (
fl-vario = "I"). - L'utente compila/modifica i campi.
- Alla conferma (F3 + acc-conf):
- Se inserimento (
a-90-wr): scrive 2 record in COGTABEL (prg=1 e prg=2). - Se modifica (
a-90-rw): riscrive i 2 record esistenti. - Se F4 su categoria esistente: esegue
cancellache elimina entrambi i record.
Logica di elaborazione¶
Conti contabili¶
I conti sono strutturati come mastro (2) + conto (2) + sottoconto (6) = 10 cifre. Vengono memorizzati nei campi euta-ces-N-pc del record 2. La validazione avviene contro COGPNCON tramite la subroutine COGS67.
Configurazione¶
Il programma usa UTILNCNF per leggere la configurazione del modulo cespiti (x99-src-cfg). Il campo tm-cfg-collega-cespiti-coge memorizza un flag di configurazione.
Modifiche storiche (300316)¶
Il campo data (tm-data) e' stato disabilitato il 30/03/2016: il valore e' sempre zero. Il numero massimo di conti e' stato ridotto da 10 a 8 elementi.
CALL esterne¶
| Programma | Scopo |
|---|---|
COGU20W |
Accept numeri decimali (percentuali) |
COGS67W |
Accept conti contabili con ricerca piano dei conti |
COGS52W |
Accept/validazione date (disabilitato) |