Vai al contenuto

COGP02 -- Art.Esenzione Iva

Sorgente: cbl/cogp02.cbl | Program-ID: COGP02 | Menu: Contabilita' > Archivi & Tabelle > Tabelle > Stampe > Art.Esenzione Iva

Descrizione

Stampa l'elenco degli articoli di esenzione IVA (codici di esenzione/non imponibilita'). I dati sono letti dalla tabella generale COGTABEL (feurtab), tipo 69, e per ogni articolo si arricchisce la riga con informazioni di liquidazione IVA e natura dell'esenzione lette dalla tabella parametrica bollato (tipo "BS"). 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: articoli esenzione IVA (tipo 69) e tabella bollato (rd-bogtabel, tipo "BS")
FLSTA Output stampa File di stampa (riga da 147 caratteri)

Sottoprogrammi chiamati

Programma Scopo
COGS54 Gestione output stampa (selezione stampante/anteprima/file). Prima chiamata con s54-chr-stampa = 147, 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 = 69, euta-codr = 0 (st-cogtabel-notmin). Se non trova record esce con messaggio "NESSUNA ESENZIONE".
  • a015 / a040: scorre in avanti la tabella (rdnxt-cogtabel); il ciclo termina a fine file o quando euta-tipo non e' piu' 69.
  • a030: costruisce la riga di dettaglio (rdet1):
  • codice (euta-codr), descrizione/aliquota (euta-ivart), articolo senza soglia (euta-artnosoglia);
  • decodifica euta-elenchi-iva (1=Non in elenco, 2=In elenco iva, 3=Solo elenco acquisti, 4=Solo elenco vendite);
  • decodifica euta-ni-es (N=NON IMP., E=ESENTE, M=MONOF., S=NON ESP.);
  • legge la tabella bollato tipo "BS" per lo stesso codice (rd-bogtabel) e riporta liquidazione IVA (euba-liquiva SI/NO) e natura esenzione (euba-natura-esen, decodifica N1..N7 con la relativa descrizione).
  • stampa / intesta: gestione paginazione. L'intestazione riporta ragione sociale azienda, titolo "ARTICOLI ESENZIONE IVA", data e numero pagina; segue una riga di colonne (codice, descrizione, esenzione bollo, elenco iva, non impon./esente, natura, liq.iva).
  • 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: cogp02.select, cogp02.fd, cogp02.wrk, cogp02.decla, cogp02.prc, cogp02-01.scr; struttura tabella generale in cogfiles.cpy, stampa in flsta.fd/flsta.cpy.
  • Costanti locali: k-euta-tipo-bl = "BL", k-euta-tipo-bs = "BS" (usata quella "BS" per la lettura bollato).
  • La decodifica natura esenzione N1..N7 riflette la codifica fiscale della fatturazione elettronica.