// Quadro T
#include "77qt.h"      

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Quadro T" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QTF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QTF_CODDITTA
  OUTPUT QTF_RAGDITTA RAGSOC
  FIELD LF_QUAT->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

STRING QTF_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
END

NUMBER QTF_ANNODIC 4
BEGIN
  PROMPT 52 3 "Anno dichiarazione "
  FLAGS "DRP"
END

NUMBER QTF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAT->NPROG  
  USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA)
  INPUT CODDITTA QTF_CODDITTA SELECT
  INPUT NPROG    QTF_NPROG 
  DISPLAY "Num."						NPROG
  DISPLAY "Mese"						MESEPAG
  DISPLAY "Anno"						ANNOPAG            
  DISPLAY "Contributo versato"			CONTVERS
  DISPLAY "Contributo rimborsato" 		CONTRIMB
  DISPLAY "Interessi o soprattasse"		INTERESSI
  DISPLAY "Cod.reg."					CODREG
  OUTPUT QTF_NPROG    	NPROG                  
  OUTPUT QTF_CONTRIMB	CONTRIMB
  OUTPUT QTF_CONTVERS	CONTVERS
  CHECKTYPE REQUIRED
  KEY 1
END  

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Periodo di paga"
END

GROUPBOX DLG_NULL 26 4
BEGIN
  PROMPT 1 7 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Mese"
END

LIST QTF_MESERIF 1 12
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAT->MESEPAG
  WARNING "Manca il mese"
  FLAGS "M"
  ITEM "|"
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 8 "Anno"
END

NUMBER QTF_ANNORIF 4
BEGIN
  PROMPT 17 9 ""  
  WARNING "Anno non valido"
  CHECKTYPE REQUIRED
  FIELD LF_QUAT->ANNOPAG
  VALIDATE FIXLEN_FUNC 4  
END

TEXT DLG_NULL
BEGIN
  PROMPT 29 8 "Contributo versato "
END

NUMBER QTF_CONTVERS 15
BEGIN
  PROMPT 29 9 ""
  FIELD LF_QUAT->CONTVERS
  PICTURE "."  
  FLAGS "R"         
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 8 "Contributo rimborsato "
END

NUMBER QTF_CONTRIMB 15
BEGIN
  PROMPT 50 9 ""
  FIELD LF_QUAT->CONTRIMB
  PICTURE "."  
  FLAGS "R" 
END                                          

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Interessi e/o soprattasse "
END
  
NUMBER QTF_INTERESSI 15
BEGIN
  PROMPT 2 13 ""
  FIELD LF_QUAT->INTERESSI
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 12 "Codice regione "
END

LIST QTF_CODREG 21
BEGIN
//  PROMPT 40 13 "Codice regione "
  PROMPT 40 13 ""
  ITEM "|"
  ITEM "A|Abruzzo"
  ITEM "B|Basilicata"
  ITEM "C|Bolzano"
  ITEM "D|Calabria"
  ITEM "E|Campania"
  ITEM "F|Emilia Romagna"
  ITEM "G|Friuli Venezia Giulia"
  ITEM "H|Lazio"
  ITEM "K|Liguria"          
  ITEM "L|Lombardia"
  ITEM "M|Marche"
  ITEM "N|Molise"
  ITEM "P|Piemonte"        
  ITEM "Q|Puglia"
  ITEM "R|Sardegna"
  ITEM "S|Sicilia"
  ITEM "T|Toscana"
  ITEM "U|Trento"
  ITEM "V|Umbria"
  ITEM "W|Valle d'Aosta"
  ITEM "Z|Veneto "                
  FIELD LF_QUAT->CODREG
END

ENDPAGE

ENDMASK