// Quadro R
#include "77qr.h"    

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

PAGE "Quadro R" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QRF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QRF_CODDITTA
  OUTPUT QRF_RAGDITTA RAGSOC
  FIELD LF_QUAR->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

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

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

NUMBER QRF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAR->NPROG  
  USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA)
  INPUT CODDITTA QRF_CODDITTA SELECT
  INPUT NPROG    QRF_NPROG 
  DISPLAY "Num."							NPROG
  DISPLAY "Mese" MESERIF
  DISPLAY "Anno" ANNORIF
  DISPLAY "Imposta rimborsata"	IMPRIMB
  DISPLAY "Compensi per l'assistenza"	COMPENSI
  OUTPUT QRF_NPROG    	NPROG                  
  OUTPUT QRF_COMPENSI	COMPENSI
  OUTPUT QRF_IMPOSTA	IMPRIMB
  OUTPUT QRF_ANNORIF	ANNORIF
  OUTPUT QRF_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 QRF_MESERIF 1 12
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAR->MESERIF
  WARNING "Manca il mese"
  FLAGS "M"
  ITEM "|"
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 8 "Anno"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 29 8 "Imposta rimborsata "
END

NUMBER QRF_IMPOSTA 15
BEGIN
  PROMPT 29 9 ""
  FIELD LF_QUAR->IMPRIMB
  PICTURE "."  
  FLAGS "R"         
END

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

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

ENDPAGE

ENDMASK

