COGE16 — Ritenute Fiscali¶
Sorgente: cbl/coge16.cbl | Program-ID: COGE16 | Tipo: Gestione tabella a griglia
Menu: Contabilita' > Archivi & Tabelle > Tabelle > Parametri Rit.Acconto > Ritenute Fiscali
Scopo¶
Gestisce la tabella dei codici di ritenuta d'acconto su COGTABEL (tipo 46). Permette inserimento, modifica, cancellazione e selezione dei codici ritenuta. Supporta la modalita' CALLED per la selezione da altri programmi tramite la linkage utile16.cpy. Ogni record contiene le aliquote, il codice contropartita contabile, il tipo operazione, e i riferimenti per la Certificazione Unica.
Struttura della maschera¶
Screen: coge16-01.scr. Titolo: caricato da lingua (m-titolo).
La maschera ha una griglia principale (e-tm-tab) e un frame di dettaglio (e-frame-dettaglio).
Campi griglia¶
| Colonna | Variabile griglia | Descrizione |
|---|---|---|
| Tipo | grd-tipo |
Tipo ritenuta x(01) |
| Cod. Attivita' | grd-codat |
Codice attivita' x(04) |
| Descrizione | grd-desc |
Descrizione x(30) |
| Aliq. Imponib. | grd-aliq1 |
Aliquota imponibile z(03) |
| Aliq. Ritenuta | grd-aliq2 |
Aliquota ritenuta zz9,99 |
| Cod. Controp. | grd-cod-cc |
Codice contropartita 9(03) |
| Tipo Operaz. | grd-top |
Tipo operazione z(03) |
| Riquadro | grd-riquadro |
Riquadro CU x(02) |
| Codice CU | grd-cod-cu |
Codice CU x(02) |
| Cod. Spese | grd-cod-spese |
Codice spese x(02) |
Campi dettaglio (tab-maschera)¶
| Campo | Variabile | Tipo | Descrizione |
|---|---|---|---|
| Tipo | tm-tipo(i) |
x(01) | Codice tipo ritenuta |
| Codice Attivita' | tm-codat(i) |
x(04) | Codice attivita' |
| Descrizione | tm-desc(i) |
x(30) | Descrizione |
| Aliq. Imponib. | tm-aliq1(i) |
9(03) | Aliquota imponibile |
| Aliq. Ritenuta | tm-aliq2(i) |
9(03)v99 | Aliquota ritenuta (3 int, 2 dec) |
| Cod. Controp. | tm-cod-cc(i) |
9(03) | Codice contropartita contabile |
| Tipo Operaz. | tm-top(i) |
9(03) | Tipo operazione per CU |
| Riquadro | tm-riquadro(i) |
x(02) | Riquadro CU |
| Codice CU | tm-codice-cu(i) |
x(02) | Codice CU |
| Codice Spese | tm-cod-spe(i) |
x(02) | Codice spese CU |
Logica di elaborazione¶
Flusso principale¶
- apri: Inizializzazione, apertura file. Se invocato come CALLED (
e16-called= "COGE16"), entra in modalita' selezione. - a4/a10: Caricamento dati esistenti da COGTABEL tipo
46. - a10-loop: Scansione sequenziale dei record con
euta-tipo= 46; per ogni record, popolatm-tipo,tm-codat,tm-desc,tm-aliq1,tm-aliq2,tm-cod-cc,tm-top,tm-riquadro,tm-codice-cu,tm-cod-spe. - a30: Costruisce la griglia.
- a-grid / a-accept-grid: Loop di gestione griglia con Invio, Ctrl+A, Ctrl+E, F3, Shift+F4.
Dettaglio riga (a-riga-dettaglio)¶
Flusso accept sequenziale: a-tm-tipo > a-tm-codat > a-tm-desc > a-tm-aliq1 > a-tm-aliq2 > a-tm-cod-cc > a-tm-top > a-tm-riquadro > a-tm-codice-cu > a-tm-cod-spe > a-riga-dettaglio-fine.
- In inserimento il campo
tm-tipoe' editabile (x-enabled-tm-tipo= 1). - In modifica il record viene bloccato con
rd-cogtabel-lk. - L'aliquota ritenuta usa il modulo COGU20W per l'input numerico con decimali.
- Il tipo operazione ha un aiuto F8 che richiama COGE65.
Salvataggio (a-riga-dettaglio-fine)¶
Scrive su COGTABEL tipo 46:
- euta-cod = tm-tipo(i)
- euta-codritac = tm-codat(i)
- euta-descritac = tm-desc(i)
- euta-aliqimpo = tm-aliq1(i)
- euta-aliq-rit = tm-aliq2(i)
- euta-cod-cc-rit = tm-cod-cc(i)
- euta-topritac = tm-top(i)
- euta-riquadro = tm-riquadro(i)
- euta-cod-cu = tm-codice-cu(i)
- euta-cod-spese = tm-cod-spe(i)
In inserimento usa wr-cogtabel, in modifica usa rwr-cogtabel.
Cancellazione (c-cancella)¶
Legge il record con lock (rd-cogtabel-lk), poi esegue del-cogtabel.
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| COGTABEL | I-O | Tabella generica — record tipo 46 (ritenute fiscali) |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGU20W | Input numerico con decimali (aliquota ritenuta) |
| COGE65 | Selezione tipo operazione (F8 su campo Tipo Operaz.) |
| GRIDADMN | Gestione griglia dati |
Copybook principali¶
cogfiles.cpy— Struttura record FEURTABcoge16.select,coge16.fd,coge16.wrk— File, FD e variabili generate da Screenswstato.cpy,wgrave.cpy,wgrid.cpy,wopenf.cpy,wnscr.cpy— Framework standardcogazien.cpy— Dati aziendautilgdad.cpy— Interfaccia GRIDADMNutilu20.cpy— Interfaccia COGU20Wutile65.cpy— Interfaccia COGE65utile16.cpy— Interfaccia CALLED (linkage)