Vai al contenuto

COGF87 -- Verifica Data Valuta

Sorgente: cbl/cogf87.cbl | Tipo: Interattivo (utility di controllo) | Program-ID: COGF87

Menu:

  • Contabilita' > Rendiconti Finanziari > Utility > Verifica Data Valuta

Scopo

Ricerca movimenti contabili con data valuta non corretta o assente su uno o piu' archivi contabili (prima nota non contabilizzata, anno attuale, anno precedente). Visualizza i risultati in una griglia e consente la stampa dell'elenco.

File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB (COGTABEL) Indicizzato I-O Tabella generica: tipo 66 = esercizio contabile, tipo 45 = archivi PN
COGPNCON (contabilizzata) Indicizzato Input Prima nota contabilizzata (anno attuale e precedente), aperti dinamicamente
COGPN014 (non contabilizzata) Indicizzato Input Prima nota non contabilizzata
FLSTA Sequenziale Output File di stampa

Programmi chiamati

Programma Scopo
GRIDADMN Gestione avanzata griglia

Copybook principali

  • cogf87.wrk, .select, .fd, .prc, .decla, cogf87-01.scr -- Definizioni Screens
  • cogfiles.cpy -- Definizione record COGTABEL (euta-*)
  • flsta.fd, flsta.cpy -- File di stampa
  • cogconta.cpy -- Contabilita' (nomi archivi, apertura contabilizzata)
  • k-u10.cpy -- Costanti unita' di stampa
  • utils54.cpy -- Utility stampa (COGS54)
  • utilu10.cpy -- Utility gestione stampante (COGU10)
  • utilgdad.cpy -- Utility per GRIDADMN
  • wgrid.cpy -- Gestione griglia
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy -- Variabili standard
  • wcont.cpy, wcont1.cpy -- Struttura linkage standard

Struttura del programma

Flusso principale

  1. apri: inizializzazione, apertura file, lettura azienda. Legge l'esercizio contabile (COGTABEL tipo 66). Apre gli archivi contabilizzati anno attuale ("ATT") e precedente ("PRE") tramite open-pn-contabilizzata. Memorizza i nomi dei 3 archivi in dep-nom.

  2. a4: reset maschera e griglia. Mostra i nomi dei tre archivi e i checkbox di selezione.

  3. a-tm-sel-01 / a-tm-sel-02 / a-tm-sel-03: accept dei tre checkbox (P.N. non contabilizzata, anno attuale, anno precedente). Gestiti come check-box tramite COGS95.

  4. a-richiesta-conferma: validazione (almeno un archivio deve essere selezionato) e conferma.

  5. carica-dati: scansione degli archivi selezionati. Per ciascun archivio:

  6. Legge i movimenti dalla prima nota
  7. Verifica la correttezza della data valuta (ws-dataval)
  8. Se la data valuta e' anomala, aggiunge il movimento alla griglia (tm-tab)

  9. Campi caricati: tm-w-arc (archivio), tm-anno, tm-num, tm-mas, tm-con, tm-sot, tm-note, tm-part (partita)

  10. a-grid / a-accept-grid: visualizzazione risultati (sola consultazione):

  11. Griglia non modificabile
  12. F9: stampa
  13. Shift+F4: GRIDADMN
  14. ESC: torna a selezione archivi

Stampa (stampa / ex-stampa)

Genera una stampa con intestazione "Movimenti Contabili senza Rif.Partita" e colonne: Archivio, Doc., Conto, Partita, Note. Larghezza 80 caratteri (k-chr-stampa = 80).

Variabili principali

Variabile Tipo Descrizione
tab-maschera 01 tm-sel-01/02/03 (checkbox selezione archivi), tm-archivio (nomi archivi), tm-pnt (contatore), tm-tab (righe risultato)
tm-righe (i) Riga griglia tm-w-arc, tm-anno, tm-num, tm-mas, tm-con, tm-sot, tm-note, tm-part
grid-record 01 Record di interscambio: grd-w-arc, grd-anno, grd-num, grd-conto (grd-mas/grd-con/grd-sco), grd-note
wconti-tab 01 Conti parametrici (fino a 5 conti con tipo/mastro/conto)
k-max-ele-tab 78 900 (max elementi griglia)
k-chr-stampa 78 80 (larghezza stampa)

Documentazione tecnica -- 2026-04-28