COGH03 -- Formule Riclassificazione CEE¶

Sorgente: cbl/cogh03.cbl | Tipo: Programma interattivo | Program-ID: COGH03

Menu: Contabilita' > Bilancio > Riclass. IV Direttiva C.E.E. > Formule Riclassificazione

Scopo¶

Gestisce le formule di calcolo tra le voci dello schema di riclassificazione IV Direttiva CEE. Per ogni voce destinazione e' possibile definire un insieme di voci sorgente da sommare o sottrarre. Le formule definite qui vengono utilizzate durante la stampa del bilancio riclassificato per calcolare i totali.

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTABEL	feurtab.fd, cogfiles.cpy	Tabella generica contabilita'
COGPCCEE	cogh03.select, cogh03.fd	Riclassificazione CEE -- voce destinazione e voci sorgente

Interfaccia utente¶

Maschera (`tab-maschera`)¶

Sezione chiave voce destinazione (tm-dati):

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-progr`	9(02)	Progressivo voce
`tm-descr`	x(50)	Descrizione della voce CEE
`tm-pnt`	9(04)	Puntatore corrente griglia

Griglia voci formula (tm-tab, occurs 900):

Campo	Tipo	Descrizione
`tm-fo-modello`	9(03)	Modello voce sorgente
`tm-fo-quadro`	9(02)	Quadro voce sorgente
`tm-fo-maiusc` / `tm-fo-cod-maiu`	x(01) / 9(02)	Lettera maiuscola voce sorgente
`tm-fo-romani` / `tm-fo-cod-roma`	x(05) / 9(02)	Numero romano voce sorgente
`tm-fo-arabi` / `tm-fo-arabi-pr`	9(02) / 9(03)	Numero arabo voce sorgente
`tm-fo-minusc` / `tm-fo-cod-minu`	x(01) / 9(02)	Lettera minuscola voce sorgente
`tm-fo-minusc-pr`	9(03)	Progressivo lettera minuscola voce sorgente
`tm-fo-progr`	9(02)	Progressivo voce sorgente
`tm-fo-descr`	x(50)	Descrizione voce sorgente
`tm-fo-segno`	x(01)	Segno operazione: "+" somma, "-" sottrai

Record griglia (`grid-record`)¶

Campo	Tipo	Descrizione
`grd-modello`	z(03)	Modello (visualizzazione)
`grd-quadro`	z(02)	Quadro
`grd-maiusc`	x(01)	Lettera maiuscola
`grd-romani`	x(05)	Numero romano
`grd-arabi`	z(02)	Numero arabo
`grd-arabi-pr`	z(03)	Progressivo arabi
`grd-minusc`	x(01)	Lettera minuscola
`grd-minusc-pr`	z(03)	Progressivo minuscola
`grd-progr`	z(02)	Progressivo
`grd-descr`	x(50)	Descrizione
`grd-segno`	x(01)	Segno

Struttura del programma¶

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, lettura azienda, apertura file, configurazione tasti funzione (F3, F3-aggiorna, SF4-griglia, F8-aiuto, F8-dettaglio), caricamento pulsanti custom (bitmap "riclass" per "Somma F4" e "Sottrai F5")
Input chiave voce destinazione: 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 -- ogni livello verifica x-enabled-*
Gestione griglia (a-inizio-dati): lettura voci formula esistenti, visualizzazione
Aggiunta voce (F4/Somma): apertura WIN041 per selezione voce CEE, inserimento con segno "+"
Aggiunta voce (F5/Sottrai): apertura WIN041 per selezione voce CEE, inserimento con segno "-"
Rimozione voce (Elimina): cancellazione riga selezionata
Salvataggio (F3): scrittura su COGPCCEE
Chiusura (fine): chiusura file, chiusura finestra

Pulsanti custom¶

Il programma carica bitmap personalizzate dal file "riclass": - Bitmap 1 = pulsante "Somma (F4)" -- aggiunge voce con segno "+" - Bitmap 2 = pulsante "Sottrai (F5)" -- aggiunge voce con segno "-"

I pulsanti sono creati tramite x-display-push-button-custom e associati rispettivamente a k-f4 e k-f5.

Navigazione livelli gerarchici¶

Identica a COGH02: ogni livello verifica x-enabled-*, F8 apre WIN042 (non WIN041) per la selezione della voce destinazione nella chiave.

Programmi chiamati (CALL)¶

Programma	Scopo
WIN042	Selezione voce CEE destinazione (popup gerarchia, sul campo chiave)
WIN041	Selezione voce CEE sorgente da aggiungere alla formula (F4/F5)
GRIDADMN	Amministrazione griglia

Copybook utilizzate¶

Copybook	Contenuto
`cogh03.select`	SELECT dei file
`cogh03.fd`	FD dei file
`cogh03.wrk`	Working storage maschera
`cogh03.decla`	Declaratives
`cogh03-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
`utilw41.cpy`	Interfaccia WIN041 (selezione voce sorgente formula)
`utilw42.cpy`	Interfaccia WIN042 (selezione voce destinazione)
`wcont.cpy`, `wcont1.cpy`	Linkage section

Note tecniche¶

Il parametro k-max-ele-tab = 900 definisce il numero massimo di voci nella formula.
I pulsanti custom (k-f4-somma = 01, k-f5-sottrai = 02) usano la numerazione degli indici bitmap, non i codici tasto standard.
Le tabelle di conversione tab-maiusc, tab-minusc, tab-romani sono identiche a COGH02 e COGH04.
La differenza tra COGH02 e COGH03: COGH02 gestisce l'aggancio di conti piano dei conti a una voce CEE; COGH03 gestisce le relazioni tra voci CEE (formule).

Documentazione tecnica -- 2026-04-26