campo-sirio/m770/77qst.frm

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 2
BEGIN   
  KEY "RITENUTE"
  PROMPT 79 2 ""
  FIELD QLRITEFF
  SPECIAL STRINGA DYLOG "NU,6,11" "" 
END

NUMERO 3
BEGIN   
  KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,17,11" "" 
END

NUMERO 4
BEGIN   
  KEY "RITENUTE NON VERSATE PER CREDITI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,28,11" "" 
END

NUMERO 5
BEGIN   
  KEY "TOTALE IMPORTO VERSATO"
  PROMPT 79 2 ""
  FIELD QLRITVER
  SPECIAL STRINGA DYLOG "NU,39,11" "" 
END

NUMERO 6
BEGIN   
  KEY "INTERESSI VERSATI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,50,11" "" 
END

STRINGA 7
BEGIN   
  KEY "NOTE"
  PROMPT 79 2 ""
  FIELD QLNOTE
  SPECIAL STRINGA DYLOG "AN,61,10" "" 
END

STRINGA 10
BEGIN   
  KEY "CODICE TRIBUTO"
  PROMPT 79 2 ""
  FIELD QLCT
  SPECIAL STRINGA DYLOG "AN,82,4" "" 
END

STRINGA 11
BEGIN   
  KEY "ARTICOLO"
  PROMPT 79 2 ""
  FIELD QLAB
  SPECIAL STRINGA DYLOG "NU,86,2" "" 
END

NUMERO 12
BEGIN   
  KEY "Codice regione"
  SPECIAL STRINGA DYLOG "NU,88,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,90,1" "" 
END

NUMERO 14
BEGIN   
  KEY "DATA VERSAMENTO"
  PROMPT 79 2 ""
  FIELD QLDV
  SPECIAL STRINGA DYLOG "NU,91,8" "" 
END

END

SECTION BODY EVEN 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 2
BEGIN   
  KEY "RITENUTE"
  PROMPT 79 2 ""
  FIELD QLRITEFF
  SPECIAL STRINGA DYLOG "NU,6,11" "" 
END

NUMERO 3
BEGIN   
  KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,17,11" "" 
END

NUMERO 4
BEGIN   
  KEY "RITENUTE NON VERSATE PER CREDITI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,28,11" "" 
END

NUMERO 5
BEGIN   
  KEY "TOTALE IMPORTO VERSATO"
  PROMPT 79 2 ""
  FIELD QLRITVER
  SPECIAL STRINGA DYLOG "NU,39,11" "" 
END

NUMERO 6
BEGIN   
  KEY "INTERESSI VERSATI"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,50,11" "" 
END

NUMERO 7
BEGIN   
  KEY "???"
  PROMPT 79 2 ""
  SPECIAL STRINGA DYLOG "NU,61,11" "" 
END

NUMERO 12
BEGIN   
  KEY "Codice regione"
  SPECIAL STRINGA DYLOG "NU,97,2" "" 
END

NUMERO 14
BEGIN   
  KEY "DATA VERSAMENTO"
  PROMPT 79 2 ""
  FIELD QLDV
  SPECIAL STRINGA DYLOG "NU,100,8" "" 
END

END