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 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" "" 
  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" "" 
  SPECIAL STRINGA DYLOG "NU,17,11" "" 
END

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

NUMERO 5
BEGIN   
  KEY "DIFFERENZA"
  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" "" 
  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

STRINGA 9
BEGIN   
  KEY "Diversa valuta"
  PROMPT 79 2 ""
  FIELD QLVALDIV
  SPECIAL STRINGA TRASFER "ST002009" ""
  SPECIAL STRINGA DYLOG "AN,81,1" "" 
END

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

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

LISTA 120
BEGIN   
  KEY "Tesoreria"
  PROMPT 79 2 "" 
  FIELD QLLV
  ITEM " | " MESSAGE " ",12
  ITEM "C| " MESSAGE " ",12
  ITEM "T|X" MESSAGE "X",12
END

STRINGA 12
BEGIN   
  KEY "Tesoreria"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002012" "BO" 
  SPECIAL STRINGA DYLOG "AN,88,1" ""
END

NUMERO 14

END

NUMERO 13

BEGIN
  KEY "Regione"
  PROMPT 79 2 ""
  SPECIAL STRINGA TRASFER "ST002013" "NU" 
  SPECIAL STRINGA DYLOG "NU,89,2" "" 
  FIELD QLREGIONE
END