campo-sirio/m770/77qq.uml

// Quadro Q
#include "77qq.h"    

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

PAGE "Quadro Q" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QQF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QQF_CODDITTA
  OUTPUT QQF_RAGDITTA RAGSOC
  FIELD LF_QUAQ->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END 

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

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

NUMBER QQF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAQ->NPROG  
  USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA)
  INPUT CODDITTA QQF_CODDITTA SELECT
  INPUT NPROG    QQF_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 QQF_NPROG    	NPROG                  
  OUTPUT QQF_CONTRIMB	CONTRIMB
  OUTPUT QQF_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 QQF_MESERIF 1 12
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAQ->MESEPAG
  WARNING "Manca il mese"
  FLAGS "M"
  ITEM "|"
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 8 "Anno"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 29 8 "Contributo versato "
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 50 8 "Contributo rimborsato "
END

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 40 12 "Codice regione "
END

LIST QQF_CODREG 21
BEGIN
  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_QUAQ->CODREG
END

ENDPAGE

ENDMASK