Vai al contenuto

COGP03 -- Tipi Documenti Iva

Sorgente: cbl/cogp03.cbl | Program-ID: COGP03 | Menu: Contabilita' > Archivi & Tabelle > Tabelle > Stampe > Tipi Documenti Iva

Descrizione

Stampa l'elenco dei tipi documento IVA (registri IVA e relativi parametri contabili). I dati sono letti dalla tabella generale COGTABEL (feurtab), tipo 68. Per ogni tipo documento si riportano i parametri di registrazione IVA (segno, dare/avere, conto IVA, totalizzatori T.O., flag corrispettivi/intra/aperture) e, per il codice speciale "CO" (contropartita) o per i tipi con IVA per corrispettivi, i conti di corrispettivo e contropartita. E' una semplice stampa di tabella, senza scelta di ordinamento: l'elenco esce nell'ordine di chiave della tabella generale.

File e tabelle

File/Tabella Accesso Descrizione
FEURTAB (COGTABEL) Indexed, input Tabella generale: tipi documento IVA (tipo 68)
FLSTA Output stampa File di stampa (riga da 132 caratteri)

Sottoprogrammi chiamati

Programma Scopo
COGS54 Gestione output stampa (selezione stampante/anteprima/file). Prima chiamata con s54-chr-stampa = 132, chiusura con s54-after-print = "S"

Logica di elaborazione

  • inizio: inizializzazione maschera, apertura file, lettura dati azienda (rd-azi).
  • a002: chiamata a COGS54 per la selezione della destinazione di stampa (loop finche' non viene premuto F3).
  • a4: legge la data di sistema per l'intestazione, si posiziona su COGTABEL con euta-tipo = 68, euta-codr = 0 (st-cogtabel-notmin). Se non trova record esce con messaggio "NESSUNA DOCUM.".
  • a015 / a040: scorre in avanti la tabella (rdnxt-cogtabel); il ciclo termina a fine file o quando euta-tipo non e' piu' 68.
  • a030: costruisce la riga di dettaglio (rdet1):
  • codice (euta-cod), tipo registro (euta-clifotiva), descrizione (euta-desctiva), segno (euta-segnotiva), dare/avere (euta-ivada);
  • conto IVA (euta-ivamastro/euta-ivaconto/euta-ivasconto);
  • totalizzatori T.O. IVA (euta-ivatoiva), anagrafica (euta-ivatoana), contropartita (euta-ivatocontrop);
  • flag partita (euta-pa) e acquisti/intra (euta-ic);
  • se euta-ic = "S ": riporta il conto IVA per corrispettivi ("C/Iva ND:" con euta-cor-mas/con/sot);
  • se il codice e' "CO": riporta conto corrispettivo (euta-cor-*) e conto contropartita (euta-cnt-*).
  • stampa / intesta: gestione paginazione. L'intestazione riporta ragione sociale azienda, titolo "TIPI DOCUMENTI IVA", data e numero pagina; seguono due righe di testata colonne (rint2 e rint2-b) e una riga di separazione.
  • fine-sta: salto pagina finale e finalizzazione stampa via COGS54.

Note

  • E' un programma di semplice stampa di tabella (nessun filtro di selezione, nessuna scelta di ordinamento).
  • Copybook file/screen: cogp03.select, cogp03.fd, cogp03.wrk, cogp03.decla, cogp03.prc, cogp03-01.scr; struttura tabella generale in cogfiles.cpy, stampa in flsta.fd/flsta.cpy.
  • La testata a due righe distingue le colonne del conto IVA, dei totalizzatori T.O. e dei conti corrispettivo/contropartita.