Vai al contenuto

COGK70 — Tabella conti ratei / risconti

Sorgente: cbl/cogk70.cbl | Tipo: interattivo a maschera (manutenzione tabella) | Program-ID: cogk70

Menu: Contabilita' > Archivi & Tabelle > Tabelle > Conti Ratei/Risconti ; Contabilita' > Bilancio > Ratei/Risconti > Tabelle > Tabella Ratei/Risconti

Scopo

Manutenzione della tabella di configurazione dei conti da usare per ratei e risconti. Il programma gestisce un unico record di parametri (tabella generica COGTABEL tipo 29) in cui si definiscono quattro coppie conto + tipo operazione contabile:

  • Ratei attivi (conto + T.O.)
  • Ratei passivi (conto + T.O.)
  • Risconti attivi (conto + T.O.)
  • Risconti passivi (conto + T.O.)

Ogni conto e' espresso come mastro/conto/sottoconto (10 cifre) e deve esistere nel piano dei conti; ogni tipo operazione (causale contabile, 3 cifre) deve esistere nella tabella causali. Questi valori pilotano poi la generazione automatica delle scritture di rateo/risconto nei programmi di contabilita'. La maschera consente inserimento, variazione e cancellazione del record.

File e tabelle principali

File/Tabella Copybook Uso
COGTABEL (feurtab) cogfiles.cpy / cogtabel.fd Tabella generica: record tipo 29 (euta-tipo 29, euta-codr 0) con la configurazione ratei/risconti (manutenzione: lettura, wr-, rwr-, del-); tipo 65 letto per validare/descrivere i tipi operazione
COGPNCON cogpncon.fd Piano dei conti: verifica esistenza dei quattro conti e recupero descrizione

Copybook di servizio: utile65.cpy (aiuto tipi operazione COGE65), utils67.cpy (ricerca conti COGS67W), cogazien.cpy, wstato/wopenf/wgrave/wnscr. Copybook generati da Screens: cogk70.select (SELECT di COGTABEL e COGPNCON), cogk70.fd, cogk70.wrk, cogk70-01.scr, cogk70.decla, cogk70.prc.

Flusso principale

  1. apri — inizializzazioni, lettura azienda, apertura file, attivazione tasti funzione; legge il record COGTABEL tipo 29 (euta-tipo 29, euta-codr 0) e ne travasa i campi sulla maschera (tab-maschera), quindi visualizza le descrizioni conti/T.O. (disp-*).
  2. a4 — carica i controlli e mostra la maschera.
  3. a-tm-rat-att / a-tm-rat-att-to — accept del conto e del tipo operazione dei ratei attivi; F8 sul conto apre la ricerca piano conti (COGS67W), F8 sul T.O. apre l'aiuto causali (COGE65); la validazione (x-controlla-tm-rat-att / -to) verifica il conto in COGPNCON e il T.O. in COGTABEL tipo 65.
  4. a-tm-rat-pas / -to, a-tm-ris-att / -to, a-tm-ris-pas / -to — accept analoghi per ratei passivi, risconti attivi, risconti passivi.
  5. disp-rat-att ... disp-ris-pas-to — leggono conto (COGPNCON) e tipo operazione (COGTABEL tipo 65) e mostrano la relativa descrizione nella maschera.
  6. x-imposta-conferma — valida gli otto campi (4 conti + 4 T.O.) e abilita/disabilita il tasto di conferma.
  7. variazione — rilegge il record tipo 29 (rd-cogtabel-lk), riporta i campi della maschera nel record euta- e riscrive (rwr-cogtabel).
  8. inserimento — prepara il record tipo 29 con i dati della maschera e lo scrive (wr-cogtabel).
  9. cancella — previa conferma, cancella il record (del-cogtabel).
  10. fine / z-chiudi — chiude COGTABEL e COGPNCON e termina.

Sottoprogrammi chiamati

Programma Ruolo
COGS67W Ricerca interattiva del conto sul piano dei conti (F8 sui quattro campi conto)
COGE65 Aiuto/selezione del tipo operazione contabile (F8 sui quattro campi T.O.)

Note

  • L'intera configurazione risiede in un unico record COGTABEL tipo 29 (chiave euta-codr = 0): non esiste una lista di record, ma una sola scheda di parametri. Inserimento/variazione/cancellazione agiscono su quel record.
  • I quattro tipi operazione sono validati contro la tabella causali (COGTABEL tipo 65) tramite le stesse routine rd-cogtabel usate anche in fase di visualizzazione descrizione.
  • Sorgente legacy: la navigazione fra i campi della maschera (a-tm-rat-att, a-tm-rat-att-to, ..., variazione, inserimento, cancella, x-test-mouse, fine) e' realizzata con numerosi GO TO. Non fa uso di PERFORM ... THRU. Da non replicare nei nuovi sviluppi (preferire PERFORM semplici e strutture IF/EVALUATE).