COGZA7 — Inserimento dati bollettino C.C.P.¶

Sorgente: cbl/cogza7.cbl | Program-ID: cogza7 | Tipo: interattivo a maschera

Menu: Lab.Odont. > Fatturazione > Pagamenti con Bollettini C.C.P. > Inserimento Bollettini C.C.P.

Scopo¶

Registra l'incasso di un bollettino di conto corrente postale collegandolo a un cliente/paziente/commessa del laboratorio odontotecnico. Inserisce o varia il record LODINFCC (numero bollettino, importo, data incasso, valuta, riferimento commessa) e mantiene allineati i dati anagrafici di fatturazione del paziente sulla commessa (LODCMAGG/LODCMAG2): codice fiscale, indirizzo, consenso STS, modalità di stampa/email fattura. Se il bollettino è associato a una commessa già fatturata, propone la conciliazione bollettino↔fattura (via COGZB1). Può essere richiamato da altri programmi (es. COGZ40, COGZB0) tramite util-za7.

File e tabelle¶

File	Copybook	Accesso	Scopo
LODINFCC	`lodinfcc.cpy` (chiave `k02`)	Lettura/scrittura/variazione/cancellazione	Dato bollettino: numero, importo, valuta, data, cliente, commessa, riferimento partita/fattura
LODBOLCL	`lodbolcl.cpy` (chiave `k02`)	Lettura sequenziale	Fasce di bollettini assegnate — verifica che il numero sia assegnato al cliente
LODCMAGG	(via `rd-lodcmagg`)	Lettura/scrittura	Dati fatturazione commessa: anagrafica paziente, CF, consenso STS
LODCMAG2	(via `rd-lodcmag2`)	Lettura/scrittura	Dati aggiuntivi commessa: tipo stampa fattura, email invio
LODCMTES	(via `rd-lodcmtes`)	Lettura	Testata commessa — verifica esistenza
LODPRESC	(chiave `k04`)	Lettura	Prescrizione/commessa: medico, paziente, protocollo
COGGEANA	`coggeana.cpy`	Lettura	Anagrafica cliente
COGAPPOG	(via `rd-cogappog`)	Lettura	Anagrafica appoggio: tipo USL (`P`/`U`)
COGTBCOM	(chiave `k04`)	Lettura	Comuni di nascita
COGTBCAP	(chiave `k02`)	Lettura	CAP
COGTABEL	`cogtabel.cpy`	Lettura	Verifica provincia (tipo 26), nazione (tipo 54)
COGMOVPA	(chiave `k03`)	Lettura sequenziale	Movimenti partita — verifica partita anticipata / fatturata
COGRACBB	`cogracbb.cpy`	Lettura sequenziale	Raccordi bolle (tipo `CD`) per risalire alla fattura della commessa
COGRACCO	`cogracco.cpy` (chiave `k02`)	Lettura	Raccordo bolla↔fattura
COGTESBO	(via `rd-cogtesbo`)	Lettura	Testata bolla collegata
logfile	`logfile.cpy`	Scrittura	Log operazioni (se configurazione `log-prescrizioni` attiva)

Programmi chiamati (CALL)¶

Programma	Scopo
COGS98W	Gestione del blocco codice commessa (cliente/paziente/protocollo/numero) — ricerca e validazione
WIN167	Aiuto/ricerca bollettino (F8)
WIN161	Ricerca CAP/località (F12)
WIN162	Ricerca comune di nascita (F8)
COGF09	Ricerca provincia (F8)
COGE04	Ricerca nazione/stato (F8)
COGE05	Validazione formale del codice fiscale
CODFIS	Calcolo del codice fiscale da dati anagrafici
COGZB1	Conciliazione bollettino↔fattura (aggancio partita)
DIALOGS	Menu conferma conciliazione (F5/F9)
RNEWCONF	Lettura configurazioni (gruppi `odonto`, `bol-cc`, `fatturaz`, `CONTABIL`)
COGU10W	Editing importo
WINZ06	Ricerca prescrizioni/commesse (predisposto in `send-wz06`)

Copybook incluse¶

Working storage: feurtab.fd, cogza7.select, logfile.fd, cogfiles.cpy, cogza7.fd, logfile.cpy, cogza7.wrk, k-u10.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, cogazien.cpy, cogconta.cpy, utildlg.cpy, utilf09.cpy, utils25.cpy, utils52.cpy, utils98.cpy, utilz38.cpy, utilz99.cpy, utilu10.cpy, utils77.cpy, utilwz06.cpy, utilw161.cpy, utilza6.cpy, utile04.cpy, utilw162.cpy, utilw167.cpy, utilzb1.cpy, utilcodfis.cpy, utilncnf.cpy

Linkage: wcont.cpy, utilza7.cpy, wcont1.cpy

Procedure division: stato1.cpy, stato.cpy, winmsg.cpy, grave.cpy, mmmask.cpy, opengen.cpy, getdcont.cpy, cogza7.prc, chiavi lodinfcc.k02, cogtbcap.k02, lodpresc.k04, lodbolcl.k02, cogmovpa.k03, cogtbcom.k04, cogracco.k02, makelog.cpy

Logica di elaborazione¶

Avvio (apri): apre i file, legge due gruppi di config (x991-confi → docmag vendita; x99-confi → gruppo bol-cc, num-commessa-automatico, log, STS). Se richiamato (za7-called), precarica cliente/paziente/commessa dal chiamante.
Bollettino (a-tm-bollettino, x-controlla-tm-bollettino): il numero digitato viene cercato in LODINFCC:
se esiste → variazione, carica dati partita/fattura e anagrafica commessa;
se non esiste ma è in una fascia assegnata (LODBOLCL) → inserimento;
controlli di coerenza cliente/tecnico rispetto alla fascia assegnata.
Dati incasso (a-tm-icc-importo, a-tm-icc-data-bol, a-tm-icc-vcy): importo, data, valuta; saltati se il bollettino è già una partita anticipata contabilizzata (partita-ant).
Commessa (a-tm-commessa via COGS98W): identifica cliente/paziente/protocollo/numero commessa.
Dati fatturazione paziente (a-tm-df-*): CF, cognome/nome, indirizzo, CAP, località, provincia, stato, data/comune di nascita, sesso, consenso STS, tipo stampa fattura, email. Con validazioni (CF via COGE05, provincia/nazione via COGTABEL, comune via COGTBCOM). Se il CF manca, viene calcolato via CODFIS.
Conferma (aggiorna): scrive/varia LODINFCC; aggiorna LODCMAGG (anagrafica + consenso) e LODCMAG2 (stampa/email). Esegue ck-aggancio-fattura: se la partita è di tipo configurato e c'è una fattura collegata alla commessa, propone la conciliazione via COGZB1.
Cancellazione (cancella, F4 in variazione): cancella il record LODINFCC se non anticipato.

Paragrafi chiave¶

Paragrafo	Scopo
`x-controlla-tm-bollettino`	Determina inserimento/variazione; carica dati da ICC o LCG; controlli cliente/tecnico
`carica-da-icc` / `carica-da-lcg`	Precaricano i campi maschera dal bollettino esistente o dalla commessa
`b-cerca-fattura`	Risale alla fattura collegata alla commessa (via `COGRACBB` tipo `CD` → `COGRACCO`), imposta `flag-commessa-fatturata`
`x-controlla-dati-df`	Batteria di validazioni dei dati di fatturazione paziente
`calcola-cod-fiscale`	Calcola il CF via `CODFIS` se assente
`aggiorna`	Scrittura/variazione `LODINFCC`, `LODCMAGG`, `LODCMAG2`
`ck-aggancio-fattura`	Conciliazione bollettino↔fattura con `COGZB1`
`cancella`	Cancellazione del bollettino
`x99-confi` / `x991-confi`	Caricamento configurazioni
`z-s98-tm-cod`	Dialogo con `COGS98W` per il codice commessa

Parametri di configurazione (RNEWCONF)¶

Gruppo	Chiave	Variabile	Scopo
`odonto`	`numero-commessa-automatico`	`tm-cfg-num-aut`	Numerazione automatica commessa
`odonto`	`log-prescrizioni`	`tm-cfg-log`	Abilita il logfile
`bol-cc`	`tipo-partita`	`tm-cfg-tipo-partita`	Tipo partita del bollettino (per aggancio fattura)
`bol-cc`	`contropartita`	`tm-cfg-contropartita`	Conto contropartita
`bol-cc`	`tipo-operazione`	`tm-cfg-tipo-operazione`	Tipo operazione contabile
`bol-cc`	`tipo-pagamento`	`tm-cfg-tipo-pagamento`	Tipo pagamento
`fatturaz`	`sts-attivo`	`tm-cfg-sts-attivo`	Attivazione gestione STS (mostra campi consenso/stampa)
`CONTABIL`	`tipo-doc-iva-docmag-vendita`	`tm-cfg-docmag-vendita`	Tipo raccordo "bolla contabilizzata" (escluso nel calcolo fattura)

Note¶

I clienti di tipo USL U (SSN) hanno controlli anagrafici allentati (righe marcate 130619): nome, cognome, indirizzo, località e CAP non sono obbligatori.
Quando richiamato da COGZB0 con un numero bollettino, alla conferma restituisce il numero al chiamante (za7-num-bollettino) e termina.