COGO05 - Inserimento ordini clienti (launcher)
Intestazione
| Campo |
Valore |
| Programma |
COGO05 |
| Titolo |
Inserimento ordini clienti (programma di lancio) |
| Modulo |
Ordini |
| Tipologia |
Launcher |
| Posizione menu |
Ordini > Clienti > Inserimento ; Lab.Odont. > Magazzino > Ordine clienti > Inserimento |
Scopo
COGO05 e' un piccolo launcher che decide, in base alla configurazione, quale modulo di inserimento ordine cliente eseguire (versione grafica o versione carattere).
Non implementa logica di business sull'ordine: si limita a leggere la configurazione ordini/versione-programmi-oc tramite RNEWCONF e a chiamare il worker corretto.
Flusso
- Inizializzazione:
z-99-init-program, rd-azi, lettura dati azienda.
- Lettura configurazione: chiamata a
RNEWCONF per il parametro ordini/versione-programmi-oc.
- Scelta del worker:
- se valore =
"GRAFICA" -> chiama COGO05W (versione GUI)
- altrimenti -> chiama
COGO05C (versione carattere)
- Pass-through linkage: se chiamato da
COGU30 con u30b-called = "COGO05" propaga al worker la struttura link-u30 (richiamo guidato da Verifica RMA/conto anticipo).
- Uscita:
cancel del worker, z-99-exit-program.
Configurazioni RNEWCONF
| Gruppo |
Chiave |
Effetto |
| ordini |
versione-programmi-oc |
"GRAFICA" -> COGO05W ; altri valori -> COGO05C |
Copybook inclusi
| Copybook |
Scopo |
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy |
Working storage standard |
cogazien.cpy |
Dati azienda |
utilncnf.cpy |
Interfaccia RNEWCONF |
utilu30b.cpy, linku30.cpy |
Linkage opzionale da COGU30 |
wcont.cpy, wcont1.cpy |
Area comunicazione linkage |
stato.cpy, stato1.cpy, winmsg.cpy, util1.cpy |
Routine standard fine procedure |
Programmi chiamati
| Programma |
Quando |
Scopo |
| RNEWCONF |
All'avvio |
Lettura configurazione versione |
| COGO05W |
Versione grafica |
Worker GUI inserimento ordine |
| COGO05C |
Versione carattere |
Worker terminal inserimento ordine |
| COGU30 (chiamante) |
Richiamo guidato |
Verifica/creazione ordine da RMA |
Note tecniche
- Il sorgente e' minimale (83 righe). Non apre file, non gestisce maschere proprie.
- L'unica logica condizionale e' la propagazione del linkage
link-u30 quando il chiamante e' COGU30: il worker grafico (COGO05W) e quello carattere (COGO05C) accettano sia la signature using stringhe sia quella estesa using stringhe link-u30.
- Il valore di
versione-programmi-oc e' tipicamente impostato a livello aziendale e raramente cambia in vita.
Vedi anche