Riaggiunto campo STATORES (p.p.m.t.v)
git-svn-id: svn://10.65.10.50/trunk@905 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
ffc9b4f8a5
commit
f883d54429
@ -156,6 +156,33 @@ void TPersone_app::init_modify_mode(TMask& m)
|
||||
m.disable(DLG_CHGTIP);
|
||||
}
|
||||
|
||||
HIDDEN bool stato_hnd(TMask_field& f, KEY key)
|
||||
{
|
||||
if (f.get().empty())
|
||||
f.mask().set(FLD_AF1_STATONASC_TABSTE_S0, "Italiana");
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
HIDDEN bool corr_hnd(TMask_field& f, bool giuridica)
|
||||
{
|
||||
TMask & m = f.mask();
|
||||
|
||||
if (f.get().empty())
|
||||
{
|
||||
const TString80 s(m.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES));
|
||||
|
||||
if (s.not_empty())
|
||||
{
|
||||
m.set(giuridica ? FLD_AG2_STATOCORR : FLD_AF2_STATOCORR, m.get(F_STATORES));
|
||||
f.set(s);
|
||||
m.set(giuridica ? FLD_AG2_CAPCORR : FLD_AF2_CAPCORR,
|
||||
m.get(giuridica ? FLD_AG2_CAPRES : FLD_ANAG_CAPRES));
|
||||
f.check();
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
HIDDEN bool clear_cap(TMask_field& f, KEY key)
|
||||
{
|
||||
if (f.mask().query_mode())
|
||||
@ -168,6 +195,9 @@ HIDDEN bool clear_cap(TMask_field& f, KEY key)
|
||||
return TRUE;
|
||||
|
||||
const bool giuridica = ((TPersone_app&)main_app()).ana_giu();
|
||||
if (dlg == FLD_AG2_COMCORR || dlg == FLD_AF2_COMCORR)
|
||||
corr_hnd(f, giuridica);
|
||||
|
||||
const TString16 val(f.get());
|
||||
|
||||
if ( giuridica )
|
||||
@ -362,6 +392,7 @@ TMask* TPersone_app::get_mask(int mode)
|
||||
if (_msk[MSKG] != NULL) delete _msk[MSKG];
|
||||
_msk[MSKG] = NULL;
|
||||
_msk[MSKF] = new TMask("ba4200b") ;
|
||||
_msk[MSKF]->set_handler(F_STATO, stato_hnd);
|
||||
_msk[MSKF]->set_handler(FLD_AF1_PAIV, no_dup_iva_f);
|
||||
_msk[MSKF]->set_handler(FLD_AF1_COFI, no_dup_fis);
|
||||
_msk[MSKF]->set_handler(FLD_AF1_COMRES, gest_uff_imp);
|
||||
|
||||
@ -377,5 +377,6 @@
|
||||
#define F_STATO 406
|
||||
#define F_VARDF 407
|
||||
#define F_DVARDF 408
|
||||
#define F_STATORES 409
|
||||
|
||||
#endif // __BA4200_H
|
||||
|
||||
@ -285,7 +285,7 @@ BEGIN
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
GROUPBOX DLG_NULL 76 7
|
||||
BEGIN
|
||||
PROMPT 0 5 "Residenza"
|
||||
END
|
||||
@ -307,15 +307,30 @@ BEGIN
|
||||
HELP "Numero civico della residenza"
|
||||
END
|
||||
|
||||
NUMBER F_STATORES 3
|
||||
BEGIN
|
||||
PROMPT 2 7 "Comune : Stato "
|
||||
FIELD LF_ANAG->STATORES
|
||||
FLAGS "RZ"
|
||||
COPY USE F_STATO
|
||||
INPUT CODTAB F_STATORES
|
||||
COPY DISPLAY F_STATO
|
||||
OUTPUT F_STATORES CODTAB
|
||||
HELP "Codice dello stato di residenza"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Stato assente"
|
||||
END
|
||||
|
||||
STRING FLD_AF1_COMRES 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Comune : Codice "
|
||||
PROMPT 9 8 ": Codice "
|
||||
FIELD LF_ANAG->COMRES
|
||||
FLAGS "U"
|
||||
COPY USE FLD_AF1_COMNASC
|
||||
INPUT STATO ""
|
||||
INPUT STATO F_STATORES
|
||||
INPUT COM FLD_AF1_COMRES
|
||||
COPY DISPLAY FLD_AF1_COMNASC
|
||||
OUTPUT F_STATORES STATO
|
||||
OUTPUT FLD_AF1_COMRES COM
|
||||
OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM
|
||||
@ -328,24 +343,25 @@ END
|
||||
|
||||
STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 38 7 "Provincia "
|
||||
PROMPT 38 8 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_ANAG_CAPRES 5
|
||||
BEGIN
|
||||
PROMPT 56 7 "CAP "
|
||||
PROMPT 56 8 "CAP "
|
||||
FIELD LF_ANAG->CAPRES
|
||||
HELP "CAP del comune di residenza"
|
||||
END
|
||||
|
||||
STRING FLD_AF1_COMRES_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 9 8 ": Denom. "
|
||||
PROMPT 9 9 ": Denom. "
|
||||
HELP "Nome del comune di residenza"
|
||||
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM
|
||||
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
|
||||
OUTPUT F_STATORES STATO
|
||||
OUTPUT FLD_AF1_COMRES COM
|
||||
OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM
|
||||
@ -355,14 +371,14 @@ END
|
||||
|
||||
BOOLEAN CHK_AF4_SOGGNRES
|
||||
BEGIN
|
||||
PROMPT 2 9 "Non residente"
|
||||
PROMPT 2 10 "Non residente"
|
||||
FIELD LF_ANAG->SOGGNRES
|
||||
HELP "Dire se si tratta di persone non residente"
|
||||
END
|
||||
|
||||
BOOLEAN F_VARSLORES
|
||||
BEGIN
|
||||
PROMPT 21 9 "Variata"
|
||||
PROMPT 21 10 "Variata"
|
||||
FIELD LF_ANAG->VARSLORES
|
||||
HELP "Indicare se e' stata variata la sede legale"
|
||||
MESSAGE FALSE CLEAR,F_DVARSLORES
|
||||
@ -371,19 +387,19 @@ END
|
||||
|
||||
DATE F_DVARSLORES
|
||||
BEGIN
|
||||
PROMPT 38 9 "Data variazione "
|
||||
PROMPT 38 10 "Data variazione "
|
||||
FIELD LF_ANAG->DVARSLORES
|
||||
HELP "Data di variazione della sede legale"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 11 "Domicilio Fiscale (solo se diverso)"
|
||||
PROMPT 0 12 "Domicilio Fiscale (solo se diverso)"
|
||||
END
|
||||
|
||||
STRING FLD_AF2_INDRF 35
|
||||
BEGIN
|
||||
PROMPT 2 12 "Indirizzo "
|
||||
PROMPT 2 13 "Indirizzo "
|
||||
FIELD LF_ANAG->INDRF
|
||||
HELP "Inserire l'indirizzo del domicilio fiscale"
|
||||
WARNING "Completare l'indirizzo di domicilio fiscale"
|
||||
@ -392,14 +408,14 @@ END
|
||||
|
||||
STRING FLD_AF2_CIVRF 10
|
||||
BEGIN
|
||||
PROMPT 56 12 "N."
|
||||
PROMPT 56 13 "N."
|
||||
FIELD LF_ANAG->CIVRF
|
||||
HELP "Inserire il numero civico della domicilio fiscale"
|
||||
END
|
||||
|
||||
STRING FLD_AF2_COMRF 4
|
||||
BEGIN
|
||||
PROMPT 2 13 "Comune : Codice "
|
||||
PROMPT 2 14 "Comune : Codice "
|
||||
FIELD LF_ANAG->COMRF
|
||||
FLAGS "U"
|
||||
COPY USE FLD_AF1_COMNASC
|
||||
@ -418,20 +434,20 @@ END
|
||||
|
||||
STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 38 13 "Provincia "
|
||||
PROMPT 38 14 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AF2_CAPRF 5
|
||||
BEGIN
|
||||
PROMPT 56 13 "CAP "
|
||||
PROMPT 56 14 "CAP "
|
||||
FIELD LF_ANAG->CAPRF
|
||||
HELP "Inserire il CAP del comune di domicilio fiscale"
|
||||
END
|
||||
|
||||
STRING FLD_AF2_COMRF_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 9 14 ": Denom. "
|
||||
PROMPT 9 15 ": Denom. "
|
||||
HELP "Nome del comune di residenza fiscale"
|
||||
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
|
||||
INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM
|
||||
@ -528,7 +544,6 @@ BEGIN
|
||||
HELP "Codice del comune al quale spedire la corrispondenza"
|
||||
CHECKTYPE NORMAL
|
||||
ADD MASK ba4100a
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES
|
||||
WARNING "Comune assente"
|
||||
END
|
||||
|
||||
@ -544,14 +559,13 @@ BEGIN
|
||||
PROMPT 56 8 "CAP "
|
||||
FIELD LF_ANAG->CAPCORR
|
||||
HELP "CAP del comune al quale spedire la corrispondenza"
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES
|
||||
END
|
||||
|
||||
STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 9 9 ": Denom. "
|
||||
HELP "Nome del comune al quale spedire la corrispondenza"
|
||||
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
|
||||
COPY USE FLD_AF1_COMRES_COMUNI_DENCOM
|
||||
INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM
|
||||
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
|
||||
OUTPUT FLD_AF2_STATOCORR STATO
|
||||
|
||||
@ -227,15 +227,30 @@ BEGIN
|
||||
HELP "Numero civico della sede legale"
|
||||
END
|
||||
|
||||
NUMBER F_STATORES 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Comune : Stato "
|
||||
FIELD LF_ANAG->STATORES
|
||||
FLAGS "RZ"
|
||||
USE %STA
|
||||
INPUT CODTAB F_STATORES
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Stato@50" S0
|
||||
OUTPUT F_STATORES CODTAB
|
||||
HELP "Codice dello stato a cui mandare la corrispondenza"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FLD_AG2_COMRES 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Comune : Codice "
|
||||
PROMPT 2 7 "Comune : Codice "
|
||||
FIELD LF_ANAG->COMRES
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT STATO F_STATORES
|
||||
INPUT COM FLD_AG2_COMRES
|
||||
#include <comdcod.h>
|
||||
OUTPUT F_STATORES STATO
|
||||
OUTPUT FLD_AG2_COMRES COM
|
||||
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
|
||||
@ -248,24 +263,25 @@ END
|
||||
|
||||
STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 38 6 "Provincia "
|
||||
PROMPT 38 7 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AG2_CAPRES 5
|
||||
BEGIN
|
||||
PROMPT 56 6 "CAP "
|
||||
PROMPT 56 7 "CAP "
|
||||
FIELD LF_ANAG->CAPRES
|
||||
HELP "CAP del comune sede legale"
|
||||
END
|
||||
|
||||
STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 9 7 ": Denom. "
|
||||
PROMPT 9 8 ": Denom. "
|
||||
HELP "Nome del comune sede legale"
|
||||
USE LF_COMUNI KEY 2 SELECT STATO==""
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
|
||||
#include <comdden.h>
|
||||
OUTPUT F_STATORES STATO
|
||||
OUTPUT FLD_AG2_COMRES COM
|
||||
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
|
||||
@ -275,14 +291,14 @@ END
|
||||
|
||||
BOOLEAN CHK_AG5_NONRES
|
||||
BEGIN
|
||||
PROMPT 2 8 "Non residente"
|
||||
PROMPT 2 9 "Non residente"
|
||||
FIELD LF_ANAG->SOGGNRES
|
||||
HELP "Indicare se si tratta di persona giuridica non residente"
|
||||
END
|
||||
|
||||
BOOLEAN F_VARSLORES
|
||||
BEGIN
|
||||
PROMPT 21 8 "Variata"
|
||||
PROMPT 21 9 "Variata"
|
||||
FIELD LF_ANAG->VARSLORES
|
||||
HELP "Indicare se e' stata variata la sede legale della ditta"
|
||||
MESSAGE FALSE CLEAR,F_DVARSLORES
|
||||
@ -292,7 +308,7 @@ END
|
||||
|
||||
DATE F_DVARSLORES
|
||||
BEGIN
|
||||
PROMPT 38 8 "Data variazione "
|
||||
PROMPT 38 9 "Data variazione "
|
||||
FIELD LF_ANAG->DVARSLORES
|
||||
HELP "Data di variazione della sede legale"
|
||||
END
|
||||
@ -323,18 +339,17 @@ BEGIN
|
||||
PROMPT 2 13 "Comune : Codice "
|
||||
FIELD LF_ANAG->COMRF
|
||||
FLAGS "U"
|
||||
COPY USE FLD_AG2_COMRES
|
||||
INPUT STATO ""
|
||||
INPUT COM FLD_AG1_COMRF
|
||||
COPY DISPLAY FLD_AG2_COMRES
|
||||
OUTPUT FLD_AG1_COMRF COM
|
||||
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
|
||||
OUTPUT FLD_AG1_CAPRF CAPCOM
|
||||
HELP "Codice del comune domicilio fiscale della ditta"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
USE LF_COMUNI KEY 2 SELECT STATO==""
|
||||
INPUT COM FLD_AG1_COMRF
|
||||
COPY DISPLAY FLD_AG2_COMRES
|
||||
OUTPUT FLD_AG1_COMRF COM
|
||||
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
|
||||
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
|
||||
OUTPUT FLD_AG1_CAPRF CAPCOM
|
||||
HELP "Codice del comune domicilio fiscale della ditta"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
END
|
||||
|
||||
STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5
|
||||
@ -459,7 +474,6 @@ BEGIN
|
||||
OUTPUT FLD_AG2_CAPCORR CAPCOM
|
||||
HELP "Codice del comune a cui mandare la corrispondenza"
|
||||
CHECKTYPE NORMAL
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
END
|
||||
@ -473,10 +487,9 @@ END
|
||||
|
||||
STRING FLD_AG2_CAPCORR 5
|
||||
BEGIN
|
||||
PROMPT 56 7 "CAP "
|
||||
FIELD LF_ANAG->CAPCORR
|
||||
HELP "CAP al quale spedire la corrispondenza"
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES
|
||||
PROMPT 56 7 "CAP "
|
||||
FIELD LF_ANAG->CAPCORR
|
||||
HELP "CAP al quale spedire la corrispondenza"
|
||||
END
|
||||
|
||||
STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
|
||||
@ -599,7 +612,7 @@ STRING F_DENCOMCOST 50 46
|
||||
BEGIN
|
||||
PROMPT 26 5 ""
|
||||
HELP "Nome del comune dove e' stata costituita la societa'"
|
||||
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
|
||||
COPY USE FLD_AG1_COMRF_COMUNI_DENCOM
|
||||
INPUT DENCOM F_DENCOMCOST
|
||||
#include <comdden.h>
|
||||
COPY OUTPUT F_COMCOST
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user