COGE15 - Tabella conti per partite aperte¶
Sorgente: cbl/coge15.cbl | Program-ID: COGE15 | Tipo: gestione tabella a griglia GUI
Menu: Contabilita' > Archivi & Tabelle > Tabelle > Conti x Partite Aperte
Scopo¶
COGE15 gestisce la tabella dei conti del piano contabile abilitati alla gestione delle partite aperte (COGTABEL tipo 45). Per ogni conto vengono configurati: la contropartita per commissioni banca e per spese/bolli (con tipo operazione e centro di costo opzionali), e per ciascuna riga della griglia i parametri di registrazione in prima nota di incassi e pagamenti (conto abbuoni attivi/passivi, tipo operazione, centro di costo, conti differenza cambio attivo/passivo). Supporta inserimento, modifica, eliminazione righe, copia riga (Shift-F1) e ricerca avanzata (F9 su piano conti via COGS67W).
File e tabelle¶
| File/Tabella | Copybook | Modalita' | Uso |
|---|---|---|---|
| FEURTAB | COGFILES.CPY |
Input | Tabella file di sistema |
| COGTABEL | (da coge15.fd) |
I-O | Tabella generica contabilita': tipo 45 = conti x partite aperte, tipo 65 = tipi operazione, tipo 16 = contropartite, tipo 18 = centri di costo |
| COGPNCON | (da cege15.fd) |
Input | Piano dei conti: verifica esistenza e tipo anagrafico del conto |
| COGCCOPR | COGCCOPR.CPY |
I-O | Archivio contropartite (aggiornato da COGK02 dopo ogni salvataggio) |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGV04 | Ricerca contropartita (F8 su campo contropartita commissioni banca e spese bolli) |
| COGE65 | Ricerca tipo operazione (F8 sui campi tipo operazione) |
| COGV00 | Ricerca centro di costo (F8 sui campi centro di costo) |
| COGK02 | Aggiornamento tabella contropartite (chiamato dopo ogni salvataggio riga) |
| GRIDADMN | Gestione griglia (Prepara, Add-Record, Modify-Record, Svuota-Tutto, Shift-F4) |
| COGS67W | Ricerca piano conti (F8/F9 sui campi mastro/conto nella riga di dettaglio) |
Copybook principali¶
Screen Designer: coge15-01.scr
File/strutture: coge15.select, cege15.fd, cege15.wrk, cege15.decla, cege15.prc
Gestionale - working storage:
- WGRAVE.CPY, WNSCR.CPY, WOPENF.CPY, WSTATO.CPY, COGAZIEN.CPY
- WGRID.CPY, UTILGDAD.CPY
- UTILE65.CPY, UTILK02.CPY, UTILS67.CPY, UTILV00.CPY, UTILV04.CPY
Linkage: WCONT.CPY, WCONT1.CPY
Logica di elaborazione¶
Intestazione globale (paragrafi a-tm-ca-cod-01 ... a-tm-ca-cc-02): due campi di contropartita (commissioni banca e spese bolli), ciascuno con tipo operazione (COGTABEL tipo 65) e centro di costo (COGTABEL tipo 18, visibile solo se az-ccopr = "S"). La conferma scrive il record speciale COGTABEL tipo 45, codice 100 (riga generale), tramite rwr-cogtabel.
Griglia (paragrafo a-grid / a-accept-grid): mostra le righe della tabella (max 99, k-max-ele-tab). Invio = modifica riga; Ctrl-A = inserimento; Ctrl-E = eliminazione con conferma; Shift-F1 = copia riga selezionata (duplica tutti i campi della riga corrente nella nuova). Shift-F4 = configurazione colonne GRIDADMN.
Dettaglio riga (paragrafi a-tm-c-mastro ... a-tm-c-df-top-pas): per ogni conto (mastro/conto verificato su COGPNCON con obbligo di tipo anagrafico) si configurano:
- Tipo (derivato da pco-tipoanagr)
- Tipo operazione di pagamento/incasso (COGTABEL tipo 65)
- Conto abbuoni attivi (mastro/conto su COGPNCON) con tipo operazione e centro di costo
- Conto differenza cambio attivo con tipo operazione
- Conto abbuoni passivi con tipo operazione e centro di costo
- Conto differenza cambio passivo con tipo operazione
Il campo att-pas (A=attivo/cliente, D=passivo/fornitore) determina le sezioni abilitate. I campi centro di costo sono condizionati dall'abilitazione del livello superiore.
Salvataggio riga (paragrafo a-riga-dettaglio-fine): in inserimento chiama ins-record (che assegna il codice progressivo euta-codr leggendo COGTABEL), in modifica riscrive il record. Dopo ogni salvataggio chiama COGK02 per aggiornare COGCCOPR.
Copia riga (Shift-F1): duplica tutti i campi della riga sorgente nell'elemento i nuovo, salta il controllo sul mastro/conto (flag flag-salta-controllo-c-mastro) e imposta flag-ok-copia-controp per propagare le contropartite.
Tasti funzione: ESC=abbandona, F2=campo precedente, F3=conferma, F8=ricerca (COGV04/COGE65/COGV00), F9=ricerca avanzata piano conti (COGS67W), Invio=modifica riga, Ctrl-A=aggiungi riga, Ctrl-E=elimina riga, Shift-F1=copia riga, Shift-F4=configurazione griglia.
Note¶
- Il record COGTABEL tipo 45 codice 100 contiene i parametri globali (contropartite commissioni e bolli); i record con codice >= 1 contengono le righe conto.
- La variabile
tm-c-euta-codrmemorizza il codice record COGTABEL per ogni riga di griglia, usata per rewrite e per COGK02. - Il flag
az-ccopr(da COGAZIEN) determina la visibilita' dei campi centro di costo.
Documentazione tecnica generata -- 2026-07-15