COGI27 - Gestione Ore (Colture)
Scopo
Visualizzazione e stampa del riepilogo delle ore lavorate per lavorazioni o macchine nell'ambito delle colture/commesse. Legge i movimenti giornalieri in un intervallo di date, li totalizza per attivita' e li presenta in un elenco navigabile con possibilita' di stampa.
- Magazzino > Colture > Operativo > Gestione Ore
- Magazzino > Colture > Visualizza/Stampa > Lavorazioni
File e Tabelle
| File |
Copybook |
Utilizzo |
| FEURTAB |
cogfiles.cpy |
Tabella file di sistema |
| CICTABEL |
cictabel.cpy |
Tabella colture |
| CICLAVOR |
ciclavor.cpy |
Anagrafica lavorazioni colture |
| CICBASTE |
cicbaste.cpy |
Archivio base colture (lavorazioni/macchine) |
| CICBASRI |
cicbasri.cpy |
Archivio base riepilogo colture |
| CICGIORN |
cicgiorn.cpy |
Movimenti giornalieri colture (ore lavorate) |
| work-file |
(interno) |
File di lavoro temporaneo indicizzato per totalizzazione |
| sta |
(stampa) |
File di stampa |
Copybook
cogfiles.cpy, cictabel.cpy, ciclavor.cpy, cicbaste.cpy, cicbasri.cpy, cicgiorn.cpystato.cpy, stato1.cpy, winmsg.cpy, grave.cpyopen1.cpy, openc.cpy, mmmask.cpy, dtab.cpyfscrol2.cpy, sendi08.cpy, sendw36.cpycictabel.k01, cicbaste.k01, cicbasri.k01, ciclavor.k01, cicgiorn.k01, cicgiorn.k02
CALL
| Programma |
Scopo |
| COGS52 |
Gestione input data (calendario) |
| COGS54 |
Gestione parametri stampante |
Logica di elaborazione
Parametro w-tipo
'1' = Elenco Lavorazioni'2' = Elenco Macchine
Flusso principale
- Apertura file e lettura azienda
- Input filtri: l'utente indica la data inizio/fine tramite COGS52
- Elaborazione (
fill-file):
- Scorre CICBASTE filtrando per tipo (lavorazione o macchina)
- Per ogni codice trovato, scrive un record nel file di lavoro temporaneo (work-file)
- Scorre CICGIORN e per ogni movimento nel range date accumula le ore nei 4 slot:
- Slot 1-2: ore uomo (codice tipo ore uomo)
- Slot 3-4: ore macchina (codice tipo ore macchina)
- L'ultimo record con chiave
'ZZZZZZZZZ' contiene i totali generali
- Visualizzazione: tabella paginata con navigazione (fscrol2.cpy)
- Stampa (F9): stampa su carta con intestazione (azienda, data, pagina) e dettaglio per riga
Struttura work-file
- Chiave:
work-lav (9 caratteri, codice lavorazione/macchina)
- Dati:
work-lav-des (descrizione), work-ore(1..4) (4 accumulatori ore), work-coeff (coefficiente)
Note tecniche
- Il programma usa maschere carattere (pre-GUI,
source-computer rmcobol)
- La tabella di visualizzazione ha 16 elementi (
tm-tab)
- Lo scrolling e' gestito tramite
fscrol2.cpy con chiave sul file di lavoro
- Il file di lavoro e' creato in
ext-tmp-dir con nome #$cogi27.<operatore>