COGE43 -- Estratto Conto¶

Sorgente: cbl/coge43.cbl | Program-ID: COGE43 | Tipo: Interattivo GUI

Menu: Contabilita' > Clienti a Part.Aperte > Estratto Conto / Contabilita' > Fornit. a Part.Aperte > Estratto Conto

Scopo¶

Programma interattivo per la visualizzazione e stampa dell'estratto conto di un singolo cliente o fornitore. Carica i movimenti delle partite aperte tramite COGS77 in un file transito (COGWPNO), li ordina cronologicamente in un file transito COGTRANS e li presenta in una griglia navigabile. Supporta stampa, consultazione scadenze, visualizzazione documenti, e varie operazioni di dettaglio (F5 scadenze, F6 fatture, F7 estratto conto collegato, F4 immagini, F11 attivita' CRM).

Il parametro wo-parametro discrimina: "C" = clienti, "F" = fornitori. Puo' essere richiamato da altri programmi con la linkage coge43-called.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
COGPARTI	par-rec	Input	Partitario clienti/fornitori
COGPARTC	-	Input	Partitario contabilizzato
COGPNONC	pno-rec	Input	Prima nota non contabilizzata
COGWPNO	wpn-rec	I-O	Working prima nota (transito da COGS77)
COGTRANS	trs-rec	I-O	File transito principale per griglia (chiave: ord-val + partita + progr + data + prog)
COGTRANS2	trs2-rec	I-O	File transito secondario (per totali)
COGTRANS3	trs3-rec	I-O	File transito RiBa
COGTRANS4	trs4-rec	I-O	File transito effetti
COGTRANS5-8	trs5-8-rec	I-O	File transito RiBa (varie chiavi per ordinamento)
COGTRANS9	trs9-rec	I-O	File transito storico partite
COGTRANS10	trs10-rec	I-O	File transito generico
COGTRANS11	trs11-rec	I-O	File transito partite (per navigazione F16/F17)
COGTRANS12	trs12-rec	I-O	File transito partite secondario
COGGEANA	ana-rec	Input	Anagrafica generale
COGPNCON	pco-rec	Input	Piano dei conti
COGTABEL	euta-rec	Input	Tabelle di sistema
PERSTEXT	lvp-rec	I-O	File testo personale
FILEJDOC	jdoc-rec	Output	File esportazione JDOC
FLSTA	-	Output	File stampa
FEURTAB	-	Input	Tabella generica Eurosystem

Struttura COGTRANS (transito principale)¶

trs-chia1:
  trs-ord-val       pic 9(08)   Ordinamento valuta
  trs-chia2:
    trs-patipcli    pic x(01)   Tipo (C/F)
    trs-paclie      pic 9(05)   Codice anagrafica
    trs-panno       pic 9(04)   Anno partita
    trs-patipo      pic x(02)   Tipo partita
    trs-panpart     pic 9(07)   Numero partita
    trs-paprogsca   pic x(01)   Progressivo scadenza
  trs-paprogrca     pic 9(03)   Progressivo riga
  trs-data          pic 9(08)   Data movimento
  trs-prog          pic 9(08)   Progressivo
Dati: importo, segno, documento, tipo operazione, descrizione, valuta, tipo pagamento, n.fattura, n.IVA, importo divisa, divisa, stato chiusura, commessa, paziente, data prescrizione, riferimento documento, interessi, anno contabile, selezione, data fattura, stato invio SDI, ID SDI, banca.

Copybook utilizzate¶

Screen Designer¶

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

Strutture dati¶

Copybook	Descrizione
`cogfiles.cpy`	FD feurtab
`cogwpno.cpy`	Working prima nota
`cogazien.cpy`	Dati azienda
`cogconta.cpy`	Struttura conti
`k-u10.cpy`	Costanti COGU10
`k-personal.cpy`	Costanti personalizzazione
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni
`flsta.cpy`	File stampa

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)
`utilu10.cpy`	Utility divisa/formattazione
`utilgdad.cpy`	Gestione griglie
`utilncnf.cpy`	Struttura parametri RNEWCONF
`utilw19.cpy`	Interfaccia WIN019
`utilwca019.cpy`	Interfaccia WCA019
`utilwpost.cpy`	Interfaccia POSTIT
`utilcogub3.cpy`	Interfaccia COGUB3
`utilagr076.cpy`	Interfaccia AGR076
`utilcap380.cpy`	Interfaccia CAP380
`utilzs6.cpy`	Interfaccia COGZS6
`utilu06.cpy`	Interfaccia COGU06

Struttura del programma¶

Flusso principale¶

apri: inizializzazione, lettura azienda, apertura file, lettura tipi documento (u-tipidoc), configurazione tasti funzione e pulsanti custom (F5 scadenze, F7 estratto collegato, F6 fatture, F4 immagine, F16/F17 navigazione, F18 data valuta, F19 sblocco bonus fido, F11 attivita', ShF10 conferimenti/scheda contabile, ShF2 bonus fido, F1 notifiche, ShF9 solleciti), lettura esercizio contabile (COGTABEL tipo 66), creazione file transito, lettura configurazione RNEWCONF (x99-confi, opzionalmente x99-confi-consorzi), display maschera
a4: reinizializzazione maschera, accept parametri
Accept parametri: a-tm-tipo-divisa -> a-tm-codice -> a-tm-prov (P.Nota provvisoria) -> a-tm-data-da -> a-tm-data-a -> a-tm-saldo-al -> a-tm-saldo -> a-tm-modifica-saldo
a-richiesta-conferma: validazione finale, caricamento saldo iniziale, calcolo e visualizzazione griglia
Caricamento griglia: COGS77 genera file COGWPNO con le partite, i record vengono letti e ordinati in COGTRANS per data, il saldo viene aggiornato progressivamente
a-grid -> a-accept-grid: navigazione griglia con gestione tasti funzione (F5 scadenze, F6 fatture, F7 estratto collegato, F4 immagine, F9 stampa, F11 attivita')
Stampa (vis-tabella): generazione report con COGS54, orientamento configurabile, formato 139 colonne
fine: chiusura file, eliminazione transiti, exit

Gestione stampa¶

La stampa usa COGS54 per il formato e la gestione stampante. Il layout e' su 139 colonne (k-chr-stampa = 139), con intestazione per pagina (azienda, tipo C/F, range date, pagina), linee di separazione e totali per partita. E' disponibile anche la stampa con capogruppo (k-chr-stampa-cap = 116 / k-chr-stampa-cap-re = 125).

Chiamate esterne¶

Programma	Modalita'	Scopo
COGS77	CALL	Ricerca partite aperte, genera file COGWPNO
COGS65W	CALL	Ricerca anagrafica clienti/fornitori
COGS52W	CALL	Calendario (date picker)
COGS54	CALL	Gestione stampa
COGS51	CALL	Consultazione partite
COGU10W	CALL	Formattazione importi, conversione divise
COGU06	CALL	Utility formattazione
COGZS6	CALL	Gestione scadenze
COGUB3	CALL	Utility operazioni
COGE43A	CALL	Sotto-programma analisi movimenti
COGE43S	CALL	Sotto-programma stampa dettagliata
COGE87NO	CALL	Stampa solleciti
AGR076	CALL	Gestione aggregate (consorzi)
CAP077.COB	CALL	Gestione capogruppo
CAP380	CALL	Valore bonus fido
COGW15	CALL	Gestione ulteriore
WIN019	CALL	Visualizzazione documento
WCA019	CALL	Interfaccia documenti
POSTIT	CALL	Post-it note
GRIDADMN	CALL	Amministrazione griglie
RNEWCONF	CALL	Lettura configurazione
COGE43.COB	CALL (ricorsiva)	Richiamo estratto conto per soggetto collegato (F7)
DTPRG / PRGDT	CALL	Conversione date

Configurazione (RNEWCONF)¶

Il programma legge la configurazione tramite x99-confi e, se consorzi attivo, x99-confi-consorzi. Tra i parametri utilizzati:

tm-cfg-punto-inizio-modulo: punto di inizio del modulo contabile
tm-cfg-orientamento: orientamento stampa
tm-cfg-ordine: ordine di presentazione
tm-cfg-sblocca-fido: abilitazione sblocco bonus fido
tm-cfg-messe: gestione messe
tm-cfg-tipag-interessi: tipo pagamento per interessi
tm-cfg-num-righe: numero righe per pagina
tm-cfg-cond-mac: condizioni macchina
tm-cfg-cisa-sede: sede CISA

Variabili di stato principali¶

Variabile	Descrizione
`dep-tipo`	Tipo soggetto: "C" = clienti, "F" = fornitori
`tm-codice`	Codice anagrafico selezionato
`tm-data-da` / `tm-data-a`	Range date per visualizzazione
`tm-saldo-al`	Data di riferimento saldo iniziale
`tm-saldo`	Saldo iniziale calcolato/modificato
`tm-modifica-saldo`	Flag "S"/"N" per abilitare modifica saldo
`tm-valuta`	Divisa di visualizzazione
`tm-saldo-finale`	Saldo finale calcolato
`tm-prov` / `tm-869`	Flag inclusione P.Nota provvisoria e sequenza 8-6-9
`w-dc-called`	Flag chiamata esterna
`a-modalita`	Modalita' operativa: "S" selezione, "A" aggiornamento

Note¶

Programma molto complesso (15.300+ righe), utilizza fino a 12 file transito per la gestione di ordinamento, filtri e funzionalita' avanzate
Supporta la chiamata ricorsiva a se stesso (COGE43.COB) per la funzione F7 (estratto conto soggetto collegato)
La griglia supporta ordinamento multiplo e personalizzazione colonne (ShF4)
La funzione consorzi (az-consorzi = "S") abilita logiche aggiuntive per agente Milano e gestione aggregate