Vai al contenuto

COGO16C - Inserimento consegne clienti (lancio)

Scopo

Programma di lancio ("smistatore") per l'inserimento delle consegne clienti. Legge la configurazione ordini > versione-programmi-consegne tramite RNEWCONF e, in base al valore, chiama la versione grafica (COGO16CW) o la versione a caratteri (COGO16CC) del programma effettivo. Non contiene logica applicativa: si limita a determinare quale variante eseguire.

Ordini > Clienti > Consegne > Inserimento

File e tabelle

Il programma non apre file dati diretti (oltre a quelli impliciti in rd-azi/cogazien). L'unico accesso e' la lettura della configurazione via RNEWCONF.

Copybook

Working-storage standard

  • wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy

Utilita'

  • utilncnf.cpy (linkage configurazioni RNEWCONF)

Linkage

  • wcont.cpy, wcont1.cpy

Procedure

  • stato.cpy, stato1.cpy, winmsg.cpy, util1.cpy

CALL

Programma Descrizione
RNEWCONF Lettura configurazione ordini > versione-programmi-consegne (pack "C")
COGO16CW Versione grafica del programma consegne clienti (se configurazione = "GRAFICA")
COGO16CC Versione a caratteri del programma consegne clienti (altrimenti)

Logica di elaborazione

  1. apro (main): init programma (z-99-init-program), lettura azienda (rd-azi), lettura configurazione ordini / versione-programmi-consegne via RNEWCONF; il valore viene salvato in tm-cfg-versione.
  2. ela-00: se tm-cfg-versione = "GRAFICA" imposta w-nome-programma = "COGO16CW", altrimenti "COGO16CC"; esegue call w-nome-programma using stringhe e successivo cancel.
  3. fine / z-chiudi: z-99-exit-program e exit program.

Note tecniche

  • Programma di dispatch a runtime: la CALL e' dinamica (nome programma in w-nome-programma) e viene rilasciata con cancel dopo l'esecuzione.
  • La configurazione versione-programmi-consegne e' condivisa anche da COGO16F (consegne fornitori): stesso gruppo/chiave, valore "GRAFICA" o altro.
  • La costante k-program-id vale "COGO16C" (usata per help e gestione errori).
  • I programmi effettivi COGO16CW (grafico) e COGO16CC (caratteri) hanno sorgenti dedicati e contengono la logica di inserimento delle consegne.