COGO60 - Gestione Ordini Fornitori / Buoni di Versamento¶

Sorgente: cbl/cogo60.cbl | Tipo: Programma a menu (lanciatore) | Program-ID: COGO60

Menu: - Ordini > Fornitori > Gestione - Ordini > Buoni di versamento > Gestione

Scopo¶

Programma di lancio per la gestione degli ordini fornitori e dei buoni di versamento. Legge la configurazione RNEWCONF per determinare la versione dell'interfaccia (grafica o carattere) e richiama il programma operativo corretto (COGO60W o COGO60C).

File e Tabelle¶

File/Tabella	Uso
Nessun file dati proprio	Il programma e' un puro lanciatore

Programmi chiamati¶

Programma	Scopo
RNEWCONF	Lettura configurazione (chiave `versione-programmi-of`, gruppo `ordini`, pacchetto `C`)
COGO60W	Gestione ordini fornitore - versione grafica
COGO60C	Gestione ordini fornitore - versione carattere

Copybook principali¶

wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
utilncnf.cpy
wcont.cpy, wcont1.cpy (linkage section)
stato.cpy, stato1.cpy, winmsg.cpy, util1.cpy

Logica di Elaborazione¶

Flusso principale¶

Inizializzazione (apro):
z-99-init-program
rd-azi (lettura dati azienda)
Chiamata a RNEWCONF con pacchetto "C", gruppo "ordini", chiave "versione-programmi-of" → valore letto in tm-cfg-versione
Selezione programma operativo (ela-00):
Se tm-cfg-versione = "GRAFICA" → lancia COGO60W
Altrimenti → lancia COGO60C
Dopo il ritorno del programma operativo, esegue fine e termina

Variabili principali¶

Variabile	Tipo	Descrizione
`w-nome-programma`	x(12)	Nome del programma da lanciare (COGO60W o COGO60C)
`tm-cfg-versione`	x(10)	Versione interfaccia letta da RNEWCONF ("GRAFICA" o altro)

Configurazione RNEWCONF¶

Pacchetto	Gruppo	Chiave	Effetto
C	ordini	versione-programmi-of	Seleziona la versione dell'interfaccia (GRAFICA = COGO60W, altro = COGO60C)

Documentazione tecnica — 2026-05-07