COSO40 -- Conteggio Quote¶

Sorgente: cbl/coso40.cbl | Tipo: Programma interattivo | Program-ID: COSO40

Menu: Contabilita' > Unione soci/clienti > Quote

Scopo¶

Calcolo delle quote sociali annuali per l'Unione Agricoltori. Il programma legge i tipi di conteggio dalla tabella generale (COGTABEL tipo 06), permette di impostare fino a 8 tipi di operazione, quindi elabora i soci calcolando per ciascuno la quota dovuta in base a superficie, tipo di conduzione, quota fissa e quota percentuale. Gestisce anche la sottrazione degli acconti.

File e tabelle¶

File/Tabella	Tipo	Descrizione
COGTABEL (FEURTAB)	Indexed, I-O	Tabella generale: tipi conteggio (tipo 06, codso1=50), causali (tipo 65)
QQUOTE (newquote)	Indexed, I-O	Archivio quote annuali per socio, file con nome dinamico `QUOaaaa.ARC`
COGCOATT	Indexed, Input	Archivio Prima Nota contabilizzata (per acconti)
COGTRANS	Indexed, I-O	File di transito temporaneo per elaborazione
QUOTELOG	Sequential, Output	File di log per errori/operazioni
FLSTA	Sequential	File di stampa

Copybook principali¶

coso40.wrk / coso40.select / coso40.fd / coso40.prc / coso40.decla - Screen designer
cogfiles.cpy - Definizione file tabella generale
newquote.cpy - Record archivio quote
cogcoatt.cpy - Record Prima Nota contabilizzata
cogazien.cpy - Dati azienda
cogconta.cpy - Dati contabilita' (esercizio, chiusure)
worksoc.cpy - Working storage soci
wgrid.cpy / utilgdad.cpy - Gestione griglia
utilu10.cpy / k-u10.cpy - Gestione importi e divise
utils52.cpy - Gestione date
utils54.cpy - Gestione stampa
utils99.cpy - Accept con aiuto codice
utile65.cpy - Utility

Struttura del programma¶

Paragrafi principali¶

Paragrafo	Funzione
`apri`	Inizializzazione, apertura file, creazione file transito
`a4`	Inizializzazione maschera per nuovo conteggio
`a-tm-anno`	Accept anno di competenza, apertura/creazione archivio quote
`a-tm-acco-sn`	Accept flag acconti (S/N)
`a-tm-tipo-op1` ... `a-tm-tipo-op8`	Accept dei tipi operazione (fino a 8)
`a-richiesta-conferma`	Validazione parametri, caricamento tipi conteggio da COGTABEL
`a10-loop`	Loop caricamento tipi conteggio in griglia
`a-grid` / `a-accept-grid`	Gestione griglia tipi conteggio
`a-riga-dettaglio`	Modifica importo singolo tipo conteggio
`aggiorna`	Aggiornamento archivio quote (via PERFORM THRU)
`calcola-tot-superf-x-socio`	Calcolo superficie totale per ciascun socio
`calcola-quo-val-percent`	Calcolo quota percentuale
`calcola-quo-valore-fisso`	Calcolo quota fissa per superficie/conduzione
`aggiorna-quota-fissa-socio`	Aggiornamento totale quota fissa per socio
`calcola-tot`	Calcolo totali (numero soci e importo totale)

Flusso di elaborazione¶

L'utente imposta anno e parametri.
Il programma carica i tipi di conteggio da COGTABEL (tipo=06, codso1=50) in griglia.
L'utente puo' modificare gli importi delle quote fisse.
Alla conferma (F3 su griglia), il programma:
Aggiorna l'archivio quote (aggiorna)
Calcola la superficie totale per socio (calcola-tot-superf-x-socio)
Calcola la quota percentuale (calcola-quo-val-percent)
Calcola la quota fissa per superficie/conduzione (calcola-quo-valore-fisso)
Aggiorna il totale quota fissa per socio (aggiorna-quota-fissa-socio)
Calcola i totali (calcola-tot)

Logica di elaborazione¶

Chiave archivio quote (QQUOTE)¶

Il record quote ha chiave composta: socio (5) + anno (4) + tipo quota (3) + conduzione (3) + P/M (1) + tipo (1) + progressivo (1). Include superficie in ettari, importo unitario, valore, segno, modalita', acconto, sconto, valore fisso e percentuale.

Tipi operazione¶

I tipi operazione 080 e 081 sono esclusi dal conteggio. Ogni tipo viene validato contro COGTABEL tipo 65 (causali contabili).

Gestione acconti¶

Se il flag acconti e' attivo ("S"), il programma cerca nella Prima Nota contabilizzata (COGCOATT) gli acconti gia' versati per ciascun socio e li sottrae dalla quota calcolata.

Record COGTABEL tipo 06¶

Ogni tipo conteggio contiene nella descrizione (EUTA-DESCR1) i dati strutturati: descrizione quota, importo fisso, flag coadiuvante (S/N), importo coadiuvante, flag forfetario (S/N). I forfetari vengono saltati nel caricamento griglia.

CALL esterne¶

Programma	Scopo
`GRIDADMN`	Gestione griglia (Prepara, Svuota-Tutto, Add-Record, Modify-Record)
`COGS54`	Gestione output stampa
`COGS52W`	Accept/validazione date
`COGU10W`	Accept/formattazione importi
`COGS99W`	Accept codici con aiuto