COGF39 -- Pianificazione¶
Sorgente: cbl/cogf39.cbl | Tipo: Programma GUI standalone | Program-ID: COGF39
Menu: - Magazzino > Produzione > Produzione 2 > Pianificazione
Scopo¶
Consultazione dell'impegno complessivo del reparto produzione per i lotti ancora aperti. Visualizza una griglia con tutti i lotti in stato "A" (aperto), calcolando quantita' evase, residue e impegno in giorni di lavorazione.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Indicizzato | I-O | Tabelle di sistema |
| COGLAVOR | via cogf39.select | I-O | Lotti di lavorazione |
| COGMERCI | via cogf39.select | I-O | Anagrafica merci |
| COGGEANA | via cogf39.select | I-O | Anagrafica generale |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| GRIDADMN | Gestione griglia (preparazione, svuotamento, aggiunta record) |
| RNEWCONF | Lettura configurazione (coefficiente lavorazione giornaliero) |
Copybook principali¶
cogf39.select,cogf39.fd,cogf39.wrk,cogf39.prc,cogf39.decla,cogf39-01.scrcogfiles.cpy,wstato.cpy,wgrave.cpy,wopenf.cpy,wnscr.cpy,cogazien.cpywgrid.cpy,utilgdad.cpy,utilu20.cpy,utilncnf.cpycoglavor.k09(chiave alternativa per scan lotti)
Struttura del programma¶
Flusso principale¶
- apri: inizializzazione, apertura file, display maschera, preparazione griglia
- a6: lettura configurazione RNEWCONF (coefficiente lavorazione giornaliero)
- a4: inizializzazione maschera; se chiamato da altro programma (COGF39-CALLED), esegue elaborazione diretta e restituisce f39-gg-imp
- b-elabora: scansione COGLAVOR (chiave k09, stato "A"), per ogni lotto carica in tabella: anno/numero, cliente (con lettura COGGEANA), prodotto finito, quantita' totale/evasa/residua, impegno calcolato come
qta-ne * mer-coe-lav - c1-totali: somma impegni, calcola giorni (
tm-tot-imp / tm-cfg-imp-per-gg) con arrotondamento alla mezza giornata - z-costruisci-grid: riempimento griglia con dati elaborati
- a-accept-grid: ciclo accept sulla griglia, gestione F4 (GRIDADMN personalizzazione)
- fine/z-chiudi: chiusura
Configurazioni RNEWCONF¶
| Gruppo | Chiave | Descrizione |
|---|---|---|
| PRNTLSPREL | euta-c019-imp-per-gg | Coefficiente lavorazione giornaliero |
Modalita' chiamato¶
Se invocato con f39-called = "COGF39-CALLED", il programma esegue l'elaborazione senza interfaccia e restituisce il dato f39-gg-imp (giorni di impegno) tramite linkage.
Documentazione tecnica -- 2026-04-29