COGF85 - Definizione Movimenti Previsionali¶
| Campo | Valore |
|---|---|
| Sorgente | cbl/cogf85.cbl |
| Tipo | Interattivo (griglia con dettaglio) |
| Richiamato da | Menu / Chiamata da altri programmi (modalita' selezione) |
Descrizione¶
Programma di codifica delle tipologie di movimenti previsionali per i rendiconti finanziari. I dati sono memorizzati nella tabella generale COGTABEL con tipo 70 e argomento "CSF3". Ogni movimento previsionale e' caratterizzato da un codice, una descrizione e due raggruppamenti finanziari (entrata e uscita).
Supporta modalita' di selezione (called) tramite la linkage util-f85.
File e tabelle¶
| File/Tabella | Modalita' | Descrizione |
|---|---|---|
| FEURTAB | I-O | File aziendale parametri |
| COGTABEL | I-O | Tabella generale - tipo 70, argomento "CSF3" |
| FLSTA | Output | File di stampa |
Copybook principali¶
| Copybook | Sezione | Descrizione |
|---|---|---|
cogf85.select |
FILE-CONTROL | Select dei file specifici |
cogf85.fd |
FILE SECTION | FD dei file specifici |
cogf85.wrk |
WORKING-STORAGE | Variabili generate da Screens |
cogf85-01.scr |
SCREEN SECTION | Definizione maschera |
cogf85.decla |
PROCEDURE | Declaratives |
flsta.cpy |
FILE SECTION | Struttura file di stampa |
utilf85.cpy |
LINKAGE | Struttura interscambio per modalita' called |
utilf90.cpy |
WORKING-STORAGE | Utility COGF90 (ricerca raggruppamenti) |
utils54.cpy |
WORKING-STORAGE | Utility COGS54 |
wgrid.cpy |
WORKING-STORAGE | Supporto griglie |
utilgdad.cpy |
WORKING-STORAGE | Utility GRIDADMN |
Logica di elaborazione¶
Inizializzazione¶
- Verifica abilitazione, apertura file, lettura dati azienda
- Se chiamato (
f85-called = k-program-id): modalita' Selezione, altrimenti Aggiornamento - Configura tasti funzione: Invio (modifica), F3 (conferma), F9 (stampa), Shift+F4 (griglia), Ctrl+A (aggiungi), Ctrl+E (elimina)
- Se called: aggiunge F3 selezione/modifica
Caricamento dati (a10)¶
- Legge COGTABEL con
st-cogtabel-notminper tipo 70, argomento "CSF3" - Per ogni record: carica codice (
euta-cfg-key) e dati (euta-descr) nelle righe della tab-maschera - Limite massimo: 900 elementi
Struttura record in griglia¶
Ogni riga della tab-maschera contiene:
- tm-cod: codice movimento previsionale (3 car.)
- tm-desc: descrizione (20 car.)
- tm-ragr-d: raggruppamento entrata (3 car.)
- tm-ragr-a: raggruppamento uscita (3 car.)
- tm-fl-ric: flag ricerca
- tm-d-con: descrizione conto
- tm-desc-d / tm-desc-a: descrizioni raggruppamenti
- tm-conto: conto contabile (mastro + conto + sottoconto)
- tm-tipo: tipo
Gestione griglia (a-grid)¶
- Invio (Aggiornamento): apre il dettaglio della riga per modifica
- Invio (Selezione): restituisce codice e descrizione al chiamante tramite
f85-out-cod/f85-out-des - Ctrl+A: inserisce nuova riga, imposta operazione "I"
- Ctrl+E: elimina la riga con conferma, ricompatta la tabella
- F9: lancia stampa
Dettaglio riga (a-riga-dettaglio)¶
Accept sequenziale dei campi:
1. Codice (a-tm-cod): solo in inserimento
2. Descrizione (a-tm-desc)
3. Raggruppamento entrata (a-tm-ragr-d): con F8 per ricerca tramite COGF90 (tipo "E")
4. Raggruppamento uscita (a-tm-ragr-a): con F8 per ricerca tramite COGF90 (tipo "U")
Aggiornamento (a-fine-dettaglio)¶
- Valida i campi del dettaglio
- Aggiorna COGTABEL: lettura con lock, modifica dati, riscrittura
Cancellazione (c-cancella)¶
- Legge il record COGTABEL per tipo 70 / "CSF3" / codice e lo cancella
Stampa (st-stampa)¶
- Genera una stampa dell'elenco movimenti previsionali su FLSTA
- Formato: codice, descrizione, raggruppamento dare con descrizione, raggruppamento avere con descrizione
- Larghezza: 132 caratteri
Chiamate a sottoprogrammi¶
| Programma | Funzione |
|---|---|
| COGF90 | Ricerca raggruppamenti finanziari (tipo "E" entrata, "U" uscita) |
| COGS54 | Utility S54 |
| GRIDADMN | Gestione griglia (configurazione, modify record, export) |