Vai al contenuto

COGB67 -- Tipi Area (Modula)

Sorgente: cbl/cogb67.cbl | Tipo: Programma gestione tabella con griglia | Program-ID: COGB67

Menu: - Magazzino > Modula > Tabelle > Tipi Area

Scopo

Gestione CRUD della tabella Tipi Area Modula (tipo "TA" su COGTABEL). Supporta due modalita': Aggiornamento (A) e Selezione (S). Quando richiamato da un altro programma (called), parte in modalita' selezione con possibilita' di passare ad aggiornamento tramite F3.

File e tabelle

File/Tabella Tipo Modalita' Descrizione
COGTABEL Indicizzato I-O Tabella generica, tipo "TA" per tipi area
T-GRID-DET Transito I-O File temporaneo per griglia
FEURTAB Indicizzato I-O File configurazioni generali

Programmi chiamati

Programma Scopo
GRIDADMN Gestione griglia (preparazione, personalizzazione, aggiornamento record)
RNEWCONF Lettura configurazioni (implicito nelle copy)

Copybook principali

  • cogb67.select, cogb67.fd, cogb67.wrk, cogb67.prc -- screen-generated
  • cogb67.imppredf-wrk, cogb67.imppredf -- filtro predefinito
  • wgrid.cpy -- gestione griglia
  • utilgdad.cpy -- interfaccia GRIDADMN
  • utilimppredf.cpy -- impostazione filtri predefiniti
  • utilcogb67.cpy -- linkage per modalita' called
  • cogazien.cpy -- dati azienda

Struttura del programma

Flusso principale

  1. apri: inizializzazione, apertura file, determinazione modalita' (A/S in base a called)
  2. a4: inizializzazione maschera, impostazione ordinamento predefinito, caricamento filtro default
  3. a-leggi-dati: apertura file transito, creazione dati transito da COGTABEL tipo "TA", riordinamento
  4. a-grid-ini / a-grid: ciclo di accept sulla griglia con gestione tasti funzione
  5. b-aggiorna: scansione file transito e aggiornamento COGTABEL (write/rewrite/delete)
  6. fine / z-chiudi: chiusura file, eliminazione transito, uscita

Logica di aggiornamento

  • z-grid-det-crea-transito: legge COGTABEL con tipo "TA" e popola il file di transito
  • b-aggiorna: scorre il transito; se riga cancellata (cod vuoto con prog > 0) chiama c-cancella-record; se riga modificata chiama b-aggiorna-record
  • b-aggiorna-record: read + rewrite su COGTABEL; se record non esiste lo crea con write
  • c-cancella-record: read + delete su COGTABEL usando cod-prec (codice originale)

Controlli

  • x-controlla-tm-r-cod: codice obbligatorio; verifica unicita' in inserimento
  • x-controlla-tm-r-des: descrizione obbligatoria se codice presente
  • x-controlla-tm-r-prio: priorita' univoca (scansione transito per duplicati)

Documentazione tecnica -- 2026-04-29