COGK73 - Suddivisione Piano Conti in Centri di Costo

Funzione

Gestione del legame tra i conti contabili di reddito e i centri di costo/profitto. Per ogni conto del piano dei conti consente di definire una tabella di ripartizione percentuale verso uno o piu' centri di costo, con filtro opzionale per reparto (COGTABEL tipo 85) e magazzino (COGMAGAZ o CAPMAGAZ se azienda consorzi).

I dati vengono scritti nella tabella COGPERCC. Alla conferma con F3 l'intera situazione precedente del conto viene cancellata e riscritta (canc-precedente + loop di scrittura in a-aggiorna).

Menu

• Contabilita' > Centri di Costo > Tabelle > Suddivisione P.Conti in C.Costo

Tabelle e file principali

Tabella	Descrizione	Accesso
COGPERCC	Percentuali conto/centro di costo	I-O (lettura, scrittura, cancellazione)
COGPNCON	Piano dei conti	Input, read by key (validazione e tipo conto)
COGCCOPR	Centri di costo/profitto	Input, read by key (descrizione centro)
COGTABEL	Tabelle generiche	Input, read by key (tipo 85 = reparti)
COGMAGAZ	Magazzini	Input, read by key (aziende non consorzi)
CAPMAGAZ	Magazzini (aziende consorzi)	Input, read by key
FEURTAB	Tabella generica Eurosystem	Input

Struttura record COGPERCC

Campo	Descrizione
cpc-con	Chiave conto contabile (mastro+conto+sottoconto, 10 byte)
cpc-cc	Codice centro di costo (liv1+liv2+liv3, 9 cifre)
cpc-prog	Progressivo riga (per gestione duplicati di chiave)
cpc-perc	Percentuale (9(03)v9(02))
cpc-rep	Codice reparto (1 byte)
cpc-mag	Codice magazzino (2 byte)

Logica principale

Flusso

1. Inizializzazione (apri): controllo abilitazione, init programma, lettura azienda, apertura file, lettura configurazione RNEWCONF (x99-cfg).
2. Selezione conto (a-tm-conto): accept tramite COGS67W (lookup piano conti). Validazioni: mastro/conto/sottoconto obbligatori, conto deve essere di tipo "R" (reddito). Se richiamato con k73-called = "K73-CALL" il conto viene precaricato da k73-mastro/conto/sconto (linkage utilk73.cpy).
3. Caricamento (carica-dati / ex-carica-dati): scansione COGPERCC per il conto selezionato (st-cogpercc-notmin + loop rdnxt-cogpercc). Per ogni riga: lettura descrizione centro da COGCCOPR, descrizione reparto da COGTABEL (tipo 85), descrizione magazzino da COGMAGAZ o CAPMAGAZ.
4. Griglia (a-grid / a-accept-grid): visualizzazione e accept della griglia tramite GRIDADMN. Tasti: Invio (modifica riga), Ctrl+A (inserimento), Ctrl+E (cancellazione logica in memoria), F3 (salva), ESC (uscita con conferma).
5. Dettaglio riga (a-riga-dettaglio): accept di centro di costo (COGS92W), reparto (COGF11), magazzino (WCA005 per consorzi, utilw36 per standard), percentuale (COGU20W).
6. Salvataggio (a-aggiorna / ex-a-aggiorna): prima canc-precedente (cancella tutti i record COGPERCC per il conto), poi loop a-agg10 che scrive tutte le righe della griglia con wr-cogpercc.
7. Controllo percentuali (x-controlla-perc): somma tutte le percentuali; se diversa da 0 e da 100 mostra messaggio di errore e blocca il salvataggio.

Logica di chiave primaria

La chiave di COGPERCC e' cpc-con + cpc-cc + cpc-prog. In caso di collisione (stesso centro due volte), a-aggiorna incrementa cpc-prog e ritenta la scrittura.

Modalita' chiamato

Se k73-called = "K73-CALL" (struttura utilk73.cpy in linkage), il programma: - Precarica il conto da k73-mastro, k73-conto, k73-sconto - Salta la selezione conto e va direttamente a a-inizio-dati - All'ESC o F3 (con F3 terminante) va a fine invece di tornare a a4

Copybook principali

Copybook	Contenuto
cogk73.wrk	Working storage maschera (Screen Designer)
cogk73-01.scr	Screen section
cogk73.select	SELECT file
cogk73.fd	FD file
cogk73.decla	Declaratives
wgrave.cpy / wgrid.cpy / wnscr.cpy / wopenf.cpy / wstato.cpy	WS comuni
cogazien.cpy	Dati azienda
utilgdad.cpy	Gestione griglia
utils67.cpy / utils92.cpy	Interfaccia COGS67W / COGS92W
utilu20.cpy	Interfaccia COGU20W (percentuali)
utilf11.cpy	Interfaccia COGF11 (reparti)
utilncnf.cpy	Interfaccia RNEWCONF
utilw36.cpy	Interfaccia selezione magazzino
wcont.cpy / utilk73.cpy / wcont1.cpy	Linkage section

Programmi chiamati (CALL)

Programma	Scopo
COGS67W	Lookup e accept conto contabile (piano dei conti)
COGS92W	Lookup e accept centro di costo (liv1/liv2/liv3)
COGF11	Selezione reparto (F8 nel campo reparto)
WCA005.COB	Selezione magazzino per aziende consorzi (F8)
GRIDADMN	Gestione griglia (add-record, modify-record, display)
RNEWCONF	Lettura configurazione (x99-cfg): chiave ca-rep-age in gruppo PROGCOGK73

Note tecniche

• La griglia gestisce fino a 900 righe (k-max-ele-tab).
• Il record tm-ele-sav (1000 byte) salva lo stato della riga corrente per eventuale annullamento modifiche (ESC in dettaglio riga).
• La configurazione tm-cfg-ca-rep-age (RNEWCONF) abilita/disabilita i campi reparto e magazzino.
• Il campo grd-perc nella struttura di interscambio griglia e' formattato come zzzz9,99 (5 cifre intere + 2 decimali).