Vai al contenuto

COGMAK - Raggruppamenti Gerarchici

Sorgente: cbl/cogmak.cbl | Tipo: Programma a menu (anche richiamabile via call) | Program-ID: COGMAK

Menu: Magazzino > Archivi & Tabelle > Tabelle > Gruppi/raggruppamenti > Raggruppamenti gerarchici

Scopo

Gestisce la tabella COGRAGGR (raggruppamenti gerarchici) tramite griglia: inserimento, modifica, cancellazione di codici classe con descrizione, livello applicativo e codice host. Funziona in due modalita':

  • Aggiornamento (a-modalita = "A"): default da menu, permette tutte le operazioni
  • Selezione (a-modalita = "S"): attivata quando il programma e' chiamato da un altro tramite la coppia cogmak-called / cogmak-caller in linkage

File e Tabelle

File/Tabella Uso
FEURTAB Parametri generali
COGRAGGR Tabella raggruppamenti gerarchici (lettura/scrittura)

Copybook principali

  • File: feurtab.fd, copy da cogmak.select e cogmak.fd
  • Record: cogfiles.cpy, copy interna cogmak.fd per trgr-rec
  • Working: cogmak.wrk, wgrid.cpy, utilcogmal.cpy, utilgdad.cpy
  • Linkage: wcont.cpy, wcont1.cpy, utilcogmak.cpy (parametri chiamata)
  • Standard: wgrave, wnscr, wopenf, wstato, cogazien

Costanti significative

  • k-max-ele-tab = 500: numero massimo righe in griglia

Struttura dati

Record TRGR (COGRAGGR)

Campo Descrizione
trgr-classe Codice classe
trgr-des Descrizione
trgr-applicata-a Livello applicativo
trgr-codice-host Codice esterno

Linkage util-cogmak

  • cogmak-called / cogmak-caller: discriminano la modalita' di chiamata
  • Se cogmak-called = k-program-id e cogmak-caller non spaces, attiva modalita' Selezione

Logica di elaborazione

  1. Apertura (apri): apertura file, lettura azienda, init w-dati-called. Se chiamato da altro programma, imposta w-dc-called = "S" e modalita' Selezione.
  2. Caricamento griglia (a4+a10-loop): scansione COGRAGGR con st-cograggr-notmin e rdnxt-cograggr; popolamento tm-tab con max 500 elementi.
  3. Modalita' Aggiornamento:
  4. Inserimento/modifica/cancellazione tramite griglia
  5. F3: salvataggio (rewrite/write/delete su COGRAGGR)
  6. Modalita' Selezione:
  7. F3 = passa da Selezione ad Aggiornamento
  8. Doppio click o Invio = restituisce il codice selezionato al chiamante (ritorno tramite linkage)
  9. Funzioni accessorie:
  10. F5: dettaglio riga (apre maschera dettaglio per modifica puntuale)
  11. Shift+F4: chiamata GRIDADMN per esportazione/configurazione griglia
  12. Uscita: gestione fl-esc-agg per richiedere conferma in caso di modifiche non salvate.

Programmi chiamati

  • GRIDADMN — gestione amministrativa griglia (esportazione, layout)

Note

  • Il programma gestisce due ruoli (gestione standalone e widget di selezione) tramite la stessa interfaccia di griglia.
  • Le abilitazioni vengono controllate tramite ctr-abil e i flag w-abi-ins / w-abi-agg.
  • Pattern misto griglia + dettaglio: la modifica puo' avvenire direttamente in griglia o tramite finestra di dettaglio (F5).