COGB63 - Confezioni/Scomparti/Aree per Merce (Modula)¶
Sorgente: cbl/cogb63.cbl | Program-ID: COGB63 | Tipo: Interattivo con griglia
Menu: Magazzino > Modula > Tabelle > Confezioni/Scomparti/Aree per Merce, Magazzino > Archivi e Tabelle > Modula > Confezioni/Scomparti/Aree per Merce
Scopo¶
Gestisce la tabella delle quantita' per confezioni, scomparti e aree del magazzino automatico Modula, per singolo articolo. Dopo il salvataggio aggiorna COGMERA2 (sincronizzazione Modula) e COGMDLCS (quantita'/priorita' per tipo e codice).
Il tipo e' selezionabile dalla maschera: "C" = Confezione, "S" = Scomparto, "A" = Area. La griglia mostra i codici letti da COGTABEL (tipi "TC", "TS", "TA") incrociati con i dati di COGMDLCS.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Tabella | Input | Tabella generale Eurosystem |
| COGMERCI | Tabella | Input | Anagrafica merci (validazione articolo) |
| COGTABEL | Tabella | Input | Tabelle di sistema (tipo TC/TS/TA: codici confezione/scomparto/area) |
| COGMDLCS | Tabella | I-O | Quantita' e priorita' Modula per articolo/tipo/codice |
| COGMERA2 | Tabella | I-O | Appoggio articoli Modula (flag sincronizzazione) |
| T-GRID-DET | File transito | I-O | File di transito indicizzato per la griglia (creato e cancellato a runtime) |
Copybook¶
Working storage¶
| Copybook | Descrizione |
|---|---|
cogb63.wrk |
Variabili di maschera e griglia generati da Screens |
cogb63.imppredf-wrk |
Gestione filtri predefiniti |
cogb63.tm |
Campi modificabili della maschera (tm-merce, tm-fl-tipo, righe griglia) |
k-tipi-cogtabel.cpy |
Costanti tipi COGTABEL |
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy |
Working storage comuni |
cogazien.cpy |
Dati azienda |
wgrid.cpy |
Supporto griglia |
utilgdad.cpy |
Utility gestione dati aggiuntivi griglia (GRIDADMN) |
utilu20.cpy |
Utility numerica |
utils68.cpy |
Utility campo merce (COGS68W) |
utilncnf.cpy |
Interfaccia configurazione RNEWCONF |
utilimppredf.cpy |
Utility filtri predefiniti |
Linkage¶
| Copybook | Descrizione |
|---|---|
wcont.cpy, wcont1.cpy |
Contesto chiamante |
utilcogb63.cpy |
Interfaccia per chiamate esterne (cogb63-called, cogb63-caller, cogb63-merce, cogb63-tipo) |
Fine procedure division¶
grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy, cogb63.prc, cogb63.imppredf
Struttura del programma¶
Variabili principali¶
| Variabile | PIC | Descrizione |
|---|---|---|
tm-merce |
X(09) | Chiave articolo (gru+sot+cod) |
tm-fl-tipo |
X(01) | Tipo: "C"=Confezione, "S"=Scomparto, "A"=Area |
w-dc-called |
X(01) | "S" se richiamato da altro programma |
w-dc-merce |
X(09) | Articolo passato dal chiamante |
w-dc-tipo |
X(01) | Tipo passato dal chiamante |
fl-salta-aggiorna-tutto |
X(01) | Flag per saltare l'aggiornamento incrementale di riga |
Colonne griglia (file transito T-GRID-DET)¶
| Campo | Descrizione |
|---|---|
t-gor-r-codice |
Codice confezione/scomparto/area (da COGTABEL) |
t-gor-r-descr |
Descrizione |
t-gor-r-qta |
Quantita' |
t-gor-r-prio |
Priorita' (per tipo "A" letta da COGMDLCS, altrimenti da COGTABEL euta-tc-priorita) |
tm-r-fl-agg |
Flag riga modificata |
Flusso principale¶
- apri -- Inizializzazione, controllo abilitazioni, apertura file, lettura azienda. Se richiamato (
w-dc-called = "S"), preimposta articolo e tipo - a4 -- Reinizializzazione maschera, reset griglia, imposta ordinamento predefinito per codice
- a-tm-merce -- Accept articolo con aiuto COGS68W; se richiamato salta direttamente a
a-richiesta-conferma - a-tm-fl-tipo -- Accept tipo confezione/scomparto/area (aggiunto nel 2020-10-25)
- a-richiesta-conferma -- Valida articolo e tipo; se ok procede a
a-leggi-dati - a-leggi-dati -- Apre il file transito e chiama
z-grid-det-crea-transitoper popolare la griglia - a-grid / a-grid-ini -- Carica la griglia dal transito; se vuota mostra messaggio specifico per tipo e chiude
- a-grid (loop) -- Gestione eventi griglia: F3 salva, Shift+F4 GRIDADMN, Shift+F5 export Excel, menu popup
- b-aggiorna -- Salvataggio: per ogni riga del transito aggiorna COGMERA2 (flag sync) e COGMDLCS (qta/priorita')
- fine / z-chiudi -- Chiude il transito, elimina il file, cancella COGS68W, chiude window
Paragrafo z-grid-det-crea-transito¶
Popola il file transito con i codici letti da COGTABEL filtrati per tipo (euta-tipo-x = "TC"/"TS"/"TA" corrispondente a tm-fl-tipo). Per ogni codice legge COGMDLCS per ottenere la quantita' e la priorita' esistenti. Per il tipo "A" la priorita' viene presa da COGMDLCS (non da COGTABEL) perche' e' gestibile in griglia.
Regole di edit griglia¶
- La colonna quantita' (t-gor-r-qta) e' editabile per tipi "C" e "S"; bloccata per tipo "A" (
z-grid-det-qta-be-ep) - La colonna priorita' (t-gor-r-prio) e' editabile solo per tipo "A"; bloccata per "C" e "S" (
z-grid-det-prio-be-ep)
Chiamate esterne¶
| Programma | Modalita' | Scopo |
|---|---|---|
| COGS68W | CALL / CANCEL | Utility campo merce (ricerca articolo, aiuto F8) |
| GRIDADMN | CALL | Gestione avanzata griglia (prepara, add-record, impostazioni colonne) |
Note¶
- Modificato il 2020-10-25 per gestire anche il tipo "S" (scomparti) oltre alle confezioni "C"; modificato il 2026-11-25 per aggiungere il tipo "A" (aree) con gestione della priorita' da COGMDLCS.
- La griglia e' in sola lettura per le colonne non editabili (begin-entry fallisce per tipo/colonna non pertinente).
- Il file di transito e' un file indicizzato temporaneo creato nella directory temporanea dell'operatore e cancellato alla chiusura.
- Le funzioni Ctrl+A (aggiungi riga) e Ctrl+E (elimina riga) sono presenti nel sorgente ma commentate: non e' possibile aggiungere o eliminare codici direttamente da questa maschera.
- La sezione di configurazione RNEWCONF e' presente nel sorgente ma interamente commentata.