COGE57 - Parametri Ritenute a Favore S.S.N.¶
Sorgente: cbl/coge57.cbl | Program-ID: COGE57 | Tipo: gestione tabella (record singolo)
Menu: Contabilita' > Archivi & Tabelle > Tabelle > Parametri Rit.Acconto > Ritenute a Favore S.S.N.
Scopo¶
Gestisce il record unico di configurazione dei parametri contabili per le ritenute d'acconto a favore del Servizio Sanitario Nazionale. Il programma legge, visualizza e aggiorna un singolo record in COGTABEL (tipo 38, codice '1') contenente tre parametri: il conto contabile per la registrazione delle ritenute, la contropartita per la chiusura della registrazione e il tipo operazione. Si tratta di una maschera di configurazione a record unico: non esiste lista, ma solo inserimento o variazione del record.
File e tabelle¶
| File/Tabella | Copybook | Modalita' | Uso |
|---|---|---|---|
| COGTABEL | cogtabel.cpy, cogtabel.fd, cogtabel.k01 |
Input/Output (read-lock, rewrite, write, delete) | Record unico tipo 38 / codice '1': parametri SSN; tipo 16: lookup conti contabili; tipo 65: lookup tipi operazione |
| COGPNCON | cogpncon.cpy, cogpncon.fd, cogpncon.k01 |
Input | Piano dei conti: legge la descrizione del conto (mastro/conto/sconto) per visualizzarla accanto al codice |
| FEURTAB | feurtab.fd, cogfiles.cpy |
Utility runtime | File di supporto AcuCOBOL |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGE65 | Help di ricerca tipi operazione (richiamato con F8 sul campo Tipo Operazione) |
Copybook principali¶
Screen Designer: coge57.select, coge57.fd, coge57.wrk, coge57.prc, coge57.decla, coge57-01.scr
Gestionale: cogazien.cpy, cogfiles.cpy, utile65.cpy
Utility: wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, wcont.cpy, wcont1.cpy, stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, opengen.cpy, mmmask.cpy
Logica di elaborazione¶
Apertura: inizializzazione standard, apertura file, lettura azienda, caricamento lingua. Tasti funzione attivati: F3 (aggiorna), F4 (cancella), F8 (aiuto sul tipo operazione).
Lettura record corrente (a4 e loop a10-loop): scansione sequenziale di COGTABEL a partire da euta-tipo = 38, euta-cod = '1'. Se il record esiste, fl-ins-var viene impostato a "V" (variazione) e i tre campi vengono caricati in tab-maschera. Per ciascun codice non zero, vengono visualizzate le descrizioni tramite i paragrafi disp-cod-conto, disp-cod-cc, disp-top.
Risoluzione descrizioni: disp-cod-conto e disp-cod-cc leggono prima COGTABEL tipo 16 (tabella conti) per ricavare mastro/conto/sconto, poi COGPNCON per la descrizione testuale. disp-top legge COGTABEL tipo 65 per la descrizione del tipo operazione.
Accept campi: tre campi sequenziali: a-tm-cod-conto, a-tm-cod-cc, a-tm-top. F8 su a-tm-top richiama COGE65. Ogni campo ha un paragrafo di validazione (x-controlla-tm-cod-conto, x-controlla-tm-cod-cc, x-controlla-tm-top) che verifica esistenza in COGTABEL e colora il controllo di verde/rosso.
Salvataggio (variazione / inserimento): F3 dalla posizione cursore (a-poscur) determina se inserire o aggiornare. La variazione usa rd-cogtabel-lk + rwr-cogtabel; l'inserimento usa wr-cogtabel. La cancellazione (F4) usa rd-cogtabel-lk + del-cogtabel previa conferma.
Chiusura: chiude COGTABEL e COGPNCON.
Note¶
- Record unico identificato da
euta-tipo = 38,euta-cod = '1': non e' possibile avere piu' di un record di questo tipo. - Il campo
euta-cod-conto(tipo 38) corrisponde a un codice numerico che va risolto tramite COGTABEL tipo 16 per ottenere le coordinate contabili (mastro, conto, sconto) e poi in COGPNCON per la descrizione. - La validazione su F3 avviene in
z-99-exception-form, che intercetta il tasto direttamente durante gli accept e lancia inserimento o variazione senza passare pera-poscur.
Documentazione tecnica generata -- 2026-07-15