COGQ73 - Visualizzazione attivita' giornaliere esterne
Intestazione
| Campo |
Valore |
| Programma |
COGQ73 |
| Titolo |
Attivita' giornaliere esterne (cicli di lavorazione) |
| Tipo |
Visualizzazione/stampa interattiva (CRT classica) |
| Menu |
Magazzino > Produzione > Cicli di Lavorazione > Visualizzazioni > Attivita' Giornaliere Esterne |
| Sorgente |
cbl/cogq73.cbl |
Scopo e logica generale
COGQ73 elenca per una data le fasi di lavorazione esterne previste, separate per fornitore (macchina). Per ciascun fornitore vengono considerate sia le fasi che iniziano nella giornata sia quelle iniziate prima ma non concluse, calcolando i tempi residui di attrezzaggio/lavorazione/disattrezzaggio che ricadono nella giornata in esame.
L'output e' presentato tramite un file di transito indicizzato cogtrans (chiave macchina+data+ora+lotto) caricato sulla maschera classica mm-1.
Flusso principale
screen-0: init, abilitazione, apertura file (cicli e calendario), creazione cogtrans univoco per operatore.a4: accept data, verifica giorno lavorativo tramite COGQS1, accept fornitore (lookup COGS65).a-90: conferma con acc-conf.b-elabora: scansione COGGEANA (fornitori tipo F) filtrata; per ogni fornitore:- cerca fasi precedenti che si estendono nel giorno (
b3-cerca-residuo),
- scansiona fasi del giorno tramite indici cicli/lavorazioni,
- calcola minuti attrezzaggio/lavorazione/disattrezzaggio che ricadono nel giorno e scrive in
cogtrans.
c-visualizza: presentazione griglia, possibile stampa (d-stampa thru ex-d) tramite COGS54.z-chiudi: chiusura file, cancellazione transito.
File e tabelle acceduti
| File logico |
Modalita' |
Uso |
| FEURTAB |
Input |
Tabella nomi file |
| COGGEANA |
Input |
Anagrafica fornitori (filtro tipo F) |
| CLCTABEL |
Input |
Tabelle cicli di lavorazione |
| CLCLAVOR |
Input |
Lavorazioni |
| CLCANAMA |
Input |
Anagrafica macchine/centri |
| CLCDISEG |
Input |
Disegni |
| CLCCCTES / CLCCCRIG |
Input |
Testate e righe cicli |
| COGTRANS |
I-O |
File di transito per la visualizzazione (per operatore) |
Copybook inclusi
coggeana.cpy, clctabel.cpy, clclavor.cpy, clcanama.cpy, clcdiseg.cpy, clccctes.cpy, clcccrig.cpy, cogfiles.cpyflsta.fd, flsta.cpy
Programmi chiamati (CALL)
| Programma |
Scopo |
| COGS52 |
Calendario (F8 sulla data) |
| COGS65 |
Lookup anagrafica (F8 fornitore) |
| COGQS1 |
Verifica giornata lavorativa / ore disponibili |
| COGS54 |
Stampa device/logo |
Logica di business
- Verifica giorno lavorativo: COGQS1 ritorna
qs1-ore; se zero la giornata non e' lavorativa e il programma rifiuta la data.
- Calcolo tempi residui: se una fase iniziata in giorni precedenti ha
ccr-data-fin-prv >= tm-data, il programma ripartisce i minuti residui sui tempi di attrezzaggio/lavorazione/disattrezzaggio che ricadono nella giornata in esame (b3-cerca-residuo + logica di ripartizione).
- Il file di transito
cogtrans usa chiave primaria macchina+data+ora+lotto e chiave alternata su data+ora+macchina+lotto: consente di servire la visualizzazione ordinata.
- Univocita' per operatore: nome file include
wo-oper.
- Read-only sui dati origine.
Storico modifiche
- Pagina creata in autodoc 2026-05-16.