// Quadro N
#include "77qn.h"     

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Quadro N" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QNF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QNF_CODDITTA
  OUTPUT QNF_RAGDITTA RAGSOC
  FIELD LF_QUAN->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END 

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

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

NUMBER QNF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAN->NPROG  
  USE LF_QUAN 
  INPUT CODDITTA QNF_CODDITTA SELECT
  INPUT NPROG    QNF_NPROG 
  DISPLAY "Num." NPROG
  DISPLAY "Mese" MESERIF
  DISPLAY "Anno" ANNORIF
  DISPLAY "Imposta rimborsata"	IMPOSTA
  DISPLAY "Compensi per l'assistenza"	COMPENSI
  OUTPUT QNF_NPROG    	NPROG                  
  OUTPUT QNF_COMPENSI	COMPENSI
  OUTPUT QNF_IMPOSTA	IMPOSTA
  OUTPUT QNF_ANNORIF	ANNORIF
  OUTPUT QNF_MESERIF	MESERIF
  CHECKTYPE REQUIRED
  KEY 1
END

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

GROUPBOX DLG_NULL 26 4
BEGIN
  PROMPT 1 7 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Mese"
END

LIST QNF_MESERIF 1 12
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAN->MESERIF
  WARNING "Manca il mese"
  FLAGS "M"
  ITEM "|"
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 8 "Anno"
END

NUMBER QNF_ANNORIF 4
BEGIN
  PROMPT 17 9 ""  
  WARNING "Anno non valido"
  CHECKTYPE REQUIRED
  FIELD LF_QUAN->ANNORIF 
  VALIDATE FIXLEN_FUNC 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 29 8 "Imposta rimborsata "
END

NUMBER QNF_IMPOSTA 15
BEGIN
  PROMPT 29 9 ""
  FIELD LF_QUAN->IMPOSTA
  PICTURE "."  
  FLAGS "R"         
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 8 "Compensi per l'assistenza "
END

NUMBER QNF_COMPENSI 15
BEGIN
  PROMPT 50 9 ""
  FIELD LF_QUAN->COMPENSI
  PICTURE "."  
  FLAGS "R" 
END                                          

ENDPAGE

ENDMASK