Vai al contenuto

COGF78 -- Esportazione D.B. Prodotti

Sorgente: cbl/cogf78.cbl | Tipo: Programma GUI standalone | Program-ID: COGF78

Menu: - Magazzino > Produzione > Produzione 2 > Varie > Esport. D.B. Prodotti


Scopo

Estrazione della composizione dei prodotti finiti (distinta base) su file CSV (delimitatore ";"). Scorre le bolle in un intervallo di date, filtra per causale Uscita-Cliente, individua i prodotti finiti con distinta di composizione e ne estrae i componenti con serial number e quantita'.


File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB Indicizzato I-O Tabelle di sistema
COGTESBO via cogf78.select Input Testate bolle (chiave k02 per data)
COGMOMAG via cogf78.select Input Movimenti di magazzino
COGMERCI via cogf78.select Input Anagrafica merci
COGTABEL via cogf78.select Input Tabelle gestionale (causali)
COGMTUSC via cogf78.select Input Matricole uscite (chiave k03)
COGMTPRE via cogf78.select Input Matricole pre-assegnazione
COGLAVOR via cogf78.select Input Lotti di lavorazione
COGMATRI via cogf78.select Input Matricole
COGMTDET via cogf78.select Input Matricole dettaglio (componenti)
COGRACMC via cogf78.select Input Descrizioni commerciali (chiave k02)
FILETRS Indicizzato I-O File di transito locale (matricole/merci filtrate)
FILEOUT Sequenziale Output File CSV di output

Programmi chiamati

Programma Scopo
COGU29 Estrazione componenti distinta base (EstraiComp)
COGS52 Accept campo data
COPIAF Copia file da server a client
C$OPENSAVEBOX Dialog apertura/salvataggio file

Copybook principali

  • cogf78.select, cogf78.fd, cogf78.wrk, cogf78.prc, cogf78.decla, cogf78-01.scr
  • cogfiles.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, cogazien.cpy
  • utils52.cpy, utilu09.cpy, utilu10.cpy, utilu20.cpy, utilu29.cpy
  • l-copiaf.cpy, u-copiaf.cpy (linkage COPIAF)
  • opensave.def (dialog Open/Save)
  • cogtesbo.k02, cogmtusc.k03, cogracmc.k02 (chiavi secondarie)

Struttura del programma

Flusso principale

  1. apri: inizializzazione, apertura file, setup
  2. a4: inizializzazione maschera, default date (anno corrente)
  3. a-tm-data-da / a-tm-data-a / a-tm-sot / a-tm-output: accept parametri (date, sottogruppo, file output)
  4. a-fine-dati: validazione completa, conferma, apertura file output
  5. a-elabora: fase di elaborazione principale
  6. a1-movimenti: per ogni testata bolla nel range date, scorre movimenti COGMOMAG
  7. a11-matricole: per ogni movimento di prodotto finito (mer-padre="P", tipo-distinta="C"), scorre matricole da COGMTUSC (chiave k03)
  8. controlla-lavor: verifica che la matricola non sia di lotto tipo "L"
  9. a12-componenti: chiama COGU29 per estrarre i componenti; se il filtro sottogruppo corrisponde, scrive sul file di transito
  10. a2-estrazione: scorre il file di transito, legge le descrizioni commerciali (COGRACMC) e scrive il file CSV di output via a21-scrivo-output
  11. a21-scrivo-output: per ogni matricola nel transito, scorre COGMTDET per estrarre i componenti e scrive il record CSV (matricola;PF;descPF;componente;descCMP;SN;qta)
  12. fine: chiusura file, copia su client via COPIAF

Formato output CSV

matricola;PF;descr_PF;componente;descr_componente;serial_number;quantita

Separatore: ;


Documentazione tecnica -- 2026-04-29