Merge branch 'R12.00.1244' of http://192.168.2.5:30000/root/campo-sirio into R12.00.1244

Files correlati     : ba4200b.msk ba4200c.msk

Commento                :
Certificazione unica

src/ba/ba4200b.uml

@@ -93,6 +93,7 @@ KEY 2
 HELP "Nome della persona fisica"
 MESSAGE COPY,3@
 CHECKTYPE REQUIRED
+WARNING "Inserire il nome"
 END
 
 RADIOBUTTON LST_AF1_SESSO 1 16
@@ -353,7 +354,7 @@ PROMPT 9 8 ": Codice "
 FIELD LF_ANAG->COMRES
 FLAGS "U"
 COPY USE FLD_AF1_COMNASC
-INPUT STATO F_STATORES
+INPUT STATO F_STATORES SELECT
 INPUT COM FLD_AF1_COMRES
 COPY DISPLAY FLD_AF1_COMNASC
 OUTPUT F_STATORES STATO
@@ -455,7 +456,7 @@ OUTPUT FLD_AF2_CAPRF CAPCOM
 HELP "Inserire il codice del comune di domicilio fiscale"
 CHECKTYPE NORMAL
 WARNING "Comune assente"
-ADD RUN ba4 -0
+ADD RUN 773mod -3 %CA7
 VALIDATE REQIF_FUNC 1 FLD_AF2_INDRF
 END
 
@@ -567,7 +568,7 @@ PROMPT 9 9 ": Codice "
 FIELD LF_ANAG->COMCORR
 FLAGS "U"
 COPY USE FLD_AF1_COMNASC
-INPUT STATO FLD_AF2_STATOCORR
+INPUT STATO FLD_AF2_STATOCORR SELECT
 INPUT COM FLD_AF2_COMCORR
 COPY DISPLAY FLD_AF1_COMNASC
 OUTPUT FLD_AF2_STATOCORR STATO
@@ -963,19 +964,48 @@ BEGIN
   DISPLAY "T.S." S4
   OUTPUT F_CAUSQUA CODTAB
   CHECKTYPE NORMAL
+  ADD RUN  773mod -3 %CA7
   FIELD CAUSQUA
 END
 
-STRING F_CATPAR 2
+TEXT DLG_NULL 
 BEGIN
-  PROMPT 41 11 "Categorie particolari      "
+  PROMPT 2 12 "Categorie particolari"
+END
+
+LISTBOX F_CATPAR 2 70
+BEGIN
+  PROMPT 2 13 ""
+  ITEM "|"
+  ITEM "A|Pensionati"
+  ITEM "AA|Pensionati privati"
+  ITEM "AB|Pensionati pubblici"
+  ITEM "AC|Pensionati in cumulo o totalizzazione"
+  ITEM "AD|Pensionati da lavoro autonomo"
+  ITEM "B|Pensionati da casellario pensionistico"
+  ITEM "C|Insegnanti univers., docenti, incaricati, ricercatori e ass."
+  ITEM "D|Insegnanti e presidi di scuola media"
+  ITEM "E|Insegnanti e direttori di scuola elementare e materna"
+  ITEM "F|Graduati e truppa"
+  ITEM "G|Sottufficiali"
+  ITEM "H|Ufficiali"
+  ITEM "K|Magistrati"
+  ITEM "L|Dipendenti all’estero"
+  ITEM "T1|Indennità a parlamentare o a giudice costituzionale"
+  ITEM "T2|Assegno vitalizio diretto o di revers. a parlam. o a giudice costituz."
+  ITEM "T3|Indennità o ass.vitalizio a parlam.cessato dal mand. in corso d’anno"
+  ITEM "T4|Corte Costituzionale categoria ad esaurimento"
+  ITEM "Z|Eredi"
+  ITEM "Z2|Ex coniuge (in caso di procedure di pignoramento presso terzi)"
+  ITEM "Z3|Soci di cooperative artigiane di cui legge n. 208 del 2005"
+  ITEM "Z4|Dipendenti di ditta appaltatrice inadempiente"
   FIELD CATPAR
-  HELP "Puo' assumere i valori da 'A' a 'Z3'"
+  HELP "Puo' assumere i valori da 'A' a 'Z3' e 'AA' 'AB' 'AC' 'AD'"
 END
 
 NUMBER F_ESCPRECOMP 1
 BEGIN
-  PROMPT 41 12 "Esclusione da precompilata "
+  PROMPT 41 14 "Esclusione da precompilata "
   SHEET "Codice|Descrizione@50"
   INPUT F_ESCPRECOMP
   OUTPUT F_ESCPRECOMP
@@ -988,12 +1018,12 @@ END
 
 GROUPBOX DLG_NULL 78 5
 BEGIN
-PROMPT 0 13 "Codici statistici"
+PROMPT 0 15 "Codici statistici"
 END
 
 STRING FLD_AF5_CODSTAT1 7
 BEGIN
-PROMPT 2 14 "1  "
+PROMPT 2 16 "1  "
 FIELD LF_ANAG->CODSTAT1
 USE %STT
 INPUT CODTAB FLD_AF5_CODSTAT1
@@ -1008,13 +1038,13 @@ END
 
 STRING FLD_AF5_CODSTAT1_TABSTT_S0 57
 BEGIN
-PROMPT 16 14 ""
+PROMPT 16 16 ""
 FLAGS "D"
 END
 
 STRING FLD_AF5_CODSTAT2 7
 BEGIN
-PROMPT 2 15 "2  "
+PROMPT 2 17 "2  "
 FIELD LF_ANAG->CODSTAT2
 COPY USE FLD_AF5_CODSTAT1
 INPUT CODTAB FLD_AF5_CODSTAT2
@@ -1028,13 +1058,13 @@ END
 
 STRING FLD_AF5_CODSTAT2_TABSTT_S0 57
 BEGIN
-PROMPT 16 15 ""
+PROMPT 16 17 ""
 FLAGS "D"
 END
 
 STRING FLD_AF5_CODSTAT3 7
 BEGIN
-PROMPT 2 16 "3  "
+PROMPT 2 18 "3  "
 FIELD LF_ANAG->CODSTAT3
 COPY USE FLD_AF5_CODSTAT1
 INPUT CODTAB FLD_AF5_CODSTAT3
@@ -1048,13 +1078,12 @@ END
 
 STRING FLD_AF5_CODSTAT3_TABSTT_S0 57
 BEGIN
-PROMPT 16 16 ""
+PROMPT 16 18 ""
 FLAGS "D"
 END
 
 ENDPAGE
 
-
 PAGE "Pag.6" -1 -1 77 20
 
 GROUPBOX DLG_NULL 78 5

src/ba/ba4200c.uml

@@ -24,7 +24,7 @@ PAGE "Pag.1" -1 -1 77 19
   PROMPT 1 60 ""
   FIELD LF_ANAG->TIPOA
   ITEM "G|Giuridica"
-  FLAGS "D"
+  FLAGS "DG"
   KEY 1 2 3
  END
 
@@ -269,8 +269,8 @@ BEGIN
   OUTPUT F_STATORES CODTAB
   HELP "Codice dello stato di residenza"
   CHECKTYPE NORMAL 
-  MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES 
-  MESSAGE EMPTY ENABLE,F_STATORES
+//  MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES 
+//  MESSAGE EMPTY ENABLE,F_STATORES
 END
 
 STRING FLD_AG2_COMRES 4
@@ -279,7 +279,7 @@ BEGIN
   FIELD LF_ANAG->COMRES
   FLAGS "U"
   USE LF_COMUNI
-  INPUT STATO F_STATORES
+  INPUT STATO F_STATORES SELECT
   INPUT COM FLD_AG2_COMRES
 #include <comdcod.h>
   OUTPUT F_STATORES STATO
@@ -372,7 +372,7 @@ BEGIN
   FIELD LF_ANAG->COMRF
   FLAGS "U"
   USE LF_COMUNI
-  INPUT STATO ""
+  INPUT STATO "" 
   INPUT COM FLD_AG1_COMRF
   COPY DISPLAY FLD_AG2_COMRES
   OUTPUT FLD_AG1_COMRF COM
@@ -403,7 +403,6 @@ STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
 BEGIN
   PROMPT 9 14 ": Denom. "
   HELP "Nome del comune residenza fiscale"
-//  USE LF_COMUNI KEY 2 SELECT STATO==""
   COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
   INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
   COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
@@ -503,7 +502,7 @@ BEGIN
   FIELD LF_ANAG->COMCORR
   FLAGS "U"
   COPY USE FLD_AG2_COMRES
-  INPUT STATO FLD_AG2_STATOCORR
+  INPUT STATO FLD_AG2_STATOCORR SELECT
   INPUT COM FLD_AG2_COMCORR
   COPY DISPLAY FLD_AG2_COMRES
   OUTPUT FLD_AG2_STATOCORR STATO
@@ -639,7 +638,6 @@ BEGIN
   PROMPT 2 5 "Luogo costituz. "
   FIELD LF_ANAGGIU->COMCOST
   FLAGS "U"
-//  USE LF_COMUNI
   COPY USE FLD_AG2_COMRES
   INPUT STATO ""
   INPUT COM F_COMCOST
@@ -1052,19 +1050,48 @@ BEGIN
   DISPLAY "T.S." S4
   OUTPUT F_CAUSQUA CODTAB
   CHECKTYPE NORMAL
+  ADD RUN  773mod -3 %CA7
   FIELD CAUSQUA
 END
 
-STRING F_CATPAR 2
+TEXT DLG_NULL 
 BEGIN
-  PROMPT 41 6 "Categorie particolari      "
+  PROMPT 2 7 "Categorie particolari"
+END
+
+LISTBOX F_CATPAR 2 70
+BEGIN
+  PROMPT 2 8 ""
+  ITEM "|"
+  ITEM "A|Pensionati"
+  ITEM "AA|Pensionati privati"
+  ITEM "AB|Pensionati pubblici"
+  ITEM "AC|Pensionati in cumulo o totalizzazione"
+  ITEM "AD|Pensionati da lavoro autonomo"
+  ITEM "B|Pensionati da casellario pensionistico"
+  ITEM "C|Insegnanti univers., docenti, incaricati, ricercatori e ass."
+  ITEM "D|Insegnanti e presidi di scuola media"
+  ITEM "E|Insegnanti e direttori di scuola elementare e materna"
+  ITEM "F|Graduati e truppa"
+  ITEM "G|Sottufficiali"
+  ITEM "H|Ufficiali"
+  ITEM "K|Magistrati"
+  ITEM "L|Dipendenti all’estero"
+  ITEM "T1|Indennità a parlamentare o a giudice costituzionale"
+  ITEM "T2|Assegno vitalizio diretto o di revers. a parlam. o a giudice costituz."
+  ITEM "T3|Indennità o ass.vitalizio a parlam.cessato dal mand. in corso d’anno"
+  ITEM "T4|Corte Costituzionale categoria ad esaurimento"
+  ITEM "Z|Eredi"
+  ITEM "Z2|Ex coniuge (in caso di procedure di pignoramento presso terzi)"
+  ITEM "Z3|Soci di cooperative artigiane di cui legge n. 208 del 2005"
+  ITEM "Z4|Dipendenti di ditta appaltatrice inadempiente"
   FIELD CATPAR
-  HELP "Puo' assumere i valori da 'A' a 'Z3'"
+  HELP "Puo' assumere i valori da 'A' a 'Z3' e 'AA' 'AB' 'AC' 'AD'"
 END
 
 NUMBER F_ESCPRECOMP 1
 BEGIN
-  PROMPT 41 7 "Esclusione da precompilata "
+  PROMPT 41 9 "Esclusione da precompilata "
   SHEET "Codice|Descrizione@50"
   INPUT F_ESCPRECOMP
   OUTPUT F_ESCPRECOMP
@@ -1076,12 +1103,12 @@ END
 
 GROUPBOX DLG_NULL 78 5
 BEGIN
-  PROMPT 0 8 "Codici statistici"
+  PROMPT 0 10 "Codici statistici"
 END
 
 STRING FLD_AG6_CODSTAT1 7
 BEGIN
-  PROMPT 2 9 "1  "
+  PROMPT 2 11 "1  "
   FIELD LF_ANAG->CODSTAT1
   USE %STT
   INPUT CODTAB FLD_AG6_CODSTAT1
@@ -1096,13 +1123,13 @@ END
 
 STRING FLD_AG6_CODSTAT1_TABSTT_S0 57
 BEGIN
-  PROMPT 16 9 ""
+  PROMPT 16 11 ""
   FLAGS "D"
 END
 
 STRING FLD_AG6_CODSTAT2 7
 BEGIN
-  PROMPT 2 10 "2  "
+  PROMPT 2 12 "2  "
   FIELD LF_ANAG->CODSTAT2
   COPY USE FLD_AG6_CODSTAT1
   INPUT CODTAB FLD_AG6_CODSTAT2
@@ -1116,13 +1143,13 @@ END
 
 STRING FLD_AG6_CODSTAT2_TABSTT_S0 57
 BEGIN
-  PROMPT 16 10 ""
+  PROMPT 16 12 ""
   FLAGS "D"
 END
 
 STRING FLD_AG6_CODSTAT3 7
 BEGIN
-  PROMPT 2 11 "3  "
+  PROMPT 2 13 "3  "
   FIELD LF_ANAG->CODSTAT3
   COPY USE FLD_AG6_CODSTAT1
   INPUT CODTAB FLD_AG6_CODSTAT3
@@ -1136,46 +1163,46 @@ END
 
 STRING FLD_AG6_CODSTAT3_TABSTT_S0 57
 BEGIN
-  PROMPT 16 11 ""
+  PROMPT 16 13 ""
   FLAGS "D"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 13 "Note"
+  PROMPT 2 15 "Note"
 END
 
 STRING FLD_AG6_NOTE1 70
 BEGIN
-  PROMPT 3 14 ""
+  PROMPT 3 16 ""
   FIELD LF_ANAGGIU->NOTE1
   HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE2 70
 BEGIN
-  PROMPT 3 15 ""
+  PROMPT 3 17 ""
   FIELD LF_ANAGGIU->NOTE2
   HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE3 70
 BEGIN
-  PROMPT 3 16 ""
+  PROMPT 3 18 ""
   FIELD LF_ANAGGIU->NOTE3
   HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE4 70
 BEGIN
-  PROMPT 3 17 ""
+  PROMPT 3 19 ""
   FIELD LF_ANAGGIU->NOTE4
   HELP "Eventuali note relative alla società"
 END
 
 STRING FLD_AG6_NOTE5 70
 BEGIN
-  PROMPT 3 18 ""
+  PROMPT 3 20 ""
   FIELD LF_ANAGGIU->NOTE5
   HELP "Eventuali note relative alla società"
 END

src/ba/bamenu.men

@@ -7,10 +7,10 @@ Item_01 = "Anagrafiche di base", [MENU_001], "", 10214
 Item_02 = "Amministrazione", <cgarea.men>, "", 10212
 Item_03 = "Acquisti e vendite", <vearea.men>, "", 10211
 Item_04 = "Magazzino e Produzione", <mgarea.men>, "", 10215
-Item_05 = "Fatturazione Elettronica", <fpmenu.men>, "", 10239
-Item_06 = "Fatturazione Elettronica (FePa)", <fpmenuf.men>, "", 10239
-Item_07 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
-Item_08 = "Manutenzione", [MENU_015], "", 10210
+Item_05 = "Fatturazione Elettronica (FePa)", <fpmenuf.men>, "", 10239
+Item_06 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
+Item_07 = "Manutenzione", [MENU_015], "", 10210
+Item_08 = "Fatturazione Elettronica", <fpmenu.men>, "", 10239
 Item_09 = "Preferiti", [MENU_PREFERITI], "", 10216
 
 [MENU_001]