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

TOOLBAR "" 0 0 0 2
#include <relapbar.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   

LIST QRF_TIPO 1 40
BEGIN
  PROMPT 29 8 "Tipo "
  ITEM "A|Rimborso IRPEF"
  ITEM "B|Rimborso Contributo straordinario Europa"
  FIELD TIPORIMB 
END

TEXT DLG_NULL
BEGIN
  PROMPT 29 9 "Imposta rimborsata "
END

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

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

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

ENDPAGE

ENDMASK