e4c4b79fbe
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione AGA 1.7 patch 335 git-svn-id: svn://10.65.10.50/trunk@10495 c028cbd2-c16b-5b4b-a496-9718f37d4682
165 lines
2.6 KiB
Plaintext
Executable File
165 lines
2.6 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" ""
|
|
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" ""
|
|
SPECIAL STRINGA DYLOG "NU,17,11" ""
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "RITENUTE NON VERSATE PER CREDITI"
|
|
PROMPT 79 2 ""
|
|
FIELD QLRITCOMP
|
|
SPECIAL STRINGA TRASFER "ST002004" ""
|
|
SPECIAL STRINGA DYLOG "NU,28,11" ""
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "DIFFERENZA"
|
|
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" ""
|
|
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
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Diversa valuta"
|
|
PROMPT 79 2 ""
|
|
FIELD QLVALDIV
|
|
SPECIAL STRINGA TRASFER "ST002009" ""
|
|
SPECIAL STRINGA DYLOG "AN,81,1" ""
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 79 2 ""
|
|
FIELD QLCT
|
|
SPECIAL STRINGA TRASFER "ST002010" "AN"
|
|
SPECIAL STRINGA DYLOG "AN,82,4" ""
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "ARTICOLO"
|
|
PROMPT 79 2 ""
|
|
FIELD QLAB
|
|
SPECIAL STRINGA TRASFER "ST002011" ""
|
|
SPECIAL STRINGA DYLOG "NU,86,2" ""
|
|
END
|
|
|
|
LISTA 120
|
|
BEGIN
|
|
KEY "Tesoreria"
|
|
PROMPT 79 2 ""
|
|
FIELD QLLV
|
|
ITEM " | " MESSAGE " ",12
|
|
ITEM "C| " MESSAGE " ",12
|
|
ITEM "T|X" MESSAGE "X",12
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Tesoreria"
|
|
PROMPT 79 2 ""
|
|
SPECIAL STRINGA TRASFER "ST002012" "BO"
|
|
SPECIAL STRINGA DYLOG "AN,88,1" ""
|
|
END
|
|
|
|
NUMERO 14
|
|
|
|
END
|
|
|
|
NUMERO 13
|
|
|
|
BEGIN
|
|
KEY "Regione"
|
|
PROMPT 79 2 ""
|
|
SPECIAL STRINGA TRASFER "ST002013" "NU"
|
|
SPECIAL STRINGA DYLOG "NU,89,2" ""
|
|
FIELD QLREGIONE
|
|
END |