COGE74 - Ins. Articolo Utile/Perdita Eser.¶
Sorgente: cbl/coge74.cbl | Program-ID: COGE74 | Tipo: Programma interattivo (standalone)
Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio
Scopo¶
Inserimento di prima nota dedicato alle scritture di chiusura esercizio (utile/perdita). E' una versione specializzata dell'inserimento prima nota (cfr. COGE20) con controlli aggiuntivi sulla data di chiusura e sul bilanciamento Dare/Avere. Gestisce: prima nota reale, provvisoria ("P"), provvisoria opaca ("O", con codice 8-6-9) e inserimento extra-contabile del partitario ("NO-PNO"). Utilizza un file di lavoro temporaneo FEURLAV per la gestione transazionale dell'articolo in corso di inserimento.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Indexed | Input | Tabella nomi file |
| COGTABEL | Indexed | Input | Tabella generica contabilita' (tipo 45 per conti partite, tipo 66 per esercizio, ecc.) |
| COGGEANA | Indexed | Input | Anagrafica clienti/fornitori |
| COGPNCON | Indexed | Input | Piano dei conti (k01) |
| COGCCOPR | Indexed | Input | Centri di costo/profitto |
| COGPNMOD | Indexed | Input | Modelli di prima nota |
| COGPNONC | Indexed | Input | Prima nota non contabilizzata (partitario) |
| COGRITAC | Indexed | I-O | Memoria ritenute d'acconto |
| FEURLAV | Indexed | I-O | File di lavoro temporaneo per l'articolo in corso (nome a runtime: ext-tmp-dir/coge74.wo-oper) |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT tabella file nomi |
| cogtabel.fd | SELECT/FD COGTABEL |
| coggeana.fd | SELECT/FD COGGEANA |
| cogpncon.fd | SELECT/FD COGPNCON |
| cogccopr.fd | SELECT/FD COGCCOPR |
| cogpnmod.fd | SELECT/FD COGPNMOD |
| cogpnonc.fd | SELECT/FD COGPNONC |
| cogritac.fd | SELECT/FD COGRITAC |
| wstato.cpy | Stato I/O |
| wgrave.cpy | Gestione errori gravi |
| wnscr.cpy | Dati schermo |
| wopenf.cpy | Apertura file |
| cogconta.cpy | Dati esercizio contabile |
| cogazien.cpy | Dati azienda |
| utils25.cpy | Utility COGS25 |
| utils52.cpy | Utility date COGS52 |
| utils78.cpy | Utility COGS78 |
| utils80.cpy | Utility COGS80 |
| utils85.cpy | Utility COGS85 |
| utils99.cpy | Utility COGS99 |
| utils21.cpy | Utility COGS21 |
| utils67.cpy | Utility COGS67 |
| utilu10.cpy | Utility importi COGU10 |
| utilu20.cpy | Utility COGU20 |
| utilu22.cpy | Utility pagamento COGU22 |
| k-u10.cpy | Costanti importi |
| wcont.cpy | Linkage stringhe comuni |
| utils81.cpy | Linkage area utente |
| utilw35.cpy | Linkage COGW35 |
| wcont1.cpy | Linkage area utente 2 |
| GetDCont.CPY | Lettura dati contabilita' |
| winmsg.cpy | Messaggi a video |
| stato.cpy / stato1.cpy | Controllo stato I/O |
| open1.cpy | Apertura file |
| grave.cpy | Paragrafi errori gravi |
| mmmask.cpy | Paragrafi init/exit |
| sendw35.cpy | Paragrafi COGW35 |
| sendu22.cpy | Paragrafi COGU22 |
| cogpncon.k01 | Accesso COGPNCON per k01 |
| coggeana.k01 | Accesso COGGEANA per k01 |
Logica di elaborazione¶
- Inizializzazione: lettura dati azienda, esercizio contabile (COGTABEL tipo 66), apertura file. Verifica se la modalita' "Provvisoria" e' abilitata dall'azienda (
az-ges-ip); in caso negativo blocca l'accesso con avviso. - Impostazione modalita': tramite
wo-parametro: - Spazio: prima nota reale
- "PROVVISO": prima nota provvisoria (
fl-pno-pro = "P") - "NO-QUADR": prima nota di adeguamento (senza controllo quadratura)
- "NO-PNO": inserimento extra-contabile del partitario
- Creazione FEURLAV: file temporaneo basato su
ext-tmp-dir/coge74.{wo-oper}; se gia' in uso viene segnalato errore. - Input data: la data di registrazione viene validata tramite COGS52 e deve essere nell'esercizio corrente (
conta-conchiupre9 < data <= conta-conchiuatt9) e non anteriore alla data minima di contabilizzazione (conta-dachiur). Gestione opzionale della data effettiva di chiusura esercizio precedente. - Input righe: per ogni riga dell'articolo l'utente inserisce mastro/conto/sottoconto (COGS67), segno D/A, tipo operazione (COGS99), importo eventualmente in valuta (COGU10). Per i conti anagrafico (
pco-tipoanagr not = spaces) il sottoconto e' obbligatorio e viene letto da COGGEANA; viene verificata la coerenza mastro/conto rispetto all'anagrafica. - Navigazione: F5=Varia salva la riga, F1=Avanti, F4=Indietro, F6/F7 avanzamento/ritorno nell'articolo.
- Quadratura e salvataggio: al momento del salvataggio definitivo viene verificato che
totd = tota; in caso contrario viene visualizzato il messaggio M14 e il salvataggio e' bloccato. La scrittura avviene su COGPNCON (prima nota contabile) o COGPNONC (partitario non contabile). - Gestione ritenute: se il conto e' di tipo fornitore con ritenuta d'acconto (
w-ana-ritac not = spaces), viene richiamata la gestione ritenute su COGRITAC tramite COGP57. - Centri di costo: se
az-ccopr = "S", viene gestito l'abbinamento ai centri di costo/profitto (COGCCOPR). - Modelli di prima nota: COGPNMOD e' disponibile per il caricamento di modelli precompilati.
Chiamate a sottoprogrammi¶
| Programma | Scopo |
|---|---|
| COGS52 | Gestione input date con validazione |
| COGS67 | Ricerca e selezione piano dei conti |
| COGS80 | Utility gestione centri di costo |
| COGS85 | Utility gestione livelli |
| COGS99 | Ricerca tipo operazione |
| COGS21 | Utility varia |
| COGS25 | Utility ricerca |
| COGU10 | Gestione e visualizzazione importi |
| COGU20 | Utility gestione valute |
| WIN006 | Popup ricerca anagrafica (finestra di servizio) |
| WIN059 | Popup ricerca (finestra di servizio) |
| WIN070 | Popup ricerca (finestra di servizio) |
| COGP57 | Gestione ritenute d'acconto (richiamato per conti con ritenuta) |