COGR20 - Gestione Memoria Ritenute Acconto¶
Sorgente: cbl/cogr20.cbl | Program-ID: COGR20 | Tipo: Programma interattivo (standalone, richiamabile)
Menu: Contabilita' > Documenti IVA; Contabilita' > Fornit. a Part.Aperte > Ritenute d'acconto
Scopo¶
Gestione della memoria delle ritenute d'acconto associate a partite IVA. Permette di inserire, modificare e cancellare i record di ritenuta (tabella COGRITAC) collegati a un documento IVA. Gestisce aliquote IRPEF e imponibilita', ritenute previdenziali (INPS) e sanitarie (SSN), con ripartizione tra quota ente e quota collaboratore. Puo' essere richiamato da altri programmi tramite la linkage section (utilcogr20.cpy), ricevendo i parametri della partita direttamente dal chiamante.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Indexed | Input | Tabella di configurazione file/nomi |
| COGRITAC | Indexed | I-O | Archivio memoria ritenute d'acconto (file principale) |
| COGTABEL | Indexed | Input | Tabella generica contabilita' (tipi documento, aliquote, ecc.) |
| COGGEANA | Indexed | Input | Anagrafica clienti/fornitori |
| COGFATTU | Indexed | Input | Archivio fatture (per precaricamento dati) |
| COGPNCON | Indexed | Input | Piano dei conti |
| COGMOVPA | Indexed | Input | Movimenti partite aperte |
| File contabilizzata ATT | Indexed | Input | Partite attive (nome determinato a runtime da COGTABEL tipo 66) |
| File contabilizzata PRE | Indexed | Input | Partite passive (nome determinato a runtime da COGTABEL tipo 66) |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT per tabella file nomi |
| cogr20.select | SELECT per archivi specifici del programma |
| cogr20.fd | FD per archivi specifici del programma |
| cogr20.wrk | Working storage specifico |
| k-u10.cpy | Costanti gestione importi |
| wgrave.cpy | Gestione errori gravi |
| wnscr.cpy | Dati schermo |
| wopenf.cpy | Gestione apertura file |
| wstato.cpy | Variabili stato |
| cogazien.cpy | Dati azienda |
| cogconta.cpy | Dati esercizio contabile |
| utile16.cpy | Utility subroutine COGE16 |
| utils52.cpy | Utility gestione date (COGS52W) |
| utils65.cpy | Utility ricerca anagrafica (COGS65W) |
| utilu10.cpy | Utility importi (COGU10W) |
| utilw62.cpy | Utility WIN062 |
| utilw67.cpy | Utility WIN067 (ricerca tipo doc IVA) |
| wcont.cpy | Linkage section - stringhe comuni |
| utilcogr20.cpy | Linkage section - parametri passati dal chiamante |
| wcont1.cpy | Linkage section - area utente |
| grave.cpy | Paragrafi gestione errori gravi |
| mmmask.cpy | Paragrafi init/exit programma standalone |
| opengen.cpy | Paragrafi apertura generica file |
| stato.cpy / stato1.cpy | Paragrafi controllo stato I/O |
| winmsg.cpy | Paragrafi messaggi a video |
| getdcont.cpy | Paragrafi lettura dati contabilita' |
| cogr20.prc | Paragrafi specifici del programma |
Logica di elaborazione¶
- Inizializzazione: apertura file, lettura dati azienda ed esercizio contabile, apertura file partite attive e passive i cui nomi fisici sono ricavati da COGTABEL tipo 66.
- Pulizia preventiva: scansione di COGRITAC per eliminare record con
rit-alritac = 0(residui non validi), che vengono riscritti con aliquota 4. - Modalita' chiamato: se il programma e' richiamato con parametri in
utilcogr20.cpy, i campi della partita (codice, anno, tipo, numero) vengono precompilati e l'utente accede direttamente alla sezione dati. - Ricerca partita: l'utente inserisce anno, tipo e numero del documento IVA; se la fattura e' presente in COGFATTU, i dati del fornitore e il numero fattura fornitore vengono caricati automaticamente.
- Lettura dati ritenuta: lettura di COGRITAC per la chiave (cliente, anno, tipo, numero, scadenza); i record trovati vengono presentati nella tabella delle scadenze (fino a 10 elementi).
- Aliquote: l'aliquota di ritenuta e quella IRPEF vengono proposte dall'anagrafica fornitore (COGGEANA) se non gia' presenti.
- Salvataggio (F3): scrittura/riscrittura dei record di COGRITAC per tutte le scadenze.
- Cancellazione (F4): eliminazione di tutti i record COGRITAC per la partita selezionata, con conferma obbligatoria.
Chiamate a sottoprogrammi¶
| Programma | Scopo |
|---|---|
| COGS52W | Gestione input date con validazione e calendario |
| COGS65W | Ricerca anagrafica (clienti/fornitori) |
| WIN067 | Popup ricerca tipo documento IVA |
| WIN062 | Gestione combo-box (tipo ritenuta) |
| COGE16 | Utility varia contabilita' |