COGE75 - Gestione Articolo Utile/Perdita di Esercizio¶

Funzione¶

Programma interattivo per la visualizzazione e rettifica degli articoli di prima nota relativi all'utile o alla perdita di esercizio. Consente di navigare tra i movimenti di un documento contabile, modificarne le righe (conto, importo, data, descrizione) e registrare le variazioni. E' richiamabile direttamente dal menu oppure da COGE87 (gestore chiusura esercizio), in tal caso i parametri vengono ereditati tramite la working area wo-resto-area (struttura c75-dati).

Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Gestione Art. utile/Perdita Eser.

Tabelle e file principali¶

Tabella	Descrizione	Accesso
COGPNONC	Prima nota non contabilizzata	I-O, lettura sequenziale per chiave
COGTABEL	Tabelle generiche contabilita'	Input, read by key
COGGEANA	Anagrafica generale (clienti/fornitori)	Input, read by key
COGPNCON	Piano dei conti	Input, read by key
COGCCOPR	Centri di costo/profitto	Input, read by key
COGRITAC	Ritenute d'acconto	Input, read by key
COGFATTU	Fatture (archivio)	Input, read by key
COGPNMOD	Prima nota modelli	Input
COGMOVCC	Movimenti centri di costo	I-O
FEURLAV	File di lavoro temporaneo per operatore (`#$75<operatore>.PNO`)	Output / I-O

Logica principale¶

Avvio¶

Il programma legge la tabella generica contabilita' (tipo 66, COGTABEL) per ottenere la configurazione dell'esercizio. Se la tabella non esiste, visualizza un messaggio e termina.

Selezione documento¶

L'operatore inserisce il codice operatore (richiesto se non passato dal chiamante COGE87).
Viene richiesto se lavorare sui movimenti non contabilizzati (SI/NO).
Viene richiesto se utilizzare l'archivio anno in corso (SI/NO): l'opzione determina quale archivio COGPNONC aprire (conta-archiatt o conta-archipre, tramite open-pn-contabilizzata).
Vengono inseriti esercizio (anno inizio/fine) e numero documento.
Il programma posiziona COGPNONC sulla chiave pno-anno + pno-docum e legge tutte le righe del documento in sequenza.

Caricamento e visualizzazione¶

Per ogni riga del documento vengono letti: - Il conto contabile (pco-chia) da COGPNCON per ottenere la descrizione e il tipo anagrafico. - Se pco-tipoanagr e' valorizzato: l'anagrafica da COGGEANA per nome soggetto. - I dati del movimento vengono caricati nella tabella tabmo (array di 11 elementi) e nel file di lavoro feurlav per permettere la navigazione avanti/indietro. - Per ogni movimento con partite (pno-no-part <> "N"): chiamata a COGS83 (SERC-UPD-P) per caricare le partite nel file di appoggio. - Se la gestione centri di costo e' attiva (az-ccopr = "S") e il conto e' di reddito (pco-reddito = "R"): chiamata a COGS85 (SERC-UPD-P) per caricare i centri di costo.

Modifica movimenti (solo per documenti non contabilizzati)¶

L'operatore puo' modificare: - Data del documento (datart): validata tramite COGS52; deve essere compresa nell'esercizio aperto e non inferiore alla data minima accettazione movimenti. - Data effettiva (dataef): deve coincidere con la data di chiusura esercizio precedente. - Riga di movimento: conto (mastro/conto/sottoconto), segno, tipo operazione, descrizione, importo, valuta, cambio, dati fattura, dati IVA, centro di costo.

La navigazione tra righe avviene con F1 (prossimo) e F5 (precedente).

Registrazione (F3)¶

Alla pressione di F3 il programma verifica la quadratura (totale Dare = totale Avere). Se quadrato, sovrascrive le righe modificate in COGPNONC e aggiorna eventualmente COGMOVCC (centri di costo).

Annullamento articolo (F9)¶

Con F9 (solo per movimenti non contabilizzati) viene eliminato l'intero documento dalla prima nota.

Validazioni¶

Controllo	Messaggio
Data fuori esercizio	`DATA NON COMPRESA NELL'ESERCIZIO`
Data effettiva errata	`DATA DIVERSA DA CHIUSURA PRECEDENTE`
Data inferiore al minimo	`DATA < DATA MINIMA ACCETTAZIONE MOV.CONTABILI`
Mastro obbligatorio	`MASTRO O B B L I G A T O R I O`
Conto inesistente	`CONTO INESISTENTE`
Sottoconto a 6 cifre anagrafico	`SOTTOCONTO ANAGRAFICO DI 6 CIFRE. NON AMMESSO.`
Segno non D o A	`SEGNO ERRATO, INDICARE 'D' O 'A'`
Articolo non quadrato	`ARTICOLO NON QUADRATO, IMPOSSIBILE REGISTRARE`

Chiamate principali¶

Programma	Scopo
COGS52	Acquisizione e validazione date (calendar picker)
COGS67	Lookup e accept conto contabile (piano dei conti)
COGS78	Aggiornamento partite (`UPD-PARTI`)
COGS83	Gestione partite su file di appoggio (`SERC-UPD-P`)
COGS85	Gestione centri di costo su file di appoggio (`SERC-UPD-P`)
COGS99	Utility varie

Copybook principali¶

Copybook	Contenuto
`WSTATO.CPY`	Working storage stato
`COGCONTA.CPY`	Dati tabella contabilita'
`COGAZIEN.CPY`	Dati azienda
`WNSCR.CPY` / `WOPENF.CPY` / `WGRAVE.CPY`	Working storage comuni
`UTILW06.CPY`	Utility
`utils52.cpy`	Interfaccia COGS52 (date)
`utils78.cpy` / `utils83.cpy` / `utils85.cpy`	Interfaccia COGS78/83/85
`utils99.cpy`	Utility generali
`utilu20.cpy` / `utilu22.cpy`	Interfaccia COGU20/22
`utils67.cpy` / `utils65.cpy`	Interfaccia COGS67/65
`utilu10.cpy` / `k-u10.cpy`	Gestione importi in divisa
`WCONT.CPY` / `WCONT1.CPY`	Linkage section

Note tecniche¶

Il file di lavoro FEURLAV e' indicizzato, con chiave lav-chia (18 byte). Il nome fisico e' costruito come <ext-tmp-dir>#$75<wo-oper>.PNO. Viene aperto in output all'avvio per ricreare la struttura; se gia' in uso da un altro operatore (stato 93) mostra un errore.
Il programma riceve i parametri da COGE87 tramite wo-resto-area (struttura c75-dati): c75-caller, c75-param1, c75-param2, c75-doc, c75-var.
La maschera e' gestita come testo tradizionale (stile ASCII box, array mm-1 di 25 righe x 80 colonne) senza Screen Designer.
Il codice usa PERFORM ... THRU in alcuni punti (es. cstato thru ex-cstato): convenzione storica del programma, da non replicare.