COGD84 -- Partite Cauzioni¶

Sorgente: cbl/cogd84.cbl | Tipo: Programma interattivo GUI con griglia paginata | Program-ID: COGD84

Menu:

Magazzino > Posizioni CA/RMA > Partite Cauzioni

Scopo¶

Visualizzazione e gestione delle partite cauzioni. Consente di interrogare, inserire, modificare e cancellare i lati delle partite cauzione (posizioni di materiale in comodato/deposito). Supporta modalita' standalone e modalita' "called" (richiamato da altri programmi con filtri preimpostati via util-d84).

File e Tabelle¶

File/Tabella	Copybook	Uso
FEURTAB	cogfiles.cpy	Input -- Tabella path file
COGPCAUZ	cogd84.fd / cogd84.prc	I-O -- Partite cauzioni (tabella principale)
D-COGPCAUZ	cogpcauz.cpy (replacing d-pcau-)	Input -- Seconda apertura COGPCAUZ per letture incrociate
COGTESBO	cogd84.fd / cogd84.prc	Input -- Testate bolle (per autodeterminazione tipo documento)
COGRACMC	cogd84.fd / cogd84.prc	Input -- Raccordo codice merce
COGMATRI	cogd84.fd / cogd84.prc + cogmatri.k04	Input -- Matrice articoli
COGRACCO	cogd84.fd / cogd84.prc + cogracco.k02	Input -- Raccordo codice anagrafica

Chiavi di accesso a COGPCAUZ¶

Chiave	Copybook	Composizione	Uso sel-key
k01 (primaria)	cogd84.prc	chia1 (partita + lato)	0, 1
k02	cogpcauz.k02	rif + chia1	2
k03	cogpcauz.k03	merce + stato + chia1	3
k04	cogpcauz.k04	stato + chia1	4
k05	cogpcauz.k05	l-data-scad + stato + chia1	5
k06	cogpcauz.k06	l-ana + stato + chia1	6
k07	cogpcauz.k07	la-doc + chia1	7 (doc apertura)
k08	cogpcauz.k08	lc-doc + chia1	8 (doc chiusura)

Programmi chiamati¶

Programma	Scopo
GRIDADMN	Gestione griglia: preparazione colonne, aggiunta record, personalizzazione (Shift+F4)
COGU69	Gestione partita cauzione: update stato, cancellazione lato
COGU10W	Utility importi (formattazione/editing con gestione divisa)
COGU20W	Utility U20
COGS65W	Ricerca anagrafica con autocompletamento
COGS68	Ricerca merce con autocompletamento
COGS88	Validazione causale bolla (per autodeterminazione tipo doc)
COGS01F	Utility S01F
RNEWCONF	Caricamento configurazioni

Copybook principali¶

cogd84.select, .fd, .wrk, .prc -- Definizioni Screens
cogd84-01.scr -- Screen section
cogd84.decla -- Declaratives I/O
cogpcauz.cpy -- Record partita cauzione (campi pcau-*)
k-pcau.cpy -- Costanti partita cauzione (tipi lato, tipo documento, ecc.)
k-u10.cpy -- Costanti COGU10W
cogfiles.cpy, cogazien.cpy -- Dati generali e azienda
wgrid.cpy -- Supporto griglia
utilgdad.cpy -- Interfaccia GRIDADMN
utilncnf.cpy -- Interfaccia RNEWCONF
utild84.cpy -- Area scambio dati per modalita' called (linkage)
utils01.cpy, utils01f.cpy -- Linkage S01
utils52.cpy -- Gestione date (COGS52W)
utils65.cpy -- Ricerca anagrafica (COGS65W)
utils68.cpy -- Ricerca merce (COGS68)
utils88.cpy -- Validazione causale (COGS88)
utilu07.cpy, utilu09.cpy, utilu10.cpy, utilu20.cpy -- Utility varie
utilu69.cpy -- Interfaccia COGU69
utilw36.cpy -- Ricerca magazzino
utilpggr.cpy, fscrol2.cpy -- Paginazione griglia
sendw36.cpy -- Invio ricerca magazzino
dtab.cpy -- Utility tabelle dati
cogmatri.k04 -- Chiave k04 matrice articoli
cogracco.k02 -- Chiave k02 raccordo codici

Logica di Elaborazione¶

Configurazione (x99-config)¶

Legge da RNEWCONF (pacchetto "C"):

Chiave	Gruppo	Variabile	Descrizione
`attiva-partite-magazzino`	`cauzioni`	`tm-cfg-ges-cau-mag`	Flag attivazione partite magazzino
`gg-scad-part-mag-cli`	`cauzioni`	`tm-cfg-gg-scad-part-mag-cli`	Giorni scadenza partite magazzino clienti
`gg-scad-part-mag-for`	`cauzioni`	`tm-cfg-gg-scad-part-mag-for`	Giorni scadenza partite magazzino fornitori

Modalita' operative¶

Modalita'	Variabile	Comportamento
Selezione (`"S"`)	`a-modalita`	Invio sulla griglia restituisce la chiave in `w-dc-out-key`
Modifica (`"M"`)	`a-modalita`	Invio apre il dettaglio riga, Ctrl+A aggiunge, Ctrl+E elimina

F3 alterna tra le due modalita'.

Modalita' called¶

Se richiamato con d84-called = k-program-id, i parametri di filtro vengono caricati da util-d84 in w-dc-ricerca -> tm-ricerca. Il tipo partita viene preimpostato a cauzione. Se tm-ric-tipo-doc = "?", il programma autodetermina il tipo documento tramite lettura COGTESBO e validazione causale via COGS88.

Flusso filtri¶

Sequenza accept dei campi filtro:

a-tm-ric-par-ann -> a-tm-ric-par-num -> a-tm-ric-rif-cod -> a-tm-ric-rif-fl-simile -> a-tm-ric-tipo-stato -> a-tm-ric-l-data-scad -> a-tm-ric-merce -> a-tm-ric-tipo-doc -> a-tm-ric-chia-doc -> a-tm-ric-l-tipo-ana -> a-tm-ric-l-ana-cod -> a-tm-ric-la-fat-tip -> a-tm-ric-la-fat-ann -> a-tm-ric-la-fat-num -> ... -> a-richiesta-conferma

Selezione chiave (select-key)¶

Il programma sceglie la chiave di accesso ottimale in base ai filtri compilati, con priorita':

Partita completa (tipo+anno+numero) -> k01 (sel-key "1")
Riferimento (tipo+codice) -> k02 (sel-key "2")
Merce -> k03 (sel-key "3")
Data scadenza -> k05 (sel-key "5")
Anagrafica (tipo+codice) -> k06 (sel-key "6")
Tipo documento Apertura -> k07 (sel-key "7")
Tipo documento Chiusura -> k08 (sel-key "8")
Solo stato -> k04 (sel-key "4")
Nessun filtro -> k01 (sel-key "0")

Griglia paginata¶

La griglia supporta fino a 900 righe (k-max-ele-tab), con paginazione tramite utilpggr.cpy e fscrol2.cpy. Ogni riga della griglia (grid-record) contiene i dati del lato partita piu' i dati dell'eventuale lato contrapposto (prefisso grd-a-).

I lati della partita vengono decodificati come: Mag.Cliente, Mag.Fornit., Cont.Clien., Cont.Forn. (costanti k-pcau-lato-*).

Dettaglio riga (a-riga-dettaglio)¶

In variazione (a-operazione = "M"): legge il record COGPCAUZ per chiave, abilita i campi di dettaglio. In inserimento (a-operazione = "I"): inizializza una nuova riga.

Ogni modifica di stato viene uniformata su tutti i lati della partita tramite z-rendi-omogeneo-stato-partita, che chiama COGU69 con operazione "update" e flag u69-i-fl-update-stato.

Cancellazione (Ctrl+E)¶

Chiede conferma, poi chiama z-call-u69-delete che invoca COGU69 con operazione "delete" passando la chiave tm-r-key (z).

Documentazione tecnica -- 2026-04-28