Vai al contenuto

COGD36 -- Riordino (Analisi Riordino)

Sorgente: cbl/cogd36.cbl | Program-ID: COGD36 | Tipo: Gestione griglia interattiva

Menu: Magazzino > Giacenze & Sottoscorta > Riordino > Riordino

Scopo

Analisi interattiva della proposta di riordino preparata da COGD35. Presenta i dati in una griglia paginata con possibilita' di modificare quantita', prezzo e fornitore per ciascun articolo, aggiungere note, stampare, esportare in Excel e infine generare gli ordini a fornitore.

Struttura della maschera

Screen gestita da Screen Designer: cogd36-01.scr. Due pagine (tab control).

Pagina 1 -- Filtri (s-mm-1-tab-01)

Campo Variabile Tipo Validazione
Ordinamento tm-tipo-ord X(01) Via COGS60
Da Merce tm-da-merce X(02)+X(02)+9(05) Via COGS68
A Merce tm-a-merce X(02)+X(02)+9(05) Via COGS68
Da Gg Copertura tm-da-gg-gcpr 9(04) Numerico
A Gg Copertura tm-a-gg-gcpr 9(04) Numerico
Fornitore Preferenziale tm-for-prf (tip/cod) X(01)+9(05) Via COGS65
Fornitore Effettivo tm-for-ord (tip/cod) X(01)+9(05) Via COGS65
Da Note tm-da-note X(50) Testo libero
A Note tm-a-note X(50) Testo libero
Gruppo tm-gruppo X(02) Via COGN38 con F8
Sottogruppo tm-sotto X(02) Via COGN39 con F8

Pagina 2 -- Griglia (s-mm-1-tab-02)

Griglia paginata gestita da GRIDADMN. Fino a k-max-ele-tab (900) righe.

Colonna Variabile grid-record Tipo
Merce grd-merce X(09)
Reparto grd-rep-des X(30)
Fornitore Ordine grd-ord-ana-cod / grd-ord-ana-des Z(05) / X(40)
U.M. grd-um X(02)
Qta Riordino grd-qta-rio -.---.---,---
Prezzo grd-prezzo X(12)
Importo grd-importo X(12)
Qta Proposta grd-qta-pro -.---.---,---
Giacenza Attuale grd-giacenza-att -.---.---,---
Giacenza grd-giacenza -.---.---,---
Impegnato grd-impegnato -.---.---,---
Ordinato grd-ordinato -.---.---,---
Venduto grd-venduto -.---.---,---
Scostamento grd-scostamento X(07)
Fabbisogno Giorn. grd-fab-gio -.---.---,---
Fornitore Pref. grd-prf-ana-cod / grd-prf-ana-des Z(05) / X(40)
Gg Cop. Attuali grd-gg-cop-att Z(04)
Gg Cop. Proposti grd-gg-cop-pro Z(04)
Gg Cop. Richiesti grd-gg-cop-ric Z(04)
Flag Inventario grd-fl-inv X(02)
Note grd-note X(200)
Scorta Min/Max grd-sco-min, grd-sco-max zzz.zzz
Confezione grd-conf zzz.zzz

Logica di elaborazione

Flusso principale

  1. Inizializzazione: z-99-init-program, ctr-abil, rd-azi, open-files.
  2. Creazione file temporanei: cogtrans e lodtmdes in directory temp.
  3. Pagina 1 (a-pagina-1): accept di tutti i filtri con navigazione F2/F7. Al F7 si esegue a-fine-dati che valida e passa a pagina 2.
  4. Pagina 2 (a-pagina-2):
  5. Apre file cogtrans e lodtmdes.
  6. Chiama carica-dati THRU ex-carica-dati per riempire la tabella interna.
  7. Chiama carica-tab THRU ex-carica-tab per popolare la griglia.
  8. Griglia (a-grid): loop di accept con gestione tasti funzione.

Caricamento dati (carica-dati)

Scansione COGRI2DT con ordinamento/filtri selezionati. Per ogni record:

  1. Scrive un record in cogtrans con i dati necessari alla griglia.
  2. Scrive descrizione merce in lodtmdes.
  3. Popola tm-righe(n-m) fino a k-max-ele-tab.

Dettaglio riga (a-riga-dettaglio)

Quando l'operatore preme INVIO su una riga:

  1. Mostra il pannello di dettaglio con campi modificabili.
  2. Accept di fornitore ordine, quantita' riordino, prezzo.
  3. Ricalcola importo, giorni copertura proposti.
  4. Aggiorna il record in cogtrans e COGRI2DT.

Aggiornamento (aggiorna THRU ex-aggiorna)

Scansione dei record modificati e aggiornamento su COGRI2DT.

Refresh (agg-refresh THRU ex-agg-refresh)

Riesecuzione del calcolo di riordino con i nuovi parametri.

File utilizzati

File Copybook Accesso Utilizzo
FEURTAB cogfiles.cpy Random Tabella file generali
COGRI2DT via cogd36.fd/prc I-O Dettaglio dati riordino
COGRI2TS via cogd36.prc I-O Testata sessione riordino
cogtrans Inline (trs-rec) I-O Dynamic File temporaneo con 8 chiavi alternate
lodtmdes lodtmdes.cpy I-O File temporaneo descrizioni
tran-cogd39 tran-cogd39.cpy I-O File di transito per COGD39
COGMERCI via cogd36.prc Random Anagrafica merci
COGMERA2 via cogd36.prc Random Anagrafica merci estesa
COGGEANA via cogd36.prc Random Anagrafica generale
COGMAGAZ via cogd36.prc Random Magazzini

Programmi chiamati

Programma Scopo
COGU16W Gestione ordinamento e range merci
COGU10W Formattazione importi/divisa
COGU20W Input numerico
COGU23 Calcolo impegnato e ordinato
COGS60 (COGS60W) Combo box per ordinamento
COGS65 (COGS65W) Ricerca anagrafica (fornitori)
COGS68 (COGS68W) Ricerca merce avanzata
COGS52 (COGS52W) Input date
COGD37 Riepilogo per fornitore
COGD38 Stampa proposta di riordino
COGD39 Generazione ordini a fornitore
COGD43 Visualizzazione note
COGN38 Ricerca gruppo merceologico
COGN39 Ricerca sottogruppo merceologico
COGO35 Visualizzazione movimenti vendita/produzione/ordinato
COGV43 Visualizzazione movimenti magazzino
GRIDADMN Gestione griglia paginata

Copybook principali

  • cogd36.select, cogd36.fd, cogd36.wrk, cogd36.decla, cogd36.prc -- Generati da Screens
  • cogd36-01.scr -- Screen definition
  • k-u10.cpy -- Costanti COGU10
  • wgrid.cpy, utilgdad.cpy -- Gestione griglia
  • utilcogd37.cpy, utilcogd38.cpy, utilcogd39.cpy, utilcogd43.cpy -- Interfacce sub-programmi
  • utilcogl61.cpy, utilcogn38.cpy, utilcogn39.cpy
  • utildlg.cpy, utils52.cpy, utils65.cpy, utils68.cpy
  • utilu10.cpy, utilu16.cpy, utilu20.cpy, utilu23.cpy, utilzde.cpy
  • utilo35.cpy, utilv43.cpy -- Linkage
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy
  • lodtmdes.cpy, tran-cogd39.cpy -- File temporanei