2000-10-03 13:45:12 +00:00
|
|
|
USE 42
|
|
|
|
END
|
|
|
|
|
|
|
|
DESCRIPTION
|
|
|
|
BEGIN
|
|
|
|
41->* "Quadro ST 770"
|
|
|
|
END
|
|
|
|
|
|
|
|
GENERAL
|
|
|
|
BEGIN
|
|
|
|
OFFSET 0 0
|
|
|
|
FONT "Roman 17cpi"
|
|
|
|
SIZE 12
|
|
|
|
CA "X"
|
|
|
|
IN 3 3
|
|
|
|
FI 130
|
|
|
|
END
|
|
|
|
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
|
|
|
|
NUMERO 1
|
|
|
|
BEGIN
|
|
|
|
KEY "MESE RIFERIMENTO"
|
|
|
|
PROMPT 9 2 ""
|
|
|
|
FIELD QLMP
|
|
|
|
SPECIAL STRINGA DYLOG "NU,0,2" ""
|
|
|
|
END
|
|
|
|
|
|
|
|
NUMERO 1
|
|
|
|
BEGIN
|
|
|
|
KEY "ANNO RIFERIMENTO"
|
|
|
|
PROMPT 42 2 ""
|
2001-06-25 10:41:20 +00:00
|
|
|
FIELD QLAP
|
|
|
|
SPECIAL STRINGA DYLOG "NU,2,4" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2002-09-13 14:06:05 +00:00
|
|
|
NUMERO 101
|
|
|
|
BEGIN
|
|
|
|
KEY "PERIODO DI RIFERIMENTO"
|
|
|
|
PROMPT 9 2 ""
|
|
|
|
MESSAGE _PERIODO_RIF
|
|
|
|
SPECIAL STRINGA TRASFER "ST002001" "NU"
|
|
|
|
END
|
|
|
|
|
2000-10-03 13:45:12 +00:00
|
|
|
NUMERO 2
|
|
|
|
BEGIN
|
|
|
|
KEY "RITENUTE"
|
|
|
|
PROMPT 79 2 ""
|
|
|
|
FIELD QLRITEFF
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002002" "CU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,6,11" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
|
|
|
NUMERO 3
|
|
|
|
BEGIN
|
2001-06-25 10:41:20 +00:00
|
|
|
KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
|
2000-10-03 13:45:12 +00:00
|
|
|
PROMPT 79 2 ""
|
2002-09-13 14:06:05 +00:00
|
|
|
FIELD QLRITVEREC
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002003" "CU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,17,11" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
|
|
|
NUMERO 4
|
|
|
|
BEGIN
|
2004-07-28 08:34:44 +00:00
|
|
|
KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
|
2000-10-03 13:45:12 +00:00
|
|
|
PROMPT 79 2 ""
|
2002-09-13 14:06:05 +00:00
|
|
|
FIELD QLRITCOMP
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002004" "CU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,28,11" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
|
|
|
NUMERO 5
|
|
|
|
BEGIN
|
2004-07-28 08:34:44 +00:00
|
|
|
KEY "IMPORTO VERSATO"
|
2000-10-03 13:45:12 +00:00
|
|
|
PROMPT 79 2 ""
|
2002-09-13 14:06:05 +00:00
|
|
|
MESSAGE _NUMEXPR,#2-#3-#4
|
|
|
|
SPECIAL STRINGA TRASFER "ST002005" "CU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,39,11" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
|
|
|
NUMERO 6
|
|
|
|
BEGIN
|
2001-06-25 10:41:20 +00:00
|
|
|
KEY "INTERESSI VERSATI"
|
2000-10-03 13:45:12 +00:00
|
|
|
PROMPT 79 2 ""
|
2002-09-13 14:06:05 +00:00
|
|
|
FIELD QLINTERESS
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002006" "CU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,50,11" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2001-06-25 10:41:20 +00:00
|
|
|
STRINGA 7
|
2000-10-03 13:45:12 +00:00
|
|
|
BEGIN
|
|
|
|
KEY "NOTE"
|
|
|
|
PROMPT 79 2 ""
|
|
|
|
FIELD QLNOTE
|
2002-09-13 14:06:05 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002007" ""
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "AN,61,10" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2002-09-13 14:06:05 +00:00
|
|
|
STRINGA 8
|
|
|
|
BEGIN
|
|
|
|
KEY "Eventi eccezionali"
|
|
|
|
PROMPT 79 2 ""
|
|
|
|
FIELD QLEVENTI
|
|
|
|
SPECIAL STRINGA TRASFER "ST002008" ""
|
|
|
|
SPECIAL STRINGA DYLOG "AN,71,10" ""
|
|
|
|
END
|
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
NUMERO 9
|
2000-10-03 13:45:12 +00:00
|
|
|
BEGIN
|
|
|
|
KEY "CODICE TRIBUTO"
|
|
|
|
PROMPT 79 2 ""
|
|
|
|
FIELD QLCT
|
2006-12-13 16:22:33 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002009" "NU"
|
2001-06-25 10:41:20 +00:00
|
|
|
SPECIAL STRINGA DYLOG "AN,82,4" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2004-07-28 08:34:44 +00:00
|
|
|
LISTA 100
|
2000-10-03 13:45:12 +00:00
|
|
|
BEGIN
|
2002-09-13 14:06:05 +00:00
|
|
|
KEY "Tesoreria"
|
|
|
|
PROMPT 79 2 ""
|
2000-10-03 13:45:12 +00:00
|
|
|
FIELD QLLV
|
2004-07-28 08:34:44 +00:00
|
|
|
ITEM " | " MESSAGE " ",10
|
|
|
|
ITEM "C| " MESSAGE " ",10
|
|
|
|
ITEM "T|X" MESSAGE "X",10
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2004-07-28 08:34:44 +00:00
|
|
|
STRINGA 10
|
2000-10-03 13:45:12 +00:00
|
|
|
BEGIN
|
2002-09-13 14:06:05 +00:00
|
|
|
KEY "Tesoreria"
|
2000-10-03 13:45:12 +00:00
|
|
|
PROMPT 79 2 ""
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002010" "BO"
|
2002-09-13 14:06:05 +00:00
|
|
|
SPECIAL STRINGA DYLOG "AN,88,1" ""
|
2000-10-03 13:45:12 +00:00
|
|
|
END
|
|
|
|
|
2004-07-28 08:34:44 +00:00
|
|
|
NUMERO 11
|
2001-06-25 10:41:20 +00:00
|
|
|
BEGIN
|
2002-09-13 14:06:05 +00:00
|
|
|
KEY "Regione"
|
2001-06-25 10:41:20 +00:00
|
|
|
PROMPT 79 2 ""
|
2004-07-28 08:34:44 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002011" "NU"
|
2002-09-13 14:06:05 +00:00
|
|
|
SPECIAL STRINGA DYLOG "NU,89,2" ""
|
|
|
|
FIELD QLREGIONE
|
2004-07-28 08:34:44 +00:00
|
|
|
END
|
|
|
|
|
2005-10-28 12:13:28 +00:00
|
|
|
STRINGA 12
|
2004-07-28 08:34:44 +00:00
|
|
|
BEGIN
|
|
|
|
KEY "Data versamento"
|
|
|
|
PROMPT 79 2 ""
|
2005-10-28 12:13:28 +00:00
|
|
|
SPECIAL STRINGA TRASFER "ST002012" "DT"
|
2004-07-28 08:34:44 +00:00
|
|
|
FIELD QLDV
|
|
|
|
END
|
|
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
END
|