COGV15W - Gestione testata bolle di entrata
| Campo |
Valore |
| Sorgente |
cbl/cogv15w.cbl |
| Tipo |
Programma interattivo (maschera) |
| Chiamato da |
COGV14W, COGV15, COGV50W |
| Righe sorgente |
~1.170 |
Descrizione
Programma per la gestione della testata delle bolle di entrata magazzino. Presenta una
maschera di ricerca/selezione dove l'utente indica magazzino, anno, tipo bolla e numero
per individuare il documento da gestire. Supporta navigazione tra documenti (precedente,
successivo, primo, ultimo) e puo' essere chiamato direttamente con i dati del documento
gia' compilati (modalita' "called").
Quando la bolla selezionata risulta gia' accertata, mostra un messaggio di avviso
(TASK-3648) e impedisce la modifica del contenuto, abilitando solo i tasti funzione
di post-aggiornamento.
File e tabelle
| File/Tabella |
Tipo |
Descrizione |
| FEURTAB (cogfiles) |
Input |
Parametri generali azienda |
Tabelle da cogv15w.select |
I-O |
Tabelle gestionale |
| TRAN-V14W |
I-O |
File transitorio di comunicazione con COGV14W |
Copybook principali
| Copybook |
Descrizione |
| cogv15w.wrk / .select / .fd / .scr / .prc / .decla |
Screen Designer: working, select, fd, screen, procedure, declaratives |
| k-personal.cpy |
Costanti personalizzazioni aziendali |
| costanti-tgls.cpy |
Costanti TGL |
| utilv15.cpy |
Interfaccia del programma (linkage) |
| utils52.cpy |
Interfaccia calendario (S52) |
| utilu22.cpy |
Interfaccia decodifica (U22) |
| utilu30.cpy |
Interfaccia gestione U30 |
| utilw36.cpy |
Interfaccia ricerca magazzini (W36) |
| utilw82.cpy |
Interfaccia ricerca bolle fornitore (W82) |
| utilcogqb3.cpy |
Interfaccia COGQB3 |
| utiltgl110.cpy / utiltgl111.cpy |
Interfaccia TGL (etichette) |
Chiamate a sottoprogrammi
| Programma |
Scopo |
| COGU30 |
Controllo collegamento documenti (RMA, conti anticipo) |
| TGL110 |
Stampa etichette |
| TGL111 |
Stampa etichette (secondo tipo) |
| COGV14W |
Passaggio al worker di dettaglio bolle |
| RNEWCONF |
Lettura configurazioni |
Logica di elaborazione
Flusso principale
- Inizializzazione: apertura file, configurazione pulsanti di navigazione (F5 precedente, F6 successivo, F9 primo, F10 ultimo), attivazione F3 conferma e F7 nuovo.
- Costruzione nome file transitorio univoco: il nome del file TRAN-V14W include il PID del processo per evitare conflitti tra sessioni concorrenti (
#COGV15W_{ext-pid}.{wo-oper}).
- Modalita' called: se invocato con
v15-called = "COGV15-CALLED", i dati del documento sono gia' valorizzati e si salta direttamente alla conferma. Se invocato con v15-called = "COGV50W", attiva il flag per COGV50.
- Accept testata: raccolta sequenziale dei campi:
- Magazzino (
tm-mag) con aiuto F8 tramite W36
- Anno (
tm-anno) con calendario F8
- Tipo bolla (
tm-tipob)
- Numero bolla (
tm-bolla3)
- Numero bolla fornitore (
tm-nbolfor) con ricerca F8 tramite W82
- Controllo accertamento: se la bolla e' accertata (
tes-fl-acc = "A"), mostra il messaggio TASK-3648 e impedisce la modifica. Per il personal "EG" abilita solo la modifica trasporti.
- Controllo RMA: verifica se il documento e' collegato a un RMA o conto anticipo tramite COGU30.
- Passaggio a COGV14W: trasmette i dati della testata al worker di dettaglio.
Configurazione maschera
| Campo |
Tipo |
Descrizione |
| tm-mag |
PIC X(01) |
Codice magazzino |
| tm-anno |
PIC 9(04) |
Anno bolla |
| tm-tipob |
PIC X(01) |
Tipo bolla |
| tm-bolla3 |
PIC 9(06) |
Numero bolla |
| tm-nbolfor |
PIC X(15) |
Numero bolla fornitore |
| tm-dabolfor |
PIC 9(08) |
Data bolla fornitore |
| tm-for |
PIC 9(05) |
Codice fornitore |
| tm-causale |
PIC 9(02) |
Codice causale |
| tm-bolla-accertata |
PIC X(01) |
Flag bolla accertata (A = si') |
| tm-fl-rma |
PIC X(01) |
Flag collegamento RMA |
Configurazione speciale (tm-cfg)
| Campo |
Descrizione |
| tm-cfg-taglio-lamiere |
Abilita gestione taglio lamiere |
| tm-cfg-td-dm-resi-cli |
Tipo documento resi cliente |
| tm-cfg-modula-db-frontiera |
Abilita integrazione Modula DB frontiera |
Note
- I nomi dei file temporanei includono il PID (
ext-pid) a partire dalla modifica del 22/04/2026, per garantire l'univocita' tra sessioni concorrenti dello stesso operatore.
- Il programma utilizza
mmmask.cpy (programma standalone) e non mmsubw.cpy (subroutine), pur essendo chiamato da altri programmi.