COGW78 -- FatMail Invio Fatture via E-Mail
Sorgente: cbl/cogw78.cbl | Tipo: Programma interattivo batch | Program-ID: COGW78
Menu:
Scopo
COGW78 gestisce l'estrazione, la generazione PDF e l'invio via e-mail delle fatture di vendita ai clienti. Supporta tre canali di output:
- Mail: generazione PDF + composizione e-mail con allegato
- Stampa: generazione PDF per stampa locale
- EDI/FatturaPA: generazione file per fatturazione elettronica
Il programma puo' operare in modalita' autonoma (da menu) o come subroutine (CALLED), ricevendo un file di transito con l'elenco delle fatture da elaborare.
Interfaccia utente
Maschera di selezione (tab-maschera)
| Campo |
Tipo |
Descrizione |
tm-invio-una-fattura |
x(01) |
"S" = forza invio una fattura alla volta (Areagate/Artic Seals) |
tm-fl-sel-man |
x(01) |
Selezione manuale documenti (S/N) |
tm-fl-make-mail |
x(01) |
Genera e-mail (S/N) |
tm-fl-make-stampa |
x(01) |
Genera PDF per stampa (S/N) |
tm-fl-make-edi |
x(01) |
Genera file EDI/FatturaPA (S/N) |
tm-fl-skip-fl-fatmail |
x(01) |
Ignora flag fatmail su cliente |
tm-type |
x(01) |
Tipo fattura (F/T/N/I/R) |
tm-data-da / tm-data-a |
9(08) |
Intervallo date fatture |
tm-da-tip / tm-a-tip |
x(02) |
Tipo documento IVA |
tm-da-fat / tm-a-fat |
composito |
Intervallo numeri fattura |
tm-nonno-da / tm-nonno-a |
9(05) |
Filtro per intestatario da/a |
tm-agente |
9(05) |
Filtro per agente |
Conteggi elaborazione
| Campo |
Descrizione |
tm-f-e / tm-c-e |
Documenti / clienti estratti |
tm-f-s / tm-c-s |
Documenti / clienti da stampare |
tm-f-edi / tm-c-edi |
Documenti / clienti per EDI |
tm-f-pa / tm-c-pa |
Documenti / clienti per FatturaPA |
Tasti funzione
| Tasto |
Funzione |
| F1 |
Configurazione (RNEWCONF) |
| F3 |
Conferma e avvia elaborazione |
| F8 |
Calendario / Aiuto |
| F9 |
Ricerca avanzata |
| Esc |
Uscita |
Modalita' CALLED
Quando richiamato con cogw78-called = "COGW78" (via utilcogw78.cpy):
| Campo linkage |
Descrizione |
cogw78-called |
Deve valere "COGW78" |
cogw78-caller |
Programma chiamante |
cogw78-transito-in |
Path del file di transito con elenco fatture |
In modalita' called, il programma apre il file di transito (cogtrans2), carica le fatture e salta alla fase di elaborazione senza passare per i filtri.
Logica di Elaborazione
Flusso principale
- Inizializzazione: controllo abilitazione, init program
- File di transito: se CALLED, apre
cogtrans2 con le fatture preselezionate; altrimenti prepara il file cogtrans temporaneo (#$COGW13_ + operatore)
- Configurazione: lettura RNEWCONF; verifica abilitazione FatMail e/o FatturaPA; verifica programma di posta e path output
- Accept filtri: selezione manuale, tipo, anno, periodo, numeri, intestatario, agente
- Elaborazione (
elabora-dati):
- Scansione delle fatture nel periodo selezionato
- Per ogni fattura: verifica indirizzo e-mail del cliente, flag fatmail, flag FatturaPA
- Scrittura nel file di transito
cogtrans
- Conteggio documenti/clienti estratti, da stampare, da inviare
- Generazione PDF: per ogni fattura, richiama il motore di stampa (COGS13A/CAPS13/CPC357PC via COGP41) con output su file PDF
- Composizione e-mail: per ogni cliente, prepara l'e-mail con oggetto/testo configurato, allega i PDF delle fatture e chiama POSTA per l'invio
- EDI/FatturaPA: se abilitato, genera i file XML tramite COGSA3A e li invia
- Chiusura: chiude file, cancella programmi
Gestione allegati
- Massimo 8 allegati per e-mail (
k-max-attach = 8), configurabile fino a 99 (k-max-attach-sup)
- Se la cartella allegati aggiuntivi e' configurata (
tm-cfg-mail-cartella-all), vengono aggiunti anche file generici per quel cliente/azienda
- L'opzione
tm-cfg-mail-clear-all-ana / tm-cfg-mail-clear-all-com controlla la pulizia allegati tra un cliente e l'altro
File di transito COGTRANS
Struttura del record di transito per le fatture:
| Campo |
Tipo |
Descrizione |
trs-ana (tip+cod) |
x(01)+9(05) |
Anagrafica (tipo + codice) |
trs-fattura (tip+ann+num) |
x(02)+9(04)+9(07) |
Fattura (tipo + anno + numero) |
trs-mail-address |
x(80) |
Indirizzo e-mail |
trs-fl-cogstfat |
x(01) |
Flag tipo stampa fattura |
trs-fl-stampa-fat |
x(01) |
Flag stampa |
trs-fat-data |
9(08) |
Data fattura |
trs-ana-nome |
x(40) |
Ragione sociale |
trs-mail-pec |
x(80) |
Indirizzo PEC |
File e Tabelle
File acceduti
| File/Tabella |
Copybook |
Uso |
| FEURTAB |
cogfiles.cpy |
Tabella nomi file |
| FLSTA |
flsta.fd, flsta.cpy |
File stato |
| COGTRANS |
(inline) |
Transito fatture (temporaneo, indicizzato) |
| COGTRANS2 |
(inline) |
Transito fatture in input (modalita' CALLED) |
| File da cogw78.select/fd |
cogw78.select, cogw78.fd |
File fatture e accessori |
Programmi chiamati
| Programma |
Scopo |
| COGP41 |
Motore stampa fatture |
| COGS13A / CAPS13 / CPC357PC |
Stampa fattura su file PDF |
| COGSA3A |
Generazione file fattura elettronica (FatturaPA) |
| COGZ82 |
Gestione documenti (selezione manuale) |
| SVIEW |
Visualizzatore PDF (anteprima) |
| COGS54 |
Utility stampa |
| POSTA |
Invio e-mail (con MYMAIL) |
| DEPLOYMD |
Deploy modelli documenti |
| COGS65W |
Ricerca anagrafica |
| RNEWCONF |
Lettura configurazioni |
Copybook principali
Screen Designer (generati)
| Copybook |
Contenuto |
cogw78-01.scr |
Maschera (screen section) |
cogw78.select |
SELECT file |
cogw78.fd |
FD file |
cogw78.wrk |
Working storage |
cogw78.decla |
Declaratives |
cogw78.prc |
Procedure division generate |
Gestionale
| Copybook |
Contenuto |
cogazien.cpy |
Dati azienda |
capazien.cpy |
Dati azienda (consorzi) |
utilcogw78.cpy |
Interfaccia linkage CALLED |
utilp41.cpy |
Interfaccia COGP41 (stampa fatture) |
utilrcnf.cpy |
Interfaccia RNEWCONF (legacy) |
utilncnf.cpy |
Interfaccia RNEWCONF (nuova) |
utilsview.cpy |
Interfaccia SVIEW (visualizzatore) |
utilmymail.cpy |
Interfaccia MYMAIL (composizione e-mail) |
utilpost.cpy |
Interfaccia POSTA (invio e-mail) |
utildeploymd.cpy |
Interfaccia DEPLOYMD |
utilcogsa3.cpy |
Interfaccia COGSA3A (fattura elettronica) |
utilcapv52.cpy |
Interfaccia stampa (consorzi) |
utilv52.cpy |
Interfaccia stampa |
l-copiaf.cpy / u-copiaf.cpy |
Copia file |
costanti-tipi-documento.cpy |
Costanti tipi documento |
messaggistica-ext.cpy |
Messaggistica esterna (Areagate) |
k-personal.cpy |
Costanti personalizzazione |
k-u10.cpy |
Costanti divise |
k-tipi-cogtabel.cpy |
Costanti tipi tabella |
Configurazioni
La configurazione viene letta tramite RNEWCONF:
| Campo |
Descrizione |
tm-cfg-abilita-fatmail |
"S" = abilita funzione FatMail |
tm-cfg-abilita-fatturapa |
"S" = abilita generazione FatturaPA |
tm-cfg-dir-stampa |
Directory temporanea di stampa |
tm-cfg-path-output |
Path output file PDF (obbligatorio) |
tm-cfg-mymail-prg-posta |
Programma di posta (obbligatorio) |
tm-cfg-mail-oggetto |
Oggetto dell'e-mail |
tm-cfg-mail-testo (1..10) |
Righe del testo dell'e-mail |
tm-cfg-mail-modello |
Modello di e-mail |
tm-cfg-mail-cartella-all |
Cartella allegati aggiuntivi |
tm-cfg-mail-clear-all-ana |
"S" = pulisci allegati cambio anagrafica |
tm-cfg-mail-clear-all-com |
"S" = pulisci allegati cambio comune |
tm-cfg-tip-cre |
Tipo credenziali |
tm-cfg-edi-out-type |
Tipo output EDI |
tm-cfg-mail-max-attach |
Max allegati per e-mail |
tm-cfg-path-stampa |
Path di stampa |
tm-cfg-msg-areagate |
"S" = invio tramite messaggistica Areagate |
Note tecniche
- Il file di transito e' creato nella directory temporanea con nome
#$COGW13_ + codice operatore
- Per le aziende tipo consorzio (
az-consorzi = "S"), il flag fatmail sull'anagrafica viene ignorato
- Con Areagate o personalizzazione Artic Seals, l'invio avviene una fattura alla volta
- Se solo FatturaPA e' abilitata (senza FatMail), la generazione mail e stampa vengono disattivate
- Per Idrolux, la generazione EDI viene disattivata
Documentazione tecnica -- 2026-04-08