POSTA — Invio documenti via posta elettronica¶

Campo	Valore
Sorgente	`cbl/posta.cbl`
Program-ID	`posta`
Tipo	Subroutine (chiamata `using stringhe util-posta l-util-mymail`)
Posizione menu	Nessuna (sottoprogramma di servizio)

Scopo¶

Subroutine di invio di una stampa via posta elettronica. Data una stampa gia' prodotta su disco (percorso predefinito lato server), il programma la prepara e la invia come messaggio email:

converte la stampa in immagine .TIF tramite SVIEW;
copia/sposta i file necessari (stampa, allegati) con COPIAF;
compone il messaggio (destinatari, oggetto, corpo, allegati) e lo invia tramite il programma di posta configurato (POSTAIF), eventualmente appoggiandosi a FTP e all'avvio del client di posta esterno (C$SYSTEM).

Il comportamento e' pilotato dalle configurazioni del gruppo posta (vedi configurazioni POSTA); se posta-percorso vale "Solo preparazione" il programma si limita ad aprire il programma di posta senza inviare nulla.

Parametri di ingresso¶

       procedure division using stringhe util-posta l-util-mymail.

util-posta (utilpost.cpy): area principale di comunicazione — operazione (posta-ope), percorso stampa (posta-percorso), destinatario (posta-email), tipo/codice anagrafica per la ricerca contatti (posta-cnt-ana-tip, posta-cnt-ana-cod, posta-cnt-posizione), ecc.
l-util-mymail (utilmymail.cpy, rinominato l-mymail-/l-util-mymail): area per l'invio in modalita' "MyMail" (passata solo se il chiamante fornisce piu' di 2 parametri, verificati con C$NARG).

Risoluzione dei destinatari (contatti)¶

Gli indirizzi email di destinazione vengono ricavati dai riferimenti/contatti dell'anagrafica (tabella COGRIFER, letta per chiave secondaria rif-chia2 su tipo/codice anagrafica), filtrati per posizione del contatto. Sono presenti due percorsi:

m1-cerca-contatti: usa l'anagrafica in linkage ext-ana-tip/ext-ana-cod e la posizione configurata tm-cfg-cnt-pos-of. Se l'anagrafica non e' valorizzata o manca la posizione, ripiega sull'email di anagrafica (ana-email).
m2-cerca-contatti: usa esplicitamente tipo/codice/posizione passati in linkage (posta-cnt-ana-tip, posta-cnt-ana-cod, posta-cnt-posizione).

Per ciascun contatto che corrisponde alla posizione richiesta, m1-aggiungi-indirizzo / m2-aggiungi-indirizzo accodano l'indirizzo alla stringa dei destinatari.

Note¶

Programma di servizio: non compare in prog.txt, non ha documentazione utente dedicata.
Usa la connessione DB AreaGATE (SQL) per lo stato di sincronizzazione, aperta/chiusa solo se non gia' attiva (ext-dbpg-kpn-aperto).

Storico modifiche¶

2026-07-31 — Aggiunta dei contatti del fornitore interno ai destinatari¶

La risoluzione dei destinatari in m1-cerca-contatti e' stata estesa per includere, oltre ai contatti dell'anagrafica in esame, anche i contatti del fornitore interno dell'azienda (az-for-int, tipo anagrafica "F"), che vengono aggiunti "a prescindere".

La logica di scansione di COGRIFER e' stata estratta nel nuovo paragrafo riutilizzabile m1-cerca-contatti-ext-ana, parametrizzato su m1-ana-tip/m1-ana-cod (nuovi campi di lavoro). Il flusso ora:

cerca i contatti dell'anagrafica in esame (ext-ana-tip/ext-ana-cod);
se non ha trovato indirizzi, ripiega sull'email di anagrafica (ana-email);
aggiunge sempre i contatti del fornitore interno ("F"/az-for-int).

Effetto: le comunicazioni email includono anche i riferimenti interni configurati sul fornitore interno, senza modifiche all'interfaccia dei chiamanti.