COGM30P - Ristampa Etichette Trasferimenti Interni (Serial)

Panoramica

COGM30P e' un programma a maschera carattere (interfaccia testuale a griglia, non GUI) che consente di ristampare le etichette dei serial number (matricole) trasferiti tra magazzini interni. L'operatore legge/digita codici a barre o serial number in una tabella a video; il programma risolve ogni codice come matricola libera (non ancora uscita, non su magazzino principale, non gia' prenotata in spedizione) o come codice EAN, e alla conferma (F3) stampa le relative etichette in emulazione EPL2. Viene avviato da menu come sottoprogramma (procedure division using stringhe).

Posizione nel menu

Menu	Percorso
Magazzino	Trasferimenti > Trasferimenti Interni > Ristampa Etichette

Struttura del programma

File e tabelle utilizzati

File/Tabella	Tipo	Descrizione
feurtab	Indexed	File tabelle generali (cogfiles.cpy)
cogtabel	Indexed	Tabelle codificate; qui usata per la configurazione trasferimenti (cnfgtras.cpy / euta-c024-*)
cogmerci	Indexed external (chiavi .k01, .k03)	Anagrafica merci: descrizione, EAN, flag serial (mer-fl-sn)
coggeana	Indexed	Anagrafica generale
cogmagaz (cogmaga2.fd)	Indexed	Anagrafica magazzini
cogmatri	Indexed (chiavi .k01, .k04)	Anagrafica matricole/serial: magazzino di carico (mtr-ent), matricola (mtr-mat), merce, s/n (mtr-sn)
cogmtusc	Indexed	Matricole uscite: verifica se un serial e' gia' uscito
coggener	Indexed (chiavi .k01, .k02)	Generico/legami: verifica se la matricola e' gia' agganciata a un buono di prelievo/spedizione (tipo CM)
flsta	-	File di stato/lock standard

Copybook principali

Copybook	Descrizione
cnfgtras.cpy	Configurazione trasferimenti (redefines di euta-descr in cogtabel)
utilncnf.cpy	Interfaccia con RNEWCONF per lettura configurazioni
utilu07.cpy	Interfaccia con COGU07 (ricerca matricola padre)
utilu12/u20.cpy, utils25.cpy, utils54.cpy, utilw36.cpy	Utility varie, stampa COGS54, aiuto magazzino W36
cogazien.cpy, wstato/wopenf/wgrave/wnscr.cpy	Dati azienda e stato file standard
mmmask.cpy, dtab.cpy, tstfun1.cpy, open1.cpy	Gestione maschera carattere, tabella, tasti funzione, apertura file
cogmerci.k01/.k03, coggeana.k01, cogmaga2.k01, cogmatri.k01/.k04, cogmtusc.k01, coggener.k01/.k02, cogtabel.k01	Routine di I/O e chiavi (incluse manualmente)

Chiamate a sottoprogrammi (CALL)

Programma	Scopo
COGS54	Gestore di stampa (emulazione EPL2, 78 caratteri)
COGU07	Ricerca della matricola padre a partire da una matricola figlia (operazione cerca-padre)
RNEWCONF	Lettura delle configurazioni del gruppo TRASCOGM20 (chiavi euta-c024-*)
send-w36	Aiuto tabellare magazzino (gestore W36)

Logica di elaborazione

1. main / a000: init (ctr-abil), apertura file (open-files), lettura azienda (rd-azi), lettura configurazione (x99-conf), preparazione della maschera carattere mm-1 (23x80).
2. x99-conf: chiama RNEWCONF sul gruppo TRASCOGM20 per leggere i parametri di trasferimento (documento fisico, causali entrata/uscita, tipi ordine, causali cambio locazione, flag), con valori di default se non impostati.
3. a4: visualizza la maschera, titolo "Ristampa Serial Trasferiti", inizializza tab-maschera con il magazzino principale (az-main-mag), poi entra in b-accept.
4. b-accept / b-10: ciclo di accettazione dei codici a barre / serial nella tabella a video (fino a t-size = 200 righe). Ogni codice inserito viene risolto con c2-lettura; tasti di navigazione (su/giu/pagina) gestiti da tst-fun; F3 richiede conferma e lancia la stampa (d-stampa).
5. c2-lettura: risoluzione del codice letto. Prima lo cerca come serial number in cogmatri (chiave .k04): deve non essere su magazzino principale, non essere gia' uscito (cogmtusc) e non essere gia' prenotato in spedizione (coggener tipo CM); se libero, tramite COGU07 risale alla matricola padre da stampare. Se non e' un serial libero, tenta la risoluzione come codice EAN (c22-cerca-ean, cogmerci.k03), rifiutando i prodotti gestiti a serial.
6. d-stampa: selezione stampante (COGS54, emulazione EPL2) e ciclo d-loop su tutte le righe della tabella: per ogni codice risolto stampa l'etichetta EPL2 (descrizione merce, magazzino di carico come barcode e testo, serial number o codice/merce), ripetuta per la quantita' tm-qta.
7. init-eti / end-eti: comandi EPL2 di inizio/fine etichetta (formato, densita', dimensioni).
8. fine / z-chiudi: chiusura stampa (COGS54 "after-print"), chiusura file, uscita.

Note tecniche

• Programma a maschera carattere (source-computer pc-sperry, mm-1 con box a caratteri semigrafici), non a griglia GUI: e' uno stile piu' vecchio rispetto agli altri programmi di stampa.
• Stampa etichette in linguaggio EPL2 (stampanti termiche), non testo tabellare.
• Configurazione via RNEWCONF gruppo TRASCOGM20 (chiavi euta-c024-doc-fis, euta-c024-cau-usc, euta-c024-cau-ent, e altre): condivide la stessa configurazione del programma di trasferimento COGM20/COGM30 (prefisso euta-c024).
• Controlli di sicurezza sul serial: scarta i serial gia' usciti, quelli in carico sul magazzino principale (az-main-mag) e quelli gia' prenotati in spedizione con un buono (coggener tipo CM), evitando ristampe di etichette non piu' valide.
• La routine search-file (GO TO DEPENDING) apre i singoli file su richiesta: meccanismo legacy di apertura file per indice.
• La voce di menu "Ristampa Etichette" e' coerente con la funzione reale (ristampa delle etichette EPL2 dei serial trasferiti internamente).