Vai al contenuto

COGC08 — Gestione (visualizza/rettifica) articoli di chiusura/apertura

Sorgente: cbl/cogc08.cbl | Tipo: interattivo a maschera carattere (RM-COBOL) con elaborazione batch | Program-ID: cogc08

Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Gestione Art. Chiusura/Apertura

Scopo

Consente di visualizzare e rettificare gli articoli di prima nota di chiusura o apertura esercizio precedentemente generati da COGC06. L'operatore indica se lavorare su un articolo di Chiusura (C) o Apertura (A), il documento, e le righe della scrittura contabile vengono caricate, visualizzate a schermo e modificabili (inserimento, variazione, cancellazione riga, annullamento intero documento).

A differenza di COGC06 (che crea gli articoli in CHIUS.ARC/APERT.ARC), COGC08 opera sugli stessi archivi di prima nota di chiusura/apertura (nome file composto da conta-cone1/conta-cones1 + CHIUS.ARC/APERT.ARC), aperti in i-o, appoggiandosi a un file di lavoro temporaneo FEURLAV (#$75.<operatore>) per gestire la scansione avanti/indietro delle righe. Se gestita la contabilita' per centri di costo (az-ccopr = "S"), i riferimenti ai centri di costo vengono aggiornati tramite COGS85.

Il programma puo' essere invocato anche da COGE87 (rilevato tramite c75-caller nell'area di resto): in tal caso, al termine, restituisce l'esito nella wo-resto-area.

File e tabelle principali

File/Tabella Copybook Uso
FEURTAB / COGTABEL cogfiles.cpy (FD), cogtabel.fd/cogtabel.cpy Tabelle generiche: tipo 66 (parametri esercizio → conta-rec), tipo 65 (tipi operazione/causali), tipo 45 (contropartite mastro/conto → tipo operazione)
COGGEANA coggeana.cpy Anagrafica (sottoconti anagrafici): ana-tipo, ana-cod, ana-nome
COGPNCON cogpncon.cpy Piano dei conti: pco-mastro/conto/sconto, pco-des, pco-reddito, pco-tipoanagr
COGCCOPR cogccopr.cpy Centri di costo/profitto: cco-liv1/2/3, cco-des
COGPNONC (= CHIUS.ARC/APERT.ARC) cogpnonc.cpy Archivio prima nota chiusura/apertura: record pno-rec (anno, documento, progressivo, conto, segno, importo, date, ecc.)
FEURLAV cogpnonc.cpy replacing pno-→lav- File di lavoro temporaneo per operatore (scansione righe articolo)
COGRITAC cogritac.cpy Aperto ma non movimentato nella versione corrente (residuo storico ritenute)

Struttura di servizio COGCONTA.CPY (conta-rec): codici esercizio (conta-cone1/cone2, conta-cones1/cones2), date chiusura (conta-conchiupre9, conta-conchiuatt9, conta-dachiur). Servizi: COGS52 (date), COGS67 (piano conti), COGS85 (centri di costo), COGU10 (editing importi), SENDW06/WIN014/WIN009/WIN059/WIN070 (window carattere di aiuto).

Flusso principale

  1. a000 — init, open-files, rd-azi, caricamento maschera carattere mm-1 (25x80).
  2. box-05/box-07 — accept codice operatore e scelta articolo Chiusura/Apertura (ttt).
  3. box-ok/a004 — legge la tabella esercizio (tipo 66) in conta-rec; compone il nome file CHIUS.ARC o APERT.ARC; apre in output e poi i-o il lavoro FEURLAV (#$75.<operatore>; errore 93 = gia' in uso) e in i-o COGPNONC.
  4. a010/a015/a020 — accept esercizi (via COGS52) e numero documento.
  5. a023/a0241/a0242 — start/read su COGPNONC per il documento; per ogni riga: caricamento centri di costo (COGS85 op SERC-UPD-P se conto di reddito), popolamento tabella schermo elemo, scrittura su FEURLAV, visualizzatab.
  6. a025...a205 — editing intestazione (date registrazione/effettiva con COGS52, controlli su conta-conchiu*) e delle singole righe: piano conti (COGS67 o send-scr-6/WIN014), segno, tipo operazione (send-scr-7/WIN009), data valuta, divisa/importo (COGU10), descrizione, n.fattura, data fattura, n.iva, centri di costo (COGS85 op DISP-UPD-P); scrittura riga su FEURLAV.
  7. varia — scansione/rettifica delle righe gia' esistenti (F5): navigazione avanti (varia600)/indietro (indietro), variazione (varia200/rewrite) o cancellazione riga (varia0710/delete su FEURLAV).
  8. a300/a320/a330...a360 — F6 registra: verifica quadratura Dare=Avere (totd/tota), rimuove le vecchie partite da COGPNONC (rimuovi) e le vecchie ripartizioni centri di costo (COGS85 op DEL-ALL-CC), poi riscrive da FEURLAV a COGPNONC reimpostando il progressivo e la data economica; ricrea i riferimenti centri di costo (COGS85 op WRI-UPD-P).
  9. a800 — F9 annulla l'intero documento: cancella le partite (rimuovi) e i centri di costo (DEL-ALL-CC).
  10. a700/a750/a005/fine/a1000 — chiusura file di lavoro/prima nota e ritorno al menu o al chiamante (COGE87).

Sottoprogrammi chiamati

Programma Ruolo
COGS52 Editing/validazione date (esercizio, registrazione, effettiva, valuta, fattura)
COGS67 Consultazione/aiuto piano dei conti (mastro/conto/sottoconto)
COGS85 Gestione ripartizione per centri di costo/profitto (aggiornamento, cancellazione, disposizione)
COGU10 Editing/visualizzazione importi in divisa
WIN014.COB (send-scr-6) Window carattere consultazione piano conti
WIN009.COB (send-scr-7) Window carattere consultazione tipi operazione
WIN059.COB (send-scr-59) Window carattere ricerca piano conti per stringa
WIN070.COB (send-scr-70) Window carattere ricerca centri di costo per stringa
send-w06 (COGW06) Ricerca anagrafica per sottoconto anagrafico

Note

  • Il programma opera direttamente sugli archivi di chiusura/apertura (CHIUS.ARC/APERT.ARC) generati da COGC06, non su COGPNO: le rettifiche sono definitive alla registrazione (F6), che riscrive integralmente il documento.
  • Il file di lavoro FEURLAV e' per operatore (#$75.<wo-oper>): l'apertura in output con stato 93 segnala che la funzione e' gia' in uso per quel codice operatore.
  • La quadratura Dare/Avere e' obbligatoria per registrare (totd = tota, messaggio "ARTICOLO NON QUADRATO"); gli articoli di reddito dell'esercizio precedente hanno gestioni particolari (data effettiva, esclusione niva).
  • Il sorgente e' in stile RM-COBOL character-mode con accept/display posizionali e uso pervasivo di GO TO e PERFORM ... THRU (scifta thru ex-scifta, varia thru ex-varia, rimuovi thru ex-rimuovi, ecc.): forma legacy, da non replicare. Ampie porzioni di accept (paragrafi a075/a080/varia75...) sono commentate perche' sostituite dalle window di aiuto.