Vai al contenuto

COGD12 - Esportazione dati per EOLIS

Intestazione

Campo Valore
Programma COGD12
Titolo Esportazione dati per EOLIS
Modulo Sistema
Posizione menu Sistema > Utility > Esportazioni > Dati per EOLIS

Scopo e logica generale

COGD12 crea un archivio di fatture e note accredito clienti da inviare a EOLIS (software assicurativo). L'intestazione del sorgente indica "Creazione archivi bolle e fatture per EOLIS - assicurazione. Dati di Fatture e note accredito".

Il programma e' a maschera in modalita' carattere (screen section mm-1, screen-1/2/3, display posizionali). L'operatore imposta una data di inizio e una data di fine estrazione; il programma scorre COGFATTU per i tipi documento clienti configurati nell'azienda (az-tipo-batch, az-tipo-imm, az-tipo-ci, az-tipo-nac, az-tipo-nci) e, per ogni documento cliente compreso nell'intervallo date, scrive un record delimitato (;) nel file filfat secondo il tracciato cogeolis.cpy (eol-rec).

La configurazione (nome archivio, flag richiesta rif. fattura per note accredito, ultima data estrazione) e' persistita in COGTABEL tipo 70 (euta-cfg-arg = 'SPMG', euta-cfg-key = 'COGD12') ed e' modificabile con F1. Per le note accredito, il programma tenta di ricostruire il riferimento alla fattura originale dalla descrizione della bolla collegata (via COGRACCO -> COGTESBO/COGCONTR); se non lo trova e il flag e' attivo, lo richiede all'operatore.

Flusso principale

  1. a00 (main): imposta prog-err/w-nome-hlp/w-nome-msk = 'COGD12', ctr-abil, open-files, rd-azi. Prepara la maschera mm-1 (rd-msk-all).
  2. a4: visualizza la maschera, titolo "Estrazione Dati x EOLIS". Legge la configurazione salvata con x99-src-cfg (record COGTABEL tipo 70); se assente inizializza i default con x99-cfg-init/x99-conf. Precarica la data di partenza dall'ultima estrazione (tm-cfg-data).
  3. a-10 / a-50: accept data inizio e data fine tramite COGS52 (verifica data); F1 apre la configurazione (x99-conf), ESC esce. Controlla che la data di partenza non superi quella di arrivo.
  4. a-90: conferma (acc-conf, F3).
  5. b-00: apre in output il file filfat (nome da tm-cfg-nom-bol in ext-tmp-dir). Costruisce w-tab-tipo con i tipi documento clienti dell'azienda (az-tipo-batch/imm/ci/nac/nci).
  6. b-00-start / b-00-read: per ciascun tipo, posiziona COGFATTU (st-cogfattu-notmin su tipo+anno) e scorre con rdnxt-cogfattu; filtra per intervallo date (data8 fra tm-da-fat e tm-a-fat) e per anagrafica cliente (fat-tip-ana = k-ana-tipo-cli). Aggiorna i contatori Letti/Idonei/Scritti a video. Per i documenti idonei esegue scri-rec.
  7. scri-rec: legge l'anagrafica cliente (COGGEANA), compila eol-rec (codice cliente, numero/data fattura, divisa/cambio, codice pagamento, importo, sigla stato estero da COGTABEL tipo 54). Distingue fattura ("F", scri-fat) da nota accredito ("N", scri-nac) e accumula/sottrae in w-tot-val. Inserisce i separatori ; e scrive il record.
  8. scri-fat: chiama COGS09 per le scadenze; scrive le date di pagamento.
  9. scri-nac: risale al riferimento fattura della nota accredito via COGRACCO -> COGTESBO (descrizione bolla) o COGCONTR; estrae numero e data fattura dalla descrizione (estrai-nfat, parsing su "FT." / tipo doc + "DEL"). Se non trovato e tm-cfg-rch-nac = "S", lo richiede all'operatore (richiedi-rif-fat, con COGS23/COGS52).
  10. b-100: chiude filfat, aggiorna l'ultima data di estrazione in configurazione (x99-mem-data, rewrite COGTABEL tipo 70), mostra il totale, chiude i file.
  11. fine / z-chiudi: z-99-exit-program, exit program.

File e tabelle acceduti

File Record Modalita' Uso
feurtab cogfiles.cpy (da open-files) File fisico generalizzato tabelle
COGTABEL euta-rec I-O Configurazione (tipo 70), sigla stato estero (tipo 54)
COGFATTU fat-rec input (scan intervallo) Fatture/note accredito clienti
COGGEANA ana-rec input Anagrafica cliente
COGRACCO rac-rec input Raccordo fattura/bolla (per note accredito)
COGTESBO tes-rec input Testata bolla (descrizione con rif. fattura)
COGCONTR con-rec input Righe corpo bolla (descrizione alternativa)
COGMOMAG, COGMERCI, COGMERCL, COGMERLK rispettivi record input Dichiarati/aperti nel set file (uso di supporto)
filfat eol-rec (cogeolis.cpy) output (line sequential) Archivio EOLIS delimitato ;

Verbi di accesso: st-cogfattu-notmin/rdnxt-cogfattu, rd-coggeana, rd-cogtabel, st-cogracco-notmin/rdnxt-cogracco, rd-cogtesbo, rd-cogcontr, letture su cogtabel via rd-tab. Apertura pilotata da search-file/sf-* (go to ... depending on w-ind-fl).

Copybook principali

Strutture dati / FD: - feurtab.fd/cogfiles.cpy, cogtabel.fd/cogtabel.cpy, coggeana.fd/coggeana.cpy, cogmerci.fd/cogmerci.cpy, cogfattu.fd/cogfattu.cpy, cogracco.fd/cogracco.cpy, cogmomag.fd/cogmomag.cpy, cogtesbo.fd/cogtesbo.cpy, cogcontr.fd/cogcontr.cpy, cogmercl.fd/cogmercl.cpy, cogmerlk.fd/cogmerlk.cpy - dichiarazioni file. - cogeolis.cpy - tracciato del record di output EOLIS (eol-rec). - wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy - working-storage standard. - utilw06.cpy, utils52.cpy, utils65.cpy, utils23.cpy, utils09.cpy, utils21.cpy - aree linkage per le subroutine COGS52/COGS65/COGS23/COGS09/COGS21 e utilita' maschera.

Linkage: wcont.cpy (stringhe), wcont1.cpy.

Routine finali: stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, open1.cpy, mmmask.cpy, scree.cpy, sendw06.cpy, e le chiavi cogmercl.k01, cogmerlk.k01, cogmerlk.k02, cogtesbo.k01, cogfattu.k01, coggeana.k01, cogracco.k01, cogcontr.k01, cogtabel.k01.

Programmi chiamati (CALL)

Programma Scopo
COGS52 Accept/verifica data (data inizio, data fine, data rif. fattura)
COGS09 Calcolo scadenze/date di pagamento (record fattura)
COGS23 Accept stringa (numero rif. fattura per note accredito)
COGS21 Accept campo a opzioni (flag richiesta rif. fattura in configurazione)
C$TOUPPER Conversione maiuscolo della descrizione bolla (parsing rif. fattura)

Note

  • Programma di esportazione a record delimitato ; verso EOLIS (assicurazione). Nel flusso Sistema - Import/Export e' censito come "Dati per EOLIS (business intelligence)".
  • L'intestazione del tracciato cogeolis.cpy indica che l'uso e' specifico di una installazione ("Pasticceria Modenese - Pedretti").
  • Per le note accredito il riferimento alla fattura originale e' ricostruito euristicamente dalla descrizione bolla (pattern "FT." oppure tipo documento + "DEL gg/mm/aaaa"); se non individuato e il flag tm-cfg-rch-nac = "S" e' attivo, viene richiesto all'operatore.
  • La configurazione (nome archivio, flag rif. note, ultima data estrazione) e' persistita in COGTABEL tipo 70, argomento SPMG, chiave COGD12; l'ultima data di estrazione viene aggiornata a fine elaborazione.
  • Non usa RNEWCONF: la configurazione e' su COGTABEL.
  • Codice legacy con go to e perform ... thru (schema del sorgente originale, mantenuto qui a fini documentali).

Documentazione tecnica -- creata 2026-08-06