Centro Revisioni — Gestione revisioni veicoli¶
Area funzionale: Vendite / Centro Revisioni Programmi documentati: 6 | Righe totali analizzate: 8.210
Indice¶
- Tabelle
- Gestione operativa
- Stampe e estrazioni
- Flusso integrato
- File principali
- Tabella riepilogativa
1. Tabelle¶
COGK32 — Anagrafica prestazioni¶
File: /programmi/eurocoge/cbl/cogk32.cbl (1.553 righe)
Gestione anagrafica prestazioni del Centro Revisioni. Le prestazioni sono codificate come merci in COGMERCI (gruppo+sottogruppo, cod=0, UM="NR"), con storico prezzi (listino) per data su COGLISNW.
Dati: Codice prestazione (4 cifre: gruppo 2 + sottogruppo 2), descrizione 1 e 2 (COGDESAG), articolo esenzione IVA. Griglia listino prezzi: data + prezzo.
Operazioni: F3=aggiorna (cancella e riscrive COGMERCI + COGDESAG + COGLISNW), F4=cancella. Gestisce indice DAM (COGS37B) se configurato.
File: COGMERCI (mer-), COGDESAG (dag-), COGLISNW (lnw-), COGTABEL (euta- tipo 67/69/70). CALL: COGE69, WINK32, COGS37B, GRIDADMN, COGU10W, COGS52.
COGK34 — Contratti revisioni (bonus omaggio)¶
File: /programmi/eurocoge/cbl/cogk34.cbl (1.070 righe)
Associa ai clienti officina (codice < 1000) un numero di revisioni omaggio. Scorre COGGEANA tipo "C" con codice <= 999, legge COGAPPOG per il campo app-n-rev-omaggio.
Logica: Griglia con clienti che hanno contratto (n-rev-omaggio > 0). Ctrl-A=aggiungi, Invio=modifica numero, Ctrl-E=elimina. F3: azzera tutti → riscrive valori aggiornati su COGAPPOG.
File: COGGEANA (ana-), COGAPPOG (app-). CALL: COGS65W, COGU10W, GRIDADMN.
2. Gestione operativa¶
COGK38 — Inserimento ricevute¶
File: /programmi/eurocoge/cbl/cogk38.cbl (2.520 righe)
Programma centrale: inserimento ricevute/fatture del Centro Revisioni. Flusso completo dall'identificazione cliente alla generazione bolla e documento fiscale.
Logica: 1. Intestatario: Codice cliente o nome. F5=nuova anagrafica, F7=ricerca per targa. Distingue "Officina" (cod < 1000 o tipo "OF") da "Proprietario" 2. Proprietario: Se intestatario e' officina, richiede dati proprietario mezzo 3. Documento: Data, tipo (Ricevuta+Fattura / Fattura Immediata / Ricevuta Fiscale), targa (obbligatoria). Se bonus raggiunto: scelta "Da Fatturare"/"Omaggio" 4. Prestazioni: Griglia fino a 100 righe: codice prestazione (COGMERCI), descrizione, importo IVA inclusa (da listino COGS01), codice IVA, esenzione 5. Aggiornamento: - Se cliente nuovo: inserisce in COGGEANA + aggiorna indici (COGS43/COGS44) - Numero bolla progressivo (COGS25) - WRITE COGTESBO (testata bolla), COGMOMAG (righe con scorporo IVA), COGDESAG (descrizioni) - WRITE COGREVIS (archivio revisioni: documento, anagrafica, data, targa, flag omaggio) - Se omaggio: marca revisioni precedenti come "C" (contabilizzate) in COGREVIS 6. Fatturazione: CALL COGK38A (genera fattura) + COGP41 (stampa)
Ricerca per targa: Cerca in COGREVIS (chiave 3). In alternativa, lancia importcli.exe (interroga MCTC) o legge direttamente file .rev per dati anagrafici da targa.
File: COGTABEL (euta- tipo 67/70), COGMERCI (mer-), COGGEANA (ana-), COGTESBO (tes-), COGMOMAG (mag-), COGAPPOG (app-), COGDESAG (dag-), COGREVIS (rvi-). CALL: COGS25, COGS52, COGS60, COGS01, COGE05, COGS43, COGS44, COGK38A, COGP41, COGU10, WINK32, WINK06, WINK11.
3. Stampe e estrazioni¶
COGK39 — Ricevute non pagate¶
File: /programmi/eurocoge/cbl/cogk39.cbl (1.221 righe)
Elenco ricevute fiscali (tipo "CO" = corrispettivi) non ancora pagate, filtrate per anno. Scorre COGFATTU, seleziona fat-non-pag > 0. F5=azzera importo non pagato (REWRITE COGFATTU), F8=dettaglio fattura (WINK19), F9=stampa.
File: COGFATTU (fat-), COGGEANA (ana-), COGTRANS (trs-), FLSTA. CALL: WINK19, COGS54, COGU10W, GRIDADMN.
COGK40 — Estrazione conti correnti / scadenzario¶
File: /programmi/eurocoge/cbl/cogk40.cbl (505 righe)
Estrazione su file CSV (separatore ";") dei dati revisioni per intervallo date. Produce CC<AAMMGG>.TXT (conti correnti) o SCAD<MMGG>.TXT (scadenzario) in base al parametro (wo-parametro(1:1) = "C" o "S").
Logica: Scorre COGREVIS per data (chiave 4). Per ogni revisione, determina anagrafica (proprietario se presente, altrimenti intestatario). Output: targa, nome, indirizzo, CAP, localita', provincia.
File: COGREVIS (rvi-), COGGEANA (ana-).
COGK42 — Visualizzazione storico revisioni¶
File: /programmi/eurocoge/cbl/cogk42.cbl (1.341 righe)
Consultazione e stampa storico revisioni con filtri per date, targa e/o cliente. Per ogni revisione calcola valore economico sommando righe COGMOMAG del documento associato.
Logica: Scorre COGREVIS per data (chiave 4), applica filtri, legge COGGEANA per intestatario e proprietario, calcola totale documento da COGMOMAG. Griglia: targa, data, cliente, proprietario. F9=stampa.
File: COGREVIS (rvi-), COGGEANA (ana-), COGMOMAG (mag-), COGTRANS (trs-), FLSTA. CALL: COGS65W, COGS54, COGU10W, GRIDADMN.
4. Flusso integrato¶
CONFIGURAZIONE:
├── COGK32 (anagrafica prestazioni → COGMERCI + COGLISNW)
└── COGK34 (contratti omaggio → COGAPPOG.app-n-rev-omaggio)
INSERIMENTO:
└── COGK38 (programma centrale)
├── Legge prestazioni da COGMERCI (COGK32)
├── Legge bonus omaggio da COGAPPOG (COGK34)
├── → WRITE COGTESBO (testata bolla)
├── → WRITE COGMOMAG (righe bolla)
├── → WRITE COGREVIS (archivio revisioni)
├── → CALL COGK38A (genera fattura)
└── → CALL COGP41 (stampa documento)
CONTROLLO:
├── COGK39 (ricevute non pagate)
│ └── Legge COGFATTU (generato da COGK38A)
├── COGK42 (storico revisioni)
│ └── Legge COGREVIS (scritto da COGK38)
└── COGK40 (estrazione CSV)
└── Legge COGREVIS → file TXT
5. File principali¶
| File | Prefisso | Descrizione |
|---|---|---|
| COGREVIS | rvi- | Archivio revisioni (documento, intestatario, proprietario, data, targa, flag omaggio) |
| COGLISNW | lnw- | Listini nuovi (prezzi prestazioni per data) |
Chiavi COGREVIS:
- Chiave 1: documento (mag+anno+tipo+numero)
- Chiave 2: anagrafica + flag omaggio (per conteggio/gestione)
- Chiave 3: targa + data (ricerca per targa)
- Chiave 4: data (estrazione per periodo)
Gestione omaggio: COGK34 definisce il contratto (quante revisioni per bonus), COGK38 conta le revisioni eseguite e applica l'omaggio, rvi-fl-oma traccia lo stato ("O"=omaggio, "C"=contabilizzato).
6. Tabella riepilogativa¶
| # | Programma | Righe | Tipo | Funzione |
|---|---|---|---|---|
| 1 | COGK32 | 1.553 | Tabella | Anagrafica prestazioni (+ listino prezzi) |
| 2 | COGK34 | 1.070 | Tabella | Contratti revisioni (bonus omaggio) |
| 3 | COGK38 | 2.520 | Operativo | Inserimento ricevute (programma centrale) |
| 4 | COGK39 | 1.221 | Inquiry | Ricevute non pagate |
| 5 | COGK40 | 505 | Batch | Estrazione conti correnti / scadenzario CSV |
| 6 | COGK42 | 1.341 | Inquiry | Visualizzazione storico revisioni |
| TOTALE | 8.210 |