COGK85 -- Passaggio P.Nota in Effettivo¶

Sorgente: cbl/cogk85.cbl | Tipo: Programma con interfaccia grafica (griglia interattiva) | Program-ID: COGK85

Menu: Contabilita' > Prima Nota Provvisoria > Passaggio P.Nota in Effettivo

Scopo¶

Rende effettivi o cancella i documenti di Prima Nota provvisoria. Per il passaggio in effettivo, assegna un nuovo numero documento tramite COGS25, rimuove il flag provvisorio e opzionalmente cambia la data. Per la cancellazione, elimina tutti i movimenti collegati (PNO, partita, centri di costo, riscontri).

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTABEL	feurtab.fd, cogfiles.cpy	Tabella generica contabilita' (tipo 66: esercizio)
COGPNONC	(da cogk85.select)	Movimenti Prima Nota -- lettura, cancellazione, riscrittura
COGMOVPA	(da cogk85.select)	Movimenti partita -- cancellazione e riscrittura con nuovo numero
COGMOVCC	(da cogk85.select)	Movimenti centri di costo -- cancellazione e riscrittura
COGRISCO	(da cogk85.select)	Riscontri -- cancellazione dei record collegati
COGGEANA	(da cogk85.select)	Anagrafica -- lettura descrizione per la griglia

Struttura del programma¶

Flusso principale¶

Inizializzazione (apri): verifica abilitazione azienda (az-ges-ip), legge esercizio contabile
Selezione parametri (a-tm-prov, a-tm-da-data, a-tm-a-data): tipo P.Nota provvisoria, intervallo date
Caricamento dati (carica-dati): scorre COGPNONC per chiave 3 (data), filtra per flag provvisorio e intervallo date
Griglia (a-grid, a-accept-grid): visualizzazione e gestione operazioni
Dettaglio riga (a-riga-dettaglio): impostazione flag (A/C) e nuova data
Esecuzione (aggiorna-tutto): esegue le cancellazioni; il passaggio in effettivo avviene riga per riga alla conferma del dettaglio

Caricamento dati (`carica-dati`)¶

Scorre COGPNONC con start per chiave 3 (st-cogpnonc-notmin-chia3) usando tm-da-data come data iniziale. Filtra:

pno-datamov > tm-a-data: fine ricerca
pno-fl-pro = spaces: salta (non e' provvisorio)
pno-fl-pro not = fl-pno-pro: salta (tipo provvisorio diverso da quello selezionato)

Raggruppa i movimenti per documento (w-docum), accumulando importi. Ogni documento diventa una riga della griglia.

Campi della griglia (tab-maschera):

tm-anno, tm-numdoc: chiave documento
tm-data-doc: data del documento
tm-tipo-doc: tipo documento
tm-impo, tm-curr: importo e divisa
tm-flag: operazione (vuoto, A=effettivo, C=cancella)
tm-data-new: nuova data documento (per flag A)
tm-des: descrizione

Passaggio in effettivo (`effettivo`)¶

Chiama COGS25 per ottenere il nuovo numero documento (s25-i-cod = 5, anno/mese dal documento)
Scorre tutti i PNO del documento provvisorio (effettivo-10):
Cancella il record originale (del-cogpnonc)
Riscrive con il nuovo numero (documento) e senza flag provvisorio (pno-fl-pro = spaces)
Se e' stata impostata una nuova data, aggiorna pno-datamov
Scorre i movimenti partita (effettivo-100):
Cancella e riscrive con il nuovo numero documento e la nuova data
Scorre i movimenti centri di costo (effettivo-200):
Cancella e riscrive con il nuovo numero documento e la nuova data

Cancellazione (`cancella`)¶

Scorre tutti i PNO del documento (cancella-10) e li cancella uno per uno
Al primo PNO trovato, chiama COGS78 con funzione "UPD-PARTI" per aggiornare il partitario
Dopo la cancellazione dei PNO (cancella-100):
Chiama COGS78 con "DEL-MOVPA" per cancellare i movimenti partita
Chiama COGS78 con "LANCIO-S77" per rielaborare il partitario
Cancella i record di COGMOVCC collegati
Cancella i riscontri in COGRISCO (cancella-cogrisco)

Cancellazione riscontri (`cancella-cogrisco`)¶

Scorre tutta la tabella COGRISCO e cancella i record il cui numero documento (in rsc-pno-chia, rsc-docum-a o rsc-docum-b) corrisponde al documento da cancellare.

Chiamate esterne¶

Programma	Scopo
COGS25	Generazione nuovo numero documento progressivo
COGS78	Gestione partitario: aggiornamento, cancellazione movimenti partita
COGE77W	Visualizzazione dettaglio documento contabile (F7)
COGU10W	Formattazione importi
COGS52	Gestione input date
COGS65	Ricerca anagrafica
COGS95	Gestione checkbox
GRIDADMN	Gestione griglia interattiva
DIALOGS	Finestra di dialogo (conferma operazione)

Copybook utilizzate¶

cogk85.select, cogk85.fd, cogk85.wrk, cogk85.prc, cogk85.decla, cogk85-01.scr -- Definizioni generate da Screens
cogconta.cpy -- Dati esercizio contabile
cogazien.cpy -- Dati azienda (verifica az-ges-ip)
utilcoge77.cpy -- Interfaccia per COGE77W (linkage)
utils25.cpy -- Interfaccia COGS25
utils52.cpy -- Interfaccia COGS52
utils65.cpy -- Interfaccia COGS65
utils78.cpy -- Interfaccia COGS78
utils99.cpy -- Interfaccia COGS99
utilu10.cpy, k-u10.cpy -- Interfaccia COGU10W
wgrid.cpy, utilgdad.cpy -- Supporto griglia
utildlg.cpy -- Interfaccia DIALOGS
wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Copybook standard

Note tecniche¶

Il campo tm-funzio-1/2/3 gestisce una funzionalita' nascosta attivabile in sequenza con F8+F6+F9 dal campo P.Nota Provvisoria, ma il suo scopo non e' documentato nel sorgente.
Il passaggio in effettivo avviene riga per riga alla conferma del dettaglio (non in batch alla conferma finale). La conferma finale con F3 dalla griglia esegue solo le cancellazioni (aggiorna-tutto scorre solo i tm-flag = "C").
Il colore delle righe nella griglia e' differenziato tramite x-set-row-grid-color in base allo stato del flag operazione.
La verifica dell'abilitazione utente (w-abi-agg, w-abi-del) controlla i permessi di modifica e cancellazione prima di consentire le operazioni.

Documentazione tecnica -- 2026-04-16