Vai al contenuto

COGI28 - Visualizza/Stampa Macchine Colture

Sorgente: cbl/cogi28.cbl | Tipo: Programma a menu | Program-ID: COGI28

Menu: Magazzino > Colture > Visualizza/Stampa > Macchine

Scopo

Estrae e visualizza/stampa l'elenco delle macchine del modulo Colture con le ore di utilizzo nel periodo selezionato. Costruisce un work-file indicizzato in transito con i totali per macchina e li mostra in griglia; con F9 produce la stampa cartacea.

File e Tabelle

File/Tabella Uso
FEURTAB (cogfiles) Parametri generali
CICTABEL Tabelle base modulo Colture
CICLAVOR Lavorazioni colture
CICBASTE Movimenti ore (testata)
CICBASRI Movimenti ore (riga)
CICGIORN Calendario giornate lavorative
WORK-FILE File indicizzato di transito (dinamico, chiave work-chia su work-lav)
STA (PRINTER) Output stampa

Programmi chiamati

Programma Scopo
COGS52 Input data (data inizio/fine)

Copybook principali

  • File: feurtab.fd, cictabel.fd, ciclavor.fd, cicbaste.fd, cicbasri.fd, cicgiorn.fd
  • Record copy: cogfiles.cpy, cictabel.cpy, ciclavor.cpy, cicbaste.cpy, cicbasri.cpy, cicgiorn.cpy
  • Utility: WSTATO, WGRAVE, WOPENF, WNSCR, COGAZIEN

Logica di elaborazione

  1. Apertura (apri): apre i file Colture, prepara la maschera principale (mask mm-1, 25x78), inizializza w-tipo = '2' (elenco macchine).
  2. Input periodo (a-7, a-10): accept di tm-data-da e tm-data-a tramite COGS52.
  3. Conferma (a-35): conferma con F3 prima dell'elaborazione.
  4. Costruzione work-file (fill-file): scansione di CICBASRI per movimenti nel periodo, raggruppando per macchina (campo cic-bas-tipo = w-tipo). Per ciascuna macchina viene scritto un record nel work-file con totale ore.
  5. Visualizzazione griglia (disp-...): scorrimento del work-file e display delle righe in tabella.
  6. Stampa (st-stampa, F9): produce il report con intestazione (azienda, periodo) e righe di dettaglio.

Note

  • La variabile w-tipo discrimina macchine ('2'), lavorazioni ('1'), risorse: questo programma e' fissato a '2'.
  • I programmi COGI28/COGI29/COGI53 condividono buona parte della logica: differiscono nel valore di w-tipo impostato e nel titolo della maschera.
  • Stile legacy RM-COBOL (uso di GO TO e PERFORM ... THRU): convenzione del sorgente originale.