Vai al contenuto

COGB72 - Gestione Movimenti Budget Centri di Costo

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

Menu: non ancora collegato a una voce di menu in prog.txt

Scopo

Gestisce i movimenti budget sui centri di costo, classificati per codice budget (vedi COGB71) e centro di costo a 3 livelli. Per ciascun movimento sono registrati: merce/gruppo merceologico, data inizio, cliente o fornitore, ore, importo, commessa, flag di fatturazione e di cancellazione, oltre alle informazioni di audit (operatore/programma/data/ora di inserimento e ultima modifica).

L'archivio COGMOVBU e' il file numero 398 nella tabella archivi primari (vedi COGE01 e COGE03).

Tabelle e file principali

Tabella/File Prefisso Accesso Descrizione
COGMOVBU mobu- R / W / D / RWR Movimenti budget centri di costo (chiave primaria: cod-budget + prog)
COGTABEL (tipi tipati) euta- R Lookup codici budget (TP), centri di costo (CC), e altri tipi
t-grid-det (transito) t-gor-r- I/O Tabella di transito per griglia interattiva

Schema record cogmovbu (riassunto)

Campo Tipo Significato
mobu-cod-budget x(10) Codice budget (FK verso COGTABEL tipo "TP")
mobu-prog 9(12) Progressivo del movimento all'interno del codice budget
mobu-cco-liv1/2/3 9(02)/9(02)/9(05) Centro di costo a 3 livelli
mobu-merce gru+sot+cod (x(2)+x(2)+9(5)) Merce o gruppo merceologico
mobu-data-ini 9(8) yyyymmdd Data inizio movimento
mobu-cli tip x(1) + cod 9(5) Cliente associato
mobu-for tip x(1) + cod 9(5) Fornitore associato
mobu-note x(80) Note libere
mobu-ore 9(4)v99 Ore
mobu-importo 9(12)v999999 Importo
mobu-commessa x(10) Commessa di riferimento
mobu-fl-fatt x(1) "S" se fatturato
mobu-fl-canc x(1) "C" se cancellato
mobu-dati-ins / mobu-dati-agg gruppo Audit (operatore/programma/data/ora)

Copybook e linkage

Elemento Ruolo
cogb72.select/.fd/.wrk/.prc/.tm/.scr Definizioni Screens 2.13.x
cogb72.imppredf-wrk Working aggiuntivo per import/export massivo
cogmovbu.fd/.k01/.cpy FD e chiave primaria archivio movimenti
cogmovbu-util-wrk.cpy / cogmovbu-util-prc.cpy Routine standard di accesso (rd/wr/rwr/del/st/rdnxt)
utilcogb71.cpy Linkage per chiamare COGB71 in aiuto codice budget
utilcogb72.cpy Linkage subroutine (caller + codice + progressivo)
utilgcol.cpy Gestione colonna cliente/fornitore
utils52.cpy, utils65.cpy, utils68.cpy Calendario, selezione anagrafica, lookup merce
utilk72.cpy, utilu10.cpy, utilu20.cpy, utilu35w.cpy Utility comuni (causali, conversioni, navigazione)
utilimppredf.cpy, utilncnf.cpy Import/export config + RNEWCONF

CALL principali

Programma Quando Scopo
COGB71 F8 su campo Codice Budget Apertura tabella codici budget in aiuto (modalita' selezione)
COGU10W All'inizio Conversione/arrotondamento valute
COGS52 (via utils52) Su campo data Calendario
COGS65W (via utils65) Su campo cliente/fornitore Selezione anagrafica
COGS68 (via utils68) Su campo merce Lookup merce
GRIDADMN Tutta la sessione Gestione griglia interattiva

Logica principale

  1. Apertura (linea ~108): inizializzazione standard, apertura file di transito griglia (z-grid-det-apri-transito, z-grid-det-crea-transito-init/fine).
  2. Selezione codice budget: chiave di accesso ai movimenti. x-aiuto-tm-cod-bud (linea ~263) chiama COGB71 in modalita' aiuto e ne riceve cogb71-out-cod/cogb71-out-des.
  3. Caricamento griglia: lettura sequenziale di COGMOVBU filtrata per mobu-cod-budget = tm-cod-bud; per ogni record valorizza la riga di griglia (t-gor-r-*).
  4. Modifica/inserimento riga: tasti standard griglia (z-99-exception-form). I controlli di campo si appoggiano alle routine x-controlla-tm-*.
  5. Cancellazione (linee ~720-770): per ogni riga marcata, lettura rd-cogmovbu -> imposta mobu-fl-canc = "C" e rwr-cogmovbu (soft delete).
  6. Aggiornamento/inserimento (linee ~740-770): valorizza i campi del record dalle colonne di transito (t-gor-r-* → mobu-*), gestisce tipo cliente/fornitore ("C"/"F"), date, note, importi, commessa.

Storico modifiche

Data Descrizione
2026-05-21 Nuovo programma. Sorgente generato con Screens 2.13.x. Programma non ancora referenziato in prog.txt: verra' collegato al menu al rilascio della funzionalita' budget centri di costo. Archivio COGMOVBU registrato come file 398 in COGE01/COGE03.

Documentazione tecnica generata il 2026-05-21.