COGUB6 - Cruscotto Fatture Passive¶
Sorgente: cbl/cogub6.cbl | Program-ID: COGUB6 | Tipo: Programma interattivo (standalone, richiamabile)
Menu: Contabilita' > Fatture Fornitori; Contabilita' > Unione soci/clienti > Movimenti
Scopo¶
Cruscotto di visualizzazione e gestione delle fatture elettroniche passive ricevute dal SDI (Sistema di Interscambio). Gestisce la ricezione, il monitoraggio dello stato, la visualizzazione degli allegati e l'avvio della contabilizzazione. Utilizza COGFTETS come archivio principale delle fatture passive e integra funzioni di archiviazione ottica (ARC013), gestione ZIP e connessione con il ciclo contabile (COGE20, COGE77W, CAPE20, CAP078, COGB20).
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Indexed | Input | Tabella nomi file |
| COGFTETS | Indexed | I-O | Fatture elettroniche passive (archivio principale, k02/k03/k06) |
| COGFATTU | Indexed | Input | Fatture contabili (k08 - collegamento) |
| COGGEANA | Indexed | Input | Anagrafica fornitori (k03) |
| COGRACCO | Indexed | Input | Raccolta documenti (k02) |
| COGRACBB | Indexed | Input | Raccolta documenti BB (k02) |
| COGARGDO | Indexed | Input | Archivio argomenti/classi archiviazione ottica |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT tabella file nomi |
| cogub6.select | SELECT archivi specifici |
| cogub6.fd | FD archivi specifici |
| k-u10.cpy | Costanti importi |
| k-personal.cpy | Costanti personalizzazione |
| acucobol.def / iscobol.def | Definizioni compilatore (condizionale ISC) |
| cogub6.wrk | Working storage specifico |
| cogub6.imppredf-wrk | Working storage impostazioni predefinite |
| costanti-assist.cpy | Costanti modulo assistenza |
| costanti-arcott.cpy | Costanti archiviazione ottica |
| utilbrws.cpy | Utility browser |
| wgrave.cpy | Gestione errori gravi |
| wnscr.cpy | Dati schermo |
| wopenf.cpy | Apertura file |
| wstato.cpy | Stato I/O |
| cogazien.cpy | Dati azienda |
| wgrid.cpy | Gestione griglia |
| utilgdad.cpy | Utility GRIDADMN |
| utils52.cpy | Utility date |
| utils65.cpy | Utility ricerca anagrafica |
| utilu06.cpy | Utility COGU06 |
| utilu10.cpy | Utility importi |
| utilu20.cpy | Utility COGU20 |
| utilimppredf.cpy | Utility impostazioni predefinite |
| utilncnf.cpy | Utility RNEWCONF |
| utilopenfile.cpy | Utility apertura file |
| utilzip.cpy | Utility gestione ZIP |
| utilcogub1.cpy | Utility COGUB1 |
| utilcogub3.cpy | Utility COGUB3 |
| utilcogub5.cpy | Utility COGUB5 |
| utildlg.cpy | Utility DIALOGS |
| l-copiaf.cpy | Utility copia file |
| cogracco.cpy | Record COGRACCO (con rename wac-) |
| cogftets.cpy | Record COGFTETS (con rename wrkts- e wr2ts-) |
| utilcogb20.cpy | Utility COGB20 |
| utilcogb21.cpy | Utility COGB21 |
| wcont.cpy | Linkage stringhe comuni |
| u-copiaf.cpy | Linkage copia file |
| utilcogub6.cpy | Linkage parametri COGUB6 |
| utilarc013.cpy | Linkage ARC013 (archiviazione) |
| wcont1.cpy | Linkage area utente |
| grave.cpy | Paragrafi errori gravi |
| mmmask.cpy | Paragrafi init/exit |
| opengen.cpy | Paragrafi apertura file |
| stato.cpy / stato1.cpy | Controllo stato I/O |
| winmsg.cpy | Messaggi a video |
| getdcont.cpy | Lettura dati contabilita' |
| cogub6.prc | Paragrafi specifici |
| cogub6.imppredf | Paragrafi impostazioni predefinite |
| coggeana.k03 | Accesso COGGEANA per k03 |
| cogftets.k02 / k03 / k06 | Accessi secondari COGFTETS |
| cogfattu.k08 | Accesso COGFATTU per k08 |
| cogracbb.k02 / cogracco.k02 | Accessi secondari raccolta documenti |
Logica di elaborazione¶
- Inizializzazione: lettura configurazione da RNEWCONF (cartelle intermediario, parametri EDI, modalita' archiviazione). Creazione pulsanti custom nella toolbar (salva/cerca impostazioni, acquisisci dati SDI, visualizza allegati, seleziona tutto).
- Filtri: l'utente imposta stato fatture, criterio data e intervallo temporale nella scheda filtri. E' possibile salvare/caricare impostazioni predefinite (CTRL+S / CTRL+F tramite
utilimppredf). - Caricamento griglia: all'avvio viene richiamato automaticamente
aggiorna-dati-cogub5(tramite COGUB5) per verificare la presenza di nuovi file ricevuti. La griglia viene popolata leggendo COGFTETS con i filtri applicati. - Acquisizione (F6): richiamo di COGUB5 per scaricare i nuovi XML/ZIP dal server intermediario nella cartella locale configurata.
- Visualizzazione allegati (F9): apertura del file allegato (PDF o XML) tramite
C$SYSTEM. - Registrazione contabile (F3): richiamo di COGE77W (prima nota con wizard) o COGE20 / CAPE20 / CAP078 / COGB20 a seconda del tipo di fattura e del contesto.
- Cancellazione (F4): abilitata solo per wo-oper = 888; richiede conferma e cancella il record da COGFTETS.
- Archiviazione ottica: se configurata, richiamo di ARC013 per archiviare il documento nella classe "fatture fornitori".
- ZIP/Decompressione: uso di
ZIPeCBL_DELETE_DIRper gestione file compressi ricevuti.
Chiamate a sottoprogrammi¶
| Programma | Scopo |
|---|---|
| GRIDADMN | Gestione griglia (caricamento, navigazione, menu contestuale) |
| COGUB3 | Utility dettaglio fattura passiva |
| COGUB5 | Acquisizione dati da SDI / intermediario |
| COGUB1 | Utility fatture passive |
| RNEWCONF | Lettura configurazioni di sistema |
| DIALOGS | Finestre di dialogo |
| OPENFILE | Dialogo apertura file |
| COGU06 | Utility gestione visualizzazione |
| COGE77W | Prima nota con wizard (registrazione fattura) |
| COGE20 | Inserimento prima nota |
| CAPE20 | Registrazione fattura acconti/partite |
| CAP078 | Utility contabilizzazione |
| COGB20 | Utility gestione batch contabilizzazione |
| ARC013 | Archiviazione ottica documenti |
| COPIAF | Copia file client/server |
| ZIP | Compressione/decompressione file ZIP |
| C$SYSTEM | Apertura file con applicazione di sistema (OS) |
| W$MENU | Gestione menu popup |