COGE09 — Gestione tabella recuperi spese¶

Sorgente: cbl/coge09.cbl | Tipo: Programma GUI standalone (gestione tabella) | Program-ID: coge09

Menu: Vendite > Fatturazione > Tabelle [Recuperi Spese] ; Lab.Odont. > Fatturazione > Tabelle [Recuperi Spese]

Scopo¶

Manutenzione della tabella dei "recuperi spese" applicati automaticamente in fatturazione, cioe' gli addebiti forfettari per spese di incasso in funzione della condizione/modalita' di pagamento del documento.

La maschera espone un'unica pagina di importi (non c'e' scorrimento su piu' record): l'operatore vede e modifica in un colpo solo le spese per ciascuna modalita' di pagamento e i dati del bollo in esenzione. I valori sono persistiti su COGTABEL, un record per ciascuna modalita'.

Modalita' gestite:

Codice record	Significato
`RD`	Rimessa diretta
`RB`	Ricevuta bancaria
`BO`	Bonifico
`RI`	R.I.D. / R.I.B.A.
`BL`	Bollo in esenzione (importo bollo, soglia importo, dati esenzione)

Per ciascuna modalita' (esclusa BL) sono gestiti due valori: la spesa base (euta-valore) e una riduzione applicabile quando il documento e' trattato via email (euta-riduzione-email, con controllo che valore + riduzione non sia negativo). Sul record BL sono gestiti importo bollo (euta-valore), soglia "per importi superiori a" (euta-imp-a) e i dati per il bollo su documenti in esenzione: codice IVA (euta-bollo-codiva, default ES) e articolo di esenzione (euta-bollo-codese, default 15).

File e tabelle principali¶

File/Tabella	Copybook	Uso
COGTABEL	`cogtabel.cpy` (record visto come `euta-rec`)	Lettura/scrittura dei record spese (`euta-cod` = RD/RB/BO/RI/BL) e verifica codici IVA (tipo 67) ed esenzione (tipo 69)
COGAZIEN	`cogazien.cpy`	Dati azienda / divisa conto
coge09 (screen/select/fd/wrk)	`coge09.select`, `coge09.fd`, `coge09.wrk`	Definizione file e alias `euta-*` sul record COGTABEL, campi maschera

I sottocampi euta-spese (euta-valore, euta-riduzione-email, euta-imp-a, euta-bollo-codiva, euta-bollo-codese, euta-currency1) sono la vista specifica del record COGTABEL generata per questo programma.

Flusso principale¶

apri / main: init programma, ctr-abil, rd-azi, open-files, caricamento configurazioni (x99-conf), lettura divisa conto (get-divisa-conto in tm-divisa).
Lettura dei 5 record da COGTABEL (blocchi in apri per cod. RD, RB, BO, RI, BL): per ciascuno move '<cod>' to euta-cod + rd-cogtabel; se il record e' in divisa diversa da quella conto, conversione via COGU10W (routine z-u10-euta-valore / z-u10-euta-imp-a) prima del display.
Caricamento maschera (z-carica-controlli) e display importi editati tramite COGU10 (z-u10-tm-*).
Sequenza di accept campo per campo: a-tm-rd, a-tm-rd-riduz, a-tm-rb, a-tm-rb-riduz, a-tm-bo, a-tm-bo-riduz, a-tm-ri, a-tm-ri-riduz, a-tm-bl, a-tm-imp, a-tm-codiva, a-tm-codese. Ogni campo ha il proprio controllo (x-controlla-tm-*).
a-richiesta-conferma: convalida complessiva (x-imposta-conferma) e, su F3 confermato (acc-conf), aggiorna.
aggiorna: riscrive i 5 record su COGTABEL (wr-cogtabel, e se gia' esistente rwr-cogtabel) valorizzando importi, riduzioni email, divisa corrente e, sul record BL, i dati bollo/esenzione.
fine / z-chiudi: chiusura file e uscita.

Sottoprogrammi chiamati¶

Programma	Ruolo
`COGU10W`	Editing/conversione valuta degli importi (cambio, display, arrotondamento)
COGE67	Ricerca/aiuto codice IVA (F8 su campo codice IVA bollo)
COGE69	Ricerca/aiuto articolo di esenzione (F8 su campo articolo esenzione)
`RNEWCONF`	Lettura configurazioni FATTSPESEB e modalita-bollo-esenzione
`DIALOGS`	Dialog di avviso quando la modalita' bollo-esenzione e' "B"
`RD-COGTABEL` / `WR-COGTABEL` / `RWR-COGTABEL`	Gestore tabella COGTABEL (generato)

Configurazioni (RNEWCONF)¶

Lette in x99-conf (pacchetto C):

Gruppo	Chiave	Uso
FATTSPESEB	euta-c051-spe-fl-ali	Flag applicazione aliquota su spese
FATTSPESEB	euta-c051-spe-ali	Aliquota IVA da usare per le spese
FATTSPESEB	euta-c051-spe-art	Articolo per le spese
fatturaz	modalita-bollo-esenzione	Se `B`, i dati di esenzione (cod. IVA e articolo) sono presi dalla voce in fattura: il programma non richiede ne' valida codiva/codese e mostra un dialog informativo (TASK-1688)

Note¶

Il file COGTABEL e' una tabella generica multi-tipo: i recuperi spese sono identificati dal solo euta-cod (RD/RB/BO/RI/BL). La verifica di codice IVA usa euta-tipo 67, quella dell'articolo esenzione usa euta-tipo 69.
Tutti gli importi sono normalizzati alla divisa del conto (tm-divisa) in lettura e memorizzati con la divisa corrente in euta-currency1; le conversioni passano da COGU10W.
Con modalita-bollo-esenzione = "B" (TASK-1688) i campi codice IVA e articolo esenzione non sono piu' richiesti in quanto ereditati dalla riga in fattura; il codice storico che azzerava i campi e' commentato, i controlli fanno exit paragraph.
Il programma non usa PERFORM su piu' record: gestisce sempre e solo i 5 record noti, in modo esplicito.