d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
155 lines
2.4 KiB
Plaintext
Executable File
155 lines
2.4 KiB
Plaintext
Executable File
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 ""
|
|
FIELD QLAP
|
|
SPECIAL STRINGA DYLOG "NU,2,4" ""
|
|
END
|
|
|
|
NUMERO 101
|
|
BEGIN
|
|
KEY "PERIODO DI RIFERIMENTO"
|
|
PROMPT 9 2 ""
|
|
MESSAGE _PERIODO_RIF
|
|
SPECIAL STRINGA TRASFER "ST002001" "NU"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "RITENUTE"
|
|
PROMPT 79 2 ""
|
|
FIELD QLRITEFF
|
|
SPECIAL STRINGA TRASFER "ST002002" "CU"
|
|
SPECIAL STRINGA DYLOG "NU,6,11" ""
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
|
|
PROMPT 79 2 ""
|
|
FIELD QLRITVEREC
|
|
SPECIAL STRINGA TRASFER "ST002003" "CU"
|
|
SPECIAL STRINGA DYLOG "NU,17,11" ""
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
|
|
PROMPT 79 2 ""
|
|
FIELD QLRITCOMP
|
|
SPECIAL STRINGA TRASFER "ST002004" "CU"
|
|
SPECIAL STRINGA DYLOG "NU,28,11" ""
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "IMPORTO VERSATO"
|
|
PROMPT 79 2 ""
|
|
MESSAGE _NUMEXPR,#2-#3-#4
|
|
SPECIAL STRINGA TRASFER "ST002005" "CU"
|
|
SPECIAL STRINGA DYLOG "NU,39,11" ""
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "INTERESSI VERSATI"
|
|
PROMPT 79 2 ""
|
|
FIELD QLINTERESS
|
|
SPECIAL STRINGA TRASFER "ST002006" "CU"
|
|
SPECIAL STRINGA DYLOG "NU,50,11" ""
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "NOTE"
|
|
PROMPT 79 2 ""
|
|
FIELD QLNOTE
|
|
SPECIAL STRINGA TRASFER "ST002007" ""
|
|
SPECIAL STRINGA DYLOG "AN,61,10" ""
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "Eventi eccezionali"
|
|
PROMPT 79 2 ""
|
|
FIELD QLEVENTI
|
|
SPECIAL STRINGA TRASFER "ST002008" ""
|
|
SPECIAL STRINGA DYLOG "AN,71,10" ""
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 79 2 ""
|
|
FIELD QLCT
|
|
SPECIAL STRINGA TRASFER "ST002009" "NU"
|
|
SPECIAL STRINGA DYLOG "AN,82,4" ""
|
|
END
|
|
|
|
LISTA 100
|
|
BEGIN
|
|
KEY "Tesoreria"
|
|
PROMPT 79 2 ""
|
|
FIELD QLLV
|
|
ITEM " | " MESSAGE " ",10
|
|
ITEM "C| " MESSAGE " ",10
|
|
ITEM "T|X" MESSAGE "X",10
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Tesoreria"
|
|
PROMPT 79 2 ""
|
|
SPECIAL STRINGA TRASFER "ST002010" "BO"
|
|
SPECIAL STRINGA DYLOG "AN,88,1" ""
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "Regione"
|
|
PROMPT 79 2 ""
|
|
SPECIAL STRINGA TRASFER "ST002011" "NU"
|
|
SPECIAL STRINGA DYLOG "NU,89,2" ""
|
|
FIELD QLREGIONE
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Data versamento"
|
|
PROMPT 79 2 ""
|
|
SPECIAL STRINGA TRASFER "ST002012" "DT"
|
|
FIELD QLDV
|
|
END
|
|
|
|
END
|
|
|
|
END
|