COGE47 -- Distinta Partite Aperte¶

Sorgente: cbl/coge47.cbl | Program-ID: COGE47 | Tipo: Interattivo GUI (stampa)

Menu: Contabilita' > Clienti a Part.Aperte > Stampe > Distinta / Contabilita' > Fornit. a Part.Aperte > Stampe > Distinta

Scopo¶

Programma per la stampa della distinta incassi (clienti) o pagamenti (fornitori). Raccoglie i movimenti delle partite aperte tramite COGS77 in un file transito (COGWPNO), li ordina in un file COGTRANS per banca e data, e produce un report stampato con subtotali per data e banca e saldo finale. La griglia a video funge da anteprima navigabile dei dati prima della conferma di stampa.

Il parametro wo-parametro discrimina: "C" = stampa distinta incassi (clienti), "F" = stampa distinta pagamenti (fornitori).

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
COGWPNO	wpn-rec	I-O	Working prima nota (transito da COGS77)
COGTRANS	trs-rec	I-O	File transito ordinato per banca + data + partita + progressivo
COGPNCON	pco-rec	Input	Piano dei conti
COGTABEL	euta-rec	Input	Tabelle di sistema (tipo 66: esercizio, tipo 16: contropartite, tipo 65: tipo operazione)
COGGEANA	ana-rec	Input	Anagrafica generale
MPSFILE	mps-rec	I-O	File gestione revisioni (MANREV)
FLSTA	-	Output	File stampa
FEURTAB	-	Input	Tabella generica Eurosystem

Struttura COGTRANS (transito)¶

trs-chia1:
  trs-banca:
    trs-banca1    pic 9(02)
    trs-banca2    pic 9(02)
    trs-banca3    pic 9(06)
  trs-data:
    trs-aa        pic 9(04)
    trs-mm        pic 9(02)
    trs-gg        pic 9(02)
  trs-partita:
    trs-panno     pic 9(04)
    trs-tipo      pic x(02)
    trs-num       pic 9(06)
    trs-sca       pic x(01)
  trs-pro         pic 9(06)
  trs-datai       pic 9(08)   Data inserimento
Dati: codice anagrafica, nome, tipo pagamento, descrizione banca, descrizione operazione, tipo operazione, descrizione aggiuntiva, documento, importo (signed), segno, numero distinta, divisa, chiave PNO.

Copybook utilizzate¶

Screen Designer¶

Copybook	Descrizione
`coge47-01.scr`	Maschera principale (screen section)
`coge47.select`	SELECT dei file
`coge47.fd`	FD dei file
`coge47.wrk`	Working storage maschera
`coge47.decla`	Declaratives

Strutture dati¶

Copybook	Descrizione
`cogfiles.cpy`	FD feurtab
`cogazien.cpy`	Dati azienda
`cogconta.cpy`	Struttura conti
`cogpnonc.cpy`	Prima nota non contabilizzata
`flsta.cpy`	File stampa
`MANREV.CPY`	Gestione revisioni
`k-u10.cpy`	Costanti COGU10
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni

Utility e interfacce¶

Copybook	Descrizione
`utils52.cpy`	Interfaccia COGS52 (calendario)
`utils54.cpy`	Interfaccia COGS54 (stampa)
`utils65.cpy`	Interfaccia COGS65 (ricerca anagrafica)
`utils77.cpy`	Interfaccia COGS77 (ricerca partite)
`utils09.cpy`	Utility COGS09
`utils99.cpy`	Utility COGS99
`utilu10.cpy`	Utility divisa/formattazione
`utilgdad.cpy`	Gestione griglie
`utildlg.cpy`	Utility dialoghi

Linkage¶

Copybook	Descrizione
`wcont.cpy`	Struttura stringhe
`wcont1.cpy`	Struttura stringhe estesa

Struttura del programma¶

Flusso principale¶

apri: inizializzazione, apertura file, lettura azienda, configurazione tasti funzione (F1, Invio, F3, F8), lettura esercizio contabile (COGTABEL tipo 66), apertura PNO contabilizzata/precedente/non-contabilizzata, creazione file transito COGTRANS, display maschera
a4: reinizializzazione maschera, caricamento tipo C/F e descrizione, ricerca parametri partite (cerca-wuta)
Accept parametri: a-tm-mastro -> a-tm-conto -> a-tm-data-da -> a-tm-data-a -> a-tm-saldo-al -> a-tm-saldo -> a-tm-modifica-saldo
a-richiesta-conferma: validazione globale, caricamento griglia da tabella contropartite (a10-loop), visualizzazione griglia
a-grid -> a-accept-grid: navigazione griglia, F3 per conferma stampa
aggiorna: scrittura file transito COGTRANS ordinato per banca/data/partita, avvio stampa tramite COGS54
Stampa (paragrafi vis-*): generazione report con intestazione, dettaglio per banca e data, subtotali, saldo finale
fine: chiusura file, exit

Logica di caricamento e stampa¶

Il programma: - Legge i movimenti da COGWPNO (generato da COGS77) - Li ordina in COGTRANS per banca + data + partita - La stampa scansiona COGTRANS e produce: - Intestazione pagina con azienda, tipo, periodo, pagina - Dettaglio per ogni movimento: data, partita, codice, nome, descrizione, tipo operazione, importo dare/avere, distinta - Subtotale per data (tot-data) - Subtotale per banca (tot-banca) - Saldo finale (saldo-finale)

Chiamate esterne¶

Programma	Modalita'	Scopo
COGS77	CALL	Ricerca partite aperte, genera file COGWPNO
COGS54	CALL	Gestione stampa
COGS52W	CALL	Calendario (date picker)
COGU10W	CALL	Formattazione importi
GRIDADMN	CALL	Amministrazione griglie

Variabili di stato principali¶

Variabile	Descrizione
`dep-tipo`	Tipo soggetto: "C" = clienti, "F" = fornitori
`tm-mastro` / `tm-conto`	Codici piano dei conti
`tm-data-da` / `tm-data-a`	Range date
`tm-saldo-al`	Data saldo iniziale
`tm-saldo`	Saldo iniziale
`tm-valuta`	Divisa di visualizzazione
`a-modalita`	Modalita' operativa: "A" aggiornamento, "S" selezione
`saldo-finale`	Saldo finale calcolato
`tot-data` / `tot-banca`	Subtotali per data e banca
`mem-banca` / `mem-data`	Valori memorizzati per rilevare rottura chiave
`k-chr-stampa`	Larghezza stampa: 132 colonne

Note¶

Programma di media complessita' (2.600 righe)
La griglia funge sia da anteprima che da strumento di selezione delle contropartite da includere nella stampa
La stampa e' organizzata per banca e data, con subtotali a ogni rottura di chiave