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