COGC26 - Cruscotto Scritture Rettifica¶

Intestazione¶

Campo	Valore
Programma	COGC26
Titolo	Cruscotto Scritture Rettifica
Posizione menu	Contabilita' > Prima Nota > Scritture di rettifica > Cruscotto Scritture Rettifica

Scopo e logica generale¶

COGC26 e' il pannello centrale per la generazione automatica delle scritture di rettifica di fine periodo (risconti, ratei, altre scritture da modello, ammortamenti). Presenta una griglia con i dodici mesi dell'anno: per ogni mese selezionato avvia la produzione dei documenti di prima nota tramite le subroutine COGK12 (risconti), modelli COGPNMOD (altre scritture) e COGC53/COGC62 (ammortamenti cespiti se configurato).

Il programma usa un file di transito (t-grid-det) per la griglia paginata.

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, lettura azienda, apertura file, lettura configurazione RNEWCONF (x99-src-cfg), configurazione tasti funzione, recupero divisa conto (COGU10W), apertura/creazione/ordinamento transito griglia, caricamento impostazioni predefinite
Selezione anno (a-tm-anno): input anno esercizio con validazione; al default propone l'anno corrente da COGTABEL tipo 66
Conferma chiave (a-richiesta-conferma): validazione globale, passaggio al caricamento
Caricamento griglia (a-leggi-dati): z-grid-det-crea-transito → z-grid-det-riordina-transito (ordinamento per mese asc)
Gestione griglia (a-grid):
Invio / doppio clic: toggle flag selezione tm-r-sel(i) tramite x-controlla-tm-r-sel
F2: selezione/deselezione di tutti i mesi (x-sel-tutto)
F3: generazione/aggiornamento scritture mesi selezionati (b-aggiorna)
F4: cancellazione documenti del mese selezionato
F5 (Gestione documento): apertura gestione prima nota tramite WIN053
Shift+F4: amministrazione colonne (GRIDADMN)
Shift+F5: esportazione Excel
Chiusura (fine): chiusura file, chiusura/cancellazione t-grid-det

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
COGTABEL	euta-rec	I-O	Tabelle di sistema: tipo 66 (esercizio), tipo "SR" (scritture rettifica per mese), tipo "SF" (fatture da ricevere/emettere)
COGPNONC	pno-rec	I-O	Prima nota non contabilizzata (inserimento e cancellazione documenti)
COGPNMOD	pmd-rec	Input	Testata modelli prima nota (filtro `pmd-rettifica = "S"`)
BOGPNMOD	bmd-rec	Input	Righe modelli prima nota (importi mensili)
FEURTAB	feurtab	Input	Tabella generica Eurosystem

File di transito¶

File	Uso
`t-grid-det`	Transito griglia dodici mesi (creato, ordinato per mese asc, cancellato alla chiusura)

Tabelle COGTABEL utilizzate¶

Tipo	Contenuto
66	Esercizio contabile corrente (lettura `conta-cones9` = anno PNota, `conta-cones1` = progressivo anno)
"SR" + anno + mese	Registro documenti scritture di rettifica per mese (rateo/storno risconti, rateo/storno altre scritture, rateo/storno ammortamenti)

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogc26-01.scr`	Maschera principale (screen section)
`cogc26.select`	SELECT dei file
`cogc26.fd`	FD dei file
`cogc26.wrk`	Working storage maschera
`cogc26.tm`	Template campi tab-maschera
`cogc26.imppredf-wrk`	Working storage impostazioni predefinite
`cogc26.decla`	Declaratives

Strutture dati¶

Copybook	Contenuto
`cogfiles.cpy`	FD feurtab
`cogazien.cpy`	Dati azienda
`cogconta.cpy` / `cogcont1.cpy`	Struttura conti
`k-personal.cpy`	Costanti personalizzazione
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni

Utility e interfacce¶

Copybook	Contenuto
`utilgesdate.cpy`	Interfaccia GESDATE (calcolo fine mese)
`utilcogk12.cpy`	Interfaccia COGK12 (risconti)
`utilcogc62.cpy`	Interfaccia COGC62 (contabilizzazione ammortamenti)
`utilw53.cpy`	Interfaccia WIN053 (visualizzazione prima nota)
`utils25.cpy`	Interfaccia date COGS25
`utils52.cpy`	Interfaccia COGS52 (calendario)
`utilgcol.cpy`	Utility colori griglia
`utilu10.cpy` / `utilu20.cpy`	Utility divisa/formattazione
`utilncnf.cpy`	Struttura parametri RNEWCONF
`utilimppredf.cpy`	Impostazioni predefinite
`utilcoge77.cpy`	Interfaccia COGE77W
`utilc53.cpy`	Interfaccia COGC53 (calcolo ammortamenti)
`wgrid.cpy` / `utilgdad.cpy`	Gestione griglie
`wcont.cpy` / `wcont1.cpy`	Linkage section

Programmi chiamati (CALL)¶

Programma	Scopo
COGU10W	Recupero divisa conto
GESDATE	Calcolo data fine mese (`CERCA-FINE-MESE`)
COGK12	Generazione documenti risconti (parametro "AI" = rilevazione, "BI" = storno)
COGS25	Assegnazione numero documento prima nota
COGC53	Calcolo quote di ammortamento cespiti (solo se `tm-cfg-collega-cespiti-coge = "S"`)
COGC62	Contabilizzazione ammortamenti cespiti (tipo contab "P" = provvisorio)
WIN053.COB	Visualizzazione documento prima nota (F5 per i 12 mesi, ciascun tipo)
GRIDADMN	Amministrazione colonne griglia
RNEWCONF	Lettura configurazione
W$MENU	Gestione menu popup contestuale
DTPRG	Conversione data → progressivo giorni (calcolo giorni per ammortamento)
PRGDT	Conversione progressivo giorni → data

Configurazione (RNEWCONF)¶

Il programma legge la configurazione tramite x99-src-cfg. La variabile tab-config contiene:

Campo	Descrizione
`tm-cfg-collega-cespiti-coge`	"S" = attiva il calcolo e contabilizzazione ammortamenti tramite COGC53/COGC62

Logica di business¶

Struttura tabella COGTABEL tipo "SR" (per mese)¶

La chiave e' composta da tipo "SR" + anno + mese. I campi rilevanti: - euta-sr-ris-doc-rateo-anno / euta-sr-ris-doc-rateo-docum: doc. rilevazione risconti - euta-sr-ris-doc-storno-anno / euta-sr-ris-doc-storno-docum: doc. storno risconti - euta-sr-alt-doc-rateo-anno / euta-sr-alt-doc-rateo-docum: doc. rateo altre scritture - euta-sr-alt-doc-storno-anno / euta-sr-alt-doc-storno-docum: doc. storno altre scritture - euta-sr-amm-doc-rateo-anno / euta-sr-amm-doc-rateo-docum: doc. rateo ammortamenti - euta-sr-amm-doc-storno-anno / euta-sr-amm-doc-storno-docum: doc. storno ammortamenti

Generazione scritture per mese (`b-aggiorna`)¶

Per ciascun mese con t-gor-r-sel = "S":

Cancellazione documenti esistenti: per ogni coppia anno/numero non zero nei campi euta-sr-*, richiama cancella-doc che scansiona e cancella le righe di COGPNONC
Elaborazione Risconti (sempre):
Calcola data fine mese con GESDATE ("CERCA-FINE-MESE")
Chiama COGK12 con parametro "AI" per il documento di rilevazione (rateo)
Chiama COGK12 con parametro "BI" per il documento di storno (giorno successivo alla fine mese)
Aggiorna euta-sr-ris-doc-* in COGTABEL tipo "SR"
Elaborazione Altre Scritture (ins-altre-scritture):
Scansiona COGPNMOD/BOGPNMOD filtrando pmd-rettifica = "S" e righe con importi mensili > 0
Crea documento di rateo (data = fine mese) e documento di storno (data = giorno successivo)
Per ogni riga significativa scrive una riga COGPNONC con importo pari alla somma dei mesi da 1 al mese corrente; per lo storno inverte il segno D/A
Aggiorna euta-sr-alt-doc-* in COGTABEL tipo "SR"
Elaborazione Ammortamenti (solo se tm-cfg-collega-cespiti-coge = "S"):
Chiama COGC53 con parametro "G" (periodicita' mensile), tipo calcolo "S", rateo "R"
Chiama COGC62 per contabilizzazione (tipo "P" = provvisorio, data operazione = fine mese)
Aggiorna euta-sr-amm-doc-* in COGTABEL tipo "SR"

Cancellazione documenti del mese (F4)¶

Cancella i documenti presenti nelle tabelle "SR" e "SF" (fatture da ricevere/emettere) per il mese selezionato. Per ciascun riferimento non zero richiama cancella-doc, poi azzera i campi e scrive con rwr-cogtabel.

Inserimento righe COGPNONC (`ins-documento`)¶

Il numero documento viene assegnato da COGS25 (codice 5, tipo 23) al primo record del documento. Le righe successive usano lo stesso numero con progressivo incrementale. Il flag pno-fl-pro = "P" indica scrittura provvisoria.