Vai al contenuto

COGE46 - Eliminazione extra-contabile partite aperte/chiuse

Sorgente: cbl/coge46.cbl | Program-ID: COGE46 | Tipo: interattivo a maschera (carattere)

Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio

Scopo

COGE46 consente all'operatore di eliminare extra-contabilmente movimenti di partita (COGMOVPA) associati a partite aperte e/o chiuse di clienti o fornitori. La funzione e' tipicamente usata in fase di chiusura/riapertura esercizio per ripulire partite anomale che non devono transitare nel normale flusso contabile. L'operatore seleziona il soggetto (tipo C/F), l'ambito (aperte/chiuse/entrambe), un eventuale riferimento di partita preciso, e contrassegna singole righe con il codice di cancellazione (X = cancella sempre, Z = cancella solo se non legata a prima nota). La cancellazione fisica avviene su conferma F3 e aggiorna la partita tramite COGS77.

File e tabelle

File/Tabella Copybook Modalita' Uso
FEURTAB COGFILES.CPY Input Tabella file di sistema (apertura dinamica)
COGTABEL COGTABEL.CPY, CNFGSIST.CPY Input Tabella generica contabilita' (tipo 45: partite, tipo 66: parametri chiusura, tipo 68: tipi documento)
COGGEANA COGGEANA.CPY Input Anagrafica clienti/fornitori
COGMAGAZ COGMAGAZ.CPY Input Agenzie/magazzini
COGPNCON COGPNCON.CPY Input Piano dei conti
COGPNONC COGPNONC.CPY Input Prima nota non contabilizzata (controllo esistenza per cancellazione tipo Z)
COGAPPOG COGAPPOG.FD Input Archivio appoggio anagrafica
COGMOVPA COGMOVPA.CPY I-O Movimenti di partita (target della cancellazione)
COGWPNO COGWPNO.CPY Input Archivio appoggio movimenti partita (prodotto da COGS77, lettura per visualizzazione)
FIUNI (file temp) struttura locale uni-rec I-O File temporaneo indicizzato in ext-tmp-dir (#$COGE46.): raccoglie le righe da visualizzare e il flag di selezione uni-ics

Programmi chiamati

Programma Scopo
COGS65 Ricerca anagrafica per tipo/codice (selezione soggetto)
COGS21 Selezione da lista opzioni (A/C/E per aperte/chiuse/entrambe; S/N per provvisori)
COGS52 Inserimento/validazione data (anno riferimento partita)
COGS77 Ricerca partite (R-PARTITA) e aggiornamento testata partita (UPD-PARTITA) dopo cancellazione movimenti
COGS51 Visualizzazione/modifica flag sospensione partita (F7)
WIN006 Finestra ricerca anagrafica
WIN019 Finestra dettaglio fattura (F5)
WIN053 Visualizzazione documento (F9)
WIN062 Visualizzazione dettaglio partita (F8)
COGU10 Gestione valuta/importi (visualizzazione saldi formattati)

Copybook principali

Gestionale - working storage: - WSTATO.CPY, WOPENF.CPY, WGRAVE.CPY, WNSCR.CPY, COGAZIEN.CPY, COGCONTA.CPY - UTILS25.CPY, UTILS65.CPY, UTILS51.CPY, UTILS52.CPY, UTILW53.CPY - UTILS21.CPY, UTILS77.CPY, UTILU10.CPY, K-U10.CPY

Linkage: WCONT.CPY, WCONT1.CPY

Procedure finali: STATO.CPY, STATO1.CPY, WINMSG.CPY, GRAVE.CPY, OPEN1.CPY, MMMASK.CPY, GETDCONT.CPY

Chiavi secondarie COGMOVPA: COGMOVPA.K01, COGMOVPA.K01-AGG, COGMOVPA.K02, COGMOVPA.K03

Chiave primaria COGPNONC: COGPNONC.K01

Logica di elaborazione

  1. Parametri iniziali (paragrafo acce-01 / acce-03): l'operatore digita tipo soggetto (C/F), codice anagrafico (ricerca via COGS65), filtro aperte/chiuse/entrambe (COGS21), eventuale inclusione movimenti provvisori, e riferimento partita (anno, tipo, numero, scadenza).

  2. Ricerca partite (paragrafo una-00): COGS77 con funzione R-PARTITA produce un file temporaneo (#$COG420.<opew>) con le partite trovate. Il paragrafo new-par legge COGWPNO (risultato COGS77) e costruisce il file temporaneo locale fiuni (un record per partita, con importi dare/avere aggregati e flag uni-ics).

  3. Visualizzazione (paragrafo ela-55 / ela-64): scansione di fiuni con lettura sequenziale, riempimento di una tabella video di max 13 elementi (gip-tabel). Ogni riga mostra anno/tipo/num/sca partita, valuta, riferimento documento, importo dare, importo avere, flag selezione. PgDwn/PgUp navigano l'archivio.

  4. Selezione e conferma (paragrafo ela-65 / ela-100): l'operatore imposta gip-ele-ics(i) = X (cancella sempre) o Z (cancella solo se non legata a contabilita'). F3 avvia la fase di cancellazione.

  5. Cancellazione (paragrafo ela-110 / ela-140): per ogni riga marcata, scansione di COGMOVPA tramite chiave partita (ST-COGMOVPA-NOTMIN-PARTITA). Per le righe Z, prima controlla presenza in COGPNONC; se assente, esegue DELETE su COGMOVPA. Al termine chiama COGS77 UPD-PARTITA per ricalcolare la testata della partita.

  6. Tasti funzione: ESC=fine, F2=campo precedente, F3=aggiorna/conferma cancellazione, F5=dettaglio fattura (WIN019), F6=saldo riga, F7=visualizza/modifica sospensione (COGS51), F8=dettaglio partita (WIN062), F9=visualizza documento (WIN053), PgDn/PgUp=navigazione pagine.

Note

  • Il file temporaneo fiuni e' creato in ext-tmp-dir con nome #$COGE46.<opew> (dove opew e' il numero operazione corrente), garantendo una certa unicita' per sessione.
  • La lettura di COGMOVPA usa le chiavi secondarie .K02 e .K03 (incluse esplicitamente in fondo al sorgente).
  • Il flag conta-flachiu (letto da COGTABEL tipo 66) controla la variabile flachiu usata in WIN062.
  • Supporto multi-valuta: l'utente puo' commutare tra divisa di conto e divisa di inserimento tramite F6 (flag w-cur-ct).

Documentazione tecnica generata -- 2026-07-15