COGE56 — Ritenute Previdenziali¶

Sorgente: cbl/coge56.cbl | Program-ID: COGE56 | Tipo: Gestione tabella a maschera singola (campo per campo)

Menu: Contabilita' > Archivi & Tabelle > Tabelle > Parametri Rit.Acconto > Ritenute Previdenziali

Scopo¶

Gestisce la tabella dei tipi di ritenuta previdenziale (tipo 39 su COGTABEL). Permette inserimento, modifica e cancellazione. Non usa griglia: la maschera presenta un record alla volta con navigazione campo per campo.

Struttura della maschera¶

Maschera a campo singolo con navigazione sequenziale. Screen definita in coge56-01.scr.

Campi tab-maschera: - tm-tipo: codice tipo previdenza (1 carattere) - tm-tipo-des: descrizione (30 caratteri) - tm-aliq1: aliquota imponibile (3 cifre intere) - tm-aliq2: aliquota ritenuta (3 cifre intere + 2 decimali) - tm-aliq-ente: aliquota a carico ditta (3+2) - tm-aliq-for: aliquota a carico collaboratore (3+2) - tm-cod-conto: conto contabile collaboratore (3 cifre) - tm-cod-conto-e: conto contabile ditta (3 cifre) - tm-cod-cc: contropartita costo ditta (3 cifre) - tm-top: tipo operazione movimento (3 cifre) - tm-cod-iva-rit: codice IVA per fatturazione (2 caratteri) - tm-mod-ver-rit: modalita' versamento (1 carattere, default "M") - tm-contr-min-rit: contributo minimo (6+2) - tm-contr-max-rit: contributo massimo (6+2)

Logica di elaborazione¶

Inizializzazione¶

Apre files, legge azienda.
Imposta tasti funzione: F3 (aggiorna), F4 (cancella), F8 (aiuto).

Flusso principale¶

Richiesta tipo (a-tm-tipo): l'utente digita il codice. F8 apre WIN080 con tipo 39 per la selezione.
Lettura record (a10-loop): cerca su COGTABEL tipo=39, codice=input. Se trovato, carica tutti i campi e imposta fl-ins-var = "V" (variazione). Se non trovato, va in inserimento.
Accept sequenziale: a-tm-tipo-des > a-tm-aliq1 > a-tm-aliq2 > a-tm-cod-iva-rit > a-tm-mod-ver-rit > a-tm-contr-min-rit > a-tm-contr-max-rit > a-tm-aliq-for > a-tm-cod-conto > a-tm-aliq-ente > a-tm-cod-conto-e > a-tm-cod-cc > a-tm-top > a-poscur.
Conferma (a-poscur): valida tutti i campi (x-imposta-conferma). Se fl-ins-var = "V" abilita F4 per cancellazione. F3 esegue variazione o inserimento.

Aggiornamento (`variazione`)¶

Legge il record con lock (rd-cogtabel-lk).
Copia tutti i campi tm-* nei corrispondenti campi euta-*.
Esegue rwr-cogtabel.

Inserimento (`inserimento`)¶

Inizializza il record euta-rec con tipo 39.
Copia i campi e esegue wr-cogtabel.

Cancellazione (`cancella`)¶

Legge il record con lock.
Esegue del-cogtabel.

Aliquote complementari¶

a-tm-aliq-for: se a zero, calcola 100 - tm-aliq-ente.
a-tm-aliq-ente: se a zero, calcola 100 - tm-aliq-for.

File utilizzati¶

File	Tipo	Descrizione
COGTABEL (`feurtab`)	I-O	Tabella generica; tipo 39 = ritenute previdenziali
COGPNCON	Input	Piano dei conti (per descrizione conti)

Programmi chiamati¶

Programma	Scopo
WIN080	Finestra aiuto per selezione tipo (tipo 39)
COGE65	Selezione tipo operazione (F8 su campo top)
COGE67	Selezione codice IVA (F8 su campo cod-iva-rit)
COGU20W	Accept campo numerico formattato (aliquote, contributi)

Copybook principali¶

Copybook	Contenuto
`coge56.select`	Select del programma
`coge56.fd`	FD file aggiuntivi
`coge56.wrk`	Working-storage generata
`coge56-01.scr`	Screen section
`coge56.decla`	Declaratives
`cogfiles.cpy`	FD COGTABEL
`feurtab.fd`	Select COGTABEL
`utile65.cpy`	Linkage COGE65 (tipo operazione)
`utile67.cpy`	Linkage COGE67 (codice IVA)
`utilw80.cpy`	Linkage WIN080 (aiuto generico)
`utilu20.cpy`	Linkage COGU20W (accept numerico)

Note tecniche¶

Non ha griglia: e' una gestione a maschera tradizionale campo per campo.
Il record COGTABEL tipo 39 usa i campi: euta-descritac (descrizione), euta-aliqimpo (aliq. imponibile), euta-aliq-rit (aliq. ritenuta), euta-aliq-ente, euta-aliq-for, euta-cod-conto, euta-cod-conto-e, euta-cod-cc-rit, euta-topritac, euta-cod-iva-rit, euta-mod-ver-rit, euta-contr-min-rit, euta-contr-max-rit.
La visualizzazione dei conti contabili (disp-cod-conto, disp-cod-conto-e, disp-cod-cc) legge la tabella tipo 16 per ottenere mastro/conto/sottoconto, poi cerca la descrizione su COGPNCON.
Il tipo operazione (disp-top) legge la tabella tipo 65 per ottenere la descrizione.