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 "PERIODO DI RIFERIMENTO"
  PROMPT 9 2 ""                    
  MESSAGE _PERIODO_RIF
  SPECIAL STRINGA TRASFER "ST002001" "NP"
END

VALUTA 2
BEGIN   
  KEY "RITENUTE OPERATE"
  PROMPT 79 2 ""
  FIELD QLRITEFF
  SPECIAL STRINGA TRASFER "ST002002" "NP" 
END

VALUTA 3
BEGIN   
  KEY "CREDITI RECUPERATI"
  PROMPT 79 2 ""
  FIELD QLRITCOMP
  SPECIAL STRINGA TRASFER "ST002003" "NP" 
END

VALUTA 4
BEGIN   
  KEY "IMPORTI A SCOMPUTO"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002004" "NP" 
END

VALUTA 5
BEGIN   
  KEY "VERSAMENTI IN ECCESSO"
  PROMPT 79 2 ""
  FIELD QLRITVEREC
  SPECIAL STRINGA TRASFER "ST002005" "NP" 
END

VALUTA 6
BEGIN   
  KEY "CREDITI D'IMPOSTA UTILIZZATI A SCOMPUTO"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002004" "NP" 
END

VALUTA 7
BEGIN   
  KEY "IMPORTO VERSATO"
  PROMPT 79 2 ""
  MESSAGE _NUMEXPR,#2-#3-#4-#5-#6
  SPECIAL STRINGA TRASFER "ST002007" "NP" 
END

VALUTA 8
BEGIN   
  KEY "INTERESSI VERSATI"
  PROMPT 79 2 ""
  FIELD QLINTERESS
  SPECIAL STRINGA TRASFER "ST002008" "NP" 
END

NUMERO 9
BEGIN
  KEY "RAVVEDIMENTO"
  SPECIAL STRINGA TRASFER "ST002009" "CB" 
END

STRINGA 10
BEGIN   
  KEY "NOTE"
  PROMPT 79 2 ""
  FIELD QLNOTE
  SPECIAL STRINGA TRASFER "ST002010" "AN" 
END

STRINGA 11
BEGIN   
  KEY "CODICE TRIBUTO"
  PROMPT 79 2 ""
  FIELD QLCT
  SPECIAL STRINGA TRASFER "ST002011" "AN" 
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

NUMERO 12
BEGIN   
  KEY "Tesoreria"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002012" "CB" 
END

NUMERO 13
BEGIN
  KEY "Regione"
  PROMPT 79 2 ""
  FIELD QLREGIONE
END

STRINGA 14
BEGIN
  KEY "Data versamento"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002014" "DT" 
  FIELD QLDV
END

END

END