COGM104 - Avvertenze su Documenti¶

Sorgente: cbl/cogm104.cbl | Tipo: Programma interattivo | Program-ID: COGM104

Menu:

Magazzino > Archivi & Tabelle > Tabelle > Avvertenze su Documenti

Scopo¶

Gestione delle note di avvertenza stampate sui documenti (bolle, fatture). Le avvertenze possono essere associate a un cliente specifico (classe "A") oppure a condizioni generali del documento (classe "G": pagamento, trasporto, porto, nota generica). Il testo viene memorizzato in LODTMDES tramite la subroutine COGZDEW.

Interfaccia utente¶

Maschera (tab-maschera)¶

Campo	Tipo	Descrizione
tm-classe	X(01)	Classe: A=per cliente, G=generica
tm-tipo	X(01)	Tipo campo: P=pagamento, T=trasporto, O=porto, N=nota
tm-ana-tip	X(01)	Tipo anagrafica (fisso k-ana-tipo-cli)
tm-ana-cod	9(05)	Codice cliente
tm-ana-nom	X(40)	Ragione sociale cliente
tm-cura	X(01)	Trasporto a cura: M=mittente, D=destinatario, V=vettore
tm-pagamento	9(02)	Codice tipo pagamento
tm-pag-des	X(40)	Descrizione pagamento
tm-porto	X(19)	Tipo porto
tm-note	X(2000)	Testo dell'avvertenza
tm-note-len	9(04)	Lunghezza effettiva del testo

Ordine di accept dei campi¶

Classe > Tipo > Codice cliente > Pagamento > Trasporto > Porto > Conferma chiave > Note > Conferma finale

Tasti funzione¶

Tasto	Funzione
F3	Conferma chiave / Salva nota
F4	Cancella avvertenza
F8	Aiuto / Ricerca pagamento (chiama COGW02)
F9	Ricerca avanzata
ESC	Esce
F2	Torna al campo precedente

File e tabelle¶

File/Tabella	Copybook	Uso
FEURTAB	cogfiles.cpy	Tabella parametri generali
LODTMDES	lodtmdes.cpy, lodtmdes.fd	Note/descrizioni temporanee (memorizzazione testo)
COGGEANA	cogm104.fd	Anagrafica clienti (validazione codice cliente)
COGTABEL	cogm104.fd	Tabelle generiche, tipo 14 (pagamenti)

Composizione chiave LODTMDES¶

La chiave e' composta da:

Componente	Valore per classe "A"	Valore per classe "G"
ltd-tip	"AA"	"AG"
ltd-cod	tipo_anagrafica + codice_cliente + filler	tipo_campo + valore_campo + filler

Per classe "G" il valore del campo dipende dal tipo:

Tipo "P": codice pagamento (2 cifre)
Tipo "T": cura trasporto (1 carattere)
Tipo "O": descrizione porto (19 caratteri)
Tipo "N": vuoto

Programmi chiamati¶

Programma	Scopo
COGZDEW	Gestione note (editor di testo per avvertenze)
COGS65W	Ricerca cliente/fornitore (validazione codice cliente)
COGW02	Ricerca tipo pagamento (F8 su pagamento)

Copybook principali¶

cogm104.select, cogm104.fd, cogm104.wrk, cogm104.prc, cogm104.decla, cogm104-01.scr -- Screens
cogazien.cpy -- Dati azienda (az-personal per default tipo)
utils65.cpy -- Ricerca cliente/fornitore (COGS65W)
utilw02.cpy -- Ricerca pagamento (COGW02)
utilzde.cpy -- Interfaccia COGZDEW (editor note)

Logica di elaborazione¶

Flusso principale¶

Accept della chiave (classe, tipo, cliente/pagamento/trasporto/porto)
Validazione campi (x-controlla-chiave): cliente obbligatorio per classe "A", pagamento/trasporto/porto obbligatori per i rispettivi tipi di classe "G"
Conferma utente
Costruzione chiave LODTMDES (w-tip, w-scomp-cod) in base alla combinazione classe/tipo
Inizializzazione COGZDEW per la visualizzazione delle note
Lettura eventuale nota esistente da LODTMDES
Accept del testo (campo multilinea 2000 caratteri)
Salvataggio: cancellazione vecchia nota (c2-can-descrizioni) e inserimento nuova (x4-ins-descrizioni)

Visibilita' campi¶

In base alla classe e al tipo, i campi vengono abilitati/disabilitati:

Classe "A": visibile solo codice cliente; tipo, pagamento, trasporto, porto disabilitati
Classe "G" tipo "P": visibile pagamento; cliente, trasporto, porto disabilitati
Classe "G" tipo "T": visibile trasporto; cliente, pagamento, porto disabilitati
Classe "G" tipo "O": visibile porto; cliente, pagamento, trasporto disabilitati
Classe "G" tipo "N": tutti i campi specifici disabilitati

Il campo tipo per classe "A" viene azzerato; per classe "G" se az-personal = "BE" il default e' "P", altrimenti "N".

Caricamento nota esistente (a5-carica-des)¶

Costruisce la chiave per LODTMDES e chiama COGZDEW con operazione "C" (caricamento). Se la nota esiste, la mostra nel campo tm-note.

Cancellazione (F4)¶

Eseguita tramite la sezione cancella thru ex-cancella, richiamata dall'exception handler quando l'utente preme F4 e il tasto e' visibile. Ritorna ad a4 dopo la cancellazione.

File LODTMDES¶

Il file LODTMDES viene usato come file di lavoro temporaneo per operatore:

All'ingresso in a4: close + open output (verifica uso esclusivo) + close + open i-o
Alla chiusura: close + delete file

Note¶

L'editor di note COGZDEW viene inizializzato con dimensioni fisse (5x40 nella maschera, posizione 6,13).
La lunghezza effettiva del testo viene calcolata cercando l'ultimo carattere non-spazio nel campo tm-note (2000 byte).
Il programma usa PERFORM ... THRU per cancella, c2-can-descrizioni, x4-ins-descrizioni, a5-carica-des.

Documentazione tecnica -- 2026-05-01