COGU70 - Tipi Preventivo / Commessa¶
Sorgente: cbl/cogu70.cbl | Program-ID: COGU70 | Tipo: Programma interattivo (maschera con griglia)
Menu: Vendite > Preventivi > Tabelle; Vendite > Commesse > Tabelle
Scopo¶
Gestione tabella dei tipi commessa/preventivo (COGTABEL, tipo A1). Consente inserimento, modifica ed eliminazione di tipologie. Supporta la modalita' "chiamato" (richiamato da altro programma per la selezione di un tipo): in questo caso F3 restituisce il codice e la descrizione selezionati al chiamante tramite utilu70.cpy.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| COGTABEL | ISAM | I-O | Tabella generale codifiche; filtrata su euta-tipo-x = "A1" per i tipi commessa |
| FEURTAB | ISAM | Input | Tabella features/abilitazioni utente |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
cogu70.select |
Definizioni SELECT dei file |
cogu70.fd |
FD dei file |
cogu70.wrk |
Working storage specifica |
cogu70.prc |
Procedure di I/O sui file |
cogu70-01.scr |
Schermata principale (Screen Designer) |
wcont.cpy, wcont1.cpy |
Linkage section standard |
utilu70.cpy |
Parametri di chiamata/ritorno per uso come subroutine |
wstato.cpy |
Variabili stato |
wgrave.cpy |
Gestione errori gravi |
wgrid.cpy |
Supporto griglia |
wopenf.cpy |
Apertura file |
wnscr.cpy |
Nomi screen |
cogazien.cpy |
Dati azienda |
utilgdad.cpy |
Utility GRIDADMN |
utilncnf.cpy |
Utility configurazioni RNEWCONF |
stato.cpy, stato1.cpy |
Gestione status file |
winmsg.cpy |
Messaggi a video |
grave.cpy |
Errori gravi |
opengen.cpy |
Apertura generica |
mmmask.cpy |
Init/exit programma standalone |
utilgrid.cpy |
Utility griglia |
cogfiles.cpy |
Record FEURTAB |
Logica di elaborazione¶
All'avvio il programma verifica se e' richiamato (u70-called = k-program-id): se si', si pone in modalita' selezione ("S"), altrimenti in modalita' aggiornamento ("A").
Legge tutti i record COGTABEL con euta-tipo-x = "A1" e li carica in una tabella interna (tab-maschera) fino a un massimo di 100 elementi. La griglia viene popolata tramite GRIDADMN.
Il ciclo principale e' su griglia: - Invio in modalita' A: apre il pannello di dettaglio in modifica - Invio in modalita' S: restituisce il tipo selezionato al chiamante e termina - Ctrl+A: inserimento nuova riga - Ctrl+E: eliminazione riga (con conferma) - F3: in modalita' A richiamato, commuta tra modalita' aggiornamento e selezione - Shift+F4: personalizzazione griglia (GRIDADMN)
Nel dettaglio riga si acquisiscono: codice (1 car.), descrizione (40 car.), flag effetti economici (S/N), flag obbligo CIG (S/N). Il flag obbligo CIG e' visibile solo se la configurazione COMMESSE.CNF / commesse / tracciatura-flussi-finanziari e' attiva.
Al salvataggio: write (inserimento) o rewrite (modifica) su COGTABEL; la chiave e' euta-tipo-x || euta-cod.
Lettura configurazione tracciatura-flussi-finanziari tramite RNEWCONF all'avvio (paragrafo x99-confi).
Chiamate a sottoprogrammi¶
| Programma | Utilizzo |
|---|---|
GRIDADMN |
Gestione griglia (add record, modify record, delete record, personalizzazione) |
RNEWCONF |
Lettura configurazione COMMESSE.CNF, chiave tracciatura-flussi-finanziari |