COGM59 - Gestione Buoni di Prelievo¶

Sorgente: cbl/cogm59.cbl | Program-ID: COGM59 | Tipo: Interattivo con maschera text-mode

Menu: Magazzino > Entrate/Uscite > Buoni di Prelievo

Scopo¶

Aggiornamento e cancellazione dei buoni di prelievo (COGTESBP/COGRIGBP). Consente la visualizzazione, modifica e cancellazione dei buoni di prelievo con gestione prezzi, sconti, distinta base e macro-articoli.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	Tabella	Input	Tabella generale Eurosystem
COGTABEL	Tabella	Input	Tabelle di sistema
COGGEANA	Tabella	Input	Anagrafica clienti/fornitori
COGPOTCL	Tabella	Input	Potenziali clienti
COGMAGA2	Tabella	Input	Magazzini
COGMERCI	Tabella	Input	Anagrafica merci
COGTESBO	Tabella	Input	Testata bolle magazzino
COGSLMAG	Tabella	Input	Saldi magazzino
COGCNDCF	Tabella	Input	Condizioni commerciali fornitore
COGTESBP	Tabella	I-O	Testata buoni di prelievo
COGRIGBP	Tabella	I-O	Righe buoni di prelievo
COGINFPT	Tabella	Input	Informazioni potenziali
COGGENER	Tabella	Input	Tabella generica
COGMDTES	Tabella	Input	Testate Modula
COGIMPCA	Tabella	Input	Import carichi
COGISIRR	Tabella	Input	Registro irreversibilita'
TRAN-S16	Transito	Output	File transito per COGS16 (distinta base)
TRAN-S47	Transito	I-O	File transito per COGS47
INPFIL	Sequenziale	Input	File input per lettura EAN/quantita'

Copybook utilizzate¶

Copybook	Descrizione
`k-personal.cpy`	Costanti personalizzazioni
`k-u10.cpy`	Costanti gestione divise
`wstato.cpy`, `wgrave.cpy`, `wopenf.cpy`, `wnscr.cpy`	Working storage comuni
`cogazien.cpy`	Dati azienda
`utild53.cpy`	Interfaccia COGD53 (gestione riga)
`utils21.cpy`	Interfaccia COGS21
`utilw06.cpy`	Interfaccia WIN006 (finestra selezione)
`utilw36.cpy`	Interfaccia ricerca magazzino
`utilgw04.cpy`, `utilg04.cpy`	Interfaccia griglia
`utilm12.cpy`	Interfaccia COGM12 (descrizioni aggiuntive)
`utils22.cpy`	Interfaccia COGS22
`utils25.cpy`	Interfaccia COGS25 (numerazione)
`utils47.cpy`	Interfaccia COGS47
`utils52.cpy`	Interfaccia COGS52 (accept date)
`utils58.cpy`	Interfaccia COGS58
`utils60.cpy`	Interfaccia COGS60 (accept lista opzioni)
`utilm56.cpy`	Interfaccia COGM56
`utilu10.cpy`	Interfaccia COGU10 (divise)
`utilu12.cpy`	Interfaccia COGU12 (gestione prezzi)
`utilu20.cpy`	Interfaccia COGU20
`utilncnf.cpy`	Interfaccia RNEWCONF
`utilgesdebug.cpy`	Interfaccia gestione debug

Linkage¶

Copybook	Descrizione
`wcont.cpy`, `wcont1.cpy`	Contesto chiamante
`utilcogm59.cpy`	Parametri in ingresso (mag, anno, numero, mese, giorno, caller)
`utils01.cpy`	Interfaccia COGS01
`utils08.cpy`	Interfaccia COGS08
`utils16.cpy`	Interfaccia COGS16
`utilp64.cpy`	Interfaccia COGP64 (stampa buono)

Struttura del programma¶

Variabili della maschera (tab-maschera)¶

Variabile	PIC	Descrizione
`tm-mag`	X(01)	Codice magazzino
`tm-data` / `tm-aa`, `tm-mm`, `tm-gg`	9(08)	Data buono (anno/mese/giorno)
`tm-num`	9(06)	Numero buono
`tm-cli`	9(05)	Codice cliente
`tm-nome`	X(40)	Ragione sociale
`tm-listino`	9(02)	Numero listino
`tm-fascia`	9(02)	Fascia prezzo
`tm-rif`	X(25)	Riferimento/camera
`tm-pag`	X(01)	Tipo pagamento (P=Pagato, C=A credito)
`tm-note`	X(50)	Note
`tm-divisa`	X(02)	Divisa

Configurazioni RNEWCONF¶

Il programma legge due blocchi di configurazione:

Variabile	Descrizione
`tm-cfg-tip-num`	Tipo numerazione: A=annuale, L=per data
`tm-cfg-ges-lav`	Gestione lavanderia (S/N)
`tm-cfg-inf-tip`	Tipo informazioni potenziali
`tm-cfg-tip-alb`	Tipo albergo
`tm-cfg-acc-sco`	Gestione sconti: L=visualizza colonne sconti
`tm-cfg-vis-um`	Visualizza unita' di misura (S/N)
`tm-cfg-qta-dec`	Quantita' con decimali (S/N)
`tm-cfg-pre-ctr`	Prezzo controllore
`tm-cfg-db-sca`	Distinta base scarico
`tm-cfg-db-esc`	Distinta base esclusioni (gruppo/sottogruppo)

Griglia righe (tab-righe, max k-t-size = 100)¶

Variabile	PIC	Descrizione
`tamerce(i)`	X(09)	Codice merce (gru+sot+cod)
`taqta(i)`	9(07)v999	Quantita'
`taprezzo(i)`	9(12)v9(06)	Prezzo netto
`taprensc(i)`	9(12)v9(06) comp-4	Prezzo netto scontato
`tasc1(i)`, `tasc2(i)`	s9(02)v99 comp-4	Sconti
`taimpo(i)`	9(12)v9(06) comp-4	Importo riga
`tamacro(i)`	X(01)	Flag macro-articolo
`talotto-int(i)`	9(06)	Codice interno lotto

Flusso principale¶

a000 - Inizializzazione, apertura file, caricamento configurazione RNEWCONF, costruzione maschera dinamica in base alle configurazioni
a4 - Reset maschera; se chiamato da COGM65/COGF22, salta a lettura diretta
a6..a10 - Accept campi testata: magazzino, anno, numero, mese, giorno
a10-read - Lettura testata buono (COGTESBP), controlli (chiuso, Assist, Modula), caricamento righe (COGRIGBP) con conversione prezzi in divisa corrente
a10-disp - Visualizzazione dati, navigazione righe
a16 - Accept cliente, riferimento, note, tipo pagamento
Gestione righe: modifica quantita'/prezzi, esplosione distinta base (macro), aggiornamento

Operazione CANCELLA-SILENT¶

Se chiamato con w-dc-ope = "CANCELLA-SILENT" da COGD25, esegue la cancellazione del buono senza visualizzare la maschera.

Selezione sequenziale (F7)¶

Richiama COGS61 che restituisce un array di buoni (tm-tab-buoni, max 100 elementi) per un cliente. Il programma li gestisce in sequenza.

Chiamate esterne¶

Programma	Scopo
COGS52	Accept date con calendario
COGS60	Accept lista opzioni (tipo pagamento)
WIN006	Finestra selezione
COGU10	Conversione divise
COGU12	Gestione prezzi e sconti
COGU20	Utility generica
COGD53	Gestione riga dettaglio
COGP64	Stampa buono di prelievo
COGS16	Gestione distinta base
COGS22	Ricerca merci
COGS47	Gestione transito
COGM12	Descrizioni aggiuntive merce
COGS01	Utility generica
COGS08	Utility generica
COGS58	Utility generica
COGS61	Selezione buoni per cliente (F7)
RNEWCONF	Lettura configurazioni
FESTA	Verifica giorni festivi

Note¶

La maschera e' in modalita' text-mode (mm-1, 21 righe x 80 colonne) con costruzione dinamica delle colonne in base alle configurazioni (sconti, UM, decimali quantita').
Il programma supporta la personalizzazione ARTIC-SEALS (limitazione accesso alla modifica cliente).
I lotti vengono preservati durante la rilettura delle righe (campo rbp-colli usato come codice lotto interno).
La verifica consolidamento impedisce operazioni su periodi gia' chiusi contabilmente.