Patch level : 12.0 1042
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:
parent
e07567c8b8
commit
45be538953
@ -62,10 +62,12 @@
|
|||||||
#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 FLD_CM2_DUFFDOG 161
|
||||||
|
|
||||||
#define FLD_CM3_STATO 160
|
#define FLD_CM3_STATO 170
|
||||||
#define FLD_CM3_COM 161
|
#define FLD_CM3_COM 171
|
||||||
#define FLD_CM3_DENCOM 162
|
#define FLD_CM3_DENCOM 172
|
||||||
#define FLD_CM3_DENSTA 163
|
#define FLD_CM3_DENSTA 163
|
||||||
|
|
||||||
#define N_STATO "STATO"
|
#define N_STATO "STATO"
|
||||||
|
@ -298,7 +298,7 @@ BEGIN
|
|||||||
GROUP 23
|
GROUP 23
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 5
|
GROUPBOX DLG_NULL 75 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Uffici Vari"
|
PROMPT 1 4 "Uffici Vari"
|
||||||
END
|
END
|
||||||
@ -379,16 +379,44 @@ BEGIN
|
|||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
COPY OUTPUT FLD_CM2_UFFCSERV
|
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
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 23 4
|
GROUPBOX DLG_NULL 23 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Esattorie"
|
PROMPT 1 10 "Esattorie"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_UFFESPROV 3
|
NUMBER FLD_CM2_UFFESPROV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Provinciale "
|
PROMPT 2 11 "Provinciale "
|
||||||
FIELD LF_COMUNI->UFFESPROV
|
FIELD LF_COMUNI->UFFESPROV
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice esattoria provinciale competente"
|
HELP "Codice esattoria provinciale competente"
|
||||||
@ -396,7 +424,7 @@ END
|
|||||||
|
|
||||||
NUMBER FLD_CM2_UFFESCOM 3
|
NUMBER FLD_CM2_UFFESCOM 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Comunale "
|
PROMPT 2 12 "Comunale "
|
||||||
FIELD LF_COMUNI->UFFESCOM
|
FIELD LF_COMUNI->UFFESCOM
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Codice esattoria comunale competente"
|
HELP "Codice esattoria comunale competente"
|
||||||
@ -405,7 +433,7 @@ END
|
|||||||
|
|
||||||
LIST FLD_CM2_TERRMON 18
|
LIST FLD_CM2_TERRMON 18
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 11 "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"
|
||||||
FIELD LF_COMUNI->TERRMON
|
FIELD LF_COMUNI->TERRMON
|
||||||
ITEMS " |Non montano"
|
ITEMS " |Non montano"
|
||||||
@ -415,7 +443,7 @@ END
|
|||||||
|
|
||||||
STRING FLD_CM2_COMAGG 4
|
STRING FLD_CM2_COMAGG 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "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"
|
||||||
FIELD LF_COMUNI->COMAGG
|
FIELD LF_COMUNI->COMAGG
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
@ -431,7 +459,7 @@ END
|
|||||||
|
|
||||||
STRING FLD_CM2_DENCOMAGG 50
|
STRING FLD_CM2_DENCOMAGG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 13 ""
|
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 FLD_CM2_DENCOMAGG
|
||||||
@ -442,7 +470,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_CODREG 2
|
NUMBER F_CODREG 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Cod.regione "
|
PROMPT 2 16 "Cod.regione "
|
||||||
FIELD LF_COMUNI->CODREG
|
FIELD LF_COMUNI->CODREG
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %RGI
|
USE %RGI
|
||||||
@ -457,7 +485,7 @@ END
|
|||||||
|
|
||||||
STRING F_DESREG 50
|
STRING F_DESREG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 15 ""
|
PROMPT 23 16 ""
|
||||||
USE %RGI KEY 2
|
USE %RGI KEY 2
|
||||||
INPUT S0 F_DESREG
|
INPUT S0 F_DESREG
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
|
@ -140,9 +140,10 @@
|
|||||||
#define FLD_IN_CODSOGDEL 200
|
#define FLD_IN_CODSOGDEL 200
|
||||||
#define FLD_IN_DESSOGDEL 201
|
#define FLD_IN_DESSOGDEL 201
|
||||||
#define CHK_IN_NONOBBSTAT 202
|
#define CHK_IN_NONOBBSTAT 202
|
||||||
|
#define FLD_IN_UFFDOG 203
|
||||||
|
|
||||||
#define F_INTCAF 203
|
#define F_INTCAF 303
|
||||||
#define F_DICHP 204
|
#define F_DICHP 304
|
||||||
|
|
||||||
|
|
||||||
#endif // __BA4300_H
|
#endif // __BA4300_H
|
||||||
|
@ -118,6 +118,7 @@ BEGIN
|
|||||||
FIELD LF_NDITTE->CODANAGR
|
FIELD LF_NDITTE->CODANAGR
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
USE LF_ANAG KEY 1
|
USE LF_ANAG KEY 1
|
||||||
|
JOIN LF_COMUNI INTO COM=COMRES
|
||||||
INPUT TIPOA FLD_GD1_TIPOA
|
INPUT TIPOA FLD_GD1_TIPOA
|
||||||
INPUT CODANAGR FLD_GD1_CODANAGR
|
INPUT CODANAGR FLD_GD1_CODANAGR
|
||||||
DISPLAY "Tipo" TIPOA
|
DISPLAY "Tipo" TIPOA
|
||||||
@ -126,6 +127,7 @@ BEGIN
|
|||||||
OUTPUT FLD_GD1_CODANAGR CODANAGR
|
OUTPUT FLD_GD1_CODANAGR CODANAGR
|
||||||
OUTPUT FLD_GD1_TIPOA TIPOA
|
OUTPUT FLD_GD1_TIPOA TIPOA
|
||||||
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
||||||
|
OUTPUT FLD_IN_UFFDOG LF_COMUNI->UFFDOG
|
||||||
HELP "Codice della anagrafica di riferimento"
|
HELP "Codice della anagrafica di riferimento"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Anagrafica assente"
|
WARNING "Anagrafica assente"
|
||||||
@ -890,7 +892,7 @@ BEGIN
|
|||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 7
|
GROUPBOX DLG_NULL 76 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "@bSoggetto Obbligato INTRA"
|
PROMPT 1 4 "@bSoggetto Obbligato INTRA"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
@ -929,20 +931,31 @@ END
|
|||||||
BOOLEAN CHK_IN_NONOBBSTAT
|
BOOLEAN CHK_IN_NONOBBSTAT
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Non obbligato a compilare: valore stat., modalità consegna e trasporto"
|
PROMPT 2 9 "Non obbligato a compilare: valore stat., modalità consegna e trasporto"
|
||||||
|
|
||||||
|
|
||||||
FIELD NONOBBSTAT
|
FIELD NONOBBSTAT
|
||||||
END
|
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
|
GROUPBOX DLG_NULL 76 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 11 "@bSoggetto Delegato INTRA"
|
PROMPT 1 13 "@bSoggetto Delegato INTRA"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST LST_IN_TIPOSOGDEL 1 10
|
LIST LST_IN_TIPOSOGDEL 1 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Tipo persona "
|
PROMPT 2 14 "Tipo persona "
|
||||||
ITEM "F|Fisica"
|
ITEM "F|Fisica"
|
||||||
ITEM "G|Giuridica"
|
ITEM "G|Giuridica"
|
||||||
FIELD TIPOSOGDEL
|
FIELD TIPOSOGDEL
|
||||||
@ -950,7 +963,7 @@ END
|
|||||||
|
|
||||||
NUMBER FLD_IN_CODSOGDEL 6
|
NUMBER FLD_IN_CODSOGDEL 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 12 "Codice "
|
PROMPT 35 14 "Codice "
|
||||||
USE LF_ANAG
|
USE LF_ANAG
|
||||||
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
|
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
|
||||||
INPUT CODANAGR FLD_IN_CODSOGDEL
|
INPUT CODANAGR FLD_IN_CODSOGDEL
|
||||||
@ -966,7 +979,7 @@ END
|
|||||||
|
|
||||||
STRING FLD_IN_DESSOGDEL 50
|
STRING FLD_IN_DESSOGDEL 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Denominazione "
|
PROMPT 2 15 "Denominazione "
|
||||||
USE LF_ANAG KEY 2
|
USE LF_ANAG KEY 2
|
||||||
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
|
INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
|
||||||
INPUT RAGSOC FLD_IN_DESSOGDEL
|
INPUT RAGSOC FLD_IN_DESSOGDEL
|
||||||
|
@ -17,6 +17,7 @@ class BA6200_application : public TPrintapp
|
|||||||
TString _codistat, _uffreg;
|
TString _codistat, _uffreg;
|
||||||
int _uffiidd1, _uffiidd2, _uffiidd3, _uffiva1, _uffiva2, _uffiva3;
|
int _uffiidd1, _uffiidd2, _uffiidd3, _uffiva1, _uffiva2, _uffiva3;
|
||||||
int _uffconc, _uffcserv, _uffesprov, _uffescom, _terrmon;
|
int _uffconc, _uffcserv, _uffesprov, _uffescom, _terrmon;
|
||||||
|
long _uffdog;
|
||||||
TDate _data_stampa;
|
TDate _data_stampa;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
@ -64,7 +65,8 @@ bool BA6200_application::preprocess_page(int file, int counter)
|
|||||||
_uffconc = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCONC);
|
_uffconc = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCONC);
|
||||||
_uffcserv = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCSERV);
|
_uffcserv = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFCSERV);
|
||||||
_uffesprov = current_cursor()->curr(LF_COMUNI).get_int(COM_UFFESPROV);
|
_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);
|
_terrmon = current_cursor()->curr(LF_COMUNI).get_int(COM_TERRMON);
|
||||||
|
|
||||||
setta_righe_descr(_descr_comune);
|
setta_righe_descr(_descr_comune);
|
||||||
@ -110,7 +112,10 @@ bool BA6200_application::preprocess_page(int file, int counter)
|
|||||||
if (_uffescom != 0)
|
if (_uffescom != 0)
|
||||||
set_row (1,"@114g%03d", _uffescom);
|
set_row (1,"@114g%03d", _uffescom);
|
||||||
|
|
||||||
return TRUE;
|
if (_uffdog != 0L)
|
||||||
|
set_row(1, "@119g%06ld", _uffdog);
|
||||||
|
|
||||||
|
return true;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
return FALSE;
|
return FALSE;
|
||||||
@ -226,10 +231,10 @@ void BA6200_application::crea_intestazione()
|
|||||||
sep.fill('-');
|
sep.fill('-');
|
||||||
set_header (3, (const char *) sep);
|
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("@0g------@7g-------------------------@33g-----@39g-----"));
|
||||||
set_header (6, FR("@45g--------@54g-----@65g-----------"));
|
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()
|
bool BA6200_application::user_create()
|
||||||
|
@ -78,7 +78,8 @@ Item_04 = "Uffici imposte dirette", "ba3 -0 %uid", ""
|
|||||||
Item_05 = "Uffici IVA", "ba3 -0 %uiv", ""
|
Item_05 = "Uffici IVA", "ba3 -0 %uiv", ""
|
||||||
Item_06 = "Uffici registro", "ba3 -0 %ure", ""
|
Item_06 = "Uffici registro", "ba3 -0 %ure", ""
|
||||||
Item_07 = "Centri servizio", "ba3 -0 %ucs", ""
|
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]
|
[MENU_012]
|
||||||
Caption = "Stampa tabelle ministeriali"
|
Caption = "Stampa tabelle ministeriali"
|
||||||
@ -91,7 +92,8 @@ Item_03 = "Uffici imposte dirette", "ba3 -1 %uid", ""
|
|||||||
Item_04 = "Uffici IVA", "ba3 -1 %uiv", ""
|
Item_04 = "Uffici IVA", "ba3 -1 %uiv", ""
|
||||||
Item_05 = "Uffici registro", "ba3 -1 %ure", ""
|
Item_05 = "Uffici registro", "ba3 -1 %ure", ""
|
||||||
Item_06 = "Centri servizio", "ba3 -1 %ucs", ""
|
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]
|
[MENU_014]
|
||||||
Caption = "Query e Report"
|
Caption = "Query e Report"
|
||||||
|
61
src/ba/bastudd.rep
Normal file
61
src/ba/bastudd.rep
Normal 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
36
src/ba/bastudd.uml
Normal 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
9
src/ba/batbudd.h
Normal 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
101
src/ba/batbudd.uml
Normal 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
|
@ -1,3 +1,3 @@
|
|||||||
13
|
13
|
||||||
1
|
1
|
||||||
%comuni|0|0|150|0|Comuni|500||
|
%comuni|0|0|156|0|Comuni|500||
|
@ -1,5 +1,5 @@
|
|||||||
13
|
13
|
||||||
31
|
32
|
||||||
STATO|1|3|0|
|
STATO|1|3|0|
|
||||||
COM|1|4|0|
|
COM|1|4|0|
|
||||||
DENCOM|1|50|0|
|
DENCOM|1|50|0|
|
||||||
@ -18,6 +18,7 @@ UFFCONC|9|3|0|
|
|||||||
UFFCSERV|9|3|0|
|
UFFCSERV|9|3|0|
|
||||||
UFFESPROV|9|3|0|
|
UFFESPROV|9|3|0|
|
||||||
UFFESCOM|9|3|0|
|
UFFESCOM|9|3|0|
|
||||||
|
UFFDOG|10|6|0|Ufficio doganale
|
||||||
ALIQICI|4|6|3|
|
ALIQICI|4|6|3|
|
||||||
COMAGG|1|4|0|
|
COMAGG|1|4|0|
|
||||||
TERRMON|2|1|0|
|
TERRMON|2|1|0|
|
||||||
|
@ -1,3 +1,3 @@
|
|||||||
9
|
9
|
||||||
1
|
1
|
||||||
%nditte|0|0|636|0|Ditte|#6||
|
%nditte|0|0|642|0|Ditte|#6||
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
9
|
9
|
||||||
59
|
60
|
||||||
CODDITTA|3|5|0|
|
CODDITTA|3|5|0|
|
||||||
TIPOA|1|1|0|
|
TIPOA|1|1|0|
|
||||||
CODANAGR|3|5|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
|
TIPOSOGDEL|1|1|0|Tipo anagrafico del soggetto delegato
|
||||||
CODSOGDEL|3|6|0|Codice del soggetto delegato
|
CODSOGDEL|3|6|0|Codice del soggetto delegato
|
||||||
NONOBBSTAT|8|1|0|Non obbligato alla compilazione del valore statistico se mensile
|
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)
|
INTCAF|1|10|0|N.ro Iscrizione al CAF dell'intemediario (firmatario)
|
||||||
DICHP|1|1|0|Dichiarazione predisposta da <C>ontribuente, <I>ntermediario
|
DICHP|1|1|0|Dichiarazione predisposta da <C>ontribuente, <I>ntermediario
|
||||||
CODRFSO|1|6|0|Codice Rappresentante Fiscale/Stabile Organizzazione
|
CODRFSO|1|6|0|Codice Rappresentante Fiscale/Stabile Organizzazione
|
||||||
|
Loading…
x
Reference in New Issue
Block a user