Vai al contenuto

COGQ2B - Materiali (Cicli di Lavorazione)

Scopo

Gestione dell'anagrafica materiali. I dati sono distribuiti su due tabelle:

  • COGTABEL (EUTA) con euta-tipo = 62, euta-ptc-tip = codice tabella materiali letto da configurazione: contiene descrizione (euta-tma-des), descrizione breve (euta-tma-des-b), tipologia CRM associata (euta-tma-tcl).
  • CLCMATER (CMAT): peso specifico (cmat-peso-specifico) e raggruppamento (cmat-raggr).

Il programma e' a griglia con aggiornamento batch al F3 (pattern diff su tm-cod/tm-cod-prec). Puo' aprire schede CRM tramite CRMS11 e gestire i tempi di lavorazione tramite COGQ2F. Puo' essere richiamato come pop-up di selezione.

Magazzino > Produzione > Cicli di Lavorazione > Archivi > Materiali

File e tabelle

File Tipo Descrizione
FEURTAB Parametri File parametri di ambiente
COGTABEL (EUTA) Indicizzato Tabella generica, filtrata su euta-tipo = 62 + euta-ptc-tip dal CMA
CLCMATER (CMAT) Indicizzato Tabella materiali (peso specifico, raggruppamento)
CLCMTRAG Indicizzato Tabella raggruppamenti (lettura/decodifica)

Copybook

File e select

  • feurtab.fd, cogfiles.cpy
  • cogq2b.select, cogq2b.fd, cogq2b.wrk
  • cogq2b-01.scr, cogq2b.decla, cogq2b.prc

Working-storage standard

  • wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
  • k-tipi-cogtabel.cpy

Utilita'

  • wgrid.cpy, utilgdad.cpy, utile04.cpy, utilf62.cpy
  • utilu20.cpy — Edit numerico (peso specifico)
  • utilncnf.cpy — Lettura configurazioni RNEWCONF
  • utilcrms11.cpy — Interfaccia subroutine CRMS11 (schede CRM)
  • utilcrm030.cpy — Interfaccia CRM030 (apertura scheda)
  • utilcogq2a.cpy — Interfaccia COGQ2A (popup raggruppamenti)
  • utilcogq2f.cpy — Interfaccia COGQ2F (tempi di lavorazione)
  • utilcogq2b.cpy — Linkage del programma (chiamata pop-up); incluso anche con replace util-cogq2b -> util-w-cogq2b per copia locale

Linkage

  • wcont.cpy, wcont1.cpy
  • utilcogq2b.cpy (util-cogq2b con w-cogq2b-called/-caller/-out-cod)

Procedure

  • grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy

CALL

Programma Descrizione
GRIDADMN Gestione griglia (Prepara, Modify-Record, amministrazione)
RNEWCONF Lettura configurazione TAB-CMA-MATERIALI (gruppo PRODUZIONE)
CRMS11 Gestione schede CRM (CERCA-SCHEDA, CREA-SCHEDA)
CRM030 Apertura scheda CRM (CRM030-CALLED)
COGQ2A Pop-up raggruppamenti materiali
COGQ2F Tempi di lavorazione del materiale
C$NARG Conteggio argomenti di linkage

Logica di elaborazione

  1. Apertura (apri): C$NARG, init, definizione tasti F1/F3/F6/F8/Shift+F4/Shift+F9/Ctrl+A/Ctrl+E.
  2. Configurazione (x99-confi): legge da RNEWCONF (gruppo "PRODUZIONE", chiave "TAB-CMA-MATERIALI") il codice tabella materiali da usare come filtro euta-ptc-tip. F1 ripropone la modifica della configurazione.
  3. Caricamento bitmap custom: bitmap "varie" e creazione pulsante custom per Shift+F9 (Tempi di lavorazione).
  4. a4: pulizia griglia, caricamento dati.
  5. Legge testata tabella (euta-tipo = 62, euta-ptc-tip = tm-cfg-tab-materiali, euta-ptc-cod = low-values) per estrarre euta-tma-tcl (tipologia CRM).
  6. START + READ NEXT su COGTABEL filtrando su tipo 62 e tip CMA. Per ogni record:
    • Lettura CLCMATER (cmat-cod = euta-ptc-cod) per peso specifico e raggruppamento.
    • Lettura CLCMTRAG per descrizione raggruppamento.
    • Se tm-tcl-cod <> " ": chiamata CRMS11 "CERCA-SCHEDA" per recuperare il numero di scheda associato.
  7. a-grid / a-accept-grid: ciclo di input sulla griglia.
  8. F1: riapre configurazione.
  9. Shift+F4: amministrazione griglia.
  10. F3: come COGQ2A, alterna A/S o aggiorna (a1-aggiorna).
  11. Invio in selezione: restituisce tm-cod(i) in w-cogq2b-out-cod.
  12. Ctrl+A / Ctrl+E: aggiunge/cancella riga.
  13. Shift+F9: chiama COGQ2F passando tm-cod(i) come materiale.
  14. F6: se la scheda CRM non esiste, la crea con CRMS11 "CREA-SCHEDA"; poi apre la scheda con CRM030 "CRM030-CALLED".
  15. F8 su colonna raggruppamento: apre COGQ2A in modalita' popup; restituito il codice, valida con x-controlla-tm-rag-cod.

Aggiornamento batch (b-aggiorna / b1/b2/b3)

Stessa logica diff di COGQ2A ma con doppio aggiornamento:

  • b1-inserisci: legge COGTABEL; se esiste chiede sovrascrittura, altrimenti wr-cogtabel (con euta-tma inizializzato). Poi x-aggiorna-materiale.
  • b2-modifica: legge COGTABEL; se non esiste piu' chiede di ricrearlo (wr-cogtabel). Poi x-aggiorna-materiale.
  • b3-cancella: cancella sia da COGTABEL (del-cogtabel) sia da CLCMATER (del-clcmater).

x-aggiorna-materiale: aggiorna euta-tma-des, euta-tma-des-b su COGTABEL (rwr-cogtabel); se CLCMATER non esiste lo crea (wr-clcmater); aggiorna cmat-peso-specifico e cmat-raggr (rwr-clcmater).

Configurazioni

Gruppo Chiave Uso
PRODUZIONE TAB-CMA-MATERIALI Codice tabella materiali del CMA (filtro su euta-ptc-tip)

Struttura dati in memoria

tab-maschera:
  tm-tcl-cod (PIC X(03))    — tipologia scheda CRM (da euta-tma-tcl)
tab-cfg:
  tm-cfg-tab-materiali (PIC X(02)) — codice tabella materiali (config)

tm-grid-dati-ele (in wrk, k-max-ele-tab = 500):
  tm-cod, tm-cod-prec       — codice corrente e originale (diff)
  tm-des, tm-des-breve      — descrizioni
  tm-ps                     — peso specifico
  tm-rag-cod, tm-rag-des    — raggruppamento e descrizione
  tm-cra-cod                — numero scheda CRM
  tm-fl-riga-mod            — flag riga modificata

Note tecniche

  • Pattern "diff-update" su griglia: combina inserimenti, modifiche, cancellazioni e cambi codice in un solo F3.
  • La tabella materiali e' "double-write": testata su COGTABEL (tipo 62), dati tecnici (peso specifico, raggruppamento) su CLCMATER.
  • L'integrazione CRM e' opzionale: dipende da tm-tcl-cod letto sulla testata COGTABEL.
  • Bitmap custom: usa il pattern load-bitmap-custom + x-display-push-button-custom per il pulsante Shift+F9.
  • Validazione contestuale per la colonna raggruppamento: alla modifica chiama rd-clcmtrag e aggiorna tm-rag-des(i) o segnala errore.