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[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