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

Patch level : 12.0 1042

Browse Source 
Files correlati     : ba4.exe ba6.exe
Commento            :

Aggiunta Tabella Uffici doganali (%UDD)
Aggiunto ufficio doganale ai comuni e alle ditte
This commit is contained in:
Alessandro Bonazzi 2021-03-19 02:23:11 +01:00
parent e07567c8b8
commit 45be538953
14 changed files with 291 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ba/ba4100a.h
View File

@ -62,10 +62,12 @@
#define F_DESUUE9 157
#define F_CODUUE10 158
#define F_DESUUE10 159
#define FLD_CM2_UFFDOG 160
#define FLD_CM2_DUFFDOG 161
#define FLD_CM3_STATO 160
#define FLD_CM3_COM 161
#define FLD_CM3_DENCOM 162
#define FLD_CM3_STATO 170
#define FLD_CM3_COM 171
#define FLD_CM3_DENCOM 172
#define FLD_CM3_DENSTA 163
#define N_STATO "STATO"

46
src/ba/ba4100a.uml
View File

@ -298,7 +298,7 @@ BEGIN
GROUP 23
END
GROUPBOX DLG_NULL 75 5
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 4 "Uffici Vari"
END
@ -379,16 +379,44 @@ BEGIN
DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFCSERV
END
NUMBER FLD_CM2_UFFDOG 6
BEGIN
PROMPT 2 8 "Dogana "
FIELD LF_COMUNI->UFFDOG
FLAGS "RZ"
USE %UDD
INPUT CODTAB FLD_CM2_UFFDOG
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFDOG CODTAB
OUTPUT FLD_CM2_DUFFDOG S0
HELP "Codice del centro servizi competente"
CHECKTYPE NORMAL
WARNING "Ufficio assente"
FLAGS "RZ"
END
STRING FLD_CM2_DUFFDOG 50
BEGIN
PROMPT 23 8 ""
USE %UDD KEY 2
INPUT S0 FLD_CM2_DUFFDOG
DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_CM2_UFFDOG
END
GROUPBOX DLG_NULL 23 4
BEGIN
PROMPT 1 9 "Esattorie"
PROMPT 1 10 "Esattorie"
END
NUMBER FLD_CM2_UFFESPROV 3
BEGIN
PROMPT 2 10 "Provinciale "
PROMPT 2 11 "Provinciale "
FIELD LF_COMUNI->UFFESPROV
FLAGS "RZ"
HELP "Codice esattoria provinciale competente"
@ -396,7 +424,7 @@ END
NUMBER FLD_CM2_UFFESCOM 3
BEGIN
PROMPT 2 11 "Comunale "
PROMPT 2 12 "Comunale "
FIELD LF_COMUNI->UFFESCOM
FLAGS "RZ"
HELP "Codice esattoria comunale competente"
@ -405,7 +433,7 @@ END
LIST FLD_CM2_TERRMON 18
BEGIN
PROMPT 34 11 "Territorio montano "
PROMPT 34 12 "Territorio montano "
HELP "Codice identificativo di comune residente in territorio montano"
FIELD LF_COMUNI->TERRMON
ITEMS " |Non montano"
@ -415,7 +443,7 @@ END
STRING FLD_CM2_COMAGG 4
BEGIN
PROMPT 2 13 "Comune aggr. "
PROMPT 2 14 "Comune aggr. "
HELP "Codice comune a cui e' stato accorpato il presente comune"
FIELD LF_COMUNI->COMAGG
FLAGS "U"
@ -431,7 +459,7 @@ END
STRING FLD_CM2_DENCOMAGG 50
BEGIN
PROMPT 23 13 ""
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
@ -442,7 +470,7 @@ END
NUMBER F_CODREG 2
BEGIN
PROMPT 2 15 "Cod.regione "
PROMPT 2 16 "Cod.regione "
FIELD LF_COMUNI->CODREG
FLAGS "RZ"
USE %RGI
@ -457,7 +485,7 @@ END
STRING F_DESREG 50
BEGIN
PROMPT 23 15 ""
PROMPT 23 16 ""
USE %RGI KEY 2
INPUT S0 F_DESREG
DISPLAY "Denominazione@50" S0

5
src/ba/ba4300.h
View File

@ -140,9 +140,10 @@
#define FLD_IN_CODSOGDEL 200
#define FLD_IN_DESSOGDEL 201
#define CHK_IN_NONOBBSTAT 202
#define FLD_IN_UFFDOG 203
#define F_INTCAF 203
#define F_DICHP 204
#define F_INTCAF 303
#define F_DICHP 304
#endif // __BA4300_H

27
src/ba/ba4300a.uml
View File

@ -118,6 +118,7 @@ BEGIN
FIELD LF_NDITTE->CODANAGR
FLAGS "R"
USE LF_ANAG KEY 1
JOIN LF_COMUNI INTO COM=COMRES
INPUT TIPOA FLD_GD1_TIPOA
INPUT CODANAGR FLD_GD1_CODANAGR
DISPLAY "Tipo" TIPOA
@ -126,6 +127,7 @@ BEGIN
OUTPUT FLD_GD1_CODANAGR CODANAGR
OUTPUT FLD_GD1_TIPOA TIPOA
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
OUTPUT FLD_IN_UFFDOG LF_COMUNI->UFFDOG
HELP "Codice della anagrafica di riferimento"
CHECKTYPE REQUIRED
WARNING "Anagrafica assente"
@ -890,7 +892,7 @@ BEGIN
GROUP 2
END
GROUPBOX DLG_NULL 76 7
GROUPBOX DLG_NULL 76 8
BEGIN
PROMPT 1 4 "@bSoggetto Obbligato INTRA"
FLAGS "R"
@ -929,20 +931,31 @@ END
BOOLEAN CHK_IN_NONOBBSTAT
BEGIN
PROMPT 2 9 "Non obbligato a compilare: valore stat., modalità consegna e trasporto"
FIELD NONOBBSTAT
END
NUMBER FLD_IN_UFFDOG 6
BEGIN
PROMPT 2 10 "Ufficio Doganale "
USE %UDD
INPUT CODTAB FLD_IN_UFFDOG
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT FLD_IN_UFFDOG CODTAB
FIELD UFFDOG
FLAGS "RZ"
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 11 "@bSoggetto Delegato INTRA"
PROMPT 1 13 "@bSoggetto Delegato INTRA"
FLAGS "R"
END
LIST LST_IN_TIPOSOGDEL 1 10
BEGIN
PROMPT 2 12 "Tipo persona "
PROMPT 2 14 "Tipo persona "
ITEM "F|Fisica"
ITEM "G|Giuridica"
FIELD TIPOSOGDEL
@ -950,7 +963,7 @@ END
NUMBER FLD_IN_CODSOGDEL 6
BEGIN
PROMPT 35 12 "Codice "
PROMPT 35 14 "Codice "
USE LF_ANAG
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
INPUT CODANAGR FLD_IN_CODSOGDEL
@ -966,7 +979,7 @@ END
STRING FLD_IN_DESSOGDEL 50
BEGIN
PROMPT 2 13 "Denominazione "
PROMPT 2 15 "Denominazione "
USE LF_ANAG KEY 2
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
INPUT RAGSOC FLD_IN_DESSOGDEL

13
src/ba/ba6200.cpp
View File

@ -17,6 +17,7 @@ class BA6200_application : public TPrintapp
TString _codistat, _uffreg;
int _uffiidd1, _uffiidd2, _uffiidd3, _uffiva1, _uffiva2, _uffiva3;
int _uffconc, _uffcserv, _uffesprov, _uffescom, _terrmon;
long _uffdog;
TDate _data_stampa;
protected:
@ -64,7 +65,8 @@ bool BA6200_application::preprocess_page(int file, int counter)
_uffconc = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCONC);
_uffcserv = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCSERV);
_uffesprov = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFESPROV);
_uffescom = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFESCOM);
_uffescom = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFESCOM);
_uffdog = current_cursor()->curr(LF_COMUNI).get_long(COM_UFFDOG);
_terrmon = current_cursor()->curr(LF_COMUNI).get_int(COM_TERRMON);
setta_righe_descr(_descr_comune);
@ -109,8 +111,11 @@ bool BA6200_application::preprocess_page(int file, int counter)
if (_uffescom != 0)
set_row (1,"@114g%03d", _uffescom);
if (_uffdog != 0L)
set_row(1, "@119g%06ld", _uffdog);
return TRUE;
return true;
}
else
return FALSE;
@ -226,10 +231,10 @@ void BA6200_application::crea_intestazione()
sep.fill('-');
set_header (3, (const char *) sep);
set_header(5, FR("@0gCodice@7gDenominazione@33gProv.@40gCap@45gCd.Istat@54gMont.@60gUff.@67gII.DD.@80gI.V.A.@92gRegi.@98gConc.@104gServ.@110gEsatt."));
set_header(5, FR("@0gCodice@7gDenominazione@33gProv.@40gCap@45gCd.Istat@54gMont.@60gUff.@67gII.DD.@80gI.V.A.@92gRegi.@98gConc.@104gServ.@110gEsatt.@119gUff.dog."));
set_header (6, FR("@0g------@7g-------------------------@33g-----@39g-----"));
set_header (6, FR("@45g--------@54g-----@65g-----------"));
set_header (6, FR("@78g------------@92g-----@98g-----@104g-----@110g-------"));
set_header (6, FR("@78g------------@92g-----@98g-----@104g-----@110g-------@119g------"));
}
bool BA6200_application::user_create()

6
src/ba/bamenu.men
View File

@ -78,7 +78,8 @@ Item_04 = "Uffici imposte dirette", "ba3 -0 %uid", ""
Item_05 = "Uffici IVA", "ba3 -0 %uiv", ""
Item_06 = "Uffici registro", "ba3 -0 %ure", ""
Item_07 = "Centri servizio", "ba3 -0 %ucs", ""
Item_08 = "Codici tributo", "ba3 -0 %trb", ""
Item_08 = "Uffici doganali", "ba3 -0 %udd", ""
Item_09 = "Codici tributo", "ba3 -0 %trb", ""
[MENU_012]
Caption = "Stampa tabelle ministeriali"
@ -91,7 +92,8 @@ Item_03 = "Uffici imposte dirette", "ba3 -1 %uid", ""
Item_04 = "Uffici IVA", "ba3 -1 %uiv", ""
Item_05 = "Uffici registro", "ba3 -1 %ure", ""
Item_06 = "Centri servizio", "ba3 -1 %ucs", ""
Item_07 = "Codici tributo", "ba3 -1 %trb", ""
Item_07 = "Uffici doganali", "ba3 -1 %udd", ""
Item_08 = "Codici tributo", "ba3 -1 %trb", ""
[MENU_014]
Caption = "Query e Report"

61
src/ba/bastudd.rep Normal file
View File

@ -0,0 +1,61 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="" page_merge="" save_printer="" name="bastudd" use_printer_font="" orientation="" page_split="" lpi="6" command="" class="">
<font face="Courier New" size="10" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1">
<field y="0.25" deactivated="" type="Testo" valign="center" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="96" codval="" height="2" id="" pattern="2" hide_zero="" text="Tabella Uffici Doganali">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
<field x="2" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="2" hide_zero="" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="11.5" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="31" codval="" id="" pattern="2" hide_zero="" text="Descrizione uffici doganali">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="17" codval="" id="" pattern="2" hide_zero="" text="Indirizzo ufficio">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="41" y="4" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="2" codval="" id="" pattern="2" hide_zero="" text="N.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="50" y="4" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="2" hide_zero="" text="Comune">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" height="3" page_break="" can_break="" pattern="1">
<field x="2" deactivated="" type="Stringa" hidden="" align="right" link="%UDDCODTAB" dynamic_height="" shade_offset="" width="8" codval="" id="" pattern="2" hide_zero="" text="">
<font face="Courier New" bold="1" size="10" />
<source>CODTAB</source>
</field>
<field x="11" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="2" hide_zero="" text="">
<source>S0</source>
</field>
<field x="2" y="1" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="35" codval="" id="" pattern="2" hide_zero="" text="">
<source>S1</source>
</field>
<field x="38" y="1" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="8" codval="" id="" pattern="2" hide_zero="" text="">
<source>S3</source>
</field>
<field x="50" y="1" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="2" hide_zero="" text="">
<source>S6</source>
</field>
<field border="1" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="" hidden="" height="3" page_break="" can_break="" pattern="1">
<field border="2" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
<field x="2" y="1" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="2" hide_zero="" text="">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="2" hide_zero="" text="">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" page_break="" can_break="" pattern="1" />
<sql>USE %UDD
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

36
src/ba/bastudd.uml Normal file
View File

@ -0,0 +1,36 @@
#include "ba3200.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa uffici doganali" 0 2 0 0
STRING F_INIZIO1 6
BEGIN
PROMPT 2 1 "Da codice "
USE %UDD
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD FROM
FLAGS "RZ"
END
STRING F_FINE1 6
BEGIN
PROMPT 25 1 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD TO
FLAGS "RZ"
END
ENDPAGE
ENDMASK

9
src/ba/batbudd.h Normal file
View File

@ -0,0 +1,9 @@
#define FLD_TABUDD_CODTAB 101
#define FLD_TABUDD_S0 102
#define FLD_TABUDD_S1 103
#define FLD_TABUDD_S3 104
#define FLD_TABUDD_S6 105
#define FLD_TABUDD_S6_COMUNI_DENCOM 106
#define FLD_TABUDD_S6_COMUNI_PROVCOM 107
#define FLD_TABUDD_S7_CAP 108
#define FLD_TABURE_S7_CAP 109

101
src/ba/batbudd.uml Normal file
View File

@ -0,0 +1,101 @@
#include "batbudd.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Centri servizio" -1 -1 78 18
NUMBER FLD_TABUDD_CODTAB 6
BEGIN
PROMPT 1 1 "Codice "
FIELD %UDD->CODTAB
FLAGS "RZ"
KEY 1
USE %UDD
INPUT CODTAB FLD_TABUDD_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABUDD_CODTAB CODTAB
OUTPUT FLD_TABUDD_S0 S0
HELP "Codice del centro servizio"
CHECKTYPE REQUIRED
VALIDATE FIXLEN_FUNC 6
FLAGS "Z"
END
STRING FLD_TABUDD_S0 70 50
BEGIN
PROMPT 1 3 "Descrizione "
FIELD %UDD->S0
KEY 2
USE %UDD KEY 2
INPUT S0 FLD_TABUDD_S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUDD_CODTAB CODTAB
OUTPUT FLD_TABUDD_S0 S0
HELP "Descrizione del centro servizio"
CHECKTYPE REQUIRED
END
STRING FLD_TABUDD_S1 35
BEGIN
PROMPT 1 5 "Indirizzo "
FIELD %UDD->S1
HELP "Indirizzo della sede del centro"
END
STRING FLD_TABUDD_S3 10
BEGIN
PROMPT 54 5 "N."
FIELD %UDD->S3
HELP "Numero civico della sede"
END
STRING FLD_TABUDD_S6 4
BEGIN
PROMPT 1 7 "Comune "
FIELD %UDD->S6
FLAGS "U"
USE LF_COMUNI KEY 1
INPUT STATO ""
INPUT COM FLD_TABUDD_S6
#include <comdcod.h>
OUTPUT FLD_TABUDD_S6 COM
OUTPUT FLD_TABUDD_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABUDD_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABUDD_S7_CAP CAPCOM
HELP "Codice del comune della sede"
CHECKTYPE REQUIRED
WARNING "Comune non presente"
ADD RUN ba4 -0
END
STRING FLD_TABUDD_S6_COMUNI_DENCOM 50
BEGIN
PROMPT 1 9 "Denominazione "
USE LF_COMUNI KEY 2
INPUT DENCOM FLD_TABUDD_S6_COMUNI_DENCOM
#include <comdden.h>
COPY OUTPUT FLD_TABUDD_S6
HELP ""
END
STRING FLD_TABUDD_S6_COMUNI_PROVCOM 2
BEGIN
PROMPT 1 11 "Provincia "
FLAGS "D"
HELP ""
END
STRING FLD_TABUDD_S7_CAP 5
BEGIN
PROMPT 54 11 "CAP "
FIELD %UDD->S7
HELP "CAP del comune della sede"
END
ENDPAGE
ENDMASK

2
src/ba/f13.dir
View File

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

3
src/ba/f13.trr
View File

@ -1,5 +1,5 @@
13
31
32
STATO|1|3|0|
COM|1|4|0|
DENCOM|1|50|0|
@ -18,6 +18,7 @@ UFFCONC|9|3|0|
UFFCSERV|9|3|0|
UFFESPROV|9|3|0|
UFFESCOM|9|3|0|
UFFDOG|10|6|0|Ufficio doganale
ALIQICI|4|6|3|
COMAGG|1|4|0|
TERRMON|2|1|0|

2
src/ba/f9.dir
View File

@ -1,3 +1,3 @@
9
1
%nditte|0|0|636|0|Ditte|#6||
%nditte|0|0|642|0|Ditte|#6||

3
src/ba/f9.trr
View File

@ -1,5 +1,5 @@
9
59
60
CODDITTA|3|5|0|
TIPOA|1|1|0|
CODANAGR|3|5|0|
@ -54,6 +54,7 @@ FREQACQ|1|1|0|Frequenza riepiloghi acquisti INTRA
TIPOSOGDEL|1|1|0|Tipo anagrafico del soggetto delegato
CODSOGDEL|3|6|0|Codice del soggetto delegato
NONOBBSTAT|8|1|0|Non obbligato alla compilazione del valore statistico se mensile
UFFDOG|10|6|0|Ufficio doganale
INTCAF|1|10|0|N.ro Iscrizione al CAF dell'intemediario (firmatario)
DICHP|1|1|0|Dichiarazione predisposta da <C>ontribuente, <I>ntermediario
CODRFSO|1|6|0|Codice Rappresentante Fiscale/Stabile Organizzazione