Vai al contenuto

COGE71 -- Movimenti Senza Riferimento Partita

Sorgente: cbl/coge71.cbl | Tipo: Programma con interfaccia grafica (griglia interattiva) | Program-ID: COGE71

Menu: Contabilita' > Prima Nota > Visualizzazioni > Movimenti Senza Riferim.Partita

Scopo

Ricerca i movimenti contabili che presentano anomalie nel collegamento al partitario. Analizza fino a tre archivi di Prima Nota (non contabilizzato, anno attuale, anno precedente) e individua:

  1. Movimenti con conto che richiede partita ma senza record in COGMOVPA (no-ck = 2)
  2. Movimenti con importo che non quadra rispetto ai movimenti partita collegati (no-ck = 3)
  3. Movimenti con testata partita mancante in COGPARTI (no-ck = 4)

Il programma opera in sola lettura.

File e Tabelle

File/Tabella Copybook Uso
COGTABEL feurtab.fd, cogfiles.cpy Tabella generica contabilita' (tipo 66: esercizio, tipo 45: conti partita)
COGPNONC (apertura dinamica tramite nf-name-14) Movimenti di Prima Nota (3 archivi: non contab., attuale, precedente)
COGMOVPA (da coge71.select) Movimenti partita -- per verifica collegamento

Struttura del programma

Flusso principale

  1. Inizializzazione (apri): apre i file, legge l'esercizio contabile (COGTABEL tipo 66), determina i nomi dei 3 archivi tramite open-pn-contabilizzata
  2. Selezione archivi (a-tm-sel-01/02/03): l'utente seleziona quali archivi analizzare (checkbox S/N)
  3. Caricamento dati (carica-dati): legge i conti configurati per il controllo partita (COGTABEL tipo 45, fino a 5 conti), poi scorre ciascun archivio selezionato
  4. Visualizzazione (a-grid): presenta i risultati in griglia con possibilita' di stampa

Caricamento conti partita (a-91)

Legge da COGTABEL tipo 45, codici da 1 a 5. Per ogni codice estrae:

  • wmas-par(l) -- mastro
  • wcon-par(l) -- conto
  • wtip-par(l) -- tipo

Questi sono i conti che devono avere un riferimento partita.

Ricerca anomalie (b-rd-arc, ck-partita)

Per ogni archivio selezionato:

  1. Apre dinamicamente il file di Prima Nota tramite il nome in nf-name-14
  2. Scorre sequenzialmente tutti i record (st-cogpnonc-notmin, rdnxt-cogpnonc)
  3. Per ogni record, ck-partita verifica:
  4. Se il conto corrisponde a uno dei 5 conti configurati per partita
  5. Se pno-no-part = "N", il movimento e' esonerato dal controllo
  6. Se manca il record in COGMOVPA: no-ck = 2
  7. Se esiste COGMOVPA ma il saldo dei movimenti partita non corrisponde all'importo del PNO: no-ck = 3
  8. Se il progressivo partita non ha testata: no-ck = 4

Tabella risultati (tab-maschera)

Ogni riga contiene:

  • tm-w-arc: archivio di provenienza (N=Non contab., A=Attuale, P=Precedente)
  • tm-anno, tm-num: anno e numero documento
  • tm-mas, tm-con, tm-sot: conto contabile
  • tm-note: descrizione dell'anomalia
  • tm-part: riferimento partita (solo per no-ck = 4)

Limite massimo: 900 elementi (k-max-ele-tab).

Stampa (stampa)

Utilizza COGS54 per la gestione stampante. Produce un report con intestazione azienda e data, seguito dall'elenco dei movimenti anomali con archivio, documento, conto, partita e note.

Chiamate esterne

Programma Scopo
COGU10W Formattazione importi per la visualizzazione delle differenze
GRIDADMN Gestione griglia interattiva
COGS54 Gestione selezione stampante e stampa

Copybook utilizzate

  • coge71.select, coge71.fd, coge71.wrk, coge71.prc, coge71.decla, coge71-01.scr -- Definizioni generate da Screens
  • cogfiles.cpy -- Record tabella generica
  • cogconta.cpy -- Dati esercizio contabile
  • flsta.fd, flsta.cpy -- File di stampa
  • wgrid.cpy, utilgrid.cpy -- Supporto griglia
  • utilgdad.cpy -- Interfaccia GRIDADMN
  • utils54.cpy -- Interfaccia COGS54
  • utilu10.cpy, k-u10.cpy -- Interfaccia COGU10W
  • cogazien.cpy -- Dati azienda
  • wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Copybook standard

Note tecniche

  • L'apertura degli archivi di Prima Nota e' dinamica: il nome del file viene ricavato da nf-name-14 per l'archivio non contabilizzato e da fil-nome per gli archivi contabilizzati, tramite il paragrafo open-pn-contabilizzata con chiave "ATT" e "PRE".
  • Il controllo di quadratura (ck-partita, no-ck = 3) somma algebricamente tutti i movimenti partita collegati al documento (dare - avere) e confronta il risultato con l'importo del PNO. Se non corrispondono, segnala la differenza con gli importi formattati.
  • Il campo pno-no-part con valore "N" indica che il movimento e' esonerato dal controllo partita, anche se il conto rientra tra quelli configurati.

Documentazione tecnica -- 2026-04-16