COGC68 - Gestione Dati aggiuntivi cespiti/asset¶
Sorgente: cbl/cogc68.cbl | Tipo: Programma con interfaccia grafica (maschera singolo record) | Program-ID: COGC68
Menu: Non presente nel menu. Richiamato da altri programmi di gestione cespiti/asset.
Scopo¶
Gestisce i dati aggiuntivi di sicurezza e conformita' per cespiti e asset aziendali (non necessariamente registrati come cespiti contabili). Permette di registrare per ogni asset una serie di flag relativi a misure di sicurezza (controllo accesso, cifratura, antivirus, backup, ecc.) e un campo note libero.
Il programma puo' operare su due tipologie di record, identificate dal campo tipo: "A" per asset standard e potenzialmente altri tipi.
Struttura del programma¶
File e tabelle utilizzati¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| COGTABEL (feurtab) | Input | Tabella generica |
| COGCESAS | I-O | Dati aggiuntivi cespiti/asset (tabella principale) |
| COGCESAN | Input | Anagrafica cespiti (per lookup cespite) |
| COGCESMO | I-O | Movimenti storici cespiti |
| COGPNCON | Input | Piano dei conti |
| COGGEANA | Input | Anagrafica fornitori |
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT tabella COGTABEL |
| cogc68.select | SELECT generati da Screens |
| cogc68.fd | FD generate da Screens |
| cogc68.wrk | Working-storage generata da Screens |
| cogfiles.cpy | Record COGTABEL |
| wstato.cpy | Variabili di stato |
| wgrave.cpy | Gestione errori gravi |
| wopenf.cpy | Apertura file |
| wnscr.cpy | Variabili screen |
| cogazien.cpy | Dati azienda corrente |
| utils25.cpy | Utility COGS25 (numeratori automatici) |
| utils65.cpy | Utility COGS65W (lookup tabelle) |
| utilu10.cpy | Utility COGU10W (conversione divise) |
| utilu20.cpy | Utility COGU20W (lookup anagrafiche) |
| k-u10.cpy | Costanti per U10 |
| utilncnf.cpy | Utility configurazione RNEWCONF |
| utildlg.cpy | Utility per dialogs |
| utils52.cpy | Utility COGS52 (gestione cespiti) |
| utilcogc66.cpy | Parametri di linkage per COGC66 |
| utilwinc68.cpy | Parametri di linkage per WINC68 |
| wcont.cpy | Variabili contatori |
| wcont1.cpy | Variabili contatori aggiuntivi |
| utilcogc68.cpy | Parametri di linkage per chiamata esterna |
| cogc68-01.scr | Screen principale |
| cogc68.prc | Paragrafi standard I/O |
| cogc68.decla | Declaratives |
Chiamate a sottoprogrammi (CALL)¶
| Programma | Scopo |
|---|---|
| COGS65W | Lookup su tabelle generiche (categorie cespiti) |
| COGS25 | Numeratori automatici |
| COGC66 | Gestione storico movimenti cespiti |
| WINC68 | Sotto-finestra dati aggiuntivi |
| DIALOGS | Gestione dialogs di conferma |
Logica di elaborazione¶
Inizializzazione (apri)¶
- Inizializza il programma, verifica abilitazioni, apre i file, legge dati azienda, recupera divisa di conto.
- Se richiamato come CALLED (
cogc68-called = "COGC68"ecogc68-callernon vuoto), copia i dati dalla struttura di linkageutil-cogc68inw-dati-called: tipo (w-dc-fl-tipo), codice (w-dc-cod), descrizione (w-dc-descr), categoria (w-dc-cat), descrizione categoria (w-dc-cat-des), codice fornitore (w-dc-forn), nome fornitore (w-dc-forn-nome). - Imposta pulsanti: F3 conferma/aggiorna, F4 cancella, F8 aiuto, F9 nuovo/ricerca avanzata.
- Titolo maschera: "Dati aggiuntivi cespiti/asset no cespiti".
Input dati (a4)¶
La maschera gestisce i seguenti campi:
Testata cespite (precompilata in modalita' CALLED):
| Campo | Descrizione |
|---|---|
tm-fl-tipo |
Tipo record ("A" = asset) |
tm-codc |
Codice cespite (dal chiamante) |
tm-nomec |
Nome cespite (dal chiamante) |
tm-catc / tm-catc-d |
Categoria e descrizione (dal chiamante) |
tm-fornc / tm-fornc-d |
Fornitore e descrizione (dal chiamante) |
Dati asset (editabili se non in modalita' CALLED):
| Campo | Descrizione |
|---|---|
tm-cod |
Codice asset |
tm-nome |
Nome asset |
tm-categ |
Categoria |
tm-forn / tm-forn-d |
Fornitore e descrizione |
Dati di sicurezza/conformita' (sempre editabili):
| Campo | Descrizione | Valori |
|---|---|---|
tm-fl-acces |
Controllo accesso | S/N/- |
tm-fl-critto |
Cifratura | S/N/- |
tm-fl-antivir |
Antivirus | S/N/- |
tm-fl-backup |
Backup | S/N/- |
tm-fl-logman |
Log manomissione | S/N/- |
tm-fl-impcond |
Impianto condizionamento | S/N/- |
tm-fl-videosorv |
Videosorveglianza | S/N/- |
tm-fl-antincen |
Antincendio | S/N/- |
tm-fl-sanit |
Sanitizzazione | S/N/- |
tm-note |
Note libere (100 caratteri) | testo |
I flag sono inizializzati a "-" (non definito).
Ricerca e visualizzazione¶
In modalita' CALLED:
- I campi testata vengono precompilati e il programma salta direttamente ai campi di sicurezza (a-tm-fl-acces).
- Il record COGCESAS viene cercato per tipo + codice; se esiste, i flag vengono caricati (modalita' variazione "V"); altrimenti si passa in inserimento ("I").
In modalita' autonoma:
- L'utente puo' cercare per codice (a-tm-cod) o nome (a-tm-nome) con F8 per lista e F9 per ricerca avanzata/nuovo.
- La ricerca su COGCESAS avviene nel paragrafo b50.
Scrittura (a-90-wr / a-90-rw)¶
- Inserimento: scrive un nuovo record su COGCESAS con tutti i flag e le note. Se il collegamento cespiti-COGE e' attivo e il tipo movimento e' vendita/dismissione, genera anche il movimento di prima nota.
- Modifica: legge con lock, aggiorna i campi e riscrive.
Note tecniche¶
- Il programma gestisce anche movimenti su COGCESMO per i cespiti con collegamento alla contabilita' generale (
tm-cfg-colleg-cespiti-coge = "S"), in modo analogo a COGC52. - I 9 flag di sicurezza coprono le principali misure richieste dalla normativa sulla protezione dei dati e dei beni aziendali.
- La struttura di linkage
util-cogc68include tipo, codice, descrizione, categoria, fornitore e relativi nomi.
Documentazione tecnica aggiornata -- 2026-04-21