COGF73 -- Ritardi di Consegna¶

Sorgente: cbl/cogf73.cbl | Tipo: Programma visualizzazione/stampa con griglia paginata | Program-ID: cogf73

Menu: Vendite > Stampe

Scopo¶

Analisi dei ritardi di consegna sugli ordini di vendita. Confronta le date delle bolle di spedizione (uscita) con le date di consegna previste/confermate, calcolando i giorni di ritardo. Presenta i risultati in griglia paginata con possibilita' di stampa e drill-down sulla bolla.

File e tabelle¶

File/Tabella	Tipo	Descrizione
FEURTAB	Input	Tabella generale
COGTESBO	Input	Testata bolle (scansione per data, chiave chia2)
COGMOMAG	Input	Movimenti di magazzino (righe bolla)
COGTABEL	Input	Tabelle generiche (causali, tipo 15)
COGRACCO	Input	Raccordi bolla-fattura (chiave chia2)
COGTRANS	I/O	File di transito temporaneo (indicizzato)
FLSTA	Output	File stampa
File da cogf73.select	Vari	File dichiarati dalla screen

Copybook principali¶

Copybook	Sezione	Descrizione
cogf73.select	FILE-CONTROL	SELECT dei file
cogf73.fd	FILE SECTION	FD dei file
cogf73.wrk	WORKING-STORAGE	Variabili di lavoro
cogf73-01.scr	SCREEN SECTION	Definizione maschera
cogf73.decla	PROCEDURE	Declaratives
cogf73.prc	PROCEDURE	Procedure generate da Screens
wgrid.cpy	WORKING-STORAGE	Gestione griglia paginata
utilgdad.cpy	WORKING-STORAGE	Utility griglia
utils52.cpy	WORKING-STORAGE	Utility data
utils54.cpy	WORKING-STORAGE	Utility stampa (COGS54)
utils68.cpy	WORKING-STORAGE	Utility selezione merce
utils20.cpy	WORKING-STORAGE	Utility S20
utile35.cpy	WORKING-STORAGE	Utility selezione agenti
utilu09.cpy	WORKING-STORAGE	Utility consegne (COGU09)
utilu10.cpy	WORKING-STORAGE	Utility divise

Struttura del programma¶

main section
  apri                    -- inizializzazione
  a4                      -- reset maschera, apertura cogtrans
  a-tm-datain             -- accept data inizio
  a-tm-datafi             -- accept data fine
  a-tm-tip-ord            -- accept tipo ordini
  a-tm-fl-confronto       -- accept criterio confronto date
  a-tm-gg-min             -- accept giorni minimi di ritardo
  a-tm-fl-bo              -- accept filtro back order
  a-richiesta-conferma    -- validazione e conferma
  a-ricerca (x1-00..x1-99) -- elaborazione: scansione bolle e calcolo ritardi
  a-grid-ini / a-grid     -- visualizzazione griglia paginata
  stampa..ex-stampa       -- stampa su FLSTA
  fine / z-chiudi         -- chiusura

Logica di elaborazione¶

Parametri di selezione¶

Periodo: data inizio (tm-datain) e fine (tm-datafi).
Tipo ordini: ordini vendita (V) o altro, tramite combo.
Criterio confronto: data prevista (P) o confermata.
Soglia ritardo: numero minimo di giorni (tm-gg-min), obbligatorio.
Back order: filtro inclusione/esclusione back order (tm-fl-bo).

Elaborazione (a-ricerca)¶

Scansione di COGTESBO per data (chia2) nel range specificato.
Filtro su tipo bolla: solo I, D, B.
Verifica causale: solo causali con euta-cb-cli-for = "C" (uscita verso cliente).
Lettura raccordo COGRACCO per verificare legame fattura.
Per ogni riga di magazzino (COGMOMAG) della bolla:
Lettura dell'ordine e della consegna collegati.
Calcolo della data di consegna tramite CALL a DTPRG per calcolo giorni tra le date.
Se il ritardo supera la soglia tm-gg-min, la riga viene scritta sul file di transito COGTRANS.
Lettura COGGEANA per la ragione sociale del cliente.

Record di transito (COGTRANS)¶

Chiave: trs-data-doc + trs-mag + trs-anno + trs-tipo + trs-numero. Contiene: fattura collegata, ordine, consegna, data consegna, flag B.O., giorni di ritardo, cliente.

Griglia paginata¶

La griglia mostra: rif. fattura, rif. bolla, data bolla, rif. ordine, rif. consegna, data consegna, B.O., ritardo, cliente.

Stampa¶

Formato 132 colonne con testata (periodo, soglia ritardo), righe dettaglio per ogni consegna in ritardo. Il layout include: fornitore, rif. fattura, rif. bolla, data bolla, rif. ordine, rif. consegna, data consegna, B.O., ritardo.

CALL a programmi esterni¶

Programma	Scopo
DTPRG	Calcolo differenza giorni tra date
COGS52	Input/output date
COGS54	Gestione stampa
COGU09	Ricerca consegne
COGU10W	Gestione divise
GRIDADMN	Gestione griglia
AZVALIDA.COB	Validazione date