COGO70 - Riordino Articoli Sottoscorta¶

Intestazione¶

Campo	Valore
Programma	COGO70
Titolo	Riordino articoli sottoscorta
Posizione menu	Magazzino → Giacenze & Sottoscorta → Scorte → Riordino
Posizione menu alternativa	Contanti → Giacenza & Scorte → Riordino x Sottoscorta

Scopo e logica generale¶

COGO70 e' il programma interattivo principale per la gestione del riordino degli articoli sottoscorta. Presenta una maschera con griglia paginata (GRIDADMN) che mostra gli articoli con giacenza inferiore alla scorta minima. Permette di visualizzare per ogni articolo il fabbisogno di riordino, il fornitore suggerito, il prezzo di acquisto, i dati di consegna previsti e le relazioni con sostituti e alternativi.

Il programma puo' essere richiamato in modalita' standard (sottoscorta generico) oppure in modalita' "riordino da commessa", quando viene invocato passando i parametri cogo70-called = "COGO70-CALLED", cogo70-ope = "RIORDINO-COMMESSA", cogo70-commessa e cogo70-sottocommessa dalla linkage section (copybook utilcogo70.cpy).

Usa file di transito #$TRSO70.ARC (cogtrans) e #$COGO70.ARC (cogtrans2) nella tmp-dir. Il file di riordino cogriord segue la logica sessione: se tm-cfg-sessione = "M" (multipla) il file sta nella tmp-dir, altrimenti nell'arc-dir.

Flusso principale¶

Inizializzazione (apri): lettura configurazione RNEWCONF, apertura file transito (cogtrans, cogtrans2, t-merci-oc-commessa), apertura file dati, caricamento lingua, divisa conto, costruzione pulsanti custom (F7-costi/produzioni, F1-simulazione, F2-dettaglio, S-F6-stampa-colleg, S-F7-scheda, S-F8-riordino-interno/fabbisogno-commessa, F4-inserisci-fornitore, F8-riordino, F11-fornitore-gen, F5-aggiorna-qta, S-F9-sostituti)
Accept parametri (a4): accetta data, magazzino, commessa/sottocommessa, ordine di stampa, tipo prezzo, opzioni di visibilita' (merci a zero, tipo vis), range ordini fornitore/cliente, dati ordine
Elaborazione (a-fine-dati): costruzione file transito da dati di riordino (COGRIORD), chiamate a subroutine COGO70S, COGO70S1, COGO70S2 per calcolo quantita'/prezzi, riempimento cogtrans2
Griglia (a-grid): visualizzazione paginata con GRIDADMN; gestione tasti:
Invio: selezione riga
F1: simulazione ordine (COGL61W)
F2: dettaglio articolo (COGW06)
F3: aggiornamento
F4: inserimento fornitore
F5: aggiornamento quantita'
F7: costi (COGO70T) oppure produzioni (per personalizzazione ARTIC-SEALS)
F8: generazione riordino (COGV21 via tran-v21/trbn-v21)
F9: stampa
F11: fornitore generale (COGO72A)
S-F4: GRIDADMN
S-F5: esportazione Excel
S-F6: stampa collegamenti
S-F7: scheda articolo
S-F8: riordino interno oppure fabbisogno commessa
S-F9: sostituti/alternativi
Chiusura (fine): chiusura file, eliminazione transiti

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
COGRIORD	rio-rec	Input	Archivio di riordino principale (file scorte)
COGMERCI	mer-rec	Input	Anagrafica merci
COGGEANA	ana-rec	Input	Anagrafica generale (clienti/fornitori)
COGMAGA2	magz-rec	Input	Anagrafica magazzini
COGMOVDB	mdb-rec	Input	Movimenti distinta base
COGLAVOR	cla-rec	Input	Lotti di lavorazione
COGORDFO	cor-rec	Input	Ordini fornitore
COGGENER	gnr-rec	I-O	Generica (contatori)
COGTABEL	euta-rec	Input	Tabelle di sistema
COGTRANS	trs-rec	I-O	Transito principale (chiave: des-for + cod-for)
COGTRANS2	trs2-rec	I-O	Transito secondario con chiave alternativa per ordinamento
TRSGCDOC	tr-gcd-rec	I-O	Transito gestione commessa-documento (da coggcdoc con replace)
TRAN-V21	v21-rec	I-O	Transito ordine fornitore da generare (collegato a COGV21)
TRBN-V21	—	I-O	Transito ordine fornitore bolla
T-MERCI-OC-COMMESSA	t-mcoc-rec	I-O	Transito merci richieste da commessa per ordine cliente
FEURTAB	feurtab	Input	Tabella generica Eurosystem

Struttura COGTRANS (transito principale)¶

trs-chia1:
  trs-des-for    pic x(40)   Descrizione fornitore
  trs-cod-for    pic 9(05)   Codice fornitore

Struttura COGTRANS2¶

trs2-chia1:
  trs2-merce     pic x(09)   Codice merce (gru+sot+cod)
trs2-chiave-ord  pic x(40)   Chiave di ordinamento alternativa
trs2-ore-lavoro  pic 9(08)v999
trs2-data-prima-cons  pic 9(08)
trs2-data-inizio-prod pic 9(08)
trs2-qta-orig    pic s9(07)v999
trs2-uscite-anno pic s9(07)v999
trs2-qta-arr-rio pic 9(04)
trs2-fl-sostituisce/sostituito-da/alternativi/prnt  pic x(01)
trs2-oc-prnt/riga
trs2-rio-rec     (copia allineata di RIO-REC con tab. date-giacenze-qta)

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogo70-01.scr`	Maschera principale (screen section)
`cogo70.select`	SELECT dei file
`cogo70.fd`	FD dei file
`cogo70.wrk`	Working storage maschera
`cogo70.decla`	Declaratives

Strutture dati¶

Copybook	Contenuto
`cogfiles.cpy`	FD feurtab
`cogazien.cpy`	Dati azienda
`j04konst.cpy`	Costanti J04
`k-u10.cpy`	Costanti COGU10
`k-personal.cpy`	Costanti personalizzazione
`k-tipi-cogtabel.cpy`	Costanti tipi COGTABEL
`coggcdoc.cpy`	Struttura gestione commessa-documento (inclusa due volte con replace)
`cogdetor.cpy`	Struttura dettaglio ordine
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni

Utility e interfacce¶

Copybook	Contenuto
`utilcogl61.cpy`	Interfaccia COGL61W (simulazione ordine)
`utilcogw06.cpy`	Interfaccia COGW06 (dettaglio articolo)
`wgrid.cpy` / `utilgdad.cpy`	Gestione griglie
`utilu78.cpy`	Utility U78
`utile18.cpy` / `utile35.cpy`	Utility E18/E35
`utils52.cpy`	Interfaccia COGS52 (calendario)
`utils54.cpy`	Interfaccia COGS54 (stampa)
`utils68.cpy`	Interfaccia COGS68W (ricerca merce)
`utils25.cpy`	Interfaccia date
`utilu12.cpy` / `utilu47.cpy`	Utility divisa
`utilw36.cpy`	Interfaccia WIN036
`utilncnf.cpy`	Struttura parametri RNEWCONF
`utilu10.cpy` / `utilu15.cpy` / `utilu20.cpy`	Utility COGU10/15/20
`utildlg.cpy`	Utility dialogo
`utilhite12.cpy`	Utility highlight
`utilcogsa0.cpy`	Interfaccia COGSA0
`utilcogx40.cpy`	Interfaccia COGX40
`utilcogq44.cpy` / `utilcogqa4.cpy`	Interfaccia COGQ44/QA4
`utilcogg4d.cpy`	Interfaccia COGG4D
`utilgesdate.cpy`	Utility gestione date
`utilgesorcns.cpy`	Utility gestione ordini-consegne
`utilgesdebug.cpy`	Gestione debug
`utilpost.cpy`	Utility post-processing
`utilmymail.cpy`	Utility invio mail

Linkage¶

Copybook	Contenuto
`wcont.cpy` / `wcont1.cpy`	Stringhe comuni
`utilo73.cpy`	Interfaccia LOGO73
`utils01f.cpy`	Interfaccia S01F
`utilo16c.cpy`	Interfaccia O16C
`utilo65.cpy`	Interfaccia O65
`utilcogo70.cpy`	Parametri chiamata da altri programmi
`utilcogv13.cpy`	Interfaccia COGV13
`utilv30.cpy`	Interfaccia V30

Programmi chiamati (CALL)¶

Programma	Scopo
COGU10W	Formattazione importi e gestione divisa
COGS52W	Calendario (date picker)
COGS54	Gestione stampa/destinazione output
COGS68W	Ricerca e selezione merce
GRIDADMN	Amministrazione griglie
RNEWCONF	Lettura configurazione
COGL61W	Simulazione ordine di acquisto (F1)
COGW06	Dettaglio articolo (F2)
COGO70S	Subroutine calcolo prezzi/quantita' di riordino
COGO70S1	Subroutine calcolo uscite anno per articolo
COGO70S2	Subroutine calcolo fornitore generale
COGO70T	Subroutine costi/produzioni (F7)
COGO72A	Gestione fornitore generale (F11)
COGV21	Generazione ordini fornitore (F8, via tran-v21)

Configurazione (RNEWCONF)¶

Il programma legge la configurazione tramite x99-src-confi e x999-src-confi. I parametri principali nella struttura tm-conf:

Parametro	Descrizione
`tm-cfg-num`	Modalita' numerazione
`tm-cfg-vis-pua`	Visibilita' prezzo ultimo acquisto
`tm-cfg-ric-pre`	Ricerca prezzo
`tm-cfg-ult-pre`	Usa ultimo prezzo
`tm-cfg-legame-con-rio`	Legame con archivio riordino
`tm-cfg-uso-cma`	Uso codice merce alternativo
`tm-cfg-mag-ord-prod`	Magazzino ordine produzione
`tm-cfg-sessione`	Sessione: "M"=multipla (tmp-dir), altro=singola (arc-dir)
`tm-cfg-pz-x-stampo`	Pezzi per stampo (specifico per personalizzazione)
`tm-cfg-versione-prog`	Versione programma
`tm-cfg-cons-aut`	Consolidamento automatico
`tm-cfg-cons-ord-a`	Consolidamento ordini a
`tm-cfg-scorte-per-magazzino`	Scorte distinte per magazzino
`tm-cfg-cau-ord-for`	Causale ordine fornitore
`tm-cfg-ges-prnt`	Gestione padre-figlio produzione

Logica di business¶

Modalita' di riordino¶

Il programma opera in due modalita': - Standard: elabora tutti gli articoli con giacenza sotto scorta minima nel magazzino selezionato - Da commessa: se chiamato con w-dc-ope = "RIORDINO-COMMESSA", calcola il fabbisogno specifico per la commessa e sottocommessa indicate, usando il transito t-merci-oc-commessa per tenere traccia degli articoli richiesti dagli ordini cliente della commessa

Sessione di lavoro (multipla vs singola)¶

Con tm-cfg-sessione = "M", i file di transito cogriord vengono cercati nella tmp-dir, consentendo piu' utenti contemporanei. In modalita' singola, l'archivio e' condiviso nell'arc-dir.

Struttura trs2 allineata a RIO-REC¶

La parte finale di trs2-rio-rec e' volutamente allineata alla struttura di RIO-REC (archivio scorte). Eventuali modifiche a RIO-REC richiedono l'aggiornamento corrispondente in questa struttura. Attualmente sono presenti 3 flag aggiuntivi rispetto a RIO-REC.

Personalizzazione k-personal-artic-seals¶

Se az-personal = k-personal-artic-seals, il pulsante F7 viene etichettato "Produzioni" invece di "Costi", modificando il comportamento del tasto funzione corrispondente.

Gestione sostituti/alternativi¶

I flag trs2-fl-sostituisce, trs2-fl-sostituito-da, trs2-fl-alternativi indicano le relazioni tra articoli. Il tasto S-F9 attiva la gestione di queste relazioni.

Variabili di stato principali¶

Variabile	Descrizione
`tm-data`	Data di riferimento per il calcolo
`tm-mag`	Magazzino selezionato
`tm-com-tsc` / `tm-com-sot`	Commessa e sottocommessa
`tm-ordine-stampa`	Criterio di ordinamento
`tm-tipo-vis`	Tipo di visualizzazione
`tm-vis-merci-zero`	Flag inclusione merci con giacenza zero
`tm-cfg-sessione`	Modalita' sessione
`w-dc-called` / `w-dc-ope`	Flag e tipo chiamata da programma esterno
`n-m`	Numero record nella griglia
`fl-read`	Flag fine lettura transito