COGK10 - Gestione Scheda Autoveicolo¶
Descrizione¶
Programma di gestione anagrafica autoveicoli (modulo "Emporio dell'Auto"). Gestisce il ciclo di vita completo di ogni veicolo: acquisizione, eventuali passaggi a rivenditori, vendita al cliente finale, chiusura pratica. La scheda principale è memorizzata su COGSKAUT; i dati anagrafici dei soggetti collegati (fornitore, rivenditore, acquirente) sono letti da COGGEANA/COGMERFO.
Il programma supporta due modalità di accesso: standalone (da menu) e chiamato (sk10-called = "CALLED") con passaggio diretto della targa da visualizzare.
Tabelle utilizzate¶
| Tabella | Accesso | Descrizione |
|---|---|---|
| COGSKAUT | Read/Write/Rewrite/Delete | Scheda autoveicolo — tabella principale |
| COGMERCI | Read | Anagrafica articoli (codice merce veicolo) |
| COGGEANA | Read | Anagrafica generale soggetti (clienti/fornitori/rivenditori) |
| COGMERAP | Read | Prezzi articoli |
| COGMERFO | Read | Fornitori per articolo |
| COGCNDCF | Read | Condizioni commerciali clienti/fornitori |
| COGRACMC | Read | Raggruppamento merci per cliente |
| COGLISNW | Read | Lista nuova (supporto ricerca) |
| COGDESAG | Read | Descrizioni aggiuntive soggetti |
| COGTABEL (tipo 67) | Read | Aliquote IVA |
| COGTABEL (tipo 69) | Read | Articoli di esenzione |
| FEURTAB | Read | Tabella file di sistema |
| FLSTA | Read/Write | File stato (lock/flag elaborazione) |
Struttura dati principali (COGSKAUT)¶
La scheda è strutturata con:
- Identificativi: codice merce (gruppo/sottogruppo/codice), targa, numero telaio
- Dati tecnici: categoria, anno/mese immatricolazione, KW, colore, stato libretto
- Stato veicolo: codice (A/B/C/D/E/F/G/R/T/V) + descrizione
- Entrata: fornitore (ska-for), flag nuovo/usato, flag OkCdP, data e documento entrata, dati fattura fornitore, codice IVA, articolo esenzione, riferimento bolla entrata (magazzino/anno/tipo/numero)
- Uscita rivenditore: codice rivenditore (ska-riv), data cessione, riferimento DDT uscita
- Uscita cliente: codice acquirente (ska-cli), prezzo vendita, data vendita, riferimento fattura di vendita, data fattura
- Chiusura pratica: numero protocollo, numero progressivo, data ricezione passaggio, data chiusura
- Campi liberi: campo-a, campo-b, campo-c, campo-d, campo-e (16 char ciascuno per uso custom)
- Privato venditore: ska-priv-vende (codice anagrafica privato che vende)
Flusso di elaborazione¶
Avvio e ricerca (screen-0 / a4)¶
- Lettura configurazione (x99-confi):
tm-cfg-magaz,tm-cfg-iva,tm-cfg-art— valori default per IVA e articolo esenzione. - Presentazione menu scelta: F5=Inserimento nuovo, F9=Ricerca/Visualizzazione.
Inserimento nuovo veicolo (acce-inse)¶
Sequenza di accept campo per campo sulla maschera mm-1:
- a-30: Descrizione veicolo (obbligatoria)
- a-31: Categoria
- a-32/a-33: Anno/mese immatricolazione
- a-34: KW
- a-35: Colore
- a-36: Libretto (S/N/F — selezione con COGS21)
- a-40: Concessionario/fornitore (chiamata COGS65 per lookup anagrafica fornitori, tipo "F")
- a-50 area: Dati entrata (data, numero documento, prezzo acquisto)
- a-80: Data fattura fornitore (COGS52 per input data)
- a-75: Numero fattura fornitore
- a-75a: Codice IVA (verifica su COGTABEL tipo 67)
- A75-B: Articolo esenzione (verifica su COGTABEL tipo 69, aiuto F8 tramite COGW12)
- a-1000: Rivenditore (COGS65, tipo "F", opzionale)
- a-1010: Data cessione a rivenditore (COGS52)
- a-1012/a-1013/a-1015: Riferimento DDT uscita (magazzino/anno/tipo/numero bolla)
- a-2000 area: Dati acquirente finale (COGS65, tipo "C")
- Dati prezzo vendita, data vendita, riferimento fattura vendita
Visualizzazione e modifica (a5 / a6)¶
- Caricamento scheda da COGSKAUT (
a1-carica). - Display scheda completa con stato e dati storici.
- Da a6: loop su F1 (storia — legge record successivo con
rdnxt-cogskaut), F3 (variazione →a-900-var), F4 (cancella →cancella), F5 (modifica stato →modifica-altri-dati), F6 (note →send-scr-14), F7 (stampa →st-stampa), F9 (anagrafica →dati-anag).
Modifica stato veicolo (modifica-altri-dati)¶
Aggiorna ska-stato con i valori della tabella w60-dati (10 voci A/B/C/D/E/F/G/R/T/V).
Dati ACI (dati-aci)¶
Finestra screen-6 con: atto di acquisto (numero, data, notaio, luogo), OK Carta di Proprietà, atto di vendita, atto PRA, precedente proprietario (entrata/uscita).
Modifica telaio/targa (modif-telaio)¶
Finestra screen-7 per correzione numero telaio e targa senza ricreare la scheda.
Cancellazione (cancella)¶
Doppia conferma, poi del-cogskaut. Aggiorna COGLISNW e strutture collegate.
Note implementative¶
- La maschera principale
mm-1è definita inline nel WS (24 righe x 80 col), non tramite Screen Designer. - La ricerca veicolo (
search-auto) usa COGS05/COGS22/COGS25 per lookup per targa o per articolo. - Il campo
w-psv-key(valore"16°04°66") è utilizzato come chiave di cifratura per la gestione di un campo riservato. - La chiamata COGS65 gestisce la lookup anagrafica con distinzione tipo "F" (fornitore) e tipo "C" (cliente).
- I campi
tm-campo-a...tm-campo-esono editabili tramite popupwin-campo(finestra a 16 caratteri) attivata da funzio=11/12/14. - Quando
funzio=12(campo-e), il programma ricalcola automaticamente il delta rispetto al valore precedente e lo propaga sutm-campo-aetm-campo-d. - Il programma gestisce la chiamata da esterno (sk10-called = "CALLED") leggendo
sk10-targadalla linkage sectionutilsk10.CPYper aprire direttamente la scheda del veicolo indicato. - Conversione importi: utilizza COGU10W (k-u10-display, k-u10-cambio) per visualizzazione e arrotondamento prezzi nella divisa del conto.