Vai al contenuto

COGD10 - Estrazione vendite GDO per Despar

Intestazione

Campo Valore
Sorgente cbl/cogd10.cbl
Tipo Interattivo (maschera testuale) + estrazione batch su file
Modulo Sistema
Posizione menu Sistema > Utility > Esportazioni
Autore Mauro Rovatti - Eurosystem

Scopo

COGD10 estrae bolle e fatture verso la catena GDO Despar, producendo un file sequenziale di testo con lo stesso tracciato di Conad (cogdcona.cpy). L'intestazione lo dichiara: "Creazione archivi bolle e fatture per DESPAR. Stesso tracciato CONAD".

E' un gemello di COGD04: stessa struttura, stessa maschera, stesso file di output (testate 01 / righe 02). Le differenze rispetto a COGD04 sono nel dettaglio di alcuni campi della testata bolla e nella gestione dell'agente per la variante personalizzata PE.

Tabelle e file usati

File / logico FD / copybook Ruolo Campi chiave rilevanti
cogfattu cogfattu.cpy Testate fatture (scansione principale per range date) fat-chia1; filtri: fat-cli, fat-damovaa/mm/gg
cogracco cogracco.cpy Raccordo fattura -> bolle rac-chia1, rac-mag, rac-anno1, rac-tipo1, rac-bolla
cogmomag cogmomag.cpy Movimenti di magazzino (righe corpo bolla) mag-chiap; mag-merce3, mag-qtamagaz, mag-prezzo, mag-valore, mag-nonno/padre/figlio, mag-testa
cogtesbo cogtesbo.cpy (k01) Testate bolle (per recuperare l'agente nella variante PE) tes-chia3, tes-agente, tes-bolla3
cogtabel cogtabel.cpy Config SPMG/COGD10 (tipo 70) e codici IVA (tipo 67) euta-tipo, euta-cfg-arg, euta-cfg-key
coggeana coggeana.cpy Anagrafica clienti/fornitori ana-tipo, ana-cod, ana-nome
cogmerci cogmerci.cpy Anagrafica merci (descrizione, UM) mer-chia, mer-descr, mer-um
cogmercl / cogmerlk rispettivi cpy File merci/collegamenti (presenti come in COGD04) —
cogtrans inline (trs-rec) Transito temporaneo per raggruppare le righe di bolla trs-chia1, trs-mag-qtamagaz, trs-mag-valore, trs-mag-colli
filfat cogdcona.cpy File di output (line sequential): testate 01 / righe 02 assegnato a tm-cfg-nom-bol
neg-fil inline (neg-rec) Archivio codifica negozi (COGD10.ARC) cod-neg, cod-neg-coop

Logica di elaborazione

Il flusso e' quello di COGD04 (maschera date -> config -> estrazione), con queste specificita':

  1. Configurazione (x99-src-cfg/x99-conf): record cogtabel tipo 70, argomento SPMG, chiave COGD10 (euta-c047-*); default file di output A:\DESPAR.DAT.
  2. Estrazione (b-00): apre filfat (assegnato direttamente a tm-cfg-nom-bol, senza il ramo thin-client/COPIAF presente in COGD04), scandisce cogfattu nel range date del cliente configurato e chiama find-bolle.
  3. find-bolle: come COGD04 risale a bolle (cogracco) e movimenti (cogmomag), scrivendo testata 01 (bolla-testa) e righe 02 (svuota-bolla) via transito cogtrans.
  4. bolla-testa (record 01): valorizza codice cliente da mag-nonno (in stri-15-5); se az-personal = "PE" legge la testata bolla (cogtesbo, rd-cogtesbo) per recuperare tes-agente e lo scrive come codice socio, segnalando con box message le bolle prive di codice agente.
  5. svuota-bolla (record 02): recupera descrizione e UM da cogmerci (mer-descr, mer-um), imposta l'importo riga (cp-r-importo = trs-mag-valore), accumula il totale fatture (w-tot-val), risolve il codice IVA da cogtabel (tipo 67).
  6. Chiusura (b-50): mostra il totale fatture (w-tot-val), chiude il file e memorizza l'ultima data di estrazione (x99-mem-data).

Chiamate a sottoprogrammi / COPY rilevanti

Elemento Tipo Scopo
COGS52 CALL Accettazione/validazione date
COGS23 CALL Accettazione nome file output
cogdcona.cpy COPY (FD filfat) Tracciato output (testata cp-t-* / riga cp-r-*)
cogtesbo.k01 COPY Chiave testate bolle (per variante PE)
cogazien.cpy COPY Area azienda (az-personal)
mmmask.cpy, scree.cpy, winmsg.cpy, grave.cpy COPY Maschera, video, messaggi, errori gravi

Note

  • Multi-tenant: nella variante az-personal = "PE" la testata bolla riporta il codice agente (letto da cogtesbo); altrimenti il codice socio resta a spazi.
  • A differenza di COGD04, COGD10 non ha il ramo di copia thin-client via COPIAF: scrive direttamente sul nome file configurato.
  • Configurazione persistente su cogtabel tipo 70 / SPMG / COGD10; ultima data estrazione aggiornata a fine estrazione.
  • Archivio negozi locale COGD10.ARC (codice negozio -> codice cooperativa), popolato dalla schermata F5.
  • Transito temporaneo cogtrans ($COGD10.<oper> in ext-tmp-dir) per sommare le righe di bolla.
  • Programma legacy testuale (go to, semigrafica); nessuna configurazione RNEWCONF letta direttamente.
  • Condivide il tracciato con COGD04 (Conad) e COGD93 (Realco). Vedi flusso Sistema - Import/Export.

Documentazione tecnica -- creata 2026-08-07