COGK98 - Gestione coassicurazioni - Inserimento quietanze¶

Sorgente: cbl/cogk98.cbl | Program-ID: COGK98 | Tipo: interattivo a griglia GUI

Menu: Contabilita' > Coassicurazioni > Inserimento quietanze

Scopo¶

COGK98 gestisce le quietanze di coassicurazione: per una polizza identificata da ramo e numero, consente di registrare i dati del contraente e la lista delle compagnie partecipanti con le relative quote (percentuale, premio lordo, premio netto, provvigione, ritenuta d'acconto). La griglia mostra tutte le righe di ripartizione; ogni riga puo' essere aggiunta (Ctrl-A), modificata (Invio) o eliminata (Ctrl-E). Al salvataggio aggiorna sia l'archivio COGCOASS (intestazione polizza e compagnie) sia COASSMOV (dettaglio importi quietanza per data effetto).

File e tabelle¶

File/Tabella	Copybook	Modalita'	Uso
FEURTAB	`COGFILES.CPY`	Input	Tabella file di sistema
COGTABEL	(da `cogk98.fd`)	Input	Tabella generica: tipo A8 per validazione codice ramo
COGGEANA	(da `cogk98.fd`)	Input	Anagrafica clienti: validazione codice compagnia (tipo CLI)
COGCOASS	`COGCOASS.CPY`	I-O	Archivio coassicurazioni: intestazione polizza, contraente, lista compagnie con percentuali
COASSMOV	`COASSMOV.CPY`	I-O	Movimenti quietanze coassicurazione: importi lordi/netti, provvigioni, ritenute per data effetto

Programmi chiamati¶

Programma	Scopo
COGK63	Ricerca polizza (F8 su ramo/numero polizza)
GRIDADMN	Gestione griglia (Prepara, Add-Record, Modify-Record, Svuota-Tutto, Shift-F4 configurazione colonne)
COGS65W	Ricerca anagrafica compagnia (codice compagnia nel dettaglio riga)

Copybook principali¶

Screen Designer: cogk98-01.scr

File/strutture: cogk98.select, cogk98.fd, cogk98.wrk, cogk98.decla, cogk98.prc

Gestionale - working storage: - WSTATO.CPY, WGRAVE.CPY, WOPENF.CPY, WNSCR.CPY, COGAZIEN.CPY - WGRID.CPY, UTILGDAD.CPY, UTILGRID.CPY - UTILU10.CPY, UTILU20.CPY, UTILS52.CPY, UTILS65.CPY, UTILK63.CPY - K-U10.CPY

Linkage: WCONT.CPY, WCONT1.CPY

Procedure finali: GRAVE.CPY, MMMASK.CPY, OPENGEN.CPY, STATO.CPY, STATO1.CPY, WINMSG.CPY

Chiavi: COGCOASS.K01, COASSMOV.K01, COASSMOV.K02

Logica di elaborazione¶

Intestazione (paragrafi a-tm-ramo, a-tm-polizza, a-tm-data, a-tm-contra-*): l'utente inserisce ramo (validato su COGTABEL tipo A8), numero polizza (obbligatorio), data quietanza (via COGS52), codice e nome contraente. F8 su ramo apre COGK63 che restituisce ramo e numero polizza. La costante k-deleg = 56 identifica la delega corrente.

Caricamento dati esistenti (paragrafo a-leggi-coa): dopo la conferma intestazione, il programma legge COGCOASS; se presente, carica i dati contraente. Il paragrafo carica-dati legge COASSMOV per la data effetto e popola la tabella interna tm-tab (fino a 30 righe, costante k-max-ele-tab = 900 in griglia) con compagnia, percentuale, premi, provvigione, ritenuta.

Griglia (paragrafo a-grid / a-accept-grid): la griglia mostra le righe di ripartizione. Invio apre il dettaglio in modifica; Ctrl-A aggiunge una riga; Ctrl-E elimina previo controllo e conferma. Shift-F4 apre GRIDADMN per configurazione colonne.

Dettaglio riga (paragrafi a-tm-comp-cod ... a-tm-rit-acc): codice compagnia ricercato via COGS65W (tipo CLI su COGGEANA); percentuale con controllo somma <= 100; premio lordo e netto obbligatori; flag PN (tipo provvigione); provvigione con default 7% del netto se PN in [N, Q]; ritenuta con default formula (provv / 5) * 23%.

Salvataggio (paragrafo a-riga-dettaglio-fine): aggiorna COGCOASS (write o rewrite con lista compagnie) e COASSMOV (write o rewrite con importi, impostando csm-aggio-det-quie = 1).

Cancellazione riga (paragrafo c-cancella): azzera i campi di competenza della compagnia in COASSMOV e riscrive.

Tasti funzione principali: ESC=abbandona, F3=conferma, F8=ricerca polizza (su ramo) / calendario (su data), Invio=modifica riga griglia, Ctrl-A=aggiungi riga, Ctrl-E=elimina riga, Shift-F4=configurazione griglia.

Note¶

La costante k-deleg = 56 e' hardcoded nel sorgente come identificatore delega per COGCOASS/COASSMOV.
COGCOASS e COASSMOV sono aperti manualmente nel paragrafo open-coassic (non tramite il meccanismo standard FEURTAB): i path sono costruiti con ext-arc-dir + cogcoass.arc / coassmov.arc.
La chiave secondaria COASSMOV.K02 e' inclusa esplicitamente.

Documentazione tecnica generata -- 2026-07-15