COGP43 — Stampa Riepilogo Contabile¶
Sorgente: cbl/cogp43.cbl | Program-ID: COGP43 | Tipo: Programma di stampa interattivo
Menu: Contabilita' > Archivi & Tabelle > Stampe > Clienti > Stampa Riepilogo Contabile
Scopo¶
Stampa il riepilogo dell'esposizione contabile dei clienti, con fido concesso, extrafido, esposizione contabile corrente, data ultima fattura e fatturato annuo. L'elenco puo' essere ordinato alfabeticamente o per codice numerico, con filtro per intervallo di clienti e anno di riferimento.
Struttura della maschera¶
| Campo | Variabile | Descrizione |
|---|---|---|
| Ordinamento | tm-ord |
"A" = Alfabetico, "N" = Numerico (combo-box) |
| Cliente Da | tm-cli-da |
Codice cliente di partenza (0 = dall'inizio). F8/F9 per ricerca |
| Cliente A | tm-cli-a |
Codice cliente di arrivo (0 = alla fine) |
| Anno | tm-data-aa |
Anno di elaborazione (obbligatorio) |
Logica di elaborazione¶
Flusso principale¶
- Selezione parametri: ordinamento, intervallo clienti, anno. La divisa di conto viene determinata con
COGU10W / GetDivisaConto - Scansione anagrafiche: se ordinamento numerico, scansione COGGEANA per chiave primaria (tipo "C"); se alfabetico, per chiave secondaria (
ana-chia1) - Per ogni cliente: vengono recuperati e stampati:
- Fido concesso (
ana-fido): formattato con COGU10W; se = 9999999999 viene stampato con formato numerico semplice - Extrafido (
ana-extra-fido): formattato con COGU10W - Esposizione contabile: calcolata da COGS86 (funzione
SCAN-VAL, flag "O"/"N") - Data ultima fattura: da COGAPPOG (
app-data-um) - Fatturato anno: calcolato da COGF43 (funzione
Totale)
Controllo intervallo¶
Se ordinamento numerico, il controllo e' su ana-cod; se alfabetico, il controllo e' su ana-nome. In entrambi i casi, il cliente di arrivo deve essere maggiore di quello di partenza.
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| COGGEANA | Input | Anagrafica clienti (chiave primaria e secondaria) |
| COGAPPOG | Input | Dati commerciali clienti (data ultima fattura) |
| FLSTA | Output | File spool stampa |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGF43 | Calcolo fatturato annuo cliente |
| COGS86 | Calcolo esposizione contabile (saldo partite aperte) |
| COGU10W | Formattazione importi con divisa e determinazione divisa di conto |
| COGS52W | Gestione campo anno con calendario (F8) |
| COGS54 | Gestione stampa/spooler |
| COGS65W | Help selezione cliente con ricerca (F8/F9) |
Copybook principali¶
cogp43.wrk, cogp43.select, cogp43.fd, cogp43.decla, cogp43-01.scr, cogp43.prc, coggeana.k02, cogazien.cpy, utils52.cpy, utils54.cpy, utils65.cpy, utils86.cpy, utilu10.cpy, utilf43.cpy
Note¶
- La larghezza di stampa e' 127 caratteri.
- Il titolo in maschera e' "Stampa Esposizione Contabile Clienti", ma nel menu compare come "Stampa Riepilogo Contabile".
- L'intestazione stampa include la colonna "Fatturat." seguita dall'anno selezionato.
- Il programma cancella COGF43 e COGS86 dopo l'uso.