COGG4D -- Disponibilita' fabbisogni per commessa¶

Sorgente: cbl/cogg4d.cbl | Tipo: Programma interattivo GUI (maschera + griglia paginata), anche modalita' "called"/"elaborazione" | Program-ID: COGG4D

Menu:

Vendite > Commesse > Visualizzazioni > Disponibilita' fabbisogni

Scopo¶

Visualizza, per una commessa, la disponibilita' dei fabbisogni articolo per articolo: quantita' richiesta, a cantiere, non evasa, giacenza, impegnata, ordinato fornitore, non consegnata, prenotata su commessa, prevista (da preventivo), prenotata totale, distinta, prezzo ultimo acquisto (PUA) e data, valore cantiere, note ordine. Costruisce un file di transito temporaneo t-cogg4d, lo alimenta da piu' fonti e lo mostra in griglia paginata. Puo' essere lanciato con ope="GESTIONE" (interattivo) o ope="ELABORAZIONE" (crea solo il transito e ritorna il nome file al chiamante). Alla fine restringe il transito ai soli articoli di classe merce "M".

File e tabelle¶

Tabella	Chiave	Ruolo/campi
t-cogg4d (`tg4-`)	chiave2 `tg4-chia2`	Transito fabbisogni: `tg4-merce`, `tg4-com-qta-` (richiesta/cantiere/non-evasa/non-cons/preno-com), `tg4-mag-qta-` (giacenza/impegnata/ord-for/prev/preno-tot), `tg4-dst-qta`, `tg4-note-ordine`
t-cogr32 (`t-cogr32-`)	chiave2	Transito saldi da COGR32 (giacenza per cantiere), layout `cogtrans.k01` via `replacing leading`
COGTESCM (`tsc-`)	`tsc-cod`	Testata commessa
COGRIGCM (`rgc-`)	`rgc-tsc`	Righe commessa (`rgc-tip` OR)
COGRIGOR (`ror-`)	`ror-chia1`	Righe ordine (cli/for): `ror-qtaord`, `ror-qtacons`
COGCONOR (`cor-`)	chiave5	Consegne collegate a riga ordine
COGRIGBP/COGTESBP (`rbp-`/`tbp-`)	chiave4	Buoni di prelievo aperti (`tbp-fl-cls`<>"C") -> preno-com
COGSLMAG (`msal-`)	`msal-merce`+`msal-mag1`	Saldi magazzino
COGTESPR/COGRIGPR (`tpr-`/`rpr-`)		Preventivo (TP) -> qta prevista
COGMERCI (`mer-`)	`mer-chia`	Anagrafica (`mer-um`, `mer-classe`, filtro "M")
COGRACMC (`rcm-`)	chiave2	Raggruppamento merceologico (ordinamento avanzato se `az-mer-ava="S"`)
COGDESOR (`dor-`)		Descrizioni riga ordine (note)
ASNMATRI/ASNMTRDB (`amtr-`/`amdb-`)	chiave2	Distinta base matricola (se `az-assist="S"`) -> dst-qta
FEURTAB		Parametri azienda

Copybook principali¶

Working: k-personal, k-u10, wgrave/wnscr/wopenf/wstato/cogazien, wgrid.cpy, utilgdad.cpy. Utility: utilf59, utilncnf, utils65/s66/s68, utilu10/u20/u16/u23/u35w, utilw113, utilcogl61, utilcogw54, utilgesstr. Linkage: wcont, utilv43, utilr32, utilcogm67, utilcogg4d.cpy (ingresso: cogg4d-called/-caller/-commessa/-ope/-file/-escludi-chiu-cantiere). Chiavi secondarie manuali: cogconor.k05, cogrigbp.k04, cogracmc.k02, asnmatri.k02, t-cogg4d.k01/.k02; cogtrans.k01 con replacing per t-cogr32. Screen Designer generati: cogg4d.select/.fd/.wrk/.prc/.decla, cogg4d-01.scr.

Chiamate ad altri programmi¶

COGR32 (giacenza per cantiere -> transito t-cogr32), COGL61 (prezzo/costo articolo alla data -> PUA), COGU10W (divise/edit importi), COGV43 (F8: giacenze articolo), COGM67 (S-F8: dettaglio prenotato), GESSTR (note ordine), GRIDADMN (griglia), COGU35W (campo commessa con aiuto).

Flusso / Paragrafi principali¶

apri: init, tasti (F3 conferma, F7 ordinato, F8 aiuto/movimenti, S-F4 griglia, S-F5 export Excel, S-F8 dettaglio prenotato), GetDivisaConto, x99-confi. Se called: valida commessa (rd-cogtescm), valida ope; se ELABORAZIONE salta a a-inizio-grid.
a-tm-tsc-cod: accept commessa (con call-u35).
a-inizio-grid: compone w-tg4-name (#$trscogg4d.<oper>), apre t-cogg4d (stato 93 -> "Funzione gia' in uso"), esegue scrivi-t-cogg4d; in ELABORAZIONE ritorna cogg4d-file e chiude.
scrivi-t-cogg4d: giacenza-cantiere (COGR32), ordinato-clifor (qta richiesta/non evasa/non consegnata, prenotato da buoni aperti, note), saldi-magazzino (COGSLMAG), d-analisi-preventivo (qta prevista), se az-assist="S" x-distinta (ASNMATRI/ASNMTRDB), infine m-elimina-prestazioni (tiene solo mer-classe="M").
a-grid-ini/a-grid: griglia paginata (z-99-accept-paged-grid); F8 COGV43, S-F8 COGM67.
fine/z-chiudi: ritorna w-tg4-name in cogg4d-file, cancella COGU35W.

Configurazioni¶

Il paragrafo x99-confi e' presente ma non legge chiavi RNEWCONF (utilncnf.cpy incluso ma non usato per config in questo modulo).

Note¶

Modalita' "called" via utilcogg4d.cpy: ope="ELABORAZIONE" produce solo il transito e restituisce il nome file (cogg4d-file) senza interazione; ope="GESTIONE" apre la griglia.
cogg4d-escludi-chiu-cantiere propagato a COGR32 per escludere dal saldo commessa i movimenti di scarico cantiere per chiusura.
Il transito t-cogr32 riusa il layout cogtrans.k01 via replacing leading.