Vai al contenuto

COGD81 -- Importazione scorta minima (Modula)

Sorgente: cbl/cogd81.cbl | Tipo: Programma batch con interfaccia | Program-ID: COGD81

Menu: - Magazzino > Modula > Importazione scorta minima

Scopo

Importa la scorta minima per articoli Modula da un file .EXP (pipe-delimited). Per ogni riga del file, identifica la merce tramite gruppo/sottogruppo/codice, verifica che esista in COGMERCI e che sia gestita a Modula (mer-modula = "S"), quindi aggiorna il campo mer-sco-min.

File e tabelle

File/Tabella Tipo Modalita' Descrizione
COGMERCI Indicizzato I-O Anagrafica merci (aggiorna mer-sco-min)
FILSEQ Sequenziale I-O File .EXP di input (pipe-delimited)
FEURTAB Indicizzato I-O File configurazioni generali

Programmi chiamati

Programma Scopo
RNEWCONF Lettura configurazioni
COPIAF Copia/conversione file client-server
ESTRXLS Estrazione da formato Excel (se .XLS)

Copybook principali

  • cogd81.select, cogd81.fd, cogd81.wrk, cogd81.prc -- screen-generated
  • cogazien.cpy -- dati azienda
  • utilncnf.cpy -- interfaccia RNEWCONF
  • l-copiaf.cpy, u-copiaf.cpy -- interfaccia COPIAF
  • utilestrxls.cpy -- interfaccia ESTRXLS

Configurazioni RNEWCONF

Gruppo Chiave Scopo
SISTMGA001 euta-c077-path-scambio-a Percorso di interscambio Modula
cogesys delimitatore-colonne-excel Delimitatore colonne (default ";")

Struttura del programma

Flusso principale

  1. apri: inizializzazione, lettura configurazioni (path scambio, delimitatore)
  2. a4: inizializzazione maschera, impostazione percorso file, conversione path per thin client
  3. a-tm-filein: accept del percorso file con controllo estensione (.EXP) e esistenza
  4. a-richiesta-conferma: validazione, conferma utente, copia file su server se thin client
  5. tratta-file: loop di lettura sequenziale del file

Logica di importazione (tratta-file)

Per ogni riga del file .EXP:

  1. Unstring con delimitatore "|" per estrarre campi (articolo, scorta-min, scorta-max)
  2. Parsing del codice merce: primi 2 char = gruppo, successivi 2 = sottogruppo, ultimi 5 = codice numerico
  3. Conversione "00" in spazi per gruppo/sottogruppo
  4. Read su COGMERCI con chiave merce; skip se non trovato
  5. Skip se mer-modula <> "S"
  6. Aggiornamento mer-sco-min con rewrite

Al termine, chiede all'utente se cancellare il file importato.

Documentazione tecnica -- 2026-04-29