COGC50 - Parametri Aziendali Cespiti
Intestazione
| Campo |
Valore |
| Programma |
COGC50 |
| Titolo |
Parametri Aziendali Cespiti |
| Posizione menu |
Contabilita' > Cespiti > Tabelle > Parametri Aziendali |
| Autore originale |
Stefano Ruozzi - Eurosystem |
Scopo e logica generale
COGC50 e' un programma di manutenzione tabelle per la configurazione dei parametri di ammortamento dei cespiti aziendali. Opera sulla tabella COGTABEL con tipo 99, chiave composta da gruppo e specie. Per ogni combinazione definisce le regole di ammortamento (tipo, anni, aliquote, soglie) e i parametri temporali dell'esercizio.
Flusso principale
- Inizializzazione (
apri): controllo abilitazione, lettura azienda, apertura file, caricamento lingua, configurazione tasti funzione (F3 aggiorna, F4 cancella, F8 aiuto)
- Selezione record (
a-tm-gruppo → a-tm-specie): inserimento gruppo e specie con validazione
- Lettura dati (dopo specie): lettura COGTABEL tipo 99 con chiave gruppo+specie; se trovato (
fl-ins-var = "V") carica i campi in tab-maschera; se la divisa differisce dalla divisa conto, converte euta-ces-soglia tramite COGU10W ("Cambio")
- Inserimento/modifica campi (
a-tm-ces-des ... a-tm-ces-ini-gg): accept sequenziale dei campi con validazione parziale
- Conferma (
a-poscur): validazione globale, scelta operazione (F3 = aggiorna/inserisce, F4 = cancella)
- Aggiornamento (
variazione / inserimento): scrittura su COGTABEL con rd-cogtabel-lk + rwr-cogtabel o wr-cogtabel
- Cancellazione (
cancella): del-cogtabel
- Chiusura (
fine): chiusura file
File e tabelle acceduti
| File logico |
Record |
Modalita' |
Uso |
| COGTABEL |
euta-rec |
I-O |
Tabelle di sistema tipo 99: parametri ammortamento cespiti |
| FEURTAB |
feurtab |
Input |
Tabella generica Eurosystem |
Struttura record COGTABEL tipo 99
| Campo |
Tipo |
Descrizione |
euta-ces-gruppo |
9(02) |
Gruppo cespiti (parte della chiave) |
euta-ces-specie |
9(02) |
Specie cespiti (parte della chiave) |
euta-ces-des |
X(40) |
Descrizione categoria |
euta-ces-amm-n |
9(02) |
Anni ammortamento cespiti nuovi |
euta-ces-amm-u |
9(02) |
Anni ammortamento cespiti usati |
euta-ces-rid |
9(03)v99 |
Aliquota riduzione primo anno (%) |
euta-ces-soglia |
9(12)v999999 |
Soglia beni ammortizzati interamente al primo anno |
euta-currency3 |
X(02) |
Divisa della soglia |
euta-ces-tipo |
X(01) |
Tipo ammortamento: S=Standard, A=Anticipato, C=Accelerato, R=Ridotto |
euta-ces-ini-mm |
9(02) |
Mese inizio esercizio |
euta-ces-ini-gg |
9(02) |
Giorno inizio esercizio |
euta-ces-calc-proquo |
X(01) |
Flag calcolo pro-quota (deprecato, sostituito da configurazione) |
Copybook inclusi
Screen Designer
| Copybook |
Contenuto |
cogc50-01.scr |
Maschera principale (screen section) |
cogc50.select |
SELECT dei file |
cogc50.fd |
FD dei file |
cogc50.wrk |
Working storage maschera |
cogc50.decla |
Declaratives |
Strutture dati
| Copybook |
Contenuto |
cogfiles.cpy |
FD feurtab |
cogazien.cpy |
Dati azienda |
wgrave.cpy / wnscr.cpy / wopenf.cpy / wstato.cpy |
Working storage comuni |
wcont.cpy / wcont1.cpy |
Linkage section |
Utility e interfacce
| Copybook |
Contenuto |
utilu10.cpy / utilu20.cpy |
Utility divisa/formattazione importi |
Programmi chiamati (CALL)
| Programma |
Scopo |
| COGU10W |
Recupero divisa conto ("GetDivisaConto") e conversione importo soglia ("Cambio", "Display") |
| COGU20W |
Input formattato aliquota riduzione (campo tm-ces-rid) |
| AZVALIDA.COB |
Validazione data per conversione divisa soglia (ws-campoa con dataval+swval) |
Logica di business
Conversione soglia in divisa conto
Alla lettura del record, se euta-currency3 <> tm-divisa (divisa conto corrente), il programma converte euta-ces-soglia nella divisa conto tramite COGU10W ("Cambio") con la data corrente di sistema.
Campo euta-ces-calc-proquo (deprecato)
Il campo era destinato al calcolo pro-quota sull'alienazione di cespiti ma e' stato disabilitato (commento PBUG-1895, 13/02/2024) perche' la funzionalita' e' ora gestita tramite configurazione RNEWCONF. Il paragrafo a-tm-ces-calc-proquo e' commentato nel sorgente.
Tipo ammortamento
I valori validi per euta-ces-tipo / tm-ces-tipo:
- S = Standard
- A = Anticipato
- C = Accelerato
- R = Ridotto
La selezione avviene tramite combo (COGS60) con le quattro opzioni.