COSO52 -- Ricezione esiti Mav¶

Sorgente: cbl/coso52.cbl | Tipo: Programma interattivo | Program-ID: COSO52

Menu: Contabilita' > Unione soci/clienti > Esiti Mav

Scopo¶

Caricamento e contabilizzazione dei dati provenienti dal file esiti di ritorno MAV (Mediante Avviso). Il programma legge il file CBI degli esiti, abbina i pagamenti ai soci, genera le righe di Prima Nota contabile separando imponibile e IVA, e gestisce gli insoluti. Produce un file CSV riepilogativo che viene aperto automaticamente al termine.

File e tabelle¶

File/Tabella	Tipo	Descrizione
COGTABEL (FEURTAB)	Indexed, I-O	Tabella generale: configurazione contabilita' (tipo 66), zone (tipo 06/90), postazioni (tipo "AH")
UNICARI	Sequential, Input	File esiti MAV in formato CBI (record 120 byte)
FILEASC2	Line Sequential, Output	File CSV riepilogativo per verifica
FLSTA	Sequential	File di stampa

Copybook principali¶

coso52.wrk / coso52.select / coso52.fd / coso52.prc / coso52.decla - Screen designer
cogfiles.cpy - Definizione file tabella generale
cogconta.cpy - Dati contabilita' (esercizio, chiusure)
cogazien.cpy - Dati azienda
unicari.fd - Select file esiti CBI
opensave.def - Dialog box apertura/salvataggio file
utils52.cpy - Gestione date
utils54.cpy - Gestione stampa
utils67.cpy - Accept conti contabili (mastro/conto/sottoconto)
utils99.cpy - Accept codici con aiuto
utilu10.cpy / k-u10.cpy - Gestione importi e divise
utils25.cpy - Utility
utils65.cpy - Utility

Struttura del programma¶

Tracciati record CBI¶

Il file esiti MAV segue il formato CBI standard con i seguenti tipi record:

Tipo	Descrizione
IM	Record di testa (mittente, data creazione, divisa)
14	Record pagamento (numero progressivo, data pagamento, causale, importo, codice azienda/debitore)
20	Descrizioni aggiuntive (4 righe da 24 caratteri)
30	Dati anagrafici debitore (nome, codice fiscale/P.IVA)
40	Indirizzo debitore (via, CAP, comune)
50	Dati debito (2 righe da 40 caratteri)
51	Riferimenti ricevuta (numero ricevuta, numero documento)
70	Record di controllo
EF	Record di chiusura (totale importi, numero record)

Paragrafi principali¶

Paragrafo	Funzione
`apri`	Inizializzazione, lettura tabella contabilita' (tipo 66), configurazione zona
`a4`	Inizializzazione maschera
`a-tm-nf-cari`	Accept nome file esiti (con F5 per browse file system)
`a-tm-datart`	Accept data registrazione (validata contro esercizio)
`a-tm-valuta`	Accept data valuta
`a-tm-contoav`	Accept conto bancario di contropartita (via COGS67)
`a-tm-descri`	Accept descrizione contropartita
`a-tm-causaled`	Accept causale contabile incasso
`a-tm-causale-inso`	Accept causale insoluti
`a-tm-data-inso`	Accept data insoluti
`a-tm-impo-inso`	Accept importo soglia insoluti
`a-richiesta-conferma`	Validazione e avvio elaborazione
`elabora`	Lettura file CBI, abbinamento soci, calcolo importi per codice IVA
`contab-controp`	Generazione scritture contabili di Prima Nota

Logica di elaborazione¶

Flusso principale¶

L'utente seleziona il file e imposta i parametri contabili.
Il paragrafo elabora legge sequenzialmente il file UNICARI:
Per ogni record tipo 14, estrae importo, causale e codice debitore.
Cerca il socio nella tabella membri (UNMEMBOL) per abbinare il pagamento.
Accumula gli importi separando imponibile e IVA per codice IVA.
Scrive le righe nel file CSV riepilogativo.
Se il totale generale (TOTGE) e' diverso da zero, il paragrafo contab-controp genera il documento di Prima Nota con le righe contabili (dare/avere) per incasso e IVA.
Al termine, apre il file CSV tramite GRIDTOXS per la verifica visuale.

Gestione IVA¶

Il programma mantiene una tabella interna (w-tab-iva, max 30 elementi) per accumulare gli importi per codice IVA. Per ogni socio pagante, legge la configurazione IVA dalla tabella membri e suddivide l'importo tra imponibile e IVA.

Gestione insoluti¶

Se impostata la causale insoluti, il programma genera scritture separate per gli importi non incassati, utilizzando la data e l'importo soglia indicati dall'utente.

File CSV output¶

Il file CSV viene generato nel percorso temporaneo con nome MAV_<operatore> e contiene: tipo, codice socio, nome, causale, imponibile, IVA, totale riga 1, imponibile riga 2, IVA riga 2, totale riga 2.

CALL esterne¶

Programma	Scopo
`COGS52W`	Accept/validazione date
`COGS67W`	Accept conti contabili con ricerca
`COGS99W`	Accept codici con aiuto
`COGU10W`	Accept/formattazione importi
`C$OPENSAVEBOX`	Dialog box selezione file
`C$FILEINFO`	Informazioni file (dimensione)
`GRIDTOXS`	Apertura file CSV in foglio di calcolo