COGV46 -- Gestione saldi imballi (cauzioni)¶

Sorgente: cbl/cogv46.cbl | Tipo: Programma con interfaccia grafica (maschera a due pagine) | Program-ID: COGV46

Menu: Magazzino > Giacenze & Sottoscorta > Saldi Imballi

Scopo¶

Visualizza e gestisce i saldi degli imballi (cauzioni) per soggetto e per merce. Per ogni combinazione soggetto (nonno/padre/figlio) / merce / magazzino mostra le quantita' e i valori di imballi dati e resi, con i saldi risultanti. Permette l'inserimento, la modifica e la cancellazione dei saldi.

Se la configurazione imballi e' "B" (solo bollato), il programma reindirizza a COGY25 per la gestione specifica del bollato vini.

Interfaccia utente¶

Struttura a due pagine¶

Pagina 1: ricerca per soggetto (nonno/padre/figlio), magazzino e merce
Pagina 2: visualizzazione e gestione saldi (quantita'/valore dato e reso, bottiglie)

Maschera pagina 1¶

Campo	Tipo	Descrizione
`tm-nonno`	9(05)	Codice soggetto principale
`tm-nonno-des`	x(40)	Ragione sociale
`tm-padre`	9(05)	Sotto-soggetto intermedio
`tm-padre-des`	x(40)	Ragione sociale padre
`tm-figlio`	9(05)	Sotto-soggetto di dettaglio
`tm-figlio-des`	x(40)	Ragione sociale figlio
`tm-mag`	x(01)	Codice magazzino
`tm-mag-des`	x(35)	Descrizione magazzino
`tm-merce`	x(09)	Codice merce (imballo)
`tm-merce-des`	x(40)	Descrizione merce

Maschera pagina 2¶

Campo	Tipo	Descrizione
`tm-qta-dare`	9(07)v999	Quantita' imballi dati
`tm-val-dare`	9(12)v9(06)	Valore imballi dati
`tm-qta-avere`	9(07)v999	Quantita' imballi resi
`tm-val-avere`	9(12)v9(06)	Valore imballi resi
`tm-bot-dare`	9(07)v999	Bottiglie date
`tm-bot-avere`	9(07)v999	Bottiglie rese
`tm-divisa`	x(02)	Divisa dei valori

Tasti funzione¶

Tasto	Funzione
F2	Giacenze (k-f2-giacenze)
F3	Conferma / Salva
F4	Cancella record
F8	Aiuto sul campo
ESC	Uscita

File e Tabelle¶

File/Tabella	Copybook	Uso
FEURTAB	cogfiles.cpy	File tabelle Euro
Tabelle via cogv46.select	cogv46.fd	Saldi imballi, anagrafica, merci, magazzini

Struttura del programma¶

Flusso principale¶

apri -> ctr-abil -> z-99-init-program -> rd-azi
     -> Controllo az-imballi = "B" -> redirect a COGY25
     -> x-carica-lingua -> open-files
     -> get-divisa-conto
     -> a4 (inizializzazione)
     -> Accept pagina 1: a-tm-nonno, a-tm-padre, a-tm-figlio,
                          a-tm-mag, a-tm-merce
     -> a-richiesta-conferma (lettura/creazione saldo)
     -> Accept pagina 2: a-tm-qta-dare, a-tm-val-dare,
                          a-tm-qta-avere, a-tm-val-avere,
                          a-tm-bot-dare, a-tm-bot-avere
     -> a-richiesta-conferma-bis (salvataggio)

Paragrafi principali¶

Paragrafo	Funzione
`a4`	Inizializzazione maschera
`a-tm-nonno/padre/figlio`	Accept gerarchia anagrafica
`a-tm-mag`	Accept magazzino
`a-tm-merce`	Accept codice merce
`a-richiesta-conferma`	Validazione e lettura saldo esistente
`a-tm-qta-dare/val-dare/qta-avere/val-avere`	Accept quantita' e valori
`a-tm-bot-dare/bot-avere`	Accept bottiglie
`a-richiesta-conferma-bis`	Validazione finale e salvataggio
`x-controlla-tm-nonno/padre/figlio`	Validazione soggetti (lettura COGGEANA)
`x-controlla-tm-mag`	Validazione magazzino (lettura COGMAGAZ)
`x-controlla-tm-merce`	Validazione merce
`x-imposta-conferma` / `x-imposta-conferma-bis`	Validazione completa

Logica di elaborazione¶

Ricerca saldi¶

Il programma cerca il saldo imballi per la combinazione nonno/padre/figlio/mag/merce. Se trovato, carica i valori nei campi della pagina 2. Se non trovato, inizializza i campi a zero per un nuovo inserimento.

Salvataggio¶

Al salvataggio (F3 su pagina 2), il programma scrive o aggiorna il record del saldo imballi con le quantita' e i valori inseriti.

Cancellazione¶

F4 cancella il record del saldo per la combinazione corrente.

Redirect bollato vini¶

Se az-imballi = "B", il programma chiama COGY25 e termina. COGY25 gestisce la logica specifica per il bollato vini.

Chiamate esterne¶

Programma	Scopo
COGY25	Gestione bollato vini (se `az-imballi = "B"`)
COGS65W	Selezione anagrafica (nonno/padre/figlio)
COGU10W	Utility valute

Copybook utilizzate¶

Copybook generate da Screens¶

cogv46.select, cogv46.fd, cogv46.wrk, cogv46.prc, cogv46.decla, cogv46-01.scr

Copybook di libreria¶

cogfiles.cpy -- Definizione file Euro
k-u10.cpy -- Costanti utility valute
wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Working storage standard
cogazien.cpy -- Dati azienda
utilm12.cpy -- Interfaccia COGM12
utils52.cpy, utils65.cpy, utils68.cpy -- Interfacce sottoprogrammi
utilu10.cpy, utilu20.cpy -- Interfacce utility
utilg40.cpy -- Interfaccia G40

Linkage¶

wcont.cpy -- Struttura linkage standard
wcont1.cpy -- Linkage supplementare

Note tecniche¶

Il programma e' specifico per la gestione cauzioni/imballi. Il pulsante F2 "giacenze" permette di consultare le giacenze della merce selezionata.
La gerarchia nonno/padre/figlio corrisponde alla struttura dell'anagrafica clienti/fornitori con sedi e sotto-sedi.
I campi padre e figlio vengono abilitati/disabilitati dinamicamente in base alla struttura dell'anagrafica.
La divisa dei valori e' la divisa del piano dei conti (w-currency-conto), ottenuta tramite COGU10W con operazione GetDivisaConto.

Documentazione tecnica -- 2026-04-18