COGM21 -- Inserimento/gestione trasferimenti tra magazzini¶

Sorgente: cbl/cogm21.cbl | Tipo: Programma con interfaccia grafica (gestione documento con griglia) | Program-ID: COGM21

Menu: Magazzino > Trasferimenti > Inserimento/gestione

Scopo¶

Gestisce l'inserimento, la variazione e la cancellazione di documenti di trasferimento tra magazzini. Un trasferimento genera simultaneamente un documento di uscita sul magazzino di partenza e un documento di entrata su quello di destinazione. Supporta gestione lotti, conto lavoro, esplosione distinta base, commesse, lettore barcode e integrazione con Modula.

Interfaccia utente¶

Struttura a pagine¶

Il programma e' organizzato in piu' pagine: - Testata: magazzino, anno, tipo, numero documento - Pagina 1: dati aggiuntivi (magazzini da/a, causali, commesse, note, trasporto) - Pagina 2: griglia con le righe del trasferimento

Maschera testata¶

Campo	Tipo	Descrizione
`tm-u-mag`	x(01)	Magazzino del documento di uscita
`tm-u-ann`	9(04)	Anno del documento
`tm-u-tip`	x(01)	Tipo documento
`tm-u-num`	9(06)	Numero documento
`tm-data`	9(08)	Data del trasferimento
`tm-cli`	9(05)	Codice cliente (per punto vendita)
`tm-cl-tip`	x(01)	Tipo cliente
`tm-doc-fis`	x(01)	Documento fiscale (S/N)

Maschera pagina 1¶

Campo	Tipo	Descrizione
`tm-da-mag` / `tm-a-mag`	x(01)	Magazzino partenza e destinazione
`tm-da-cau` / `tm-a-cau`	9(02)	Causale uscita e entrata
`tm-com-u-tsc` / `tm-com-e-tsc`	x(10)	Commessa uscita e entrata
`tm-nota`	x(100)	Note del trasferimento
`tm-divisa`	x(02)	Divisa del documento
`tm-pag-cod`	9(02)	Codice pagamento

Griglia righe¶

Colonna	Descrizione
`grd-merce`	Codice merce
`grd-um`	Unita' di misura
`grd-fl-pf`	Prodotto finito (conto lavoro)
`grd-qta`	Quantita'
`grd-prezzo`	Prezzo unitario
`grd-importo`	Importo riga
`grd-colli`	Colli
`grd-cu-tsc/sot`	Commessa uscita
`grd-ce-tsc/sot`	Commessa entrata
`grd-iva`	Codice IVA

Tasti funzione¶

Tasto	Funzione
F1	Configurazione
F3	Salva documento
F4	Cancella documento
F7	Descrizione aggiuntiva merce
F8	Aiuto / Calendario
F9	Stampa / Ricerca avanzata
S-F4	Gestione griglia (GRIDADMN)
S-F6	Esplodi distinta base (COGF23)
Ctrl+S	Salva impostazioni (COGS16)
Ctrl+F	Carica impostazioni
F6	Reso non lavorato (se conto lavoro)
F1	Togli/metti conto lavoro (se conto lavoro)
Invio	Modifica riga
Ctrl+A	Aggiungi riga
Ctrl+E	Elimina riga

File e Tabelle¶

File/Tabella	Copybook	Uso
TRAN-S16	tran-s16.cpy	Transito per stampa (COGS16)
TRAN-S47	tran-s47.cpy	Transito per elaborazione
COGTRANS	(definito inline)	File transito righe dettaglio con chiave alternata E/U
INPFIL	(definito inline)	File input sequenziale (lettura barcode)
OUT-U60-FILE	(definito inline)	File output per scarico terminalino
FEURTAB	cogfiles.cpy	File tabelle Euro
Tabelle via cogm21.select	cogm21.fd	Tabelle: merci, magazzini, saldi, bolle, causali, clienti, lotti, ecc.

Struttura del programma¶

Flusso principale¶

apri -> z-99-init-program -> ctr-abil -> rd-azi -> open-files
     -> Configurazione (x99-src-cfg, x99-confi, x99-conf via RNEWCONF)
     -> a4 (inizializzazione documento)
     -> Accept testata (a-tm-u-mag, a-tm-u-ann, a-tm-u-tip, a-tm-u-num)
     -> a-fine-chiave (lettura/creazione documento)
     -> Accept pagina 1 (dati aggiuntivi)
     -> a-inizio-pagina-2 -> griglia righe
     -> a-grid (navigazione griglia)
     -> salva-trasferimento

Paragrafi principali¶

Paragrafo	Funzione
`a4` / `a4-opn`	Inizializzazione documento e transito
`a-tm-u-mag/ann/tip/num`	Accept campi testata documento
`a-fine-chiave`	Ricerca documento: se esiste lo carica, altrimenti prepara inserimento
`a-pagina-1`	Accept dati aggiuntivi (magazzini, causali, note, trasporto)
`a-tm-da-mag` / `a-tm-a-mag`	Accept magazzino partenza e destinazione
`a-tm-da-cau` / `a-tm-a-cau`	Accept causali
`a-tm-com-u-tsc` / `a-tm-com-e-tsc`	Accept commesse
`a-tm-nota`	Accept note
`a-inizio-pagina-2`	Caricamento griglia righe
`a-grid`	Navigazione griglia e gestione tasti funzione
`leggi-consolidato`	Lettura dati consolidato
`x99-confi` / `x99-conf`	Lettura configurazioni da RNEWCONF

Logica di elaborazione¶

Inserimento nuovo trasferimento¶

L'utente indica magazzino, anno, tipo; il numero viene proposto dal sistema
Compila i dati aggiuntivi: magazzini da/a, causali, commesse, note, trasporto
Inserisce le righe nella griglia: merce, quantita', prezzo
Per ogni riga il sistema: verifica l'esistenza della merce, controlla la giacenza, gestisce i lotti (se attivi)
Al salvataggio: crea il documento di uscita e quello di entrata tramite COGD53

Variazione documento esistente¶

L'utente indica il documento; il sistema lo carica da COGTRANS
Le modifiche vengono tracciate: vecchie quantita' salvate per la compensazione dei saldi
Al salvataggio: COGD53 gestisce la rettifica dei movimenti

Cancellazione¶

F4 richiede conferma
La cancellazione genera lo storno dei movimenti sia in uscita che in entrata

Gestione conto lavoro¶

Se tm-cfg-fl-cl = "S": - F6: reso non lavorato - F1: togli/metti conto lavoro - F6: modifica prodotto finito - Visibilita' pulsanti gestita dinamicamente

Gestione lotti¶

Se la merce gestisce i lotti, COGD53 gestisce l'assegnazione e lo scarico dei lotti. Il programma supporta anche la lettura da terminalino (COGU60).

Configurazioni¶

Parametro (`tab-cfg`)	Note
`tm-cfg-doc-fis`	Gestione documento fiscale
`tm-cfg-cau-usc` / `tm-cfg-cau-ent`	Causali predefinite uscita/entrata
`tm-cfg-to-usc` / `tm-cfg-to-ent`	Top predefiniti
`tm-cfg-fl-cl`	Gestione conto lavoro
`tm-cfg-cau-cl-*`	Causali conto lavoro (mu/le/lu/me)
`tm-cfg-fl-sta`	Flag stampa
`tm-cfg-fl-pmua`	Flag prezzo medio/ultimo acquisto
`tm-cfg-mag-prove`	Magazzino prove
`tm-cfg-q3-ges/mag`	Gestione Q3
`tm-cfg-ctr-gia`	Controllo giacenza
`tm-cfg-gestione-sost`	Gestione sostituzioni
`tm-cfg-tipo-lettore`	Tipo lettore barcode
`tm-cfg-ctr-gia-sblocco-password`	Password sblocco controllo giacenza
`tm-cfg-modula-db-frontiera`	Integrazione Modula DB frontiera

Chiamate esterne¶

Programma	Scopo
RNEWCONF	Lettura configurazioni
COGD53	Scrittura/aggiornamento movimenti di magazzino
COGD61	Gestione documenti
COGF23	Esplosione distinta base
COGE18	Gestione EAN
COGE67	Gestione merce
COGS10	Selezione causali
COGS16	Salvataggio/caricamento impostazioni
COGU10/COGU10W	Utility valute
COGU12	Utility documenti
COGU18	Utility date
COGU61	Utility
COGU76	Utility (DC)
COGQS6	Gestione Q3 (flusso Modula)
COGV52	Visualizzazione
COGT43	Gestione transito
GESEVLOG	Log eventi
GRIDADMN	Gestione griglia interattiva
DIALOGS	Finestre di dialogo

Copybook utilizzate¶

Copybook generate da Screens¶

cogm21.select, cogm21.fd, cogm21.wrk, cogm21.prc, cogm21.decla, cogm21-01.scr, cogm21.tm, cogm21.imppredf-wrk

Copybook di libreria¶

cogfiles.cpy -- Definizione file Euro
tran-s16.cpy, tran-s47.cpy -- Transiti
costanti-cogevlog.cpy -- Costanti log eventi
costanti-modula.cpy -- Costanti Modula
k-u10.cpy -- Costanti utility valute
wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Working storage standard
cogazien.cpy -- Dati azienda
wgrid.cpy, utilgdad.cpy -- Griglia interattiva
utilgesevlog.cpy -- Interfaccia log eventi

Linkage¶

wcont.cpy -- Struttura linkage standard
wcont1.cpy -- Linkage supplementare
utild53.cpy -- Interfaccia COGD53
utild61.cpy -- Interfaccia COGD61
utilf23.cpy -- Interfaccia COGF23
utils21.cpy, utils47.cpy, utils25.cpy, utils52.cpy -- Interfacce sottoprogrammi

Note tecniche¶

Il file COGTRANS ha una chiave alternata trs-chia2 = trs-entrusc, trs-chia1 che permette di leggere i record separando entrate e uscite.
Il documento di trasferimento e' composto da due bolle: una di uscita e una di entrata, legate tra loro dalla testata (tm-doc-uscita e tm-doc-entrata-lav).
La gestione delle commesse e' opzionale: le commesse di uscita e entrata possono essere diverse.
Il salvataggio delle impostazioni di testata (Ctrl+S) usa il file TRAN-S16 come transito per COGS16.
Il programma supporta la lettura da terminalino barcode tramite COGU60 (tm-cfg-tipo-lettore).
La tabella tmb-righe mantiene una copia delle righe originali per gestire la cancellazione e la compensazione dei saldi in caso di variazione.
Il flag tm-cfg-modula-db-frontiera abilita l'integrazione con il magazzino automatizzato Modula tramite COGQS6.

Documentazione tecnica -- 2026-04-18