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
JOIN LF_ATTIV INTO CODDITTA==CODDITTA CODATT==CODATTPREV
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à"
 PROMPT 58 12 "@rCodice attività @b"
 FIELD LF_ATTIV->CODATECO
 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 33 23 "@bOp. Imponibili"
END

STRINGA -1
BEGIN
  PROMPT 73 23 "Imposte"
END

STRINGA -1
BEGIN
 PROMPT 1 25 "Non assegnati"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 26 "VT2 Abruzzo"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 27 "VT3 Basilicata"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 28 "VT4 Bolzano"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 29 "VT5 Calabria"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 30 "VT6 Campania"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 31 "VT7 Emilia Rom."
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 32 "VT8 Friuli"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 33 "VT9 Lazio"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 34 "VT10 Liguria"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 35 "VT11 Lombardia"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 36 "VT12 Marche"
END

VALUTA FFR_REGIMP(11) 18
BEGIN
 PROMPT 29 36 ""
END

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

STRINGA -1
BEGIN
 PROMPT 1 37 "VT13 Molise"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 38 "VT14 Piemonte"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 39 "VT15 Puglia"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 40 "VT16 Sardegna"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 41 "VT17 Sicilia"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 42 "VT18 Toscana"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 43 "VT19 Trento"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 44 "VT20 Umbria"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 45 "VT21 Valle d'Aosta"
END

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

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

STRINGA -1
BEGIN
 PROMPT 1 46 "VT22 Veneto"
END

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

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

STRINGA -1
BEGIN
  PROMPT 2 48 "______________________________________________________________________________"
END

END

END