COGC69 - Visualizzazione/Inventario Asset-Cespiti¶

Sorgente: cbl/cogc69.cbl | Tipo: Programma con interfaccia grafica (griglia) | Program-ID: COGC69

Menu: Non presente nel menu. Richiamato da altri programmi di gestione cespiti/asset.

Scopo¶

Fornisce una vista a griglia (inventario) di tutti gli asset e cespiti registrati nel sistema. Permette di filtrare per tipologia (Asset/Cespite/Tutti), categoria, stato (Attivo/Dismesso/Tutti) e data. Dalla griglia e' possibile richiamare la gestione consegna/riconsegna (COGC66) e i dati aggiuntivi di sicurezza (COGC68) per il record selezionato.

Il programma e' di sola consultazione: la griglia non e' editabile.

Struttura del programma¶

File e tabelle utilizzati¶

File/Tabella	Tipo	Descrizione
COGTABEL (feurtab)	Input	Tabella generica (categorie cespiti, tipo 99)
COGCESAS	Input	Dati aggiuntivi cespiti/asset (tabella principale di scansione)
COGCESAN	Input	Anagrafica cespiti (lookup nome, categoria, fornitore)
COGCESCR	Input	Consegne/riconsegne cespiti (ultima consegna alla data)
COGCESMO	Input	Movimenti storici cespiti (verifica dismissione/vendita)
COGGEANA	Input	Anagrafica fornitori (lookup nome fornitore)

Copybook principali¶

Copybook	Descrizione
feurtab.fd	SELECT tabella COGTABEL
cogc69.select	SELECT generati da Screens
cogc69.fd	FD generate da Screens
cogc69.wrk	Working-storage generata da Screens
cogc69.tm	Campi modificabili della maschera (tab-maschera)
cogc69.imppredf-wrk	Working per filtri predefiniti
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
wgrid.cpy	Variabili gestione griglia
utilgdad.cpy	Utility GRIDADMN (gestione colonne griglia)
utils52.cpy	Utility COGS52 (calendario/date)
utilgcol.cpy	Utility gestione colori
utilu10.cpy	Utility COGU10W (conversione divise)
utilu20.cpy	Utility COGU20W (lookup anagrafiche)
utilcogc66.cpy	Parametri di linkage per chiamata a COGC66
utilcogc68.cpy	Parametri di linkage per chiamata a COGC68
utilncnf.cpy	Utility configurazione RNEWCONF
utilimppredf.cpy	Utility filtri predefiniti
k-u10.cpy	Costanti per U10
k-personal.cpy	Costanti personalizzazioni
cogcescr.k02	Chiave secondaria COGCESCR (tipo + codice)
cogcesmo.k02	Chiave secondaria COGCESMO (codice cespite)
cogc69-01.scr	Screen principale
cogc69.prc	Paragrafi standard I/O
cogc69.imppredf	Paragrafi filtri predefiniti
cogc69.decla	Declaratives

Chiamate a sottoprogrammi (CALL)¶

Programma	Scopo
COGU10W	Recupero divisa di conto
COGC66	Gestione consegna/riconsegna cespite (da S-F7)
COGC68	Gestione dati aggiuntivi sicurezza cespite (da S-F6)
WIN114.COB	Ricerca categorie cespiti (popup)
GRIDADMN	Gestione personalizzazione colonne griglia
W$MENU	Menu popup contestuale (right-click su griglia)

Logica di elaborazione¶

Inizializzazione (apri)¶

Inizializza il programma, verifica abilitazioni, apre i file, legge dati azienda.
Recupera la divisa di conto tramite COGU10W.
Crea il file di transito per la griglia e il menu popup contestuale.
Imposta titolo maschera "Visualizzazione/Inventario Asset-Cespiti".
Carica bitmap custom ("magazzino") e crea pulsanti custom: S-F7 (Consegna-Riconsegna) e S-F6 (Dati Aggiuntivi).
Prepara la griglia con ordinamento predefinito per tipo (asc) + codice (asc).

Filtri (a4, a-tm-tipo, a-tm-cat, a-tm-stato, a-tm-data)¶

L'utente imposta i criteri di filtro prima del caricamento:

Campo	Descrizione	Default
`tm-tipo`	Tipologia: "A" = Asset, "C" = Cespite, "T" = Tutti	T
`tm-cat`	Categoria cespiti (con F8 per ricerca WIN114)	0 (tutte)
`tm-stato`	Stato: "A" = Attivo, "D" = Dismesso, "T" = Tutti	T
`tm-data`	Data di riferimento (per consegne)	Data di sistema

Dopo F3-Conferma il programma procede al caricamento dati.

Caricamento dati (carica-dati)¶

Scansiona COGCESAS dalla chiave minima (o filtrata per tipo se diverso da "T").
Per ogni record COGCESAS:
Se tipo = "C" e filtro categoria attivo: legge COGCESAN e scarta se la categoria non corrisponde.
Se filtro stato attivo: per tipo "A" verifica csas-data-dismesso; per tipo "C" esegue controlla-cogcesmo che cerca un movimento di dismissione ("D") o vendita ("V") su COGCESMO.
Cerca l'ultima consegna valida su COGCESCR (scansione per tipo+codice, scartando cancellati e oltre la data filtro).
Compone la riga di griglia (z-grid-det-riempi-campi-t-gor):
Per tipo "C": legge nome, categoria e fornitore da COGCESAN + descrizione categoria da COGTABEL (tipo 99) + data dismissione da COGCESMO.
Per tipo "A": prende nome, categoria descrittiva, data dismesso e fornitore direttamente da COGCESAS.
In entrambi i casi: lookup nome fornitore da COGGEANA, dati consegna da COGCESCR, e copia i 9 flag di sicurezza e le note da COGCESAS.

Gestione griglia (a-grid)¶

La griglia e' in sola lettura. Funzionalita' disponibili:

Tasto	Azione
S-F7	Chiama COGC66 per consegna/riconsegna del cespite selezionato
S-F6	Chiama COGC68 per dati aggiuntivi sicurezza del cespite selezionato
S-F4	Personalizzazione colonne griglia (GRIDADMN)
S-F5	Esportazione griglia in Excel
Right-click	Menu popup contestuale
ESC	Ritorno ai filtri

Chiusura (fine)¶

Chiude i file, elimina il file di transito griglia, distrugge il menu popup e termina il programma.

Note tecniche¶

La griglia supporta ordinamento e filtri predefiniti (copybook cogc69.imppredf). L'ordinamento di default e' tipo + codice ascendente.
La costante k-max-ele-tab (900) limita il numero massimo di elementi caricabili nella griglia.
Per i cespiti (tipo "C"), lo stato attivo/dismesso viene determinato dalla presenza di un movimento "D" o "V" in COGCESMO; per gli asset (tipo "A") viene letto direttamente da csas-data-dismesso.
Le chiavi secondarie .k02 di COGCESCR e COGCESMO sono incluse manualmente nella procedure division (non generate automaticamente da Screens).
Il programma passa a COGC66 e COGC68 i dati del record selezionato tramite le strutture di linkage util-cogc66 e util-cogc68, e li cancella dalla memoria dopo il ritorno.

Documentazione tecnica aggiornata -- 2026-04-21