COGM61 - Gestione Tabelle Merci Avanzate¶

Sorgente: cbl/cogm61.cbl | Program-ID: COGM61 | Tipo: Programma interattivo (standalone)

Menu: - Magazzino > Archivi & Tabelle > Gestione Avanzata - Magazzino > Archivi & Tabelle > Taglio Lamiere

Scopo¶

Gestione delle tabelle utilizzate per la composizione del codice articolo avanzato (modulo merci avanzate, tipo EUTA 62). Ogni record di COGTABEL con euta-ptc-tip identifica una tabella; gli elementi di quella tabella sono i record con lo stesso euta-ptc-tip come prefisso. Supporta parametri avanzati: lunghezza codice, flag libera, gestione guida, creazione automatica codice, tipologia CRM.

Il programma puo' essere richiamato in modalita' called (tramite utilm61.cpy) passando direttamente il codice tabella da aprire.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	Indexed	Input	Tabella parametri / file env
COGTABEL	Indexed	I/O	Definizione tabelle e loro elementi
COGTRANS	Indexed	I/O	File temporaneo di transito (path in `w-trs-name`)

Il file COGTRANS e' creato in ext-tmp-dir con nome costruito dinamicamente da program-id e operatore (wo-oper). Viene aperto, usato e cancellato (delete cogtrans) alla chiusura del programma.

Copybook utilizzate¶

Copybook	Descrizione
`feurtab.fd`	File control FEURTAB
`cogm61.select`	SELECT per COGTABEL
`cogfiles.cpy`	FD FEURTAB
`cogm61.fd`	FD COGTABEL
`cogm61.wrk`	Working storage specifico
`k-u10.cpy` / `k-personal.cpy`	Costanti pulsanti custom
`wrk-u10.cpy`	Working storage pulsanti U10
`wgrave.cpy`	Errori gravi
`wnscr.cpy`	Utility schermo
`wopenf.cpy`	Apertura file
`wstato.cpy`	Status I/O
`cogazien.cpy`	Dati azienda
`wgrid.cpy`	Supporto griglia
`utilgdad.cpy`	Interfaccia GRIDADMN
`utils52.cpy`	Utility date
`utils65.cpy`	Utility varie
`utilu20.cpy`	Interfaccia COGU20
`utilu10.cpy`	Interfaccia COGU10
`utilw74.cpy`	Interfaccia COGW74 (ricerca tabella)
`utilcrm030.cpy`	Interfaccia CRM030
`utilcrm010.cpy`	Interfaccia CRM010
`utilcrms11.cpy`	Interfaccia CRMS11
`utilncnf.cpy`	Interfaccia RNEWCONF
`wcont.cpy`	Linkage stringhe
`utilm61.cpy`	Parametri called (codice tabella da aprire)
`wcont1.cpy`	Linkage ext
`cogm61-01.scr`	Schermo principale
`cogm61.decla`	Dichiarative I/O
`cogm61.prc`	Paragrafi I/O Screens

Logica di elaborazione¶

Flusso principale¶

Inizializzazione (apri): apertura file, lettura azienda e configurazione (x99-confi via RNEWCONF), impostazione tasti funzione. Se chiamato (w-dc-called = "S"), salta direttamente all'elaborazione con il codice tabella passato.
Selezione tabella (a-tm-cod): accept del codice tabella con ricerca tramite F8 (send-w74 → COGW74). Validazione in x-controlla-tm-cod.
Parametri testata (a-tm-des, a-tm-lib, a-tm-len, a-tm-fl-gui, a-tm-gui-des, a-tm-crea-cod, a-tm-tcl-cod):
Se tm-lib = "S", tm-len viene azzerato e nascosto
Se tm-crea-cod e' attivo, e' visibile il campo tipologia CRM (tm-tcl-cod)
La tipologia CRM e' ricercabile tramite F8 → CRM010
Elaborazione (a-elabora): legge gli elementi della tabella da COGTABEL (fill-file) e li visualizza nella griglia (vis-tabella).
Griglia elementi: gestione inserimento/modifica/eliminazione con GRIDADMN. I campi visualizzati nella griglia includono: codice (da 1 a 8 car. in base a tm-len), descrizione, descrizione breve, tabella guida, fornitore, nome fornitore, codice nominativo, link.
Sincronizzazione gruppo aziende (a-sincronizza-aziende-gruppo): attiva solo se tm-cfg-gruppo-aziende = "S" (da configurazione RNEWCONF).
Chiusura (z-chiudi): chiusura file, cancellazione COGTRANS, cancel "CRMS11", uscita programma.

Configurazione RNEWCONF¶

Il programma legge la configurazione tramite x99-confi (RNEWCONF). Le chiavi lette popolano tm-cfg:

Campo	Tipo	Descrizione
`tm-cfg-cla`	X(01)	Flag attivazione classi articoli
`tm-cfg-des`	X(01)	Flag descrizione
`tm-cfg-info-id-assoluto`	9(04)	ID info assoluto
`tm-cfg-gruppo-aziende`	X(01)	Sincronizzazione gruppo aziende
`tm-cfg-classe-raggr-sconti`	X(02)	Classe raggruppamento sconti
`tm-cfg-tab-gruppo-sconto`	X(02)	Tabella gruppo sconto
`tm-cfg-sync-gruppo-sconto`	X(01)	Sincronizza gruppo sconto

Chiamate a sottoprogrammi¶

Programma	Copybook	Contesto
GRIDADMN	`utilgdad.cpy`	Gestione griglia (Add-Record, Modify-Record, amministrazione, esporta Excel)
CRM010	`utilcrm010.cpy`	Ricerca tipologia CRM (F8 su campo tm-tcl-cod)
CRMS11	`utilcrms11.cpy`	Gestione CRM, richiamate in piu' punti durante la gestione degli elementi
CRM030	`utilcrm030.cpy`	Sincronizzazione CRM
COGS65W	`utils65.cpy`	Utility (paragrafo `send-s65`)
RNEWCONF	`utilncnf.cpy`	Lettura configurazioni (`x99-confi`)

Documentazione tecnica -- 2026-04-07