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

COrrezzione richiesta da Cecilia in data 09/01/97 via FAX

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4042 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-01-09 11:40:31 +00:00
parent aa032cbd2d
commit 5516ea480f
3 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ba/ba4200.cpp
View File

@ -43,6 +43,7 @@ protected:
static bool fax_handler(TMask_field& f, KEY k);
static bool ba4200_handler(TMask& m, KEY k);
static bool ind_handler(TMask_field& f, KEY k);
public:
virtual int write(const TMask& m);
@ -123,6 +124,22 @@ bool TPersone_app::fax_handler(TMask_field& f, KEY k)
return ok;
}
bool TPersone_app::ind_handler(TMask_field& f, KEY k)
{
TMask & m = f.mask();
if (!m.query_mode() && (k == K_TAB || k == K_ENTER) && f.empty())
{
const bool giuridica = ((TPersone_app&)main_app()).ana_giu();
m.set(giuridica ? FLD_AG2_INDCORR : FLD_AF2_INDCORR,
m.get(giuridica ? FLD_AG2_INDRES : FLD_AF1_INDRES));
m.set(giuridica ? FLD_AG2_CIVCORR : FLD_AF2_CIVCORR,
m.get(giuridica ? FLD_AG2_CIVRES : FLD_AF1_CIVRES));
}
return TRUE;
}
void TPersone_app::init_query_mode(TMask& m)
{
@ -191,6 +208,8 @@ HIDDEN bool corr_hnd(TMask_field& f, bool giuridica)
if (f.get().empty())
{
m.set(giuridica ? FLD_AG2_CIVCORR : FLD_AF2_CIVCORR,
m.get(giuridica ? FLD_AG2_CIVRES : FLD_AF1_CIVRES));
const TString80 s(m.get(giuridica ? FLD_AG2_COMRES : FLD_AF1_COMRES));
if (s.not_empty())
@ -520,6 +539,7 @@ TMask* TPersone_app::get_mask(int mode)
_msk[MSKF]->set_handler(FLD_AF1_COMRES, gest_uff_imp);
_msk[MSKF]->set_handler(FLD_AF2_COMRF, gest_uff_imp);
_msk[MSKF]->set_handler(FLD_AF2_COMCORR, clear_cap);
_msk[MSKF]->set_handler(FLD_AF2_INDCORR, ind_handler);
_msk[MSKF]->set_handler(F_UFFCONC, uff_conc);
_msk[MSKF]->set_handler(F_CODREG96, cod_reg);
_msk[MSKF]->set_handler(F_TITCF, tit_cf);
@ -534,6 +554,7 @@ TMask* TPersone_app::get_mask(int mode)
_msk[MSKG]->set_handler(FLD_AG2_COMRES, gest_uff_imp);
_msk[MSKG]->set_handler(FLD_AG1_COMRF, gest_uff_imp);
_msk[MSKG]->set_handler(FLD_AG2_COMCORR, clear_cap);
_msk[MSKG]->set_handler(FLD_AG2_INDCORR, ind_handler);
// _msk[MSKG]->set_handler(FLD_AG1_COFI, no_dup_iva_g);
_msk[MSKG]->set_handler(FLD_AG1_PAIV, no_dup_iva_g);
_msk[MSKG]->set_handler(F_UFFCONC, uff_conc);

2
ba/ba4200b.uml
View File

@ -509,7 +509,7 @@ PROMPT 2 6 "Indirizzo "
FIELD LF_ANAG->INDCORR
HELP "Indirizzo al quale spedire la corrispondenza"
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES
//VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES
END
STRING FLD_AF2_CIVCORR 10

10
ba/ba4200c.uml
View File

@ -444,7 +444,7 @@ BEGIN
FIELD LF_ANAG->INDCORR
HELP "Indirizzo a cui mandare la corrispondenza"
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
// VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
END
STRING FLD_AG2_CIVCORR 10
@ -452,7 +452,7 @@ BEGIN
PROMPT 56 5 "N."
FIELD LF_ANAG->CIVCORR
HELP "Numero civico a cui mandare la corrispondenza"
// VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END
STRING F_LOCCORR 35
@ -833,7 +833,7 @@ BEGIN
PROMPT 0 4 "Dati Aziendali"
END
NUMBER FLD_AG4_CAPSOC 15
NUMBER FLD_AG4_CAPSOC 17
BEGIN
PROMPT 1 5 "Capitale Sociale "
FIELD LF_ANAGGIU->CAPSOC
@ -842,7 +842,7 @@ BEGIN
HELP "Importo del capitale sociale della ditta"
END
NUMBER FLD_AG4_CAPVER 15
NUMBER FLD_AG4_CAPVER 17
BEGIN
PROMPT 1 6 "Capitale versato "
FIELD LF_ANAGGIU->CAPVER
@ -868,7 +868,7 @@ BEGIN
HELP "Valore nominale delle azioni emesse"
END
NUMBER FLD_AG4_FATT 15
NUMBER FLD_AG4_FATT 17
BEGIN
PROMPT 1 7 "Fatturato "
FIELD LF_ANAGGIU->FATT