MOdifica alle anagrafiche windows :

Aggiunti 10 uffici unici entrate ai comuni (CODUUE1-10)


git-svn-id: svn://10.65.10.50/trunk@5519 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-11-03 13:59:44 +00:00
parent 3c03f62341
commit 1c25f11748
3 changed files with 262 additions and 21 deletions

View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
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

View File

@ -1,3 +1,3 @@
13
1
%comuni|0|0|120|0|Comuni|500||
%comuni|0|0|150|0|Comuni|500||

View File

@ -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