Vai al contenuto

COGD86 -- Adeguamento supporti

Sorgente: cbl/cogd86.cbl | Tipo: Programma interattivo | Program-ID: COGD86

Menu:

  • Magazzino > P.N. Magazzino > Adeguamento supporti

Scopo

Programma per l'adeguamento delle quantita' dei supporti tracciati presenti su un'ubicazione (magazzino o lavorante). Consente di modificare le quantita', spostare i supporti sul magazzino principale e crea automaticamente i documenti di magazzino necessari (testate e righe), raggruppati per ubicazione e segno del movimento.

File e Tabelle

File/Tabella Copybook Uso
COGMERSP cogd86.fd (via Screens) I-O -- Supporti merce (anagrafica supporti)
COGMOVSP cogd86.fd (via Screens) I-O -- Movimenti supporti
COGTESBO cogd86.fd (via Screens) I-O -- Testate documenti di magazzino
COGMOMAG cogd86.fd (via Screens) I-O -- Movimenti di magazzino
COGMAGAZ cogd86.fd (via Screens) Input -- Anagrafica magazzini
COGGEANA cogd86.fd (via Screens) Input -- Anagrafica generale (fornitori/lavoranti)
COGTRANS file transito locale I-O -- File di transito temporaneo per ordinare i supporti selezionati per ubicazione/segno/merce
FEURTAB cogfiles.cpy Input -- Tabella Eurosystem

Chiavi secondarie

File Chiave Scopo
COGMERSP chia6 (msp-ubi-tip, msp-ubi-mag) Ricerca supporti per ubicazione
COGTRANS chia2 (trs-ubi, trs-segno, trs-merce, trs-id) Ordinamento movimenti per aggiornamento
COGMOVSP chiave discendente (mvs-prog-id max) Ricerca ultimo progressivo movimento

Programmi chiamati

Programma Scopo
COGL61 Recupero prezzo di acquisto della merce
COGU10W Utility divisa -- conversione valuta e arrotondamenti
COGS25 Recupero prossima numerazione documento
COGW72 Aggiornamento stato supporto dopo movimentazione
COGD87 Funzione collegata (attivabile da menu pop-up)
COGV43 Consultazione movimenti (attivabile da menu pop-up e F8)
GRIDADMN Amministrazione griglia
COGS52W Date picker
COGS65W Ricerca anagrafica (lavoranti)

Copybook principali

  • cogd86.wrk, .select, .fd, .prc, .scr -- Definizioni Screens
  • utilcogl61.cpy -- Interfaccia COGL61
  • utilcogd87.cpy -- Interfaccia COGD87
  • utilcogw72.cpy -- Interfaccia COGW72
  • utilncnf.cpy -- Configurazione programma
  • utils25.cpy -- Interfaccia COGS25
  • utilv43.cpy -- Interfaccia COGV43

Logica di Elaborazione

Flusso principale

  1. Inizializzazione: apertura file, lettura divisa contabile (COGU10W), caricamento configurazione (RNEWCONF), creazione menu pop-up movimenti
  2. Accept parametri: tipo ubicazione (M/F), codice magazzino/lavorante, documento e data documento opzionali
  3. Caricamento dati: lettura di tutti i supporti (COGMERSP chia6) per l'ubicazione selezionata, ordinamento per codice merce con insertion sort
  4. Interazione: due modalita' (Lettura e Modifica), selezionabili con F7
  5. Aggiornamento (F3): creazione documenti di magazzino per i supporti selezionati

Caricamento supporti (a1-carica-dati)

Legge COGMERSP con chiave secondaria chia6 filtrando per tipo ubicazione e codice. Per ogni supporto carica: id, merce, ubicazione (con descrizione da COGMAGAZ o COGGEANA), stato, lotto, quantita' iniziale, quantita' attuale. Ordina i record per codice merce con insertion sort (a11-aggiungi-elemento). Limite: 900 elementi.

Modalita' Lettura (a-tm-lettura)

Accetta un codice supporto (12 cifre, es. da barcode). Verifica: esistenza supporto in COGMERSP, presenza nell'ubicazione selezionata (con possibilita' di forzatura), rifiuto supporti gia' sul magazzino principale o su magazzini non lavoranti. Se valido, lo marca come selezionato e da spostare.

Aggiornamento (b-aggiorna)

  1. Scrive i supporti selezionati sul file di transito COGTRANS, con segno e quantita' calcolati:
  2. Spostamento (fl-sposta = "S"): segno "U", qta-lav = qta attuale, qta-mag = qta nuova
  3. Modifica quantita': calcola la differenza tra qta nuova e qta attuale, segno "E" o "U" di conseguenza
  4. Recupera il prezzo da COGL61 con eventuale conversione divisa
  5. Rilegge COGTRANS con chia2 (ordinamento per ubicazione/segno/merce):
  6. Al cambio di ubicazione/segno crea una nuova testata documento (b1-testata) con numerazione da COGS25
  7. Per ogni record crea un movimento di magazzino (b2-movimento) su COGMOMAG
  8. Se il supporto e' da spostare, crea anche una testata e un movimento di entrata sul magazzino principale
  9. Per ogni movimento crea anche il record su COGMOVSP e aggiorna lo stato supporto tramite COGW72

Configurazione

Parametri da RNEWCONF (via utilncnf.cpy):

  • Colore colonne modificabili
  • Causale uscita/entrata lavorante
  • Magazzino c/lavoro
  • Causale entrata magazzino principale

Documentazione tecnica -- 2026-04-28