Vai al contenuto

COGK30 - Stampa A.C.I. Veicoli Venduti o Radiati

Sorgente: cbl/cogk30.cbl | Program-ID: COGK30 | Tipo: Stampa quadrimestrale + generazione file di trasferimento

Menu: Magazzino > Autoveicoli > Elenchi A.C.I. > Veicoli Venduti o Radiati

Scopo

Produce il tabulato A.C.I. dei veicoli venduti o radiati nel quadrimestre indicato e genera in parallelo il file di trasferimento sosptac0.<azienda> con i dati acquirente per i veicoli ceduti. Variante "in uscita" di COGK29, che gestisce invece gli ingressi.

Programma legacy in modalita' carattere, autore Mauro Rovatti.

File e tabelle

File/Tabella Tipo Modalita' Descrizione
FEURTAB ISAM Input Parametri generali azienda
COGTABEL ISAM Input Tabelle generali
COGGEANA ISAM Input Anagrafica clienti/fornitori (acquirente, notaio)
COGMERCI ISAM Input Anagrafica merci
COGMERFO ISAM Input Codici fornitore per merce (targa)
COGRACMC ISAM Input Raccordo merce/CMA
COGSKAUT ISAM Input Scheda autoveicoli (file principale)
COGCNDCF ISAM Input Condizioni cliente/fornitore (rispetto a K29 e' file aggiuntivo)
COGTRANS ISAM (temp.) I-O File di transito per riordinare le auto per targa
WORK-FILE Line seq. Output File sosptac0.<azienda> di trasferimento ACI
FLSTA (logo) I-O File per gestione logo aziendale

Copybook utilizzate

Identiche a COGK29 con in piu' cogcndcf.cpy:

Copybook Descrizione
cogfiles.cpy, cogtabel.cpy, coggeana.cpy, cogmerci.cpy, cogmerfo.cpy, cogracmc.cpy, cogskaut.cpy, cogcndcf.cpy Record dei file letti
flsta.fd / flsta.cpy Logo stampante
wstato, wgrave, wopenf, wnscr, cogazien Working storage standard
utils22, utils52, utils54, utils60, utils65 Utility
l-copiaf.cpy, u-copiaf.cpy, utillogo.cpy Linkage per COPIAF/PUTLOGO
wcont, utilsk10, wcont1 Linkage standard
stato, stato1, winmsg, grave, open1, mmmask Infrastruttura standard

Logica di elaborazione

Stessa struttura di COGK29:

  1. Maschera richiesta date quadrimestre via COGS52, data elaborazione, selezione stampante via COGS54.
  2. Fase di transito (fill-trs): scorre cogskaut, filtra per data uscita nel periodo e popola cogtrans riordinato per targa.
  3. Fase elaborazione (fill-file): legge cogtrans ordinato e stampa il dettaglio. Le colonne (vedi dida-0/dida-1 e det-riga) riportano: progressivo, categoria, targa+telaio, kw, data acquisizione, nominativo acquirente con luogo di nascita/residenza, notaio e repertorio, data atto.
  4. Stampa con comandi PCL e logo (testa6, testa7, dida-0, dida-1).
  5. Work-file sosptac0: generato nella tmp-dir server e copiato su c:\Elenco-ACI\ del client tramite COPIAF.

Chiamate a sottoprogrammi

Programma Utilizzo
COGS52 Selezione date (F8 calendario)
COGS54 Selezione stampante
PUTLOGO Stampa logo aziendale
COPIAF Copia del file di trasferimento dal server al client

Note implementative

  • Source format RMCobol legacy con GO TO e PERFORM ... THRU (stesso stile di COGK29).
  • Rispetto a COGK29: stampa per "ceduti" (tm-data-v come data vendita), include il file COGCNDCF (condizioni) e ha una larghezza di stampa diversa (k-chr-stampa = 120 invece di 110) per accogliere le 40 colonne dei dati anagrafici dell'acquirente.
  • Maschera piu' semplice di COGK29: niente importi/conto corrente/quietanza — l'elenco "uscite" non richiede dati di versamento.
  • File cogtrans per-operatore (<tmp-dir>/#$cogk30.<oper>).
  • Per condividere logica con COGK29 sarebbe opportuno valutare un refactoring (utility unica con flag entrata/uscita) — non richiesto al momento.