COGG60 - Collegamento Tecnici/Commessa¶

Sorgente: cbl/cogg60.cbl | Program-ID: COGG60 | Tipo: Tabella/Manutenzione

Menu: Vendite > Commesse > Tabelle > Colleg. Tecnici/Commessa

Scopo¶

Gestione del raccordo tra tecnici e commesse. Permette di associare a un'entita' (commessa o tecnico) un elenco di codici collegati con le rispettive descrizioni. Supporta inserimento, modifica e cancellazione dei collegamenti. Puo' essere richiamato come "called" da altri programmi in modalita' selezione (via linkage utilg60.cpy).

Struttura della maschera¶

Screen gestita da Screen Designer: cogg60-01.scr.

Campi di testata:

Campo	Variabile	Tipo	Descrizione
Tipo	tm-tipo	X(01)	Tipo di entita' (es. "C" = Commessa). Via COGS60
Codice commessa/tecnico	tm-tsc-cod	X(10)	Codice dell'entita' principale. Via U35 (utilU35)
Descrizione	tm-tsc-des	X(40)	Descrizione dell'entita'
Riferimento tipo	tm-rif-tip	X(01)	Tipo del riferimento
Riferimento codice	tm-rif-cod	9(10)	Codice del riferimento
Descrizione riferimento	tm-rif-des	X(40)	Descrizione del riferimento

Griglia (fino a 500 righe):

Colonna	Variabile	Descrizione
Codice	tm-cod	Codice del collegamento (10 char, alfanumerico o numerico)
Descrizione	tm-des	Descrizione del collegamento (40 char)

Logica di elaborazione¶

Flusso principale¶

Inizializzazione (apri): ctr-abil, z-99-init-program, open-files, rd-azi. Configura tasti funzione: Invio, F3, F4, F8, S-F4, Ctrl+A, Ctrl+E. Legge configurazione (x99-confi) per tipo numerazione commessa e sottocommessa.
Accept filtri (a4): inizializza tab-maschera, imposta tipo "C" (Commessa), flag inserimento. Se richiamato come called (g60-called = "COGG60-CALLED"), precompila codice e riferimento dalla linkage, poi va direttamente alla visualizzazione.
Accept tipo (a-tm-tipo): scelta tipo entita' tramite COGS60.
Accept codice (a-tm-tsc-cod): accept codice commessa/tecnico tramite U35 (call-u35-accept), con F8 per aiuto.
Accept riferimento (a-tm-rif-cod): accept codice riferimento.
Visualizzazione (vis-dati): carica i collegamenti esistenti nella griglia.
Griglia (a-grid/a-accept-grid):
Invio in modalita' selezione: restituisce il codice selezionato al chiamante.
Invio in modalita' aggiornamento: entra nel dettaglio riga per modifica.
F3: conferma e salva le modifiche (aggiorna).
Ctrl+A: aggiunge una nuova riga.
Ctrl+E: cancella la riga selezionata previa conferma (c-cancella).
S-F4: amministrazione griglia (GRIDADMN).

Dettaglio riga (`a-riga-dettaglio`)¶

Quando si entra nel dettaglio: - Accept codice (a-tm-cod o a-tm-cod-t): tramite U35 per commesse, tramite G32 per tecnici. - Accept descrizione. - Alla conferma, il record viene aggiornato in tab-maschera e la griglia viene ricostruita.

Cancellazione (`c-cancella`)¶

Verifica abilitazione, richiede conferma, poi rimuove l'elemento dall'array e compatta.

Aggiornamento (`aggiorna`)¶

Scrive i record modificati sulla tabella di riferimento.

Sottoprogrammi chiamati¶

Programma	Scopo
COGS60	Selezione valore da lista (tipo entita')
U35 (via utilu35w.cpy)	Accept/ricerca codice commessa/tecnico
G32 (via utilg32.cpy)	Accept/ricerca codice
GRIDADMN	Gestione griglia avanzata
RNEWCONF	Configurazioni (tipo numerazione)

File utilizzati¶

File	Copybook	Accesso	Utilizzo
FEURTAB	cogfiles.cpy	Random	Tabella file generali
File da cogg60.select	cogg60.fd	Dynamic	Tabella raccordo tecnici/commesse

Copybook principali¶

Copybook	Descrizione
cogg60.select	SELECT dei file
cogg60.fd	File Description
cogg60.wrk	Working storage generata
cogg60.prc	Procedure generate da Screens
cogg60.decla	Declaratives
cogg60-01.scr	Screen section
wgrid.cpy	Variabili gestione griglia
utilgdad.cpy	Interfaccia GRIDADMN
utilncnf.cpy	Configurazioni RNEWCONF
utilu35w.cpy	Interfaccia U35 (ricerca commesse)
utilw52.cpy	Utility
utilg32.cpy	Interfaccia G32 (ricerca codice, linkage)
utilg60.cpy	Interfaccia per richiamo called (linkage)
wcont.cpy, wcont1.cpy	Linkage standard

Linkage¶

Tramite utilg60.cpy, quando richiamato come called:

Campo	Descrizione
g60-called	Flag "COGG60-CALLED"
g60-tsc-cod	Codice commessa/tecnico da precompilare
g60-rif	Riferimento (tipo + codice)
g60-tipo-vis	"S" = selezione, altro = aggiornamento

In modalita' selezione, Invio sulla griglia restituisce il codice selezionato in g60-tsc-cod o g60-rif (a seconda del tipo).

Note tecniche¶

La configurazione (x99-confi) determina il tipo di numerazione per commesse (tm-cfg-tip-num-tsc) e sottocommesse (tm-cfg-tip-num-sot): numerico o alfanumerico.
Il flag fl-called viene impostato a "S" quando il programma e' richiamato come called; in questo caso l'uscita con F3 dopo aggiornamento torna direttamente al chiamante.
La griglia supporta max 500 elementi (k-max-ele-tab = 500).
I campi codice (tm-cod) hanno un redefines numerico (tm-cod-t, tm-cod-num) per supportare entrambi i formati.