From c9d66589923afb81c1e1f067e471f09da7a9660d Mon Sep 17 00:00:00 2001 From: guy Date: Thu, 1 Sep 1994 16:24:31 +0000 Subject: [PATCH] Tolta la necessita di specificare il numero romano nella abella %IVD git-svn-id: svn://10.65.10.50/trunk@128 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba4100a.uml | 831 ++++++++++++++++++++++++------------------------ ba/batb%ivd.uml | 3 +- 2 files changed, 417 insertions(+), 417 deletions(-) diff --git a/ba/ba4100a.uml b/ba/ba4100a.uml index 56bb51f90..f8bc069df 100755 --- a/ba/ba4100a.uml +++ b/ba/ba4100a.uml @@ -1,417 +1,416 @@ -#include "ba4100.h" - -TOOLBAR "" 0 20 0 2 -#include -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 "Inserire lo stato" - 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 "Inserire la denominazione dello stato" - 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 - OUTPUT FLD_CM1_STATO STATO - OUTPUT FLD_CM1_COM COM - OUTPUT FLD_CM1_DENCOM DENCOM - HELP "Inserire il 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 - OUTPUT FLD_CM1_STATO STATO - OUTPUT FLD_CM1_COM COM - OUTPUT FLD_CM1_DENCOM DENCOM - HELP "Inserire la 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 "Inserire la provincia del comune" -END - -STRING FLD_CM1_CAPCOM 5 -BEGIN - PROMPT 29 4 "CAP " - FIELD LF_COMUNI->CAPCOM - FLAGS "RZ" - HELP "Inserire il Codice di Avviamento Postale" -END - -NUMBER FLD_CM1_CODISTAT 6 -BEGIN - PROMPT 51 4 "Codice ISTAT " - FIELD LF_COMUNI->CODISTAT - HELP "Inserire il 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 "Inserire il codice ufficio imposte dirette" - 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 "Inserire il codice ufficio imposte dirette" - 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 "Inserire il codice ufficio imposte dirette" - 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 "Inserire il codice ufficio iva" - 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 "Inserire il codice ufficio iva" - 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 "Inserire il codice ufficio iva" - 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 "Inserire il codice ufficio del registro" - 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 "RZ" - 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 "Inserire il codice ufficio concessioni" - 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 "Inserire il codice del centro servizi" - 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 "Inserire il codice esattoria provinciale" -END - -NUMBER FLD_CM2_UFFESCOM 3 -BEGIN - PROMPT 2 12 "Comunale " - FIELD LF_COMUNI->UFFESCOM - FLAGS "RZ" - HELP "Inserire il codice esattoria comunale" -END - +#include "ba4100.h" + +TOOLBAR "" 0 20 0 2 +#include +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 "Inserire lo stato" + 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 "Inserire la denominazione dello stato" + 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 + OUTPUT FLD_CM1_STATO STATO + OUTPUT FLD_CM1_COM COM + OUTPUT FLD_CM1_DENCOM DENCOM + HELP "Inserire il 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 + OUTPUT FLD_CM1_STATO STATO + OUTPUT FLD_CM1_COM COM + OUTPUT FLD_CM1_DENCOM DENCOM + HELP "Inserire la 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 "Inserire la provincia del comune" +END + +STRING FLD_CM1_CAPCOM 5 +BEGIN + PROMPT 29 4 "CAP " + FIELD LF_COMUNI->CAPCOM + FLAGS "RZ" + HELP "Inserire il Codice di Avviamento Postale" +END + +NUMBER FLD_CM1_CODISTAT 6 +BEGIN + PROMPT 51 4 "Codice ISTAT " + FIELD LF_COMUNI->CODISTAT + HELP "Inserire il 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 "Inserire il codice ufficio imposte dirette" + 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 "Inserire il codice ufficio imposte dirette" + 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 "Inserire il codice ufficio imposte dirette" + 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 "Inserire il codice ufficio iva" + 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 "Inserire il codice ufficio iva" + 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 "Inserire il codice ufficio iva" + 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 "Inserire il codice ufficio del registro" + 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 "RZ" + 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 "Inserire il codice ufficio concessioni" + 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 "Inserire il codice del centro servizi" + 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 "Inserire il codice esattoria provinciale" +END + +NUMBER FLD_CM2_UFFESCOM 3 +BEGIN + PROMPT 2 12 "Comunale " + FIELD LF_COMUNI->UFFESCOM + FLAGS "RZ" + HELP "Inserire il codice esattoria comunale" +END + NUMBER FLD_CM2_ALIQICI 6 3 -BEGIN - PROMPT 46 11 "Aliquota ICI " - FIELD LF_COMUNI->ALIQICI - FLAGS "R" - HELP "Inserire aliquota ICI" - 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 " - 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. " - 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 "" - 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 +BEGIN + PROMPT 46 11 "Aliquota ICI " + FIELD LF_COMUNI->ALIQICI + FLAGS "R" + HELP "Inserire aliquota ICI" + 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 " + 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. " + 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 "" + 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 diff --git a/ba/batb%ivd.uml b/ba/batb%ivd.uml index 5c8d1fb0b..5cf3a574e 100755 --- a/ba/batb%ivd.uml +++ b/ba/batb%ivd.uml @@ -61,7 +61,8 @@ BEGIN KEY 1 COPY ALL F_LETT HELP "Numero (arabo) secondo la IV dir. CEE" - VALIDATE AUTOEXIT_FUNC 3 F_LETT F_CLASSE F_NUM +// VALIDATE AUTOEXIT_FUNC 3 F_LETT F_CLASSE F_NUM + VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM END STRING F_DESCR 50