campo-sirio/m770/77qr.uml

// Quadro R
#include "77qr.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "MODULO 770 - 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 "GRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QRF_CODDITTA
  OUTPUT QRF_RAGDITTA RAGSOC
  FIELD LF_QUAR->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

NUMBER QRF_NPROG 4
BEGIN
  PROMPT 1 5 "@bNumero  "  
  FIELD LF_QUAR->NPROG  
  USE LF_QUAR SELECT (CODDITTA=#QRF_CODDITTA)
  INPUT CODDITTA QRF_CODDITTA SELECT
  INPUT NPROG    QRF_NPROG 
  DISPLAY "N<>"							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  

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

NUMBER QRF_ANNODIC 4
BEGIN
  PROMPT 52 4 "Anno dichiarazione "
  FLAGS "DR"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "@bPeriodo 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 "|"
  CHECKTYPE REQUIRED
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