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 1995-01-24 16:53:28 +00:00
parent ffc9b4f8a5
commit f883d54429
4 changed files with 106 additions and 47 deletions

View File

@ -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);

View File

@ -377,5 +377,6 @@
#define F_STATO 406
#define F_VARDF 407
#define F_DVARDF 408
#define F_STATORES 409
#endif // __BA4200_H

View File

@ -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

View File

@ -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