COSO42 - Stampa Sintetica Quote
Funzione
Stampa sintetica (riepilogativa) del conteggio quote soci dell'Unione Agricoltori. Per ogni socio produce una singola riga con totali quota fissa, superficie, acconto, lordo, sconto e quota totale. Produce totali per zona e totale generale.
- Contabilita' > Unione soci/clienti > Quote > Stampa Sintetica Quote
Tabelle e file principali
| Tabella/File |
Descrizione |
Accesso |
| QQUOTE (newquote) |
Archivio quote soci, file indicizzato per anno |
Input |
| UNANASO |
Anagrafica soci/clienti |
Lettura (chiave 1, 5) |
| COGTABEL (euta-tipo=06) |
Tabelle generiche: zone (codso1=90), figure giuridiche (codso1=50) |
Lettura |
| FLSTA |
File di stampa |
Output |
Copybook e sottoprogrammi
| Elemento |
Tipo |
Ruolo |
| newquote.cpy / newquote.fd |
Copybook |
Record e SELECT file quote |
| flsta.cpy / flsta.fd |
Copybook |
File di stampa |
| cogfiles.cpy |
Copybook |
File configurazione |
| cogazien.cpy |
Copybook |
Dati azienda |
| coso42.select / .fd / .wrk / .prc |
Screen |
Definizioni screen |
| COGS54 |
Sottoprogramma |
Gestione stampante |
| COGS65W |
Sottoprogramma |
Lookup socio con ricerca |
| COSO30 |
Sottoprogramma |
Help/lookup zona (F8) |
| unanaso.k05 |
Copybook |
Accesso anagrafica per zona |
| getdcont.cpy |
Copybook |
Lettura divisa conto |
| utils52 / utils54 / utils65 / utilu10 / utilo30 |
Copybook |
Utility varie |
Logica principale
- Maschera parametri: identica a COSO41 - anno (obbligatorio), tipo quota, socio (0=tutti), zona (999=tutte), ordine stampa (G/Z)
- Apertura archivio: verifica esistenza file quote per l'anno (QUOaaaa.ARC)
- Scansione soci: lettura sequenziale UNANASO, chiave 1 (generale) o chiave 5 (per zona)
- Per ogni socio: cerca record in QQUOTE per socio/anno e accumula per categoria:
- quo-mode = "F", "C", "Q" -> quota fissa (quota-s, quota-t, quota-t-z)
- quo-mode = "S" -> superficie (super-s, super-t, super-t-z)
- quo-mode = "A" -> acconto (accon-s, accon-t, accon-t-z)
- quo-mode = "T" -> totale socio con sconto (sconto-s, total-socio)
- Riga socio: stampa una riga con codice, nome, tipo giuridico, quota fissa, superficie, acconto, lordo (= quota + super + acconto), sconto e quota totale
- Rottura zona: se ordine per zona, stampa totale zona al cambio
- Fine: stampa totale generale
Note
- Struttura molto simile a COSO41 ma con output sintetico (una riga per socio)
- I soci con codice > 89999 sono esclusi
- I soci senza zona assegnata (anas-zona2 = 0) sono esclusi nella stampa per tutte le zone
- Formato stampa 132 colonne
- Utilizza PERFORM THRU in vari punti (pattern legacy)
- I totali zona (tota-zon) vengono azzerati dopo la stampa del sottototale zona