root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.00 1376

Browse Source 
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
This commit is contained in:
Alessandro Bonazzi 2025-01-17 00:35:50 +01:00
parent 47624290b7
commit cb1856050e
7 changed files with 203 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ba/ba4100.cpp
View File

@ -1,3 +1,4 @@
#include <strings.h>
#include <relapp.h> #include <relapp.h>
#include "ba4.h" #include "ba4.h"
@ -25,12 +26,12 @@ public:
void TComuni_app::init_query_mode(TMask& m) 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) 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(); } TComuni_app & app() { return (TComuni_app &) main_app(); }

98
src/ba/ba4100a.h
View File

@ -3,43 +3,39 @@
// campi maschera ba4100a.msk // campi maschera ba4100a.msk
#define FLD_CM1_STATO 101 #define F_STATO 101
#define FLD_CM1_COM 102 #define F_COM 102
#define FLD_CM1_DENCOM 103 #define F_DENCOM 103
#define FLD_CM1_PROVCOM 104 #define F_PROVCOM 104
#define FLD_CM1_CAPCOM 105 #define F_CAPCOM 105
#define FLD_CM1_CODISTAT 106 #define F_CODISTAT 106
#define FLD_CM1_UFIIDD1 107 #define F_UFIIDD1 107
#define FLD_CM1_DUFIIDD1 108 #define F_DUFIIDD1 108
#define FLD_CM1_UFIIDD2 109 #define F_UFIIDD2 109
#define FLD_CM1_DUFIIDD2 110 #define F_DUFIIDD2 110
#define FLD_CM1_UFIIDD3 111 #define F_UFIIDD3 111
#define FLD_CM1_DUFIIDD3 112 #define F_DUFIIDD3 112
#define FLD_CM1_UFFIVA1 113 #define F_UFFIVA1 113
#define FLD_CM1_DUFFIVA1 114 #define F_DUFFIVA1 114
#define FLD_CM1_UFFIVA2 115 #define F_UFFIVA2 115
#define FLD_CM1_DUFFIVA2 116 #define F_DUFFIVA2 116
#define FLD_CM1_UFFIVA3 117 #define F_UFFIVA3 117
#define FLD_CM1_DUFFIVA3 118 #define F_DUFFIVA3 118
#define FLD_CM2_UFFREG 119 #define F_UFFREG 119
#define FLD_CM2_DUFFREG 120 #define F_DUFFREG 120
#define FLD_CM2_UFFCONC 121 #define F_UFFCONC 121
#define FLD_CM2_DUFFCONC 122 #define F_DUFFCONC 122
#define FLD_CM2_UFFCSERV 123 #define F_UFFCSERV 123
#define FLD_CM2_DUFFCSERV 124 #define F_DUFFCSERV 124
#define FLD_CM2_UFFESPROV 125 #define F_UFFESPROV 125
#define FLD_CM2_DUFFESPROV 126 #define F_DUFFESPROV 126
#define FLD_CM2_UFFESCOM 127 #define F_UFFESCOM 127
#define FLD_CM2_DUFFESCOM 128 #define F_DUFFESCOM 128
#define FLD_CM2_ALIQICI 129 #define F_ALIQICI 129
#define FLD_CM1_DENSTA 130 #define F_DENSTA 130
#define FLD_CM2_COMAGG 131 #define F_COMAGG 131
#define FLD_CM2_DENCOMAGG 132 #define F_DENCOMAGG 132
#define FLD_CM2_TERRMON 133 #define F_TERRMON 133
#define FLD_CM2_STATO 134
#define FLD_CM2_COM 135
#define FLD_CM2_DENCOM 136
#define FLD_CM2_DENSTA 137
#define F_CODREG 138 #define F_CODREG 138
#define F_DESREG 139 #define F_DESREG 139
#define F_CODUUE1 140 #define F_CODUUE1 140
@ -62,32 +58,10 @@
#define F_DESUUE9 157 #define F_DESUUE9 157
#define F_CODUUE10 158 #define F_CODUUE10 158
#define F_DESUUE10 159 #define F_DESUUE10 159
#define FLD_CM2_UFFDOG 160 #define F_UFFDOG 160
#define FLD_CM2_DUFFDOG 161 #define F_DUFFDOG 161
#define FLD_CM3_STATO 170 #include <comuni.h>
#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"
#endif // __BA4100_H #endif // __BA4100_H

282
src/ba/ba4100a.uml
View File

@ -12,17 +12,17 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_CM1_STATO 3 NUMBER F_STATO 3
BEGIN BEGIN
PROMPT 3 1 "Stato " PROMPT 3 1 "Stato "
FIELD LF_COMUNI->STATO FIELD LF_COMUNI->STATO
FLAGS "RZG" FLAGS "RZG"
USE %STA USE %STA
INPUT CODTAB FLD_CM1_STATO INPUT CODTAB F_STATO
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Nome@50" S0 DISPLAY "Nome@50" S0
OUTPUT FLD_CM1_STATO CODTAB OUTPUT F_STATO CODTAB
OUTPUT FLD_CM1_DENSTA S0 OUTPUT F_DENSTA S0
HELP "Codice dello stato in cui risiede il comune" HELP "Codice dello stato in cui risiede il comune"
CHECKTYPE SEARCH CHECKTYPE SEARCH
MESSAGE COPY,20@ MESSAGE COPY,20@
@ -30,56 +30,65 @@ BEGIN
KEY 1 KEY 1
END END
STRING FLD_CM1_DENSTA 50 STRING F_DENSTA 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
USE %STA KEY 2 USE %STA KEY 2
INPUT S0 FLD_CM1_DENSTA INPUT S0 F_DENSTA
DISPLAY "Nome@50" S0 DISPLAY "Nome@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_CM1_STATO CODTAB OUTPUT F_STATO CODTAB
OUTPUT FLD_CM1_DENSTA S0 OUTPUT F_DENSTA S0
HELP "Nome dello stato in cui risiede il comune" HELP "Nome dello stato in cui risiede il comune"
MESSAGE COPY,21@ MESSAGE COPY,21@
END END
STRING FLD_CM1_COM 4 STRING F_COM 4
BEGIN BEGIN
PROMPT 3 2 "Comune " PROMPT 3 2 "Comune "
FIELD LF_COMUNI->COM FIELD LF_COMUNI->COM
FLAGS "UG" FLAGS "UG"
KEY 1 KEY 1
USE LF_COMUNI USE LF_COMUNI
INPUT STATO FLD_CM1_STATO INPUT STATO F_STATO
INPUT COM FLD_CM1_COM INPUT COM F_COM
#include <comdcod.h> DISPLAY "Stato" STATO
OUTPUT FLD_CM1_STATO STATO DISPLAY "Codice" COM
OUTPUT FLD_CM1_COM COM DISPLAY "Denominazione@50" DENCOM
OUTPUT FLD_CM1_DENCOM 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" HELP "Codice del comune"
MESSAGE COPY,22@ MESSAGE COPY,22@
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
END END
STRING FLD_CM1_DENCOM 50 STRING F_DENCOM 50
BEGIN BEGIN
PROMPT 20 2 "" PROMPT 20 2 ""
FIELD LF_COMUNI->DENCOM FIELD LF_COMUNI->DENCOM
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT DENCOM FLD_CM1_DENCOM INPUT DENCOM F_DENCOM
#include <comdden.h> DISPLAY "Denominazione@50" DENCOM
OUTPUT FLD_CM1_STATO STATO DISPLAY "Stato" STATO
OUTPUT FLD_CM1_COM COM DISPLAY "Codice" COM
OUTPUT FLD_CM1_DENCOM DENCOM DISPLAY "Provincia" PROVCOM
DISPLAY "CAP " CAPCOM
DISPLAY "Codice ISTAT" CODISTAT
COPY OUTPUT F_COM
HELP "Denominazione del comune" HELP "Denominazione del comune"
MESSAGE COPY,23@ MESSAGE COPY,23@
FLAGS "G" FLAGS "G"
KEY 2 KEY 2
END END
STRING FLD_CM1_PROVCOM 5 STRING F_PROVCOM 5
BEGIN BEGIN
PROMPT 3 4 "Provincia " PROMPT 3 4 "Provincia "
FIELD LF_COMUNI->PROVCOM FIELD LF_COMUNI->PROVCOM
@ -87,7 +96,7 @@ BEGIN
HELP "Provincia in cui risiede il comune" HELP "Provincia in cui risiede il comune"
END END
STRING FLD_CM1_CAPCOM 5 STRING F_CAPCOM 5
BEGIN BEGIN
PROMPT 29 4 "CAP " PROMPT 29 4 "CAP "
FIELD LF_COMUNI->CAPCOM FIELD LF_COMUNI->CAPCOM
@ -95,11 +104,22 @@ BEGIN
HELP "Codice di Avviamento Postale del comune" HELP "Codice di Avviamento Postale del comune"
END END
NUMBER FLD_CM1_CODISTAT 6 NUMBER F_CODISTAT 6
BEGIN BEGIN
PROMPT 51 4 "Codice ISTAT " PROMPT 51 4 "Codice ISTAT "
FIELD LF_COMUNI->CODISTAT FIELD LF_COMUNI->CODISTAT
HELP "Codice ISTAT del comune" 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 END
GROUPBOX DLG_NULL 75 5 GROUPBOX DLG_NULL 75 5
@ -107,78 +127,78 @@ BEGIN
PROMPT 1 5 "Uffici II.DD." PROMPT 1 5 "Uffici II.DD."
END END
NUMBER FLD_CM1_UFIIDD1 3 NUMBER F_UFIIDD1 3
BEGIN BEGIN
PROMPT 3 6 "Ufficio 1 " PROMPT 3 6 "Ufficio 1 "
FIELD LF_COMUNI->UFFIIDD1 FIELD LF_COMUNI->UFFIIDD1
FLAGS "RZ" FLAGS "RZ"
USE %UID USE %UID
INPUT CODTAB FLD_CM1_UFIIDD1 INPUT CODTAB F_UFIIDD1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM1_UFIIDD1 CODTAB OUTPUT F_UFIIDD1 CODTAB
OUTPUT FLD_CM1_DUFIIDD1 S0 OUTPUT F_DUFIIDD1 S0
HELP "Codice ufficio imposte dirette competente" HELP "Codice ufficio imposte dirette competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFIIDD1 50 STRING F_DUFIIDD1 50
BEGIN BEGIN
PROMPT 20 6 "" PROMPT 20 6 ""
USE %UID KEY 2 USE %UID KEY 2
INPUT S0 FLD_CM1_DUFIIDD1 INPUT S0 F_DUFIIDD1
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM1_UFIIDD1 COPY OUTPUT F_UFIIDD1
END END
NUMBER FLD_CM1_UFIIDD2 3 NUMBER F_UFIIDD2 3
BEGIN BEGIN
PROMPT 3 7 "Ufficio 2 " PROMPT 3 7 "Ufficio 2 "
FIELD LF_COMUNI->UFFIIDD2 FIELD LF_COMUNI->UFFIIDD2
FLAGS "RZ" FLAGS "RZ"
HELP "Codice ufficio imposte dirette competente" HELP "Codice ufficio imposte dirette competente"
COPY USE FLD_CM1_UFIIDD1 COPY USE F_UFIIDD1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB FLD_CM1_UFIIDD2 INPUT CODTAB F_UFIIDD2
COPY DISPLAY FLD_CM1_UFIIDD1 COPY DISPLAY F_UFIIDD1
OUTPUT FLD_CM1_UFIIDD2 CODTAB OUTPUT F_UFIIDD2 CODTAB
OUTPUT FLD_CM1_DUFIIDD2 S0 OUTPUT F_DUFIIDD2 S0
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFIIDD2 50 STRING F_DUFIIDD2 50
BEGIN BEGIN
PROMPT 20 7 "" PROMPT 20 7 ""
COPY USE FLD_CM1_DUFIIDD1 COPY USE F_DUFIIDD1
INPUT S0 FLD_CM1_DUFIIDD2 INPUT S0 F_DUFIIDD2
COPY DISPLAY FLD_CM1_DUFIIDD1 COPY DISPLAY F_DUFIIDD1
COPY OUTPUT FLD_CM1_UFIIDD2 COPY OUTPUT F_UFIIDD2
END END
NUMBER FLD_CM1_UFIIDD3 3 NUMBER F_UFIIDD3 3
BEGIN BEGIN
PROMPT 3 8 "Ufficio 3 " PROMPT 3 8 "Ufficio 3 "
FIELD LF_COMUNI->UFFIIDD3 FIELD LF_COMUNI->UFFIIDD3
FLAGS "RZ" FLAGS "RZ"
HELP "Codice ufficio imposte dirette competente" HELP "Codice ufficio imposte dirette competente"
COPY USE FLD_CM1_UFIIDD1 COPY USE F_UFIIDD1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB FLD_CM1_UFIIDD3 INPUT CODTAB F_UFIIDD3
COPY DISPLAY FLD_CM1_UFIIDD1 COPY DISPLAY F_UFIIDD1
OUTPUT FLD_CM1_UFIIDD3 CODTAB OUTPUT F_UFIIDD3 CODTAB
OUTPUT FLD_CM1_DUFIIDD3 S0 OUTPUT F_DUFIIDD3 S0
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFIIDD3 50 STRING F_DUFIIDD3 50
BEGIN BEGIN
PROMPT 20 8 "" PROMPT 20 8 ""
COPY USE FLD_CM1_DUFIIDD1 COPY USE F_DUFIIDD1
INPUT S0 FLD_CM1_DUFIIDD3 INPUT S0 F_DUFIIDD3
COPY DISPLAY FLD_CM1_DUFIIDD1 COPY DISPLAY F_DUFIIDD1
COPY OUTPUT FLD_CM1_UFIIDD3 COPY OUTPUT F_UFIIDD3
END END
GROUPBOX DLG_NULL 75 5 GROUPBOX DLG_NULL 75 5
@ -186,78 +206,78 @@ BEGIN
PROMPT 1 10 "Uffici IVA" PROMPT 1 10 "Uffici IVA"
END END
NUMBER FLD_CM1_UFFIVA1 3 NUMBER F_UFFIVA1 3
BEGIN BEGIN
PROMPT 3 11 "Ufficio 1 " PROMPT 3 11 "Ufficio 1 "
FIELD LF_COMUNI->UFFIVA1 FIELD LF_COMUNI->UFFIVA1
FLAGS "RZ" FLAGS "RZ"
USE %UIV USE %UIV
INPUT CODTAB FLD_CM1_UFFIVA1 INPUT CODTAB F_UFFIVA1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM1_UFFIVA1 CODTAB OUTPUT F_UFFIVA1 CODTAB
OUTPUT FLD_CM1_DUFFIVA1 S0 OUTPUT F_DUFFIVA1 S0
HELP "Codice ufficio IVA competente" HELP "Codice ufficio IVA competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFFIVA1 50 STRING F_DUFFIVA1 50
BEGIN BEGIN
PROMPT 20 11 "" PROMPT 20 11 ""
USE %UIV KEY 2 USE %UIV KEY 2
INPUT S0 FLD_CM1_DUFFIVA1 INPUT S0 F_DUFFIVA1
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM1_UFFIVA1 COPY OUTPUT F_UFFIVA1
END END
NUMBER FLD_CM1_UFFIVA2 3 NUMBER F_UFFIVA2 3
BEGIN BEGIN
PROMPT 3 12 "Ufficio 2 " PROMPT 3 12 "Ufficio 2 "
FIELD LF_COMUNI->UFFIVA2 FIELD LF_COMUNI->UFFIVA2
FLAGS "RZ" FLAGS "RZ"
HELP "Codice ufficio IVA competente" HELP "Codice ufficio IVA competente"
COPY USE FLD_CM1_UFFIVA1 COPY USE F_UFFIVA1
INPUT CODTAB FLD_CM1_UFFIVA2 INPUT CODTAB F_UFFIVA2
COPY DISPLAY FLD_CM1_UFFIVA1 COPY DISPLAY F_UFFIVA1
OUTPUT FLD_CM1_UFFIVA2 CODTAB OUTPUT F_UFFIVA2 CODTAB
OUTPUT FLD_CM1_DUFFIVA2 S0 OUTPUT F_DUFFIVA2 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFFIVA2 50 STRING F_DUFFIVA2 50
BEGIN BEGIN
PROMPT 20 12 "" PROMPT 20 12 ""
COPY USE FLD_CM1_DUFFIVA1 COPY USE F_DUFFIVA1
INPUT S0 FLD_CM1_DUFFIVA2 INPUT S0 F_DUFFIVA2
COPY DISPLAY FLD_CM1_DUFFIVA1 COPY DISPLAY F_DUFFIVA1
COPY OUTPUT FLD_CM1_UFFIVA2 COPY OUTPUT F_UFFIVA2
END END
NUMBER FLD_CM1_UFFIVA3 3 NUMBER F_UFFIVA3 3
BEGIN BEGIN
PROMPT 3 13 "Ufficio 3 " PROMPT 3 13 "Ufficio 3 "
FIELD LF_COMUNI->UFFIVA3 FIELD LF_COMUNI->UFFIVA3
FLAGS "RZ" FLAGS "RZ"
HELP "Codice ufficio IVA competente" HELP "Codice ufficio IVA competente"
COPY USE FLD_CM1_UFFIVA1 COPY USE F_UFFIVA1
INPUT CODTAB FLD_CM1_UFFIVA3 INPUT CODTAB F_UFFIVA3
COPY DISPLAY FLD_CM1_UFFIVA1 COPY DISPLAY F_UFFIVA1
OUTPUT FLD_CM1_UFFIVA3 CODTAB OUTPUT F_UFFIVA3 CODTAB
OUTPUT FLD_CM1_DUFFIVA3 S0 OUTPUT F_DUFFIVA3 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM1_DUFFIVA3 50 STRING F_DUFFIVA3 50
BEGIN BEGIN
PROMPT 20 13 "" PROMPT 20 13 ""
COPY USE FLD_CM1_DUFFIVA1 COPY USE F_DUFFIVA1
INPUT S0 FLD_CM1_DUFFIVA3 INPUT S0 F_DUFFIVA3
COPY DISPLAY FLD_CM1_DUFFIVA1 COPY DISPLAY F_DUFFIVA1
COPY OUTPUT FLD_CM1_UFFIVA3 COPY OUTPUT F_UFFIVA3
END END
ENDPAGE ENDPAGE
@ -270,28 +290,28 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_CM2_STATO 3 NUMBER DLG_NULL 3
BEGIN BEGIN
PROMPT 3 1 "Stato " PROMPT 3 1 "Stato "
FLAGS "RZD" FLAGS "RZD"
GROUP 20 GROUP 20
END END
STRING FLD_CM2_DENSTA 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
GROUP 21 GROUP 21
END END
STRING FLD_CM2_COM 4 STRING DLG_NULL 4
BEGIN BEGIN
PROMPT 3 2 "Comune " PROMPT 3 2 "Comune "
FLAGS "UD" FLAGS "UD"
GROUP 22 GROUP 22
END END
STRING FLD_CM2_DENCOM 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 20 2 "" PROMPT 20 2 ""
FLAGS "D" FLAGS "D"
@ -303,110 +323,110 @@ BEGIN
PROMPT 1 4 "Uffici Vari" PROMPT 1 4 "Uffici Vari"
END END
STRING FLD_CM2_UFFREG 3 STRING F_UFFREG 3
BEGIN BEGIN
PROMPT 2 5 "Registro " PROMPT 2 5 "Registro "
FIELD LF_COMUNI->UFFREG FIELD LF_COMUNI->UFFREG
FLAGS "U" FLAGS "U"
USE %URE USE %URE
INPUT CODTAB FLD_CM2_UFFREG INPUT CODTAB F_UFFREG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFREG CODTAB OUTPUT F_UFFREG CODTAB
OUTPUT FLD_CM2_DUFFREG S0 OUTPUT F_DUFFREG S0
HELP "Codice ufficio del registro competente" HELP "Codice ufficio del registro competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM2_DUFFREG 50 STRING F_DUFFREG 50
BEGIN BEGIN
PROMPT 23 5 "" PROMPT 23 5 ""
USE %URE KEY 2 USE %URE KEY 2
INPUT S0 FLD_CM2_DUFFREG INPUT S0 F_DUFFREG
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFREG COPY OUTPUT F_UFFREG
END END
NUMBER FLD_CM2_UFFCONC 3 NUMBER F_UFFCONC 3
BEGIN BEGIN
PROMPT 2 6 "Concessioni " PROMPT 2 6 "Concessioni "
FIELD LF_COMUNI->UFFCONC FIELD LF_COMUNI->UFFCONC
FLAGS "Z" FLAGS "Z"
USE %UCC USE %UCC
INPUT CODTAB FLD_CM2_UFFCONC INPUT CODTAB F_UFFCONC
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFCONC CODTAB OUTPUT F_UFFCONC CODTAB
OUTPUT FLD_CM2_DUFFCONC S0 OUTPUT F_DUFFCONC S0
HELP "Codice ufficio concessioni competente" HELP "Codice ufficio concessioni competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM2_DUFFCONC 50 STRING F_DUFFCONC 50
BEGIN BEGIN
PROMPT 23 6 "" PROMPT 23 6 ""
USE %UCC KEY 2 USE %UCC KEY 2
INPUT S0 FLD_CM2_DUFFCONC INPUT S0 F_DUFFCONC
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFCONC COPY OUTPUT F_UFFCONC
END END
NUMBER FLD_CM2_UFFCSERV 3 NUMBER F_UFFCSERV 3
BEGIN BEGIN
PROMPT 2 7 "Centro Servizi " PROMPT 2 7 "Centro Servizi "
FIELD LF_COMUNI->UFFCSERV FIELD LF_COMUNI->UFFCSERV
FLAGS "RZ" FLAGS "RZ"
USE %UCS USE %UCS
INPUT CODTAB FLD_CM2_UFFCSERV INPUT CODTAB F_UFFCSERV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFCSERV CODTAB OUTPUT F_UFFCSERV CODTAB
OUTPUT FLD_CM2_DUFFCSERV S0 OUTPUT F_DUFFCSERV S0
HELP "Codice del centro servizi competente" HELP "Codice del centro servizi competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
STRING FLD_CM2_DUFFCSERV 50 STRING F_DUFFCSERV 50
BEGIN BEGIN
PROMPT 23 7 "" PROMPT 23 7 ""
USE %UCS KEY 2 USE %UCS KEY 2
INPUT S0 FLD_CM2_DUFFCSERV INPUT S0 F_DUFFCSERV
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFCSERV COPY OUTPUT F_UFFCSERV
END END
NUMBER FLD_CM2_UFFDOG 6 NUMBER F_UFFDOG 6
BEGIN BEGIN
PROMPT 2 8 "Dogana " PROMPT 2 8 "Dogana "
FIELD LF_COMUNI->UFFDOG FIELD LF_COMUNI->UFFDOG
FLAGS "RZ" FLAGS "RZ"
USE %UDD USE %UDD
INPUT CODTAB FLD_CM2_UFFDOG INPUT CODTAB F_UFFDOG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFDOG CODTAB OUTPUT F_UFFDOG CODTAB
OUTPUT FLD_CM2_DUFFDOG S0 OUTPUT F_DUFFDOG S0
HELP "Codice del centro servizi competente" HELP "Codice del centro servizi competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
FLAGS "RZ" FLAGS "RZ"
END END
STRING FLD_CM2_DUFFDOG 50 STRING F_DUFFDOG 50
BEGIN BEGIN
PROMPT 23 8 "" PROMPT 23 8 ""
USE %UDD KEY 2 USE %UDD KEY 2
INPUT S0 FLD_CM2_DUFFDOG INPUT S0 F_DUFFDOG
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFDOG COPY OUTPUT F_UFFDOG
END END
GROUPBOX DLG_NULL 23 4 GROUPBOX DLG_NULL 23 4
@ -414,7 +434,7 @@ BEGIN
PROMPT 1 10 "Esattorie" PROMPT 1 10 "Esattorie"
END END
NUMBER FLD_CM2_UFFESPROV 3 NUMBER F_UFFESPROV 3
BEGIN BEGIN
PROMPT 2 11 "Provinciale " PROMPT 2 11 "Provinciale "
FIELD LF_COMUNI->UFFESPROV FIELD LF_COMUNI->UFFESPROV
@ -422,7 +442,7 @@ BEGIN
HELP "Codice esattoria provinciale competente" HELP "Codice esattoria provinciale competente"
END END
NUMBER FLD_CM2_UFFESCOM 3 NUMBER F_UFFESCOM 3
BEGIN BEGIN
PROMPT 2 12 "Comunale " PROMPT 2 12 "Comunale "
FIELD LF_COMUNI->UFFESCOM FIELD LF_COMUNI->UFFESCOM
@ -431,7 +451,7 @@ BEGIN
END END
LIST FLD_CM2_TERRMON 18 LIST F_TERRMON 18
BEGIN BEGIN
PROMPT 34 12 "Territorio montano " PROMPT 34 12 "Territorio montano "
HELP "Codice identificativo di comune residente in territorio montano" HELP "Codice identificativo di comune residente in territorio montano"
@ -441,7 +461,7 @@ BEGIN
ITEMS "2|In parte montano" ITEMS "2|In parte montano"
END END
STRING FLD_CM2_COMAGG 4 STRING F_COMAGG 4
BEGIN BEGIN
PROMPT 2 14 "Comune aggr. " PROMPT 2 14 "Comune aggr. "
HELP "Codice comune a cui e' stato accorpato il presente comune" HELP "Codice comune a cui e' stato accorpato il presente comune"
@ -449,23 +469,23 @@ BEGIN
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
INPUT STATO "" INPUT STATO ""
INPUT COM FLD_CM2_COMAGG INPUT COM F_COMAGG
COPY DISPLAY FLD_CM1_COM COPY DISPLAY F_COM
OUTPUT FLD_CM2_COMAGG COM OUTPUT F_COMAGG COM
OUTPUT FLD_CM2_DENCOMAGG DENCOM OUTPUT F_DENCOMAGG DENCOM
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
END END
STRING FLD_CM2_DENCOMAGG 50 STRING F_DENCOMAGG 50
BEGIN BEGIN
PROMPT 23 14 "" PROMPT 23 14 ""
HELP "Denominazione comune a cui e' stato accorpato il presente comune" HELP "Denominazione comune a cui e' stato accorpato il presente comune"
USE LF_COMUNI KEY 2 SELECT STATO="" USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_CM2_DENCOMAGG INPUT DENCOM F_DENCOMAGG
COPY DISPLAY FLD_CM1_DENCOM COPY DISPLAY F_DENCOM
OUTPUT FLD_CM2_COMAGG COM OUTPUT F_COMAGG COM
OUTPUT FLD_CM2_DENCOMAGG DENCOM OUTPUT F_DENCOMAGG DENCOM
END END
NUMBER F_CODREG 2 NUMBER F_CODREG 2
@ -505,28 +525,28 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_CM3_STATO 3 NUMBER DLG_NULL 3
BEGIN BEGIN
PROMPT 3 1 "Stato " PROMPT 3 1 "Stato "
FLAGS "RZD" FLAGS "RZD"
GROUP 20 GROUP 20
END END
STRING FLD_CM3_DENSTA 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
GROUP 21 GROUP 21
END END
STRING FLD_CM3_COM 4 STRING DLG_NULL 4
BEGIN BEGIN
PROMPT 3 2 "Comune " PROMPT 3 2 "Comune "
FLAGS "UD" FLAGS "UD"
GROUP 22 GROUP 22
END END
STRING FLD_CM3_DENCOM 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 20 2 "" PROMPT 20 2 ""
FLAGS "D" FLAGS "D"

2
src/ba/recdesc/f13.dir
View File

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

5
src/ba/recdesc/f13.trr
View File

@ -6,7 +6,7 @@ DENCOM|1|50|0|
PROVCOM|1|5|0| PROVCOM|1|5|0|
CODREG|9|2|0| CODREG|9|2|0|
CAPCOM|1|5|0| CAPCOM|1|5|0|
CODISTAT|3|6|0| CODISTAT|10|6|0|
UFFIIDD1|9|3|0| UFFIIDD1|9|3|0|
UFFIIDD2|9|3|0| UFFIIDD2|9|3|0|
UFFIIDD3|9|3|0| UFFIIDD3|9|3|0|
@ -32,7 +32,8 @@ CODUUE7|9|3|0|
CODUUE8|9|3|0| CODUUE8|9|3|0|
CODUUE9|9|3|0| CODUUE9|9|3|0|
CODUUE10|9|3|0| CODUUE10|9|3|0|
3 4
STATO+COM| STATO+COM|
UPPER(DENCOM)|X UPPER(DENCOM)|X
CAPCOM|X CAPCOM|X
CODISTAT|X

2
src/ba/recdesc/f18.dir
View File

@ -1,3 +1,3 @@
18 18
0 0
$occas|5|5|607|0|Clienti occasionali||| $occas|0|0|656|0|Clienti occasionali|||

11
src/ba/recdesc/f18.trr
View File

@ -1,11 +1,11 @@
18 18
28 33
CFPI|1|16|0|Codice progressivo, codice fiscale, o partita IVA CFPI|1|16|0|Codice progressivo, codice fiscale, o partita IVA
RAGSOC|1|50|0|Ragione sociale RAGSOC|1|50|0|Ragione sociale
INDIR|1|50|0|Indirizzo INDIR|1|50|0|Indirizzo
CIV|1|6|0|Numero civico CIV|1|6|0|Numero civico
STATO|1|3|0|Codice stato STATO|1|3|0|Codice stato
LOCALITA|1|35|0|Località LOCALITA|1|35|0|Localita
COM|1|4|0|Codice comune COM|1|4|0|Codice comune
CAP|1|5|0|CAP CAP|1|5|0|CAP
SESSO|1|1|0|Sesso SESSO|1|1|0|Sesso
@ -15,7 +15,10 @@ COMNASC|1|4|0|Codice comune di nascita
COFI|1|16|0|Codice fiscale COFI|1|16|0|Codice fiscale
STATOPAIV|1|2|0|Stato CEE STATOPAIV|1|2|0|Stato CEE
PAIV|1|12|0|Partita IVA PAIV|1|12|0|Partita IVA
REFERENTE|1|50|0|referente REFERENTE|1|50|0|Referente
TIPOPERS|1|1|0|Tipo persona <F>isica <G>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 BYMAIL|8|1|0|Consenso all'invio documenti per email
MAIL|1|50|0|e-mail MAIL|1|50|0|e-mail
DOCMAIL|1|50|0|e-mail invio documenti 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 TEL2|1|30|0|Telefono 2
PTEL3|1|10|0|Prefisso telefono 3 PTEL3|1|10|0|Prefisso telefono 3
TEL3|1|30|0|Telefono 3 TEL3|1|30|0|Telefono 3
PFAX|1|10|0|Prefisso FAX
FAX|1|30|0|FAX
UTENTE|1|32|0|Utente UTENTE|1|32|0|Utente
DATAAGG|5|8|0|Data aggiornamento DATAAGG|5|8|0|Data aggiornamento
2 2