COSO39 - Tabella Causali

Scopo

Gestione della tabella causali con IVA per l'Unione Soci. Ogni causale definisce: codice, descrizione, assoggettamento IVA (si/no e codice), tipo operazione (interesse/credito), collegamento a conto del piano dei conti (CPA/CCO), flag bilancio. I dati risiedono nella tabella generica COGTABEL (EUTA) con tipo = 65. Include funzionalita' di import/export da/verso file CSV.

Menu

Contabilita' > Unione soci/clienti > Tabelle > Tabella Causali

File e tabelle

File	Tipo	Descrizione
FEURTAB	Parametri	File parametri di ambiente
COGTABEL (EUTA)	Indicizzato	Tabella generica, filtrata su euta-tipo = 65
FILEASC2	Sequenziale	File CSV per import/export causali

Copybook

File e select

• feurtab.fd — FD file parametri
• cogfiles.cpy — Record file parametri
• coso39.select — SELECT dei file
• coso39.fd — FD specifici del programma
• coso39.wrk — Working-storage generata

Working-storage standard

• wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
• k-u10.cpy — Costanti U10 (date)

Utilita'

• wgrid.cpy — Strutture gestione griglia
• utilgdad.cpy — Utility GRIDADMN
• utilgrid.cpy — Procedure griglia
• utils52.cpy — Gestione date
• utilu10.cpy — Utility U10

Linkage

• wcont.cpy, wcont1.cpy — Stringhe di comunicazione

Procedure

• coso39.prc — Procedure I/O su COGTABEL
• grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy

CALL

Programma	Descrizione
GRIDADMN	Gestione griglia
COGS52W	Gestione input date
COGU10W	Utility date

Logica di elaborazione

1. Inizializzazione: apre file, legge azienda, prepara la griglia
2. Caricamento (carica-tab): legge tutti i record COGTABEL con euta-tipo=65 in sequenza tramite START/READNEXT, caricando nell'array tab-maschera fino a max 900 elementi. Per ogni record legge: codice, descrizione, flag IVA, codice IVA, flag interesse, flag credito, mastro/conto CPA/CCO, flag bilancio
3. Griglia principale: mostra tutte le causali con le colonne codice, descrizione, IVA, cod.IVA, interesse, credito, CPA/CCO, bilancio
4. Inserimento (a-riga-dettaglio con operazione "I"): accept su tutti i campi della causale con validazione. Verifica unicita' codice, obbligatorieta' descrizione, coerenza IVA
5. Modifica (a-riga-dettaglio con operazione "M"): stessa logica dell'inserimento, con lock del record
6. Cancellazione (F4): cancella il record COGTABEL e rimuove dalla griglia
7. Import (x-importa): apre file CSV (fileasc2), legge righe con campi separati da virgola (tipo, codice, descrizione, IVA si/no, codice IVA, interesse, credito, CPA/CCO, bilancio), inserisce/aggiorna in COGTABEL. Numerazione merce opzionale
8. Export (x-esporta): scrive tutte le causali su file CSV con la stessa struttura dell'import

Struttura record EUTA per tipo 65

Il campo euta-descr (alfanumerico) viene usato per memorizzare in formato compatto: - Posizioni 1-40: descrizione causale - Flag IVA, codice IVA, flag interesse, flag credito, CPA/CCO, flag bilancio (campi codificati nel record)

I campi specifici sono mappati tramite variabili locali nell'array tab-maschera.

Chiave tabella

• euta-tipo = 65
• euta-codr = codice causale numerico

Note tecniche

• Il file CSV usa virgola come separatore e campi a lunghezza fissa.
• L'import sovrascrive i record esistenti (write, se fallisce fa rewrite).
• La numerazione merce (w-numeraz-merce) viene incrementata durante l'import se il flag e' attivo.
• Il programma gestisce una griglia ordinabile dall'utente tramite GRIDADMN.
• Usa PERFORM ... THRU e GO TO in vari punti (codice legacy).