Vai al contenuto

COGO16F - Inserimento consegne fornitori (lancio)

Scopo

Programma di lancio ("smistatore") per l'inserimento delle consegne fornitori. Analogo a COGO16C ma per il ciclo fornitori: legge la configurazione ordini > versione-programmi-consegne tramite RNEWCONF e, in base al valore, chiama la versione grafica (COGO16FW) o la versione a caratteri (COGO16FC) del programma effettivo. Non contiene logica applicativa.

Ordini > Fornitori > 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")
COGO16FW Versione grafica del programma consegne fornitori (se configurazione = "GRAFICA")
COGO16FC Versione a caratteri del programma consegne fornitori (altrimenti)

Logica di elaborazione

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

Note tecniche

  • Struttura identica a COGO16C (consegne clienti): differiscono solo per k-program-id ("COGO16F") e per i nomi dei programmi lanciati (COGO16FW/COGO16FC invece di COGO16CW/COGO16CC).
  • La configurazione letta e' la stessa di COGO16C (ordini / versione-programmi-consegne): il flag "GRAFICA" attiva la variante grafica per entrambi i cicli (clienti e fornitori).
  • Nel sorgente e' presente un ramo commentato COGO16FY (gestore tabella generato dallo Screen Designer, non attivo).
  • La CALL e' dinamica (nome in w-nome-programma) e viene rilasciata con cancel.