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 "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(); }

98
src/ba/ba4100a.h
View File

@ -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 <comuni.h>
#endif // __BA4100_H

282
src/ba/ba4100a.uml
View File

@ -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 <comdcod.h>
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 <comdden.h>
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"

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

@ -1,3 +1,3 @@
13
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|
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

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

@ -1,3 +1,3 @@
18
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
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 <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
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