COGI29 - Visualizza/Stampa Colture¶

Sorgente: cbl/cogi29.cbl | Tipo: Programma a menu | Program-ID: COGI29

Menu: Magazzino > Colture > Visualizza/Stampa > Colture

Scopo¶

Visualizza e stampa l'elenco delle colture (commesse) con le ore lavorate nel periodo selezionato, raggruppate per attivita'. Costruisce un work-file di transito e ne mostra il contenuto in griglia; con F9 produce la stampa.

File e Tabelle¶

File/Tabella	Uso
FEURTAB	Parametri generali
CICTABEL	Tabelle base Colture
CICLAVOR	Lavorazioni
CICBASTE / CICBASRI	Movimenti ore (testata e righe)
CICGIORN	Calendario
WORK-FILE	File transito indicizzato

Programmi chiamati¶

COGS52 (input data)

Copybook principali¶

Stesso set di COGI28; WSTATO, WGRAVE, WOPENF, WNSCR, COGAZIEN.

Logica di elaborazione¶

Apertura e parametri: apertura file, lettura rd-azi, preparazione mask. Variabile w-tipo = '4' per filtrare le colture (titolo "Elenco Colture").
Input periodo: accept di tm-data-da e tm-data-a tramite COGS52.
Costruzione work-file: scansione CICBASRI con filtro cic-bri-tipo = w-tipo; per ogni coltura viene aggregato il totale ore.
Visualizzazione griglia: scorrimento del work-file con display delle ore per coltura.
Stampa F9 (st-stampa): output cartaceo con intestazione e righe.

Note¶

Programma gemello di COGI28 (macchine) e COGI53 (risorse): la differenza e' il valore di w-tipo ('4' per colture).
Possibilita' di sotto-totali per attivita' all'interno della coltura.
Convenzioni legacy RM-COBOL: presenza di GO TO e PERFORM ... THRU.