Vai al contenuto

COGQ10 - Anagrafica Lavorazioni

Sorgente: cbl/cogq10.cbl | Tipo: Programma a menu | Program-ID: COGQ10

Menu: Magazzino > Produzione > Cicli di Lavorazione > Archivi > Lavorazioni Eseguibili

Scopo

Gestisce l'anagrafica delle lavorazioni eseguibili nei cicli di produzione. Per ciascuna lavorazione sono memorizzati codice, descrizione, flag (esterna, consegna, macchina, scheda, controllo qualita'). Le lavorazioni sono i mattoni elementari dei cicli di lavorazione (vedi COGQ20).

File e Tabelle

File/Tabella Uso
FEURTAB Parametri generali
File da cogq10.select Anagrafica lavorazioni e tabelle correlate

Programmi chiamati

Programma Scopo
COGQ12 Sotto-funzione per gestione costi/merci/tempi (chiamata via util-q12)

Copybook principali

  • cogq10.select, cogq10.fd, cogq10.wrk — strutture da Screens
  • k-u10.cpy, k-personal.cpy — costanti
  • Standard: wgrave, wnscr, wopenf, wstato, cogazien
  • Utility: utilcogq2d.cpy, utilcogq2e.cpy, utilq04, utilq05, utilq06, utils21, utilu10

Costanti significative

  • k-f1-nuovo = 01
  • k-f7-costi = 02
  • k-f9-merci = 03
  • k-sf9-tempi = 04

Struttura dati principale

tab-maschera:

Campo Descrizione
tm-stm Codice lavorazione (numerico, 5 cifre)
tm-des Descrizione (40 caratteri)
tm-esterna Flag lavorazione esterna
tm-consegna Flag lavorazione di consegna
tm-macchina Flag lavorazione legata a macchina
tm-scheda Flag scheda di lavorazione
tm-fl-ava-controllo Flag controllo qualita' avanzamento

util-q12 per la chiamata a sotto-funzioni dedicate (costi, merci, tempi):

  • q12-v / q12-h — posizione finestra
  • q12-ins — flag inserimento
  • q12-tipo — tipo sotto-funzione invocata
  • q12-in-cod — codice in input

Logica di elaborazione

  1. Apertura: lettura azienda, apertura file, attivazione tasti (F1 nuovo, F3 conferma, F4 cancella, F7 costi, F9 merci, Shift+F9 tempi).
  2. Selezione codice: input tm-stm. Lettura/inserimento del record:
  3. Codice esistente: lettura dati, modalita' Variazione (fl-vario = 'V')
  4. Codice non esistente: modalita' Inserimento (fl-vario = 'I')
  5. Modifica campi: descrizione e flag tramite accept dei controlli grafici.
  6. Sotto-funzioni:
  7. F7 → COGQ12 con q12-tipo per costi
  8. F9 → COGQ12 con q12-tipo per merci/abbinamenti
  9. Shift+F9 → COGQ12 con q12-tipo per tempi standard
  10. Salvataggio (F3): rewrite o write del record.
  11. Cancellazione (F4): delete con conferma; bloccato se la lavorazione e' in uso in cicli o lotti aperti.

Note

  • Le sotto-funzioni (costi, merci, tempi) sono delegate al programma COGQ12 tramite area util-q12: COGQ12 e' un dispatcher comune ai programmi di anagrafica cicli.
  • L'utilizzo di prima-volta flag indica una logica di inizializzazione one-shot al primo avvio.
  • Convenzioni standard Eurocoge GUI: z-99-init-program / z-99-exit-program, gestione lingua via x-carica-lingua.