COGX21 - Elenco A.C.I. Veicoli Acquisiti per la Rivendita

Scopo

Genera l'elenco quadrimestrale dei veicoli acquisiti per la rivendita, nel formato richiesto dal Pubblico Registro Automobilistico. Produce sia la stampa cartacea sia un file di esportazione su dischetto (path fisso A:\SOSPTAC0).

Posizioni menu

• Magazzino > Gestione Veicoli > Elenchi A.C.I. > Veicoli Acquisiti x Rivendita

File e Tabelle

File	Copybook	Utilizzo
FEURTAB	cogfiles.cpy	Tabella file di sistema
cogx21.select	(generato da Screens)	SELECT dei file specifici
cogx21.fd	(generato da Screens)	FD dei file specifici
BCMOVIM	bcmovim.cpy	Movimenti veicoli (acquisti/vendite)
BCVEICOL	bcveicol.cpy	Anagrafica veicoli (categoria, kW)
COGTABEL	(da cogx21.fd)	Tabella configurazioni (tipo 70 / chiave COGX21 e COGX22)
COGRACMT	(da cogx21.fd)	Raccolta mezzi di trasporto (per targa)
COGGEANA	(da cogx21.fd)	Anagrafica generale (fornitori, notai)
COGFATTU	(da cogx21.fd)	Fatture (per estremi atto alternativi)
COGTRANS	(definito inline)	File di lavoro temporaneo (record selezionati)
WORK-FILE	(definito inline)	File di esportazione SOSPTAC0 su A:
FLSTA	flsta.cpy	File stampante

Copybook

Working storage

• cogx21.wrk (generato da Screens), k-u10.cpy
• wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
• utillogo.cpy, utils52.cpy, utils54.cpy, utilu10.cpy

Linkage

• wcont.cpy, wcont1.cpy

Procedure

• grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy
• cogx21.prc, getdcont.cpy, openpers.cpy
• Chiavi: cogracmt.k02, bcmovim.k01, bcveicol.k01, cogtrans.k01

CALL

Programma	Scopo
COGS52	Input data con calendario
COGS54	Gestione stampante
COGU10W	Conversione divisa (importi)
COGX23	Configurazione anagrafica/intestazione (F1)
PUTLOGO	Stampa logo aziendale in testata

Parametri di chiamata (linkage)

Nessun parametro specifico oltre alle stringhe standard.

Logica di elaborazione

Filtri iniziali

• tm-anno: anno di riferimento
• tm-quadrim: 1 (gen-apr), 2 (mag-ago), 3 (set-dic)

Da quadrimestre + anno il programma calcola tm-data-da / tm-data-a.

Parametri di stampa

• tm-prezzo (precompilato 3000/1936,27 = euro da 3.000 lire), tm-cc2, tm-bb2, tm-data-v, tm-data-e

Configurazione (paragrafo x99-src-cfg)

Legge da COGTABEL due record di configurazione: - tipo 70, arg "PROG", chiave "COGX21": nome, provincia, conto corrente - tipo 70, arg "PROG", chiave "COGX22": comune, codice fiscale

Se mancano, segnala "Manca configurazione per stampa".

Selezione movimenti (paragrafo tratta-trs)

Scorre BCMOVIM in sequenza primaria, scartando i movimenti che: - hanno bcm-data-ent-rep = 0 (data registrazione nulla) - hanno data fuori intervallo del quadrimestre - non sono di tipo registro "A" (acquisti) - hanno flag esenzione bollo bcm-bol-esenzione = "S" - sono gia' stati elaborati per altro anno/quadrimestre (bcm-ese-anno/quad)

Per ogni movimento valido legge la targa associata (in COGRACMT con tipo "TA") e scrive in COGTRANS ordinato per targa+progressivo.

Stampa (paragrafo fill-file con w-fase = "S")

Per ogni record COGTRANS: - legge il dettaglio veicolo da BCVEICOL (categoria, kW) - estrae la data di acquisizione da bcm-data-ent, il notaio da COGGEANA (bcm-not-ent), il repertorio o gli estremi della fattura (bcm-num-ent-rep o bcm-fat-ent-num) - compone una riga di stampa larga 152 caratteri con: progressivo, categoria, targa, kW, data acquisizione, notaio, luogo, numero atto e data - marca il movimento con bcm-ese = "S", bcm-ese-anno, bcm-ese-quad

Esportazione su dischetto (paragrafo fill-file con w-fase = "F")

Apre il file A:\SOSPTAC0 (paragrafo opn-fil-work) e scrive: - un record di intestazione wt-rec (tipo 0): nome, provincia, comune, codice fiscale, numero veicoli, importo, conto corrente, quietanza, date - un record di dettaglio wd-rec (tipo 3) per ogni veicolo: targa, categoria, data sostituzione, data vendita, codice fiscale intestatario, provincia residenza, codice fiscale notaio, numero atto

Se l'intestatario sul movimento e' compilato (bcm-intestatario) usa codice fiscale e provincia dell'intestatario, altrimenti del fornitore (bcm-for).

Note tecniche

• GUI (screen section con cogx21-01.scr)
• Path file di lavoro COGTRANS: ext-tmp-dir/#COGX21.<operatore>
• Path file esportazione: hardcoded A:\SOSPTAC0
• La cumulativa annuale dei veicoli elaborati e' contata in tm-n-auto ed usata anche per il calcolo dell'importo totale (tm-importo = tm-prezzo * tm-n-auto)