COGX22 - Elenco A.C.I. Veicoli Venduti o Radiati

Scopo

Genera l'elenco quadrimestrale dei veicoli usciti (venduti o radiati), nel formato richiesto dal Pubblico Registro Automobilistico. Speculare a COGX21 per il lato vendite. Produce stampa cartacea ed esportazione su dischetto (A:\SOSPTAC0).

Posizioni menu

• Magazzino > Gestione Veicoli > Elenchi A.C.I. > Veicoli Venduti o Radiati

File e Tabelle

File	Copybook	Utilizzo
FEURTAB	cogfiles.cpy	Tabella file di sistema
cogx22.select	(generato da Screens)	SELECT dei file specifici
cogx22.fd	(generato da Screens)	FD dei file specifici
BCMOVIM	bcmovim.cpy	Movimenti veicoli
BCVEICOL	bcveicol.cpy	Anagrafica veicoli (categoria, kW)
BCCONTRA	bccontra.cpy	Contratti vendita veicoli
COGTABEL	(da cogx22.fd)	Configurazione (tipo 70 / chiave COGX21 e COGX22)
COGRACMT	(da cogx22.fd)	Raccolta mezzi di trasporto (per targa)
COGGEANA	(da cogx22.fd)	Anagrafica generale (acquirenti, notai)
COGCNDCF	(da cogx22.fd)	Condizioni cliente/fornitore (luogo di nascita)
COGTRANS	(definito inline)	File di lavoro temporaneo
WORK-FILE	(definito inline)	File di esportazione SOSPTAC0 su A:
FLSTA	flsta.cpy	File stampante

Copybook

Working storage

• cogx22.wrk (generato da Screens)
• wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
• utillogo.cpy, utils52.cpy, utils54.cpy, utilu10.cpy

Linkage

• wcont.cpy, wcont1.cpy

Procedure

• Standard (grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy)
• cogx22.prc, getdcont.cpy, openpers.cpy
• Chiavi: cogracmt.k02, bcmovim.k01, bcveicol.k01, bccontra.k01, cogtrans.k01

CALL

Programma	Scopo
COGS52	Input data con calendario
COGS54	Gestione stampante
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, tm-quadrim (1/2/3): determinano tm-data-da / tm-data-a.
• tm-data-e: data elaborazione (obbligatoria al passo successivo).

Configurazione (paragrafo x99-src-cfg)

Stessa logica di COGX21: legge da COGTABEL tipo 70 chiavi "COGX21" e "COGX22" per recuperare intestazione e codice fiscale azienda.

Selezione movimenti (paragrafo tratta-trs)

Scorre BCMOVIM scartando i movimenti che: - hanno bcm-data-usc-rep = 0 o bcm-num-usc-rep vuoto - hanno bcm-data-usc-rep fuori intervallo quadrimestre - non sono di tipo registro "A"

Per ogni movimento valido recupera la targa (COGRACMT tipo "TA") e scrive su COGTRANS.

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

Per ogni record COGTRANS: - legge dettaglio veicolo da BCVEICOL (categoria, kW) - se bcm-acquirente = 0 cerca l'acquirente sul contratto (BCCONTRA, paragrafo rd-bccontra) - legge anagrafica acquirente da COGGEANA e luogo di nascita/data da COGCNDCF (chiave tipo "C", cond "NA") - legge anagrafica notaio da COGGEANA (bcm-not-usc) - stampa multi-riga: dettaglio veicolo + "Nato a..." + "Residenza ..." + indirizzo + linea separatrice "_"

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

Stesso tracciato di COGX21: testata wt-rec (tipo 0) con dati azienda, righe wd-rec (tipo 3) per ogni veicolo con targa, categoria, date sostituzione/vendita, codice fiscale acquirente, provincia residenza, codice fiscale notaio, numero atto.

Note tecniche

• GUI (screen section con cogx22-01.scr)
• Path file di lavoro COGTRANS: ext-tmp-dir/#COGX22.<operatore>
• Path file esportazione: hardcoded A:\SOSPTAC0
• I blocchi commentati ska-stato = "F" or "G" indicano una vecchia gestione demolizioni non attualmente attiva