campo-sirio/ba/ba4100a.uml

#include "ba4100.h"

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

PAGE "Tabella Comuni 1/2" -1 -1 77 16

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
	FLAGS "R"
END

NUMBER FLD_CM1_STATO 3
BEGIN
  PROMPT 3 1 "Stato     "
  FIELD LF_COMUNI->STATO
  FLAGS "RZG"
  USE %STA
  INPUT CODTAB FLD_CM1_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT FLD_CM1_STATO CODTAB
  OUTPUT FLD_CM1_DENSTA S0
  HELP "Codice dello stato in cui risiede il comune"
  MESSAGE COPY,FLD_CM2_STATO
  WARNING "Stato non presente"
  KEY 1
END

STRING FLD_CM1_DENSTA 50
BEGIN
  PROMPT 20 1 ""
  USE %STA KEY 2
  INPUT S0 FLD_CM1_DENSTA
  DISPLAY "Nome@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_CM1_STATO CODTAB
  OUTPUT FLD_CM1_DENSTA S0
  HELP "Nome dello stato in cui risiede il comune"
  MESSAGE COPY,FLD_CM2_DENSTA
  FLAGS "G"
  KEY 1
END

STRING FLD_CM1_COM 4
BEGIN
  PROMPT 3 2 "Comune    "
  FIELD LF_COMUNI->COM
  FLAGS "UG"
  KEY 1
  USE LF_COMUNI
  INPUT STATO FLD_CM1_STATO
  INPUT COM FLD_CM1_COM
#include <comdcod.h>
  OUTPUT FLD_CM1_STATO STATO
  OUTPUT FLD_CM1_COM COM
  OUTPUT FLD_CM1_DENCOM DENCOM
  HELP "Codice del comune"
  MESSAGE COPY,FLD_CM2_COM
  CHECKTYPE REQUIRED
  VALIDATE FIXLEN_FUNC 4
END

STRING FLD_CM1_DENCOM 50
BEGIN
  PROMPT 20 2 ""
  FIELD LF_COMUNI->DENCOM
  USE LF_COMUNI KEY 2
  CHECKTYPE REQUIRED
  INPUT DENCOM FLD_CM1_DENCOM
#include <comdden.h>
  OUTPUT FLD_CM1_STATO STATO
  OUTPUT FLD_CM1_COM COM
  OUTPUT FLD_CM1_DENCOM DENCOM
  HELP "Denominazione del comune"
  MESSAGE COPY,FLD_CM2_DENCOM
  FLAGS "G"
  KEY 2
END

STRING FLD_CM1_PROVCOM 5
BEGIN
  PROMPT 3 4 "Provincia "
  FIELD LF_COMUNI->PROVCOM
  FLAGS "U"
  HELP "Provincia in cui risiede il comune"
END

STRING FLD_CM1_CAPCOM 5
BEGIN
  PROMPT 29 4 "CAP "
  FIELD LF_COMUNI->CAPCOM
  FLAGS "RZ"
  HELP "Codice di Avviamento Postale del comune"
END

NUMBER FLD_CM1_CODISTAT 6
BEGIN
  PROMPT 51 4 "Codice ISTAT "
  FIELD LF_COMUNI->CODISTAT
  HELP "Codice ISTAT del comune"
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 5 "Uffici II.DD."
END

NUMBER FLD_CM1_UFIIDD1 3
BEGIN
  PROMPT 3 6 "Ufficio 1 "
  FIELD LF_COMUNI->UFFIIDD1
  FLAGS "RZ"
  USE %UID
  INPUT CODTAB FLD_CM1_UFIIDD1
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM1_UFIIDD1 CODTAB
  OUTPUT FLD_CM1_DUFIIDD1 S0
  HELP "Codice ufficio imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD1 50
BEGIN
  PROMPT 20 6 ""
  FLAGS "D"
END

NUMBER FLD_CM1_UFIIDD2 3
BEGIN
  PROMPT 3 7 "Ufficio 2 "
  FIELD LF_COMUNI->UFFIIDD2
  FLAGS "RZ"
  HELP "Codice ufficio imposte dirette competente"
	COPY USE FLD_CM1_UFIIDD1
	CHECKTYPE NORMAL
	INPUT CODTAB FLD_CM1_UFIIDD2
	COPY DISPLAY FLD_CM1_UFIIDD1
	OUTPUT FLD_CM1_UFIIDD2 CODTAB 
	OUTPUT FLD_CM1_DUFIIDD2 S0 
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD2 50
BEGIN
  PROMPT 20 7 ""
  FLAGS "D"
END

NUMBER FLD_CM1_UFIIDD3 3
BEGIN
  PROMPT 3 8 "Ufficio 3 "
  FIELD LF_COMUNI->UFFIIDD3
  FLAGS "RZ"
  HELP "Codice ufficio imposte dirette competente"
	COPY USE FLD_CM1_UFIIDD1
	CHECKTYPE NORMAL
	INPUT CODTAB FLD_CM1_UFIIDD3
	COPY DISPLAY FLD_CM1_UFIIDD1
	OUTPUT FLD_CM1_UFIIDD3 CODTAB 
	OUTPUT FLD_CM1_DUFIIDD3 S0 
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD3 50
BEGIN
  PROMPT 20 8 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 10 "Uffici IVA"
END

NUMBER FLD_CM1_UFFIVA1 3
BEGIN
  PROMPT 3 11 "Ufficio 1 "
  FIELD LF_COMUNI->UFFIVA1
  FLAGS "RZ"
  USE %UIV
  INPUT CODTAB FLD_CM1_UFFIVA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM1_UFFIVA1 CODTAB
  OUTPUT FLD_CM1_DUFFIVA1 S0
  HELP "Codice ufficio IVA competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA1 50
BEGIN
  PROMPT 20 11 ""
  FLAGS "D"
END

NUMBER FLD_CM1_UFFIVA2 3
BEGIN
  PROMPT 3 12 "Ufficio 2 "
  FIELD LF_COMUNI->UFFIVA2
  FLAGS "RZ"
  HELP "Codice ufficio IVA competente"
	COPY USE FLD_CM1_UFFIVA1
	INPUT CODTAB FLD_CM1_UFFIVA2
	COPY DISPLAY FLD_CM1_UFFIVA1
	OUTPUT FLD_CM1_UFFIVA2 CODTAB 
	OUTPUT FLD_CM1_DUFFIVA2 S0 
	CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA2 50
BEGIN
  PROMPT 20 12 ""
  FLAGS "D"
END

NUMBER FLD_CM1_UFFIVA3 3
BEGIN
  PROMPT 3 13 "Ufficio 3 "
  FIELD LF_COMUNI->UFFIVA3
  FLAGS "RZ"
  HELP "Codice ufficio IVA competente"
	COPY USE FLD_CM1_UFFIVA1
	INPUT CODTAB FLD_CM1_UFFIVA3
	COPY DISPLAY FLD_CM1_UFFIVA1
	OUTPUT FLD_CM1_UFFIVA3 CODTAB 
	OUTPUT FLD_CM1_DUFFIVA3 S0 
	CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA3 50
BEGIN
  PROMPT 20 13 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Tabella Comuni 2/2" -1 -1 77 16

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
	FLAGS "R"
END

NUMBER FLD_CM2_STATO 3
BEGIN
  PROMPT 3 1 "Stato     "
  FLAGS "RZD"
END

STRING FLD_CM2_DENSTA 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
END

STRING FLD_CM2_COM 4
BEGIN
  PROMPT 3 2 "Comune    "
  FLAGS "UD"
END

STRING FLD_CM2_DENCOM 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 5 "Uffici Vari"
END

STRING FLD_CM2_UFFREG 3
BEGIN
  PROMPT 2 6 "Registro       "
  FIELD LF_COMUNI->UFFREG
  FLAGS "U"
  USE %URE
  INPUT CODTAB FLD_CM2_UFFREG
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFREG CODTAB
  OUTPUT FLD_CM2_DUFFREG S0
  HELP "Codice ufficio del registro competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFREG 50
BEGIN
  PROMPT 23 6 ""
  FLAGS "D"
END

NUMBER FLD_CM2_UFFCONC 3
BEGIN
  PROMPT 2 7 "Concessioni    "
  FIELD LF_COMUNI->UFFCONC
  FLAGS "Z"
  USE %UCC
  INPUT CODTAB FLD_CM2_UFFCONC
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFCONC CODTAB
  OUTPUT FLD_CM2_DUFFCONC S0
  HELP "Codice ufficio concessioni competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFCONC 50
BEGIN
  PROMPT 23 7 ""
  FLAGS "D"
END

NUMBER FLD_CM2_UFFCSERV 3
BEGIN
  PROMPT 2 8 "Centro Servizi "
  FIELD LF_COMUNI->UFFCSERV
  FLAGS "RZ"
  USE %UCS
  INPUT CODTAB FLD_CM2_UFFCSERV
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFCSERV CODTAB
  OUTPUT FLD_CM2_DUFFCSERV S0
  HELP "Codice del centro servizi competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFCSERV 50
BEGIN
  PROMPT 23 8 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 23 4
BEGIN
  PROMPT 1 10 "Esattorie"
END

NUMBER FLD_CM2_UFFESPROV 3
BEGIN
  PROMPT 2 11 "Provinciale    "
  FIELD LF_COMUNI->UFFESPROV
  FLAGS "RZ"
  HELP "Codice esattoria provinciale competente"
END

NUMBER FLD_CM2_UFFESCOM 3
BEGIN
  PROMPT 2 12 "Comunale       "
  FIELD LF_COMUNI->UFFESCOM
  FLAGS "RZ"
  HELP "Codice esattoria comunale competente"
END

NUMBER FLD_CM2_ALIQICI 6 3
BEGIN
  PROMPT 46 11 "Aliquota ICI         "
  FIELD LF_COMUNI->ALIQICI
  FLAGS "R"
  HELP "Aliquota ICI applicata dal comune"
  WARNING "Aliquota I.C.I. errata"
	NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<100)}
END

LIST FLD_CM2_TERRMON 3
BEGIN
  PROMPT 46 12 "Territorio montano      "
  HELP "Codice identificativo di comune residente in territorio montano"
  FIELD LF_COMUNI->TERRMON
	ITEMS " | "
//	ITEMS "0|0"
	ITEMS "1|1"
	ITEMS "2|2"
END

STRING FLD_CM2_COMAGG 4
BEGIN
  PROMPT 2 14 "Comune aggr.  "
  HELP "Codice comune a cui <20> stato accorpato il presente comune"
  FIELD LF_COMUNI->COMAGG
  FLAGS "U"
	USE LF_COMUNI
	INPUT STATO ""
	INPUT COM FLD_CM2_COMAGG 
	COPY DISPLAY FLD_CM1_COM
	OUTPUT FLD_CM2_COMAGG COM 
 	OUTPUT FLD_CM2_DENCOMAGG DENCOM 
	CHECKTYPE NORMAL
  VALIDATE FIXLEN_FUNC 4
END

STRING FLD_CM2_DENCOMAGG 50
BEGIN
  PROMPT 23 14 ""
  HELP "Denominazione comune a cui <20> stato accorpato il presente comune"
	USE LF_COMUNI KEY 2 SELECT STATO=""
	INPUT DENCOM FLD_CM2_DENCOMAGG 
	COPY DISPLAY FLD_CM1_DENCOM 
 	OUTPUT FLD_CM2_COMAGG COM 
	OUTPUT FLD_CM2_DENCOMAGG DENCOM 
END

ENDPAGE
ENDMASK