COGQ34 - Stampa Impegno per Macchina¶

Campo	Valore
Sorgente	`cbl/cogq34.cbl`
Tipo	Stampa con maschera GUI di parametri
Posizione menu	Magazzino > Produzione > Cicli di Lavorazione > Stampe > Impegno per Macchina

Scopo¶

Per ciascuna macchina di produzione, calcola e stampa le ore lavorabili nel periodo scelto, le ore impegnate dai cicli di lavorazione e le ore residue (formato HH:MI). Utile per pianificare il carico macchina e verificare la saturazione su un intervallo di date.

File e tabelle¶

FEURTAB, FLSTA
Dalla .select: CLCTABEL, CLCANAMA (anagrafica macchine), CLCCCTES, CLCCCRIG (righe ciclo per macchina — chia2 per data preventivo, chia5 per periodo occupato), CLCCCCNS (consuntivi), COGMERCI

Programmi chiamati¶

Programma	Scopo
COGS54	Apertura/chiusura periferica di stampa
COGQS1	Calcolo ore lavorabili per macchina/giorno (calendario produttivo)
DTPRG / PRGDT	Utility conversione data ↔ progressivo

Configurazioni RNEWCONF¶

Nessuna.

Parametri di input¶

tm-data-inizio, tm-data-fine: intervallo di analisi
tm-tip-data: P = preventivo, O = occupazione, C = consuntivo. Default P per Officine Meccaniche (az-personal = "OM"), O altrimenti.

Logica di elaborazione¶

Ciclo su CLCANAMA (anagrafica macchine).
Per ciascuna macchina, interroga COGQS1 per le ore lavorabili giornaliere nel periodo.
Somma i minuti impegnati scorrendo:
CLCCCRIG chia2 (data preventivo) o chia5 (periodo occupato), in base a tm-tip-data
CLCCCCNS se tm-tip-data = C (consuntivo)
Gestione record fittizio "non su macchina" (tipo <> "M" o flag fl-non-su-macchina).
Somma minuti = wrk-tempo-att + wrk-tempo-lav + wrk-tempo-dis + wrk-tempo-prg.
Stampa riga per macchina: codice, descrizione, ore lavorabili, impegnate, residue.

Note implementative¶

Rottura sulla chiave macchina/data con sucess/preced (d2-preced, d3-sucess) per gestire i cicli che spaziano oltre il bordo del periodo.
Stampa tramite COGS54 (apertura/chiusura periferica).