COSO71 - Definizione di Zona¶
Funzione¶
Gestione della tabella sub-agenzie (zone operative) dell'Unione Agricoltori. Consente di associare a ciascuna zona la data dell'ultimo invio e il conto contabile di addebito. I dati sono memorizzati in COGTABEL con euta-tipo=06, euta-codso1=45.
Menu¶
- Contabilita' > Unione soci/clienti > Archivi & Tabelle > Tabelle > Definizione di Zona
- Contabilita' > Unione soci/clienti > Attivita' in Zona > Definizione di Zona
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| COGTABEL | Tabella generica di sistema | I-O (rd-cogtabel, write/rewrite) |
| FEURTAB | File configurazione | Lettura |
Copybook e sottoprogrammi¶
| Elemento | Tipo | Ruolo |
|---|---|---|
| cogtabel.cpy / cogtabel.fd | Copybook | Record e SELECT tabella generica |
| cogtabel.k01 | Copybook | Accesso per chiave primaria |
| cogfiles.cpy | Copybook | File configurazione |
| cogazien.cpy | Copybook | Dati azienda |
| COSOW2.COB | Sottoprogramma | Consultazione zone (F8) |
| COGS52 | Sottoprogramma | Gestione campo data (calendario) |
| utils52.cpy | Copybook | Utility date |
Struttura record in COGTABEL¶
I dati della zona sono memorizzati in euta-descr1 con il seguente layout (w-descr):
| Campo | PIC | Descrizione |
|---|---|---|
| w-zona | 9(03) | Codice zona |
| w-zona-des | x(40) | Descrizione zona |
| w-data-invio | 9(08) | Data ultimo invio (AAAAMMGG) |
| w-mastro | 9(02) | Mastro conto addebito |
| w-conto | 9(02) | Conto addebito |
| w-sconto | 9(02) | Sottoconto addebito |
Chiave di accesso: euta-tipo=06, euta-codso1=45, euta-codso2=0, euta-codr=0.
La descrizione della zona viene letta da un record separato: euta-tipo=06, euta-codso1=90, euta-codso2=w-zona.
Logica principale¶
- Apertura: apre COGTABEL in I-O, legge il record corrente (tipo=06, codso1=45, codso2=0) per recuperare i dati dell'ultima zona gestita
- Visualizzazione: se la data ultimo invio non e' presente, la inizializza alla data corrente
- Accept codice zona: l'utente inserisce il codice o usa F8 per la consultazione (chiama COSOW2.COB)
- Validazione: verifica che la zona sia codificata in COGTABEL (tipo=06, codso1=90, codso2=zona)
- Accept data e conto: accetta data ultimo invio (tramite COGS52), mastro, conto e sottoconto in sequenza
- Salvataggio: scrive il record in COGTABEL (tipo=06, codso1=45, codso2=0) con write/rewrite (write invalid key -> rewrite per gestire sia inserimento che aggiornamento)
Note¶
- Programma in stile legacy (display/accept su coordinate, senza Screen Designer moderno)
- source-computer e object-computer sono
rmcobol(nonacu-cobolcome i piu' recenti) - La maschera e' disegnata inline con caratteri semigrafici (mm-1)
- Utilizza un unico record COGTABEL (codso2=0) per memorizzare i dati della zona corrente
- Il programma COSOW2.COB (con estensione .COB) fornisce la consultazione zone