COGG54 - Visualizzazione Documenti Commesse
| Campo |
Valore |
| Sorgente |
cbl/cogg54.cbl |
| Tipo |
Interattivo (griglia paginata) |
| Richiamato da |
Menu / Chiamata da altri programmi |
Descrizione
Programma di visualizzazione dei documenti associati alle commesse. Cerca i documenti tramite la tabella indice COGKYDMR, li filtra per commessa, stato e tipo documento, e li presenta in una griglia paginata. Permette la selezione di documenti per operazioni di gestione, stampa singola/gruppo e generazione DDT.
Utilizza un file di transito TRAN-U37 per memorizzare temporaneamente i documenti estratti con le relative selezioni.
File e tabelle
| File/Tabella |
Modalita' |
Descrizione |
| FEURTAB |
I-O |
File aziendale parametri |
| TRAN-U37 |
I-O |
File di transito documenti estratti |
| COGKYDMR |
Input |
Indice documenti per commessa (chiave 7) |
| COGTESCM |
Input |
Testate commesse |
| COGDMTES |
Input |
Testate documenti |
| COGGENER |
Input |
Tabella generica (tipo "TT" per raccordi) |
Copybook principali
| Copybook |
Sezione |
Descrizione |
cogg54.select |
FILE-CONTROL |
Select dei file specifici |
cogg54.fd |
FILE SECTION |
FD dei file specifici |
cogg54.wrk |
WORKING-STORAGE |
Variabili generate da Screens |
cogg54-01.scr |
SCREEN SECTION |
Definizione maschera |
cogg54.decla |
PROCEDURE |
Declaratives (include tran-u37) |
tran-u37.cpy |
FILE SECTION |
Struttura record file transito |
capazien.cpy |
WORKING-STORAGE |
Dati azienda |
utilg55.cpy |
WORKING-STORAGE |
Utility COGG55 |
utilu35w.cpy |
WORKING-STORAGE |
Utility COGU35W (accept commesse) |
utilu37.cpy |
WORKING-STORAGE |
Utility COGU37 |
utilncnf.cpy |
WORKING-STORAGE |
Utility RNEWCONF |
utils52.cpy |
WORKING-STORAGE |
Utility date |
utilw117.cpy |
WORKING-STORAGE |
Utility WIN117 |
wgrid.cpy |
WORKING-STORAGE |
Supporto griglie |
utilgdad.cpy |
WORKING-STORAGE |
Utility GRIDADMN |
Logica di elaborazione
Inizializzazione
- Verifica abilitazione, apertura file, lettura dati azienda
- Configura tasti funzione: Invio, F1 (configura), F3 (conferma/gestione), F5 (genera doc), F7 (stampa gruppo), F8 (dettaglio/calendario), F9 (stampa), Shift+F4/F5
- Lettura configurazioni (
x99-confi)
- Pulsante custom F7 "Stampa gruppo"
Accept filtri (a-tm-tsc, a-tm-stato, a-tm-tip-doc)
- Commessa: accept tramite subroutine COGU35W, con supporto commessa vuota (= tutte)
- Stato: filtro per stato commessa (T = Tutte)
- Tipo documento: filtro per tipo (T = Tutti)
Caricamento dati (carica-dati)
- Apre il file di transito TRAN-U37 in output esclusivo (lock per operatore)
- Scorre COGKYDMR con chiave 7 (
st-cogkydmr-notmin-chia7) filtrata per commessa
- Per ogni record di indice:
- Verifica se gia' presente su TRAN-U37 (evita duplicati)
- Legge COGTESCM per controllare lo stato della commessa
- Filtra solo documenti di tipo "P" (Preventivo/Progetto)
- Legge COGDMTES per i dati testata
- Cerca raccordi su COGGENER tipo "TT" per determinare se il documento e' "A" (aperto) o "C" (confermato)
- Scrive il record su TRAN-U37
Gestione griglia (a-grid)
Griglia paginata con navigazione PgUp/PgDn:
- Invio: toggle selezione documento (campo "Sel")
- F3: lancia gestione documento tramite COGG55
- F5: genera DDT dai documenti selezionati (lancia-crea-ddt)
- F7: stampa gruppo documenti selezionati
- F8: lancia WIN117 per dettaglio/informazioni
- F9: stampa singolo documento
Gestione documento (lancia-gestione)
- Verifica che il documento sia in stato "A" (aperto), altrimenti blocca
- Chiama COGG55 con parametri:
g55-caller = "COGG54", g55-doc-testa
- Al ritorno verifica se il documento e' stato cancellato o modificato
Chiamate a sottoprogrammi
| Programma |
Funzione |
| COGG55 |
Gestione completa documento commessa |
| COGU35W |
Accept e validazione codice commessa |
| COGU37 |
Utility commesse |
| GRIDADMN |
Gestione griglia (configurazione, modify record, export) |
| RNEWCONF |
Lettura configurazioni |