From cb1856050e94317873feab982fd0be5e5fa58a2d Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Fri, 17 Jan 2025 00:35:50 +0100 Subject: [PATCH] Patch level : 12.00 1376 Files correlati : cg0.exe cg0700a.msk recdesc/dir13.xml recdesc/trc13.xml recdesc/dir18.xml recdesc/trc18.xml ba4100a.msk Bug : Commento: Aggiunti campi TIPOPERS ALLEG PADESTIN PFAX FAX agli occasionali Nel file ini dei clienti i campi impostati CODISTATCF CODISTATNASC decodificano il codice comune cliente e il codice comune di nascita Nel file ini dei clienti occasionali i campi impostati CODISTAT CODISTATNASC decodificano il codice comune cliente e il codice comune di nascita Campo codice istat zerofilled e aggiunta relativa chiave --- src/ba/ba4100.cpp | 5 +- src/ba/ba4100a.h | 98 ++++++-------- src/ba/ba4100a.uml | 282 ++++++++++++++++++++++------------------- src/ba/recdesc/f13.dir | 2 +- src/ba/recdesc/f13.trr | 5 +- src/ba/recdesc/f18.dir | 2 +- src/ba/recdesc/f18.trr | 11 +- 7 files changed, 203 insertions(+), 202 deletions(-) diff --git a/src/ba/ba4100.cpp b/src/ba/ba4100.cpp index d562bde43..b2b0eb73b 100755 --- a/src/ba/ba4100.cpp +++ b/src/ba/ba4100.cpp @@ -1,3 +1,4 @@ +#include #include #include "ba4.h" @@ -25,12 +26,12 @@ public: void TComuni_app::init_query_mode(TMask& m) { - m.enable(FLD_CM1_DENSTA); + m.enable(F_DENSTA); } void TComuni_app::init_modify_mode(TMask& m) { - m.disable(FLD_CM1_DENSTA); + m.disable(F_DENSTA); } TComuni_app & app() { return (TComuni_app &) main_app(); } diff --git a/src/ba/ba4100a.h b/src/ba/ba4100a.h index 5aa952815..59854076d 100755 --- a/src/ba/ba4100a.h +++ b/src/ba/ba4100a.h @@ -3,43 +3,39 @@ // campi maschera ba4100a.msk -#define FLD_CM1_STATO 101 -#define FLD_CM1_COM 102 -#define FLD_CM1_DENCOM 103 -#define FLD_CM1_PROVCOM 104 -#define FLD_CM1_CAPCOM 105 -#define FLD_CM1_CODISTAT 106 -#define FLD_CM1_UFIIDD1 107 -#define FLD_CM1_DUFIIDD1 108 -#define FLD_CM1_UFIIDD2 109 -#define FLD_CM1_DUFIIDD2 110 -#define FLD_CM1_UFIIDD3 111 -#define FLD_CM1_DUFIIDD3 112 -#define FLD_CM1_UFFIVA1 113 -#define FLD_CM1_DUFFIVA1 114 -#define FLD_CM1_UFFIVA2 115 -#define FLD_CM1_DUFFIVA2 116 -#define FLD_CM1_UFFIVA3 117 -#define FLD_CM1_DUFFIVA3 118 -#define FLD_CM2_UFFREG 119 -#define FLD_CM2_DUFFREG 120 -#define FLD_CM2_UFFCONC 121 -#define FLD_CM2_DUFFCONC 122 -#define FLD_CM2_UFFCSERV 123 -#define FLD_CM2_DUFFCSERV 124 -#define FLD_CM2_UFFESPROV 125 -#define FLD_CM2_DUFFESPROV 126 -#define FLD_CM2_UFFESCOM 127 -#define FLD_CM2_DUFFESCOM 128 -#define FLD_CM2_ALIQICI 129 -#define FLD_CM1_DENSTA 130 -#define FLD_CM2_COMAGG 131 -#define FLD_CM2_DENCOMAGG 132 -#define FLD_CM2_TERRMON 133 -#define FLD_CM2_STATO 134 -#define FLD_CM2_COM 135 -#define FLD_CM2_DENCOM 136 -#define FLD_CM2_DENSTA 137 +#define F_STATO 101 +#define F_COM 102 +#define F_DENCOM 103 +#define F_PROVCOM 104 +#define F_CAPCOM 105 +#define F_CODISTAT 106 +#define F_UFIIDD1 107 +#define F_DUFIIDD1 108 +#define F_UFIIDD2 109 +#define F_DUFIIDD2 110 +#define F_UFIIDD3 111 +#define F_DUFIIDD3 112 +#define F_UFFIVA1 113 +#define F_DUFFIVA1 114 +#define F_UFFIVA2 115 +#define F_DUFFIVA2 116 +#define F_UFFIVA3 117 +#define F_DUFFIVA3 118 +#define F_UFFREG 119 +#define F_DUFFREG 120 +#define F_UFFCONC 121 +#define F_DUFFCONC 122 +#define F_UFFCSERV 123 +#define F_DUFFCSERV 124 +#define F_UFFESPROV 125 +#define F_DUFFESPROV 126 +#define F_UFFESCOM 127 +#define F_DUFFESCOM 128 +#define F_ALIQICI 129 +#define F_DENSTA 130 +#define F_COMAGG 131 +#define F_DENCOMAGG 132 +#define F_TERRMON 133 #define F_CODREG 138 #define F_DESREG 139 #define F_CODUUE1 140 @@ -62,32 +58,10 @@ #define F_DESUUE9 157 #define F_CODUUE10 158 #define F_DESUUE10 159 -#define FLD_CM2_UFFDOG 160 -#define FLD_CM2_DUFFDOG 161 +#define F_UFFDOG 160 +#define F_DUFFDOG 161 -#define FLD_CM3_STATO 170 -#define FLD_CM3_COM 171 -#define FLD_CM3_DENCOM 172 -#define FLD_CM3_DENSTA 163 - -#define N_STATO "STATO" -#define N_COM "COM" -#define N_DEN_COM "DENCOM" -#define N_PROV "PROVCOM" -#define N_CAP "CAPCOM" -#define N_ISTAT "CODISTAT" -#define N_IMPDIR1 "UFFIIDD1" -#define N_IMPDIR2 "UFFIIDD2" -#define N_IMPDIR3 "UFFIIDD3" -#define N_IVA1 "UFFIVA1" -#define N_IVA2 "UFFIVA2" -#define N_IVA3 "UFFIVA3" -#define N_REG "UFFREG" -#define N_CONC "UFFCONC" -#define N_CENTRO_SERV "UFFCSERV" -#define N_ESATT_PROV "UFFESPROV" -#define N_ESATT_COM "UFFESCOM" -#define N_ALIQ_ICI "ALIQICI" +#include #endif // __BA4100_H diff --git a/src/ba/ba4100a.uml b/src/ba/ba4100a.uml index 5046de564..0640f3a94 100755 --- a/src/ba/ba4100a.uml +++ b/src/ba/ba4100a.uml @@ -12,17 +12,17 @@ BEGIN FLAGS "R" END -NUMBER FLD_CM1_STATO 3 +NUMBER F_STATO 3 BEGIN PROMPT 3 1 "Stato " FIELD LF_COMUNI->STATO FLAGS "RZG" USE %STA - INPUT CODTAB FLD_CM1_STATO + INPUT CODTAB F_STATO DISPLAY "Codice" CODTAB DISPLAY "Nome@50" S0 - OUTPUT FLD_CM1_STATO CODTAB - OUTPUT FLD_CM1_DENSTA S0 + OUTPUT F_STATO CODTAB + OUTPUT F_DENSTA S0 HELP "Codice dello stato in cui risiede il comune" CHECKTYPE SEARCH MESSAGE COPY,20@ @@ -30,56 +30,65 @@ BEGIN KEY 1 END -STRING FLD_CM1_DENSTA 50 +STRING F_DENSTA 50 BEGIN PROMPT 20 1 "" USE %STA KEY 2 - INPUT S0 FLD_CM1_DENSTA + INPUT S0 F_DENSTA DISPLAY "Nome@50" S0 DISPLAY "Codice" CODTAB - OUTPUT FLD_CM1_STATO CODTAB - OUTPUT FLD_CM1_DENSTA S0 + OUTPUT F_STATO CODTAB + OUTPUT F_DENSTA S0 HELP "Nome dello stato in cui risiede il comune" MESSAGE COPY,21@ END -STRING FLD_CM1_COM 4 +STRING F_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 + INPUT STATO F_STATO + INPUT COM F_COM + DISPLAY "Stato" STATO + DISPLAY "Codice" COM + DISPLAY "Denominazione@50" DENCOM + DISPLAY "Provincia" PROVCOM + DISPLAY "CAP " CAPCOM + DISPLAY "Codice ISTAT" CODISTAT + OUTPUT F_STATO STATO + OUTPUT F_COM COM + OUTPUT F_DENCOM DENCOM + OUTPUT F_CODISTAT CODISTAT HELP "Codice del comune" MESSAGE COPY,22@ CHECKTYPE REQUIRED VALIDATE FIXLEN_FUNC 4 END -STRING FLD_CM1_DENCOM 50 +STRING F_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 + INPUT DENCOM F_DENCOM + DISPLAY "Denominazione@50" DENCOM + DISPLAY "Stato" STATO + DISPLAY "Codice" COM + DISPLAY "Provincia" PROVCOM + DISPLAY "CAP " CAPCOM + DISPLAY "Codice ISTAT" CODISTAT + COPY OUTPUT F_COM HELP "Denominazione del comune" MESSAGE COPY,23@ FLAGS "G" KEY 2 END -STRING FLD_CM1_PROVCOM 5 +STRING F_PROVCOM 5 BEGIN PROMPT 3 4 "Provincia " FIELD LF_COMUNI->PROVCOM @@ -87,7 +96,7 @@ BEGIN HELP "Provincia in cui risiede il comune" END -STRING FLD_CM1_CAPCOM 5 +STRING F_CAPCOM 5 BEGIN PROMPT 29 4 "CAP " FIELD LF_COMUNI->CAPCOM @@ -95,11 +104,22 @@ BEGIN HELP "Codice di Avviamento Postale del comune" END -NUMBER FLD_CM1_CODISTAT 6 +NUMBER F_CODISTAT 6 BEGIN PROMPT 51 4 "Codice ISTAT " FIELD LF_COMUNI->CODISTAT HELP "Codice ISTAT del comune" + KEY 4 + USE LF_COMUNI KEY 4 + INPUT CODISTAT F_CODISTAT + DISPLAY "Codice ISTAT" CODISTAT + DISPLAY "Stato" STATO + DISPLAY "Codice" COM + DISPLAY "Denominazione@50" DENCOM + DISPLAY "Provincia" PROVCOM + DISPLAY "CAP " CAPCOM + COPY OUTPUT F_COM + FLAGS "Z" END GROUPBOX DLG_NULL 75 5 @@ -107,78 +127,78 @@ BEGIN PROMPT 1 5 "Uffici II.DD." END -NUMBER FLD_CM1_UFIIDD1 3 +NUMBER F_UFIIDD1 3 BEGIN PROMPT 3 6 "Ufficio 1 " FIELD LF_COMUNI->UFFIIDD1 FLAGS "RZ" USE %UID - INPUT CODTAB FLD_CM1_UFIIDD1 + INPUT CODTAB F_UFIIDD1 DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM1_UFIIDD1 CODTAB - OUTPUT FLD_CM1_DUFIIDD1 S0 + OUTPUT F_UFIIDD1 CODTAB + OUTPUT F_DUFIIDD1 S0 HELP "Codice ufficio imposte dirette competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM1_DUFIIDD1 50 +STRING F_DUFIIDD1 50 BEGIN PROMPT 20 6 "" USE %UID KEY 2 - INPUT S0 FLD_CM1_DUFIIDD1 + INPUT S0 F_DUFIIDD1 DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM1_UFIIDD1 + COPY OUTPUT F_UFIIDD1 END -NUMBER FLD_CM1_UFIIDD2 3 +NUMBER F_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 + COPY USE F_UFIIDD1 CHECKTYPE NORMAL - INPUT CODTAB FLD_CM1_UFIIDD2 - COPY DISPLAY FLD_CM1_UFIIDD1 - OUTPUT FLD_CM1_UFIIDD2 CODTAB - OUTPUT FLD_CM1_DUFIIDD2 S0 + INPUT CODTAB F_UFIIDD2 + COPY DISPLAY F_UFIIDD1 + OUTPUT F_UFIIDD2 CODTAB + OUTPUT F_DUFIIDD2 S0 WARNING "Ufficio assente" END -STRING FLD_CM1_DUFIIDD2 50 +STRING F_DUFIIDD2 50 BEGIN PROMPT 20 7 "" - COPY USE FLD_CM1_DUFIIDD1 - INPUT S0 FLD_CM1_DUFIIDD2 - COPY DISPLAY FLD_CM1_DUFIIDD1 - COPY OUTPUT FLD_CM1_UFIIDD2 + COPY USE F_DUFIIDD1 + INPUT S0 F_DUFIIDD2 + COPY DISPLAY F_DUFIIDD1 + COPY OUTPUT F_UFIIDD2 END -NUMBER FLD_CM1_UFIIDD3 3 +NUMBER F_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 + COPY USE F_UFIIDD1 CHECKTYPE NORMAL - INPUT CODTAB FLD_CM1_UFIIDD3 - COPY DISPLAY FLD_CM1_UFIIDD1 - OUTPUT FLD_CM1_UFIIDD3 CODTAB - OUTPUT FLD_CM1_DUFIIDD3 S0 + INPUT CODTAB F_UFIIDD3 + COPY DISPLAY F_UFIIDD1 + OUTPUT F_UFIIDD3 CODTAB + OUTPUT F_DUFIIDD3 S0 WARNING "Ufficio assente" END -STRING FLD_CM1_DUFIIDD3 50 +STRING F_DUFIIDD3 50 BEGIN PROMPT 20 8 "" - COPY USE FLD_CM1_DUFIIDD1 - INPUT S0 FLD_CM1_DUFIIDD3 - COPY DISPLAY FLD_CM1_DUFIIDD1 - COPY OUTPUT FLD_CM1_UFIIDD3 + COPY USE F_DUFIIDD1 + INPUT S0 F_DUFIIDD3 + COPY DISPLAY F_DUFIIDD1 + COPY OUTPUT F_UFIIDD3 END GROUPBOX DLG_NULL 75 5 @@ -186,78 +206,78 @@ BEGIN PROMPT 1 10 "Uffici IVA" END -NUMBER FLD_CM1_UFFIVA1 3 +NUMBER F_UFFIVA1 3 BEGIN PROMPT 3 11 "Ufficio 1 " FIELD LF_COMUNI->UFFIVA1 FLAGS "RZ" USE %UIV - INPUT CODTAB FLD_CM1_UFFIVA1 + INPUT CODTAB F_UFFIVA1 DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM1_UFFIVA1 CODTAB - OUTPUT FLD_CM1_DUFFIVA1 S0 + OUTPUT F_UFFIVA1 CODTAB + OUTPUT F_DUFFIVA1 S0 HELP "Codice ufficio IVA competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM1_DUFFIVA1 50 +STRING F_DUFFIVA1 50 BEGIN PROMPT 20 11 "" USE %UIV KEY 2 - INPUT S0 FLD_CM1_DUFFIVA1 + INPUT S0 F_DUFFIVA1 DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM1_UFFIVA1 + COPY OUTPUT F_UFFIVA1 END -NUMBER FLD_CM1_UFFIVA2 3 +NUMBER F_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 + COPY USE F_UFFIVA1 + INPUT CODTAB F_UFFIVA2 + COPY DISPLAY F_UFFIVA1 + OUTPUT F_UFFIVA2 CODTAB + OUTPUT F_DUFFIVA2 S0 CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM1_DUFFIVA2 50 +STRING F_DUFFIVA2 50 BEGIN PROMPT 20 12 "" - COPY USE FLD_CM1_DUFFIVA1 - INPUT S0 FLD_CM1_DUFFIVA2 - COPY DISPLAY FLD_CM1_DUFFIVA1 - COPY OUTPUT FLD_CM1_UFFIVA2 + COPY USE F_DUFFIVA1 + INPUT S0 F_DUFFIVA2 + COPY DISPLAY F_DUFFIVA1 + COPY OUTPUT F_UFFIVA2 END -NUMBER FLD_CM1_UFFIVA3 3 +NUMBER F_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 + COPY USE F_UFFIVA1 + INPUT CODTAB F_UFFIVA3 + COPY DISPLAY F_UFFIVA1 + OUTPUT F_UFFIVA3 CODTAB + OUTPUT F_DUFFIVA3 S0 CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM1_DUFFIVA3 50 +STRING F_DUFFIVA3 50 BEGIN PROMPT 20 13 "" - COPY USE FLD_CM1_DUFFIVA1 - INPUT S0 FLD_CM1_DUFFIVA3 - COPY DISPLAY FLD_CM1_DUFFIVA1 - COPY OUTPUT FLD_CM1_UFFIVA3 + COPY USE F_DUFFIVA1 + INPUT S0 F_DUFFIVA3 + COPY DISPLAY F_DUFFIVA1 + COPY OUTPUT F_UFFIVA3 END ENDPAGE @@ -270,28 +290,28 @@ BEGIN FLAGS "R" END -NUMBER FLD_CM2_STATO 3 +NUMBER DLG_NULL 3 BEGIN PROMPT 3 1 "Stato " FLAGS "RZD" GROUP 20 END -STRING FLD_CM2_DENSTA 50 +STRING DLG_NULL 50 BEGIN PROMPT 20 1 "" FLAGS "D" GROUP 21 END -STRING FLD_CM2_COM 4 +STRING DLG_NULL 4 BEGIN PROMPT 3 2 "Comune " FLAGS "UD" GROUP 22 END -STRING FLD_CM2_DENCOM 50 +STRING DLG_NULL 50 BEGIN PROMPT 20 2 "" FLAGS "D" @@ -303,110 +323,110 @@ BEGIN PROMPT 1 4 "Uffici Vari" END -STRING FLD_CM2_UFFREG 3 +STRING F_UFFREG 3 BEGIN PROMPT 2 5 "Registro " FIELD LF_COMUNI->UFFREG FLAGS "U" USE %URE - INPUT CODTAB FLD_CM2_UFFREG + INPUT CODTAB F_UFFREG DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM2_UFFREG CODTAB - OUTPUT FLD_CM2_DUFFREG S0 + OUTPUT F_UFFREG CODTAB + OUTPUT F_DUFFREG S0 HELP "Codice ufficio del registro competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM2_DUFFREG 50 +STRING F_DUFFREG 50 BEGIN PROMPT 23 5 "" USE %URE KEY 2 - INPUT S0 FLD_CM2_DUFFREG + INPUT S0 F_DUFFREG DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM2_UFFREG + COPY OUTPUT F_UFFREG END -NUMBER FLD_CM2_UFFCONC 3 +NUMBER F_UFFCONC 3 BEGIN PROMPT 2 6 "Concessioni " FIELD LF_COMUNI->UFFCONC FLAGS "Z" USE %UCC - INPUT CODTAB FLD_CM2_UFFCONC + INPUT CODTAB F_UFFCONC DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM2_UFFCONC CODTAB - OUTPUT FLD_CM2_DUFFCONC S0 + OUTPUT F_UFFCONC CODTAB + OUTPUT F_DUFFCONC S0 HELP "Codice ufficio concessioni competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM2_DUFFCONC 50 +STRING F_DUFFCONC 50 BEGIN PROMPT 23 6 "" USE %UCC KEY 2 - INPUT S0 FLD_CM2_DUFFCONC + INPUT S0 F_DUFFCONC DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM2_UFFCONC + COPY OUTPUT F_UFFCONC END -NUMBER FLD_CM2_UFFCSERV 3 +NUMBER F_UFFCSERV 3 BEGIN PROMPT 2 7 "Centro Servizi " FIELD LF_COMUNI->UFFCSERV FLAGS "RZ" USE %UCS - INPUT CODTAB FLD_CM2_UFFCSERV + INPUT CODTAB F_UFFCSERV DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM2_UFFCSERV CODTAB - OUTPUT FLD_CM2_DUFFCSERV S0 + OUTPUT F_UFFCSERV CODTAB + OUTPUT F_DUFFCSERV S0 HELP "Codice del centro servizi competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END -STRING FLD_CM2_DUFFCSERV 50 +STRING F_DUFFCSERV 50 BEGIN PROMPT 23 7 "" USE %UCS KEY 2 - INPUT S0 FLD_CM2_DUFFCSERV + INPUT S0 F_DUFFCSERV DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM2_UFFCSERV + COPY OUTPUT F_UFFCSERV END -NUMBER FLD_CM2_UFFDOG 6 +NUMBER F_UFFDOG 6 BEGIN PROMPT 2 8 "Dogana " FIELD LF_COMUNI->UFFDOG FLAGS "RZ" USE %UDD - INPUT CODTAB FLD_CM2_UFFDOG + INPUT CODTAB F_UFFDOG DISPLAY "Codice" CODTAB DISPLAY "Denominazione@50" S0 - OUTPUT FLD_CM2_UFFDOG CODTAB - OUTPUT FLD_CM2_DUFFDOG S0 + OUTPUT F_UFFDOG CODTAB + OUTPUT F_DUFFDOG S0 HELP "Codice del centro servizi competente" CHECKTYPE NORMAL WARNING "Ufficio assente" FLAGS "RZ" END -STRING FLD_CM2_DUFFDOG 50 +STRING F_DUFFDOG 50 BEGIN PROMPT 23 8 "" USE %UDD KEY 2 - INPUT S0 FLD_CM2_DUFFDOG + INPUT S0 F_DUFFDOG DISPLAY "Denominazione@50" S0 DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_CM2_UFFDOG + COPY OUTPUT F_UFFDOG END GROUPBOX DLG_NULL 23 4 @@ -414,7 +434,7 @@ BEGIN PROMPT 1 10 "Esattorie" END -NUMBER FLD_CM2_UFFESPROV 3 +NUMBER F_UFFESPROV 3 BEGIN PROMPT 2 11 "Provinciale " FIELD LF_COMUNI->UFFESPROV @@ -422,7 +442,7 @@ BEGIN HELP "Codice esattoria provinciale competente" END -NUMBER FLD_CM2_UFFESCOM 3 +NUMBER F_UFFESCOM 3 BEGIN PROMPT 2 12 "Comunale " FIELD LF_COMUNI->UFFESCOM @@ -431,7 +451,7 @@ BEGIN END -LIST FLD_CM2_TERRMON 18 +LIST F_TERRMON 18 BEGIN PROMPT 34 12 "Territorio montano " HELP "Codice identificativo di comune residente in territorio montano" @@ -441,7 +461,7 @@ BEGIN ITEMS "2|In parte montano" END -STRING FLD_CM2_COMAGG 4 +STRING F_COMAGG 4 BEGIN PROMPT 2 14 "Comune aggr. " HELP "Codice comune a cui e' stato accorpato il presente comune" @@ -449,23 +469,23 @@ BEGIN 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 + INPUT COM F_COMAGG + COPY DISPLAY F_COM + OUTPUT F_COMAGG COM + OUTPUT F_DENCOMAGG DENCOM CHECKTYPE NORMAL VALIDATE FIXLEN_FUNC 4 END -STRING FLD_CM2_DENCOMAGG 50 +STRING F_DENCOMAGG 50 BEGIN PROMPT 23 14 "" HELP "Denominazione comune a cui e' 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 + INPUT DENCOM F_DENCOMAGG + COPY DISPLAY F_DENCOM + OUTPUT F_COMAGG COM + OUTPUT F_DENCOMAGG DENCOM END NUMBER F_CODREG 2 @@ -505,28 +525,28 @@ BEGIN FLAGS "R" END -NUMBER FLD_CM3_STATO 3 +NUMBER DLG_NULL 3 BEGIN PROMPT 3 1 "Stato " FLAGS "RZD" GROUP 20 END -STRING FLD_CM3_DENSTA 50 +STRING DLG_NULL 50 BEGIN PROMPT 20 1 "" FLAGS "D" GROUP 21 END -STRING FLD_CM3_COM 4 +STRING DLG_NULL 4 BEGIN PROMPT 3 2 "Comune " FLAGS "UD" GROUP 22 END -STRING FLD_CM3_DENCOM 50 +STRING DLG_NULL 50 BEGIN PROMPT 20 2 "" FLAGS "D" diff --git a/src/ba/recdesc/f13.dir b/src/ba/recdesc/f13.dir index 31a002fb5..31321e8f9 100644 --- a/src/ba/recdesc/f13.dir +++ b/src/ba/recdesc/f13.dir @@ -1,3 +1,3 @@ 13 1 -%comuni|0|0|156|0|Comuni|500|| \ No newline at end of file +%comuni|0|0|156|0|Comuni||| diff --git a/src/ba/recdesc/f13.trr b/src/ba/recdesc/f13.trr index cf2697d3f..234db2652 100644 --- a/src/ba/recdesc/f13.trr +++ b/src/ba/recdesc/f13.trr @@ -6,7 +6,7 @@ DENCOM|1|50|0| PROVCOM|1|5|0| CODREG|9|2|0| CAPCOM|1|5|0| -CODISTAT|3|6|0| +CODISTAT|10|6|0| UFFIIDD1|9|3|0| UFFIIDD2|9|3|0| UFFIIDD3|9|3|0| @@ -32,7 +32,8 @@ CODUUE7|9|3|0| CODUUE8|9|3|0| CODUUE9|9|3|0| CODUUE10|9|3|0| -3 +4 STATO+COM| UPPER(DENCOM)|X CAPCOM|X +CODISTAT|X diff --git a/src/ba/recdesc/f18.dir b/src/ba/recdesc/f18.dir index 7a690314d..020f195ba 100644 --- a/src/ba/recdesc/f18.dir +++ b/src/ba/recdesc/f18.dir @@ -1,3 +1,3 @@ 18 0 -$occas|5|5|607|0|Clienti occasionali||| +$occas|0|0|656|0|Clienti occasionali||| diff --git a/src/ba/recdesc/f18.trr b/src/ba/recdesc/f18.trr index dc989b68c..0c9236ae5 100644 --- a/src/ba/recdesc/f18.trr +++ b/src/ba/recdesc/f18.trr @@ -1,11 +1,11 @@ 18 -28 +33 CFPI|1|16|0|Codice progressivo, codice fiscale, o partita IVA RAGSOC|1|50|0|Ragione sociale INDIR|1|50|0|Indirizzo CIV|1|6|0|Numero civico STATO|1|3|0|Codice stato -LOCALITA|1|35|0|Località +LOCALITA|1|35|0|Localita COM|1|4|0|Codice comune CAP|1|5|0|CAP SESSO|1|1|0|Sesso @@ -15,7 +15,10 @@ COMNASC|1|4|0|Codice comune di nascita COFI|1|16|0|Codice fiscale STATOPAIV|1|2|0|Stato CEE PAIV|1|12|0|Partita IVA -REFERENTE|1|50|0|referente +REFERENTE|1|50|0|Referente +TIPOPERS|1|1|0|Tipo persona isica iuridica +ALLEG|1|1|0|Inserimento in allegato +PADESTIN|1|7|0|Codice ufficio amministrazione BYMAIL|8|1|0|Consenso all'invio documenti per email MAIL|1|50|0|e-mail DOCMAIL|1|50|0|e-mail invio documenti @@ -26,6 +29,8 @@ PTEL2|1|10|0|Prefisso telefono 2 TEL2|1|30|0|Telefono 2 PTEL3|1|10|0|Prefisso telefono 3 TEL3|1|30|0|Telefono 3 +PFAX|1|10|0|Prefisso FAX +FAX|1|30|0|FAX UTENTE|1|32|0|Utente DATAAGG|5|8|0|Data aggiornamento 2