campo-sirio/m770/77qst.frm
alex b3cd9c64a9 Patch level : xx.888
Files correlati     : no patch
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 888 sul main trunk


git-svn-id: svn://10.65.10.50/trunk@9217 c028cbd2-c16b-5b4b-a496-9718f37d4682
2000-10-03 13:45:12 +00:00

136 lines
1.8 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[3,4]
SPECIAL STRINGA DYLOG "NU,2,2" ""
END
NUMERO 2
BEGIN
KEY "RITENUTE"
PROMPT 79 2 ""
FIELD QLRITEFF
SPECIAL STRINGA DYLOG "NU,4,11" ""
END
NUMERO 3
BEGIN
KEY "RITENUTE NON VERSATE PER ECCESSO"
PROMPT 79 2 ""
SPECIAL STRINGA DYLOG "NU,15,11" ""
END
NUMERO 4
BEGIN
KEY "RITENUTE NON VERSATE PER RESTITUZIONI"
PROMPT 79 2 ""
SPECIAL STRINGA DYLOG "NU,26,11" ""
END
NUMERO 5
BEGIN
KEY "RITENUTE NON VERSATE PER CREDITI"
PROMPT 79 2 ""
SPECIAL STRINGA DYLOG "NU,37,11" ""
END
NUMERO 6
BEGIN
KEY "TOTALE IMPORTO VERSATO"
PROMPT 79 2 ""
FIELD QLRITVER
SPECIAL STRINGA DYLOG "NU,48,11" ""
END
STRINGA 8
BEGIN
KEY "NOTE"
PROMPT 79 2 ""
FIELD QLNOTE
SPECIAL STRINGA DYLOG "AN,70,20" ""
END
STRINGA 10
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 79 2 ""
FIELD QLCT
SPECIAL STRINGA DYLOG "AN,91,4" ""
END
STRINGA 11
BEGIN
KEY "ARTICOLO"
PROMPT 79 2 ""
FIELD QLAB
SPECIAL STRINGA DYLOG "AN,95,2" ""
END
NUMERO 12
BEGIN
KEY "Codice regione"
SPECIAL STRINGA DYLOG "NU,97,2" ""
END
LISTA 130
BEGIN
KEY "Concessione/Tesoreria/F24"
ITEM "|"
MESSAGE "",13
ITEM "C|Concessione"
MESSAGE "F",13
ITEM "F|F24"
MESSAGE "F",13
ITEM "T|TESORERIA"
MESSAGE "T",13
FIELD QLLV
END
STRINGA 13
BEGIN
KEY "Tesoreria/F24"
PROMPT 79 2 ""
SPECIAL STRINGA DYLOG "AN,99,1" ""
END
NUMERO 14
BEGIN
KEY "DATA VERSAMENTO"
PROMPT 79 2 ""
FIELD QLDV
SPECIAL STRINGA DYLOG "NU,100,8" ""
END
END