COGP67 - Ritardi di consegna¶

Intestazione¶

Campo	Valore
Programma	COGP67
Titolo	Visualizzazione ritardi di consegna (fornitori/clienti)
Modulo	Magazzino / Ordini
Tipologia	Programma interattivo a griglia
Posizione menu	Magazzino > Entrate > Visualizzazioni > Ritardi su arrivo ; Magazzino > Uscite > Visualizzazioni > Ritardi di consegna ; Ordini > Clienti > Visualizzazioni > Ritardi di consegna ; Ordini > Fornitori > Visualizzazioni > Ritardi di consegna

Scopo¶

Visualizza in griglia le righe di consegna che hanno la data prevista anteriore alla data di sistema (o alla data di consegna effettiva, se gia' avvenuta), evidenziando i giorni di ritardo. Lo stesso programma copre sia il punto di vista fornitore (ritardi sull'arrivo della merce) sia quello cliente (ritardi sulla consegna ai clienti) attraverso il filtro tipo anagrafico.

I dati elaborati vengono materializzati in un file di transito (cogtrans) indicizzato per chiave primaria.

Filtri (testata)¶

Campo	Variabile	Tipo	Descrizione
Tipo anagrafica	`tm-ana-tip`	x(1)	F=fornitore, C=cliente
Da/A codice	`tm-for-da`, `tm-for-a`	9(5)	Intervallo codici anagrafica
Da data	`tm-da-data` (`aaaa/mm/gg`)	9(8)	Default: 1 gennaio anno corrente
A data	`tm-a-data`	9(8)	Default: data odierna

Colonne griglia¶

Colonna (label)	Variabile transito	Descrizione
Tipo	`tm-r-ana-tip`	F/C
Codice	`tm-r-ana-cod`	Codice fornitore/cliente
Ragione sociale	`tm-r-ana-des`	Descrizione anagrafica
Merce	`tm-r-merce`	Codice merce (gru+sot+cod)
Qta	`tm-r-qta`	Quantita' della consegna
Data richiesta	`tm-r-data-ric`	Data prevista di consegna
Data consegna	`tm-r-data-cns`	Data effettiva (se avvenuta)
Diff. giorni	`tm-r-diff`	Differenza in giorni (positiva = ritardo)
Ordine	`tm-r-ordine` (tip+ann+num+pro)	Riferimento ordine
Documento	`tm-r-documento` (mag+ann+tip+num)	Documento di consegna (se emesso)

La griglia e' costruita su una tabella in-memory tm-tab di massimo 900 elementi (k-max-ele-tab).

File acceduti¶

File	Copybook	Modalita'	Uso
FEURTAB	`cogfiles.cpy`	Input	Nomi fisici file gestionale
COGCONOR	(via `cogconor.k04`)	Input	Consegne ordini (chiave 4 per scan per data)
COGTRANS (transito)	locale	I-O dinamico	File temporaneo per griglia (`trs-rec` con chiave 1 ordine+consegna+documento)

Programmi chiamati¶

Programma	Scopo
COGS65W	Lookup cliente/fornitore (F9 sui campi codice)
COGU09	Utility (calcolo intervalli/totali)
DTPRG	Conversione data progressivo (utility AcuCOBOL)
GRIDADMN	Gestione griglia (S-F4 layout, S-F5 export)

Copybook inclusi¶

Screen Designer¶

cogp67.select, cogp67.fd, cogp67.wrk, cogp67.prc, cogp67.decla, cogp67-01.scr

Gestionale¶

Copybook	Scopo
`feurtab.fd`, `cogfiles.cpy`	Tabella nomi file
`cogazien.cpy`	Dati azienda

Utility / interfacce¶

Copybook	Scopo
`utils52.cpy`	Utility date
`utils65.cpy`	COGS65W (lookup anagrafica)
`utilu09.cpy`	COGU09
`utilgdad.cpy`	GRIDADMN
`wgrid.cpy`	Working griglia
`wopenf.cpy`, `wnscr.cpy`, `wgrave.cpy`, `wstato.cpy`	Working storage standard
`wcont.cpy`, `wcont1.cpy`	Linkage

Routine standard¶

stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, mmmask.cpy, opengen.cpy, dtab.cpy, fscrol2.cpy

Chiavi secondarie¶

cogconor.k04, cogtrans.k01

Logica di elaborazione¶

Inizializzazione: apertura file, calcolo datasis, valori default per data da/a (anno corrente).
Conferma filtri (F3): validazione anagrafica codici e date, lookup descrizioni fornitore/cliente.
Scan COGCONOR per chiave 4 (data richiesta):
posizionamento alla data inizio
lettura sequenziale fino alla data fine
per ogni riga consegna calcola la differenza giorni tra data-ric e (data-cns se presente, altrimenti datasis)
se la differenza e' positiva, costruisce il record trs-rec e lo scrive su cogtrans
Visualizzazione griglia: la griglia legge da cogtrans, ordinabile per le colonne disponibili.
Funzioni griglia: ESC torna ai filtri; S-F4/S-F5 standard GRIDADMN.

Tasti funzione¶

Tasto	Funzione
F3	Conferma filtri e avvia l'elaborazione
F8	Calendario sui campi data
F9	Ricerca anagrafica (COGS65W)
S-F4	GRIDADMN (layout colonne)
S-F5	Esportazione Excel
ESC	Indietro

Note tecniche¶

Il limite di 900 elementi e' definito dalla costante k-max-ele-tab. Per intervalli molto ampi puo' essere necessario restringere il periodo o l'intervallo codici.
Il file cogtrans ha visibilita' utente: due operatori che lanciano contemporaneamente l'analisi non si influenzano (il nome viene risolto sulla path dell'utente).
Il calcolo di trs-diff usa DTPRG per la conversione data->progressivo Gregoriano e la differenza viene espressa in giorni interi.