COGH02 -- Aggancio Piano dei Conti alla Riclassificazione CEE¶

Sorgente: cbl/cogh02.cbl | Tipo: Programma interattivo | Program-ID: COGH02

Menu: Contabilita' > Bilancio > Riclass. IV Direttiva C.E.E. > Aggancio P.C. Coge

Scopo¶

Gestisce l'associazione tra i conti del piano dei conti (COGPNCON) e le voci dello schema di riclassificazione IV Direttiva CEE (COGPCCEE). Per ogni voce della struttura gerarchica, l'utente puo' aggiungere o rimuovere conti tramite una griglia. Il programma puo' essere chiamato anche da altri programmi tramite interfaccia utilh02.cpy (parametro h02-called = "H02-CALL").

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTABEL	feurtab.fd, cogfiles.cpy	Tabella generica contabilita'
COGPCCEE	cogh02.select, cogh02.fd	Riclassificazione CEE -- voce principale
COGPNCON	cogh02.select	Piano dei conti -- lettura descrizione conti (COGS67W)

Interfaccia utente¶

Maschera (`tab-maschera`)¶

Campo	Tipo	Descrizione
`tm-modello`	9(03)	Codice modello di riclassificazione
`tm-quadro`	9(02)	Codice quadro
`tm-maiusc` / `tm-cod-maiu`	x(01) / 9(02)	Lettera maiuscola e codice interno
`tm-romani` / `tm-cod-roma`	x(05) / 9(02)	Numero romano e codice interno
`tm-arabi` / `tm-arabi-pr`	9(02) / 9(03)	Numero arabo e progressivo
`tm-minusc` / `tm-cod-minu`	x(01) / 9(02)	Lettera minuscola e codice interno
`tm-minusc-pr`	9(03)	Progressivo lettera minuscola
`tm-descr`	x(50)	Descrizione della voce CEE
`tm-pc-tes`	9(02)+9(02)+9(06)	Conto "di testa" (mastro/conto/sottoconto)
`tm-pc-tes-des`	x(40)	Descrizione conto di testa
`tm-ele-sav`	x(1000)	Area di salvataggio elementi griglia
`tm-pnt`	9(04)	Puntatore corrente griglia
`tm-tab` (occurs 900)	--	Tabella righe griglia (mastro/conto/sottoconto + descrizione)

Struttura del programma¶

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, lettura azienda, apertura file, configurazione tasti funzione (F3, SF4-griglia, F8-aiuto, Aggiungi, Elimina), caricamento dimensioni maschera
Primo giro con chiamata esterna: se h02-called = "H02-CALL" e primo-giro, precarica il conto passato da h02-mastro/h02-conto/h02-sconto e salta direttamente a a-tm-pc-tes
Input chiave voce CEE: campi a-tm-modello, a-tm-quadro, a-tm-maiusc, a-tm-romani, a-tm-arabi, a-tm-arabi-pr, a-tm-minusc, a-tm-minusc-pr -- ciascun campo puo' essere disabilitato tramite x-enabled-* se il livello non e' pertinente
Conto di testa (a-tm-pc-tes): selezione tramite COGS67W (se non chiamato da esterno)
Gestione griglia (a-inizio-dati): lettura conti agganciati, visualizzazione, aggiunta/rimozione
Salvataggio (F3): scrittura/cancellazione record su COGPCCEE
Chiusura (fine): chiusura file, chiusura finestra

Navigazione livelli gerarchici¶

Ogni campo di livello verifica x-enabled-*: - Se il livello e' disabilitato (valore 0), il cursore salta al livello successivo (o precedente se F2). - F8 su qualsiasi livello apre WIN042 (popup selezione voce CEE) con i parametri di livello gia' inseriti. Se WIN042 restituisce un valore, esegue riempi thru ex-riempi per popolare i campi e salta a a-inizio-dati.

Griglia dei conti collegati¶

Dimensione massima: 900 elementi (k-max-ele-tab)
Record griglia (grid-record): grd-pco (mastro/"/"/conto/"/"/sottoconto), grd-des (descrizione)
Aggiunta conto: chiamata COGS67W per selezione conto piano dei conti
Rimozione conto: eliminazione riga selezionata dalla griglia

Programmi chiamati (CALL)¶

Programma	Scopo
WIN042	Selezione voce CEE (popup gerarchia riclassificazione)
COGS67W	Selezione conto piano dei conti (campo conto di testa e aggiunta conti griglia)
GRIDADMN	Amministrazione griglia

Interfaccia di chiamata esterna¶

Il programma accetta la chiamata da altri programmi tramite utilh02.cpy (linkage section):

Campo	Tipo	Descrizione
`h02-called`	x(08)	Stringa `"H02-CALL"` per attivare la modalita' richiamata
`h02-mastro`	9(02)	Mastro del conto da preselezionare
`h02-conto`	9(02)	Conto da preselezionare
`h02-sconto`	9(06)	Sottoconto da preselezionare

Quando chiamato con h02-called = "H02-CALL", il programma salta la navigazione della chiave CEE e parte direttamente dalla gestione del conto di testa preimpostato.

Copybook utilizzate¶

Copybook	Contenuto
`cogh02.select`	SELECT dei file
`cogh02.fd`	FD dei file
`cogh02.wrk`	Working storage maschera
`cogh02.decla`	Declaratives
`cogh02-01.scr`	Maschera principale (screen section)
`cogfiles.cpy`	Record FD feurtab
`cogazien.cpy`	Dati azienda
`wgrave.cpy`, `wnscr.cpy`, `wopenf.cpy`, `wstato.cpy`	Working storage comuni
`wgrid.cpy`, `utilgdad.cpy`	Gestione griglia
`utils67.cpy`	Interfaccia COGS67W
`utilw42.cpy`	Interfaccia WIN042
`wcont.cpy`, `utilh02.cpy`, `wcont1.cpy`	Linkage section

Note tecniche¶

Il parametro k-max-ele-tab = 900 definisce il numero massimo di conti agganciabili a una singola voce CEE.
Le tabelle di conversione tab-maiusc, tab-minusc, tab-romani sono identiche a quelle di COGH03 e COGH04: 21 lettere/numeri dell'alfabeto italiano.
Il flag flag-primo-giro / primo-giro viene usato per distinguere il primo ciclo dalla chiamata esterna: dopo il primo giro viene azzerato, evitando di riapplicare i parametri passati da h02-called.
Il flag flag-doppi / doppi segnala la presenza di conti duplicati nella griglia.
Il flag flag-ok-aggancia / ok-aggancia indica che l'utente ha completato l'associazione.

Documentazione tecnica -- 2026-04-26