campo-sirio/cg/cg5800a.frm

#include "cg5800.h"

USE LF_NDITTE
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGFIS TO LF_ANAG ALIAS 18 INTO CODANAGR=CODANAGR
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
END

DESCRIPTION
BEGIN
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  7->* "Anagrafica persone giuridiche"
END

GENERAL
BEGIN
  OFFSET 0 0
END

SECTION BODY ODD 50

STRINGA -1
BEGIN
  PROMPT 2 1 "@bAGENZIA DELLE ENTRATE"
END

STRINGA -1
BEGIN
  PROMPT 2 2 "[]\    //\ "
END

STRINGA -1
BEGIN
  PROMPT 2 3 "[]\\  // \\"   
END

STRINGA -1
BEGIN
  PROMPT 2 4 "[] \\//___\\"
END

STRINGA -1
BEGIN               
  PROMPT 2 5 "[]  \/-----\\"
END

STRINGA -1
BEGIN
 PROMPT 2 6 "@bQUADRO VT"
END

STRINGA -1
BEGIN
 PROMPT 26 3 "DENOMINAZIONE, RAGIONE SOCIALE ovvero COGNOME E NOME"
END

STRINGA -1 50
BEGIN
 KEY "Ragione sociale"
 PROMPT 26 4 "@b"
 FIELD LF_NDITTE->RAGSOC
END

STRINGA -1
BEGIN
 KEY "Codice fiscale"
 PROMPT 26 6 "@rCODICE FISCALE"
END

STRINGA -1
BEGIN
 KEY "Codice fiscale"
 PROMPT 26 7 "@b"
 FIELD LF_ANAG->COFI
END

STRINGA -1
BEGIN
  PROMPT 2 8 "______________________________________________________________________________"
END

NUMERO FF_YEAR
BEGIN
  KEY "Anno"
  PROMPT 2 9 "Anno di Imposte @b"
END

STRINGA -1
BEGIN
 PROMPT 2 11 "@b- CONTRIBUENTE -"
END

STRINGA -1
BEGIN
 KEY "Partita IVA"
 PROMPT 2 12 "Partita IVA @b"
 FIELD LF_ANAG->PAIV
END

STRINGA -1
BEGIN
 KEY "Codice attivit<69>"
 PROMPT 58 12 "@rCodice attivit<69> @b"
 FIELD LF_NDITTE->CODATTPREV
END

STRINGA -1
BEGIN
  PROMPT 2 16 "______________________________________________________________________________"
END

STRINGA -1
BEGIN
  PROMPT 2 17 "@b- RIPARTIZIONE OPERAZIONI IMPONIBILI -"
END

STRINGA -1
BEGIN
 PROMPT 1 19 "Totale Operazioni Imponibili"
END

VALUTA FF_TOTIMP 18
BEGIN
 PROMPT 29 19 ""
END

STRINGA -1
BEGIN
 PROMPT 54 19 "Imposte"
END

VALUTA FF_TOTIVA 18
BEGIN
 PROMPT 62 19 ""
END

STRINGA -1
BEGIN
 PROMPT 1 20 "Totale Op.verso cons.finali  "
END

VALUTA FF_TOTPRIMP 18
BEGIN
 PROMPT 29 20 ""
END

STRINGA -1
BEGIN
 PROMPT 54 20 "Imposte"
END

VALUTA FF_TOTPRIVA 18
BEGIN
 PROMPT 62 20 ""
END

STRINGA -1
BEGIN
 PROMPT 1 21 "Totale op.verso soggetti IVA "
END

VALUTA FF_TOTIVIMP 18
BEGIN
 PROMPT 29 21 ""
END

STRINGA -1
BEGIN
 PROMPT 54 21 "Imposte"
END

VALUTA FF_TOTIVIVA 18
BEGIN
 PROMPT 62 21 ""
END

STRINGA -1
BEGIN
  PROMPT 2 22 "______________________________________________________________________________"
END

STRINGA -1
BEGIN
 PROMPT 1 23 " Non assegnati Op.Imponibili "
END

VALUTA FFR_REGIMP(00) 18
BEGIN
 PROMPT 29 23 ""
END

STRINGA -1
BEGIN
 PROMPT 54 23 "Imposte"
END

VALUTA FFR_REGIVA(00) 18
BEGIN
 PROMPT 62 23 ""
END

STRINGA -1
BEGIN
 PROMPT 1 24 "   VT2 Abruzzo Op.Imponibili "
END

VALUTA FFR_REGIMP(01) 18
BEGIN
 PROMPT 29 24 ""
END

STRINGA -1
BEGIN
 PROMPT 54 24 "Imposte"
END

VALUTA FFR_REGIVA(01) 18
BEGIN
 PROMPT 51 24 ""
END

STRINGA -1
BEGIN
 PROMPT 1 25 "VT3 Basilicata Op.Imponibili "
END

VALUTA FFR_REGIMP(02) 18
BEGIN
 PROMPT 29 25 ""
END

STRINGA -1
BEGIN
 PROMPT 54 25 "Imposte"
END

VALUTA FFR_REGIVA(02) 18
BEGIN
 PROMPT 62 25 ""
END

STRINGA -1
BEGIN
 PROMPT 1 26 "   VT4 Bolzano Op.Imponibili "
END

VALUTA FFR_REGIMP(03) 18
BEGIN
 PROMPT 29 26 ""
END

STRINGA -1
BEGIN
 PROMPT 54 26 "Imposte"
END

VALUTA FFR_REGIVA(03) 18
BEGIN
 PROMPT 62 26 ""
END

STRINGA -1
BEGIN
 PROMPT 1 27 "  VT5 Calabria Op.Imponibili "
END

VALUTA FFR_REGIMP(04) 18
BEGIN
 PROMPT 29 27 ""
END

STRINGA -1
BEGIN
 PROMPT 54 27 "Imposte"
END

VALUTA FFR_REGIVA(04) 18
BEGIN
 PROMPT 62 27 ""
END

STRINGA -1
BEGIN
 PROMPT 1 28 "  VT6 Campania Op.Imponibili "
END

VALUTA FFR_REGIMP(05) 18
BEGIN
 PROMPT 29 28 ""
END

STRINGA -1
BEGIN
 PROMPT 54 28 "Imposte"
END

VALUTA FFR_REGIVA(05) 18
BEGIN
 PROMPT 62 28 ""
END

STRINGA -1
BEGIN
 PROMPT 1 29 "VT7 Emilia Rom.Op.Imponibili "
END

VALUTA FFR_REGIMP(06) 18
BEGIN
 PROMPT 29 29 ""
END

STRINGA -1
BEGIN
 PROMPT 54 29 "Imposte"
END

VALUTA FFR_REGIVA(06) 18
BEGIN
 PROMPT 62 29 ""
END

STRINGA -1
BEGIN
 PROMPT 1 30 "    VT8 Friuli Op.Imponibili "
END

VALUTA FFR_REGIMP(07) 18
BEGIN
 PROMPT 29 30 ""
END

STRINGA -1
BEGIN
 PROMPT 54 30 "Imposte"
END

VALUTA FFR_REGIVA(07) 18
BEGIN
 PROMPT 62 30 ""
END

STRINGA -1
BEGIN
 PROMPT 1 31 "     VT9 Lazio Op.Imponibili "
END

VALUTA FFR_REGIMP(08) 18
BEGIN
 PROMPT 29 31 ""
END

STRINGA -1
BEGIN
 PROMPT 54 31 "Imposte"
END

VALUTA FFR_REGIVA(08) 18
BEGIN
 PROMPT 62 31 ""
END

STRINGA -1
BEGIN
 PROMPT 1 32 "  VT10 Liguria Op.Imponibili "
END

VALUTA FFR_REGIMP(09) 18
BEGIN
 PROMPT 29 32 ""
END

STRINGA -1
BEGIN
 PROMPT 54 32 "Imposte"
END

VALUTA FFR_REGIVA(09) 18
BEGIN
 PROMPT 62 32 ""
END

STRINGA -1
BEGIN
 PROMPT 1 33 "VT11 Lombardia Op.Imponibili "
END

VALUTA FFR_REGIMP(10) 18
BEGIN
 PROMPT 29 33 ""
END

STRINGA -1
BEGIN
 PROMPT 54 33 "Imposte"
END

VALUTA FFR_REGIVA(10) 18
BEGIN
 PROMPT 62 33 ""
END

STRINGA -1
BEGIN
 PROMPT 1 34 "   VT12 Marche Op.Imponibili "
END

VALUTA FFR_REGIMP(11) 18
BEGIN
 PROMPT 1 34 ""
END

STRINGA -1
BEGIN
 PROMPT 54 34 "Imposte"
END

VALUTA FFR_REGIVA(11) 18
BEGIN
 PROMPT 62 34 ""
END

STRINGA -1
BEGIN
 PROMPT 1 35 "   VT13 Molise Op.Imponibili "
END

VALUTA FFR_REGIMP(12) 18
BEGIN
 PROMPT 29 35 ""
END

STRINGA -1
BEGIN
 PROMPT 54 35 "Imposte"
END

VALUTA FFR_REGIVA(12) 18
BEGIN
 PROMPT 62 35 ""
END

STRINGA -1
BEGIN
 PROMPT 1 36 " VT14 Piemonte Op.Imponibili "
END

VALUTA FFR_REGIMP(13) 18
BEGIN
 PROMPT 1 36 ""
END

STRINGA -1
BEGIN
 PROMPT 54 36 "Imposte"
END

VALUTA FFR_REGIVA(13) 18
BEGIN
 PROMPT 62 36 ""
END

STRINGA -1
BEGIN
 PROMPT 1 37 "   VT15 Puglia Op.Imponibili "
END

VALUTA FFR_REGIMP(14) 18
BEGIN
 PROMPT 29 37 ""
END

STRINGA -1
BEGIN
 PROMPT 54 37 "Imposte"
END

VALUTA FFR_REGIVA(14) 18
BEGIN
 PROMPT 62 37 ""
END

STRINGA -1
BEGIN
 PROMPT 1 38 " VT16 Sardegna Op.Imponibili "
END

VALUTA FFR_REGIMP(15) 18
BEGIN
 PROMPT 29 38 ""
END

STRINGA -1
BEGIN
 PROMPT 54 38 "Imposte"
END

VALUTA FFR_REGIVA(15) 18
BEGIN
 PROMPT 62 38 ""
END

STRINGA -1
BEGIN
 PROMPT 1 39 "  VT17 Sicilia Op.Imponibili "
END

VALUTA FFR_REGIMP(16) 18
BEGIN
 PROMPT 29 39 ""
END

STRINGA -1
BEGIN
 PROMPT 54 39 "Imposte"
END

VALUTA FFR_REGIVA(16) 18
BEGIN
 PROMPT 62 39 ""
END

STRINGA -1
BEGIN
 PROMPT 1 40 "  VT18 Toscana Op.Imponibili "
END

VALUTA FFR_REGIMP(17) 18
BEGIN
 PROMPT 29 40 ""
END

STRINGA -1
BEGIN
 PROMPT 54 40 "Imposte"
END

VALUTA FFR_REGIVA(17) 18
BEGIN
 PROMPT 62 40 ""
END

STRINGA -1
BEGIN
 PROMPT 1 41 "   VT19 Trento Op.Imponibili "
END

VALUTA FFR_REGIMP(18) 18
BEGIN
 PROMPT 29 41 ""
END

STRINGA -1
BEGIN
 PROMPT 54 41 "Imposte"
END

VALUTA FFR_REGIVA(18) 18
BEGIN
 PROMPT 62 41 ""
END

STRINGA -1
BEGIN
 PROMPT 1 42 "   VT20 Umbria Op.Imponibili "
END

VALUTA FFR_REGIMP(19) 18
BEGIN
 PROMPT 29 42 ""
END

STRINGA -1
BEGIN
 PROMPT 54 42 "Imposte"
END

VALUTA FFR_REGIVA(19) 18
BEGIN
 PROMPT 62 42 ""
END

STRINGA -1
BEGIN
 PROMPT 1 43 "VT21 Valle d'Aosta op.impon. "
END

VALUTA FFR_REGIMP(20) 18
BEGIN
 PROMPT 29 43 ""
END

STRINGA -1
BEGIN
 PROMPT 54 43 "Imposte"
END

VALUTA FFR_REGIVA(20) 18
BEGIN
 PROMPT 62 43 ""
END

STRINGA -1
BEGIN
 PROMPT 1 44 "   VT22 Veneto Op.Imponibili "
END

VALUTA FFR_REGIMP(21) 18
BEGIN
 PROMPT 29 44 ""
END

STRINGA -1
BEGIN
 PROMPT 54 44 "Imposte"
END

VALUTA FFR_REGIVA(21) 18
BEGIN
 PROMPT 62 44 ""
END

STRINGA -1
BEGIN
  PROMPT 2 46 "______________________________________________________________________________"
END

END

END