Vai al contenuto

COGE70 — Disponibilita' Conto Corrente (Ricevute Bancarie)

Sorgente: cbl/coge70.cbl | Tipo: interattivo a griglia (interrogazione) | Program-ID: coge70

Menu: Vendite > Ricevute Bancarie > Disponibilita' C/C

Scopo

Calcola e visualizza la disponibilita' di un conto corrente bancario a una data di saldo. L'operatore indica la banca, una o due contropartite CO/GE del conto corrente e la data di saldo; il programma somma il saldo contabile dei conti (da cogslpco), scorre la prima nota non contabilizzata (cogpnonc) fino alla data saldo per rilevare i movimenti ancora da contabilizzare, e legge le scadenze RIBA della banca (nutscade) come effetti a scadere. Tutti gli elementi vengono accumulati in un archivio di lavoro temporaneo indicizzato (cogtrans) e presentati in una griglia paginata con il dettaglio dei movimenti e i totali "Saldo Movimenti" e "Saldo Aggiornato".

Il flag "movimenti (si/no)" consente di mostrare il solo saldo finale oppure il dettaglio riga per riga; l'esportazione in Excel della griglia e' disponibile (SF5). Il programma richiede che l'azienda gestisca la chiusura automatica partite (az-cls-par = "S"), altrimenti si blocca.

File e tabelle principali

File/Tabella Copybook Uso
feurtab cogfiles.cpy, coge70.fd File dati generico Eurocoge
cogtrans dichiarato nel sorgente (trs-rec), cogtrans.k01 Archivio di lavoro temporaneo indicizzato (creato in tmp-dir come #$disp.<oper>), righe di disponibilita'
COGPNONC cogpnonc.k02 Prima nota non contabilizzata per contropartita (st-cogpnonc-notmin-chia2)
COGSLPCO (accesso std) Saldi contabili progressivi dare/avere (rd-cogslpco in rd-sal)
NUTSCADE (accesso std) Scadenze RIBA della banca (st-nutscade-notmin-chia1)
NUTBANAS (accesso std) Anagrafica banche assuntrici (rd-nutbanas)
COGTABEL cogfiles.cpy Tabelle generiche: es. contabile (tipo 66), contropartite banche (tipo 16)
COGPNCON (accesso std) Descrizione conti contropartita (rd-cogpncon)
Dati contabili COGCONTA.CPY Esercizio contabile (conta-rec, conta-cones9)

Flusso principale

  1. apri / a1 — inizializza programma, apre i file, legge azienda. Se az-cls-par diverso da "S" blocca (chiusura automatica partite non gestita).
  2. aaa1 — costruisce i controlli e prepara la griglia (z-prepara-tm-grid).
  3. a4 — (re)crea l'archivio di lavoro cogtrans (crea-cogtrans), svuota la griglia e visualizza i saldi iniziali (display-saldi).
  4. a-tm-ban — accept banca; F8 apre la ricerca banche assuntrici via WIN023.COB (send-scr-2), validazione con rd-nutbanas.
  5. a-tm-contr1 / a-tm-contr2 — accept della prima ed (opzionale) seconda contropartita CO/GE (COGTABEL tipo 16); F8 apre COGV04; si risalgono mastro/conto/sottoconto e descrizione via rd-cogpncon.
  6. a-tm-data — accept data di saldo (gestita da COGS52).
  7. a-tm-mov — accept flag movimenti si/no (gestito da COGS95).
  8. a-riga-dettaglio-fine — conferma (acc-conf) e lancia riempi-file.
  9. riempi-file (a024-a041) — legge l'anno contabile, somma i saldi contabili dei conti (rd-sal su cogslpco), scorre cogpnonc per la prima (a033/a034) e seconda (a035/a036) contropartita entro la data saldo, legge le scadenze RIBA da nutscade (a037/a038), scrive ogni riga in cogtrans (wr-cogtrans) con progressivo calcolato (search-prog/search-scad), infine scrive i record di totale "Saldo Movimenti" (a039, chiave 88888888) e "Saldo Aggiornato" (a040, chiave 99999999).
  10. a-grid / vis-tabella-disp — visualizzazione della griglia paginata (list-box paged): gestisce PgUp/PgDn (fscrol2/utilpggr), SF4 (GRIDADMN), SF5 (esporta Excel), scorrendo cogtrans in avanti/indietro tramite le routine di spaginamento (rn-start, rp-start-less, sn-read, sp-read).
  11. fine / z-chiudi — chiude ed elimina l'archivio temporaneo (close cogtrans + delete file cogtrans) ed esce.

Sottoprogrammi chiamati

Programma Ruolo
GRIDADMN Amministrazione/formattazione griglia (gestore griglia standard)
COGU10W Conversione/edit importi nella divisa di conto (z-u10, z-u10-tot-imp)
COGS52 Gestione campo data con calendario (z-s52-tm-data)
COGS95 Gestione radio/check (flag movimenti, z-s95-tm-mov)
COGS99W Edit tipo operazione per la colonna della griglia (z-s99-tm-cod)
COGV04 Ricerca contropartite (F8 sui campi contropartita)
WIN023.COB Ricerca banche assuntrici (F8 su banca, send-scr-2)

Configurazioni (RNEWCONF)

Il programma include utilrcnf.cpy ma non effettua chiamate a RNEWCONF nel flusso: non usa chiavi di configurazione proprie.

Note

  • L'archivio di lavoro cogtrans e' un file indicizzato temporaneo con nome #$disp.<operatore> nella tmp-dir, riaperto in i-o e infine cancellato in chiusura. Il record trs-rec e la chiave trs-chia1 (data + progressivo) sono dichiarati direttamente nel sorgente (tabella temporanea non gestibile da Screens).
  • Le chiavi speciali 88888888 e 99999999 in trs-data/trs-prog identificano rispettivamente le righe di totale "Saldo Movimenti" e "Saldo Aggiornato", escluse dalla formattazione data della griglia.
  • Tutti gli importi sono normalizzati nella divisa di conto (w-currency-conto) via COGU10W prima di essere accumulati/visualizzati.
  • La griglia e' di tipo "paged" (list-box paginata su file): lo scorrimento legge direttamente da cogtrans invece di caricare tutto in tabella.
  • Codice legacy: uso estensivo di GO TO con etichette numeriche (a024..a041) e PERFORM ... thru ex-...; da non prendere a modello.