diff --git a/ba/ba4100a.uml b/ba/ba4100a.uml index c0b83c410..e4a80153d 100755 --- a/ba/ba4100a.uml +++ b/ba/ba4100a.uml @@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2 #include ENDPAGE -PAGE "Comuni" -1 -1 77 18 +PAGE "Pag. 1" -1 -1 77 18 GROUPBOX DLG_NULL 75 4 BEGIN @@ -25,7 +25,7 @@ BEGIN OUTPUT FLD_CM1_DENSTA S0 HELP "Codice dello stato in cui risiede il comune" CHECKTYPE SEARCH - MESSAGE COPY,FLD_CM2_STATO + MESSAGE COPY,20@ WARNING "Stato non presente" KEY 1 END @@ -40,7 +40,7 @@ BEGIN OUTPUT FLD_CM1_STATO CODTAB OUTPUT FLD_CM1_DENSTA S0 HELP "Nome dello stato in cui risiede il comune" - MESSAGE COPY,FLD_CM2_DENSTA + MESSAGE COPY,21@ END STRING FLD_CM1_COM 4 @@ -57,7 +57,7 @@ BEGIN OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_DENCOM DENCOM HELP "Codice del comune" - MESSAGE COPY,FLD_CM2_COM + MESSAGE COPY,22@ CHECKTYPE REQUIRED VALIDATE FIXLEN_FUNC 4 END @@ -74,7 +74,7 @@ BEGIN OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_DENCOM DENCOM HELP "Denominazione del comune" - MESSAGE COPY,FLD_CM2_DENCOM + MESSAGE COPY,23@ FLAGS "G" KEY 2 END @@ -242,7 +242,7 @@ END ENDPAGE -PAGE "Comuni" -1 -1 77 18 +PAGE "Pag. 2" -1 -1 77 18 GROUPBOX DLG_NULL 75 4 BEGIN @@ -254,24 +254,28 @@ NUMBER FLD_CM2_STATO 3 BEGIN PROMPT 3 1 "Stato " FLAGS "RZD" + GROUP 20 END STRING FLD_CM2_DENSTA 50 BEGIN PROMPT 20 1 "" FLAGS "D" + GROUP 21 END STRING FLD_CM2_COM 4 BEGIN PROMPT 3 2 "Comune " FLAGS "UD" + GROUP 22 END STRING FLD_CM2_DENCOM 50 BEGIN PROMPT 20 2 "" FLAGS "D" + GROUP 23 END GROUPBOX DLG_NULL 75 5 @@ -433,17 +437,50 @@ END ENDPAGE -PAGE "Uffici Entrate" -1 -1 77 18 +PAGE "Pag. 3" -1 -1 77 18 + +GROUPBOX DLG_NULL 75 4 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +NUMBER FLD_CM2_STATO 3 +BEGIN + PROMPT 3 1 "Stato " + FLAGS "RZD" + GROUP 20 +END + +STRING FLD_CM2_DENSTA 50 +BEGIN + PROMPT 20 1 "" + FLAGS "D" + GROUP 21 +END + +STRING FLD_CM2_COM 4 +BEGIN + PROMPT 3 2 "Comune " + FLAGS "UD" + GROUP 22 +END + +STRING FLD_CM2_DENCOM 50 +BEGIN + PROMPT 20 2 "" + FLAGS "D" + GROUP 23 +END GROUPBOX DLG_NULL 75 12 BEGIN - PROMPT 1 0 "Uffici Entrate" - FLAGS "R" + PROMPT 1 4 "Uffici Entrate" END NUMBER F_CODUUE1 3 BEGIN - PROMPT 1 1 "Ufficio 1 " + PROMPT 2 5 "Ufficio 1 " FIELD CODUUE1 FLAGS "Z" USE %UUE @@ -454,13 +491,13 @@ BEGIN OUTPUT F_DESUUE1 S0 CHECKTYPE NORMAL WARNING "Ufficio assente" - MESSAGE EMPTY DISABLE,2@ + MESSAGE EMPTY CLEAR,2@ MESSAGE ENABLE,F_CODUUE2|ENABLE,F_DESUUE2 END STRING F_DESUUE1 50 BEGIN - PROMPT 20 1 "" + PROMPT 20 5 "" USE %UUE KEY 2 INPUT S0 F_DESUUE1 DISPLAY "Denominazione@50" S0 @@ -471,7 +508,7 @@ END NUMBER F_CODUUE2 3 BEGIN - PROMPT 1 2 "Ufficio 2 " + PROMPT 2 6 "Ufficio 2 " FIELD CODUUE2 FLAGS "Z" COPY USE F_CODUUE1 @@ -481,14 +518,14 @@ BEGIN OUTPUT F_DESUUE2 S0 CHECKTYPE NORMAL WARNING "Ufficio assente" - MESSAGE EMPTY DISABLE,3@ + MESSAGE EMPTY CLEAR,3@ MESSAGE ENABLE,F_CODUUE3|ENABLE,F_DESUUE3 GROUP 2 END STRING F_DESUUE2 50 BEGIN - PROMPT 20 2 "" + PROMPT 20 6 "" COPY USE F_DESUUE1 INPUT S0 F_DESUUE2 COPY DISPLAY F_DESUUE1 @@ -499,7 +536,7 @@ END NUMBER F_CODUUE3 3 BEGIN - PROMPT 1 3 "Ufficio 3 " + PROMPT 2 7 "Ufficio 3 " FIELD CODUUE3 FLAGS "Z" COPY USE F_CODUUE1 @@ -509,14 +546,14 @@ BEGIN OUTPUT F_DESUUE3 S0 CHECKTYPE NORMAL WARNING "Ufficio assente" -// MESSAGE EMPTY DISABLE,4@ -// MESSAGE ENABLE,F_CODUUE4|ENABLE,F_DESUUE4 + MESSAGE EMPTY CLEAR,4@ + MESSAGE ENABLE,F_CODUUE4|ENABLE,F_DESUUE4 GROUP 2 3 END STRING F_DESUUE3 50 BEGIN - PROMPT 20 3 "" + PROMPT 20 7 "" COPY USE F_DESUUE1 INPUT S0 F_DESUUE3 COPY DISPLAY F_DESUUE1 @@ -525,6 +562,200 @@ BEGIN GROUP 2 3 END +NUMBER F_CODUUE4 3 +BEGIN + PROMPT 2 8 "Ufficio 4 " + FIELD CODUUE4 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE4 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE4 CODTAB + OUTPUT F_DESUUE4 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,5@ + MESSAGE ENABLE,F_CODUUE5|ENABLE,F_DESUUE5 + GROUP 2 3 4 +END + +STRING F_DESUUE4 50 +BEGIN + PROMPT 20 8 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE4 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE4 + CHECKTYPE NORMAL + GROUP 2 3 4 +END + +NUMBER F_CODUUE5 3 +BEGIN + PROMPT 2 9 "Ufficio 5 " + FIELD CODUUE5 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE5 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE5 CODTAB + OUTPUT F_DESUUE5 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,6@ + MESSAGE ENABLE,F_CODUUE6|ENABLE,F_DESUUE6 + GROUP 2 3 4 5 +END + +STRING F_DESUUE5 50 +BEGIN + PROMPT 20 9 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE5 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE5 + CHECKTYPE NORMAL + GROUP 2 3 4 5 +END + +NUMBER F_CODUUE6 3 +BEGIN + PROMPT 2 10 "Ufficio 6 " + FIELD CODUUE6 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE6 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE6 CODTAB + OUTPUT F_DESUUE6 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,7@ + MESSAGE ENABLE,F_CODUUE7|ENABLE,F_DESUUE7 + GROUP 2 3 4 5 6 +END + +STRING F_DESUUE6 50 +BEGIN + PROMPT 20 10 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE6 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE6 + CHECKTYPE NORMAL + GROUP 2 3 4 5 6 +END + +NUMBER F_CODUUE7 3 +BEGIN + PROMPT 2 11 "Ufficio 7 " + FIELD CODUUE7 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE7 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE7 CODTAB + OUTPUT F_DESUUE7 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,8@ + MESSAGE ENABLE,F_CODUUE8|ENABLE,F_DESUUE8 + GROUP 2 3 4 5 6 7 +END + +STRING F_DESUUE7 50 +BEGIN + PROMPT 20 11 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE7 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE7 + CHECKTYPE NORMAL + GROUP 2 3 4 5 6 7 +END + +NUMBER F_CODUUE8 3 +BEGIN + PROMPT 2 12 "Ufficio 8 " + FIELD CODUUE8 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE8 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE8 CODTAB + OUTPUT F_DESUUE8 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,9@ + MESSAGE ENABLE,F_CODUUE9|ENABLE,F_DESUUE9 + GROUP 2 3 4 5 6 7 8 +END + +STRING F_DESUUE8 50 +BEGIN + PROMPT 20 12 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE8 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE8 + CHECKTYPE NORMAL + GROUP 2 3 4 5 6 7 8 +END + +NUMBER F_CODUUE9 3 +BEGIN + PROMPT 2 13 "Ufficio 9 " + FIELD CODUUE9 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE9 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE9 CODTAB + OUTPUT F_DESUUE9 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + MESSAGE EMPTY CLEAR,10@ + MESSAGE ENABLE,F_CODUUE10|ENABLE,F_DESUUE10 + GROUP 2 3 4 5 6 7 8 9 +END + +STRING F_DESUUE9 50 +BEGIN + PROMPT 20 13 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE9 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE9 + CHECKTYPE NORMAL + GROUP 2 3 4 5 6 7 8 9 +END + +NUMBER F_CODUUE10 3 +BEGIN + PROMPT 2 14 "Ufficio 10" + FIELD CODUUE10 + FLAGS "Z" + COPY USE F_CODUUE1 + INPUT CODTAB F_CODUUE10 + COPY DISPLAY F_CODUUE1 + OUTPUT F_CODUUE10 CODTAB + OUTPUT F_DESUUE10 S0 + CHECKTYPE NORMAL + WARNING "Ufficio assente" + GROUP 2 3 4 5 6 7 8 9 10 +END + +STRING F_DESUUE10 50 +BEGIN + PROMPT 20 14 "" + COPY USE F_DESUUE1 + INPUT S0 F_DESUUE10 + COPY DISPLAY F_DESUUE1 + COPY OUTPUT F_CODUUE10 + CHECKTYPE NORMAL + GROUP 2 3 4 5 6 7 8 9 10 +END + ENDPAGE ENDMASK diff --git a/ba/f13.dir b/ba/f13.dir index c33b38480..32e7462f9 100755 --- a/ba/f13.dir +++ b/ba/f13.dir @@ -1,3 +1,3 @@ 13 1 -%comuni|0|0|120|0|Comuni|500|| +%comuni|0|0|150|0|Comuni|500|| diff --git a/ba/f13.trr b/ba/f13.trr index c847de84d..3d141d7b8 100755 --- a/ba/f13.trr +++ b/ba/f13.trr @@ -1,5 +1,5 @@ 13 -21 +31 STATO|1|3|0|Codice stato COM|1|4|0|Codice comune DENCOM|1|50|0|Denominazione del comune @@ -21,6 +21,16 @@ UFFESCOM|9|3|0|Codice esattoria comunale ALIQICI|4|6|3|Aliquota ICI COMAGG|1|4|0|Codice comune aggregato TERRMON|2|1|0|Territorio montano +CODUUE1|9|3|0|Codice ufficio unico entrate 1 +CODUUE2|9|3|0|Codice ufficio unico entrate 2 +CODUUE3|9|3|0|COdice ufficio unico entrate 3 +CODUUE4|9|3|0|Codice ufficio unico entrate 4 +CODUUE5|9|3|0|Codice ufficio unico entrate 5 +CODUUE6|9|3|0|Codice ufficio unico entrate 6 +CODUUE7|9|3|0|Codice ufficio unico entrate 7 +CODUUE8|9|3|0|Codice ufficio unico entrate 8 +CODUUE9|9|3|0|Codice ufficio unico entrate 9 +CODUUE10|9|3|0|Codice ufficio unico entrate 10 3 STATO+COM| UPPER(DENCOM)|X