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

Registrasioon dele rate diferensiade in del fail

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1815 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-09-12 08:33:59 +00:00
parent 01046cb24b
commit 6f6b1f15a2
2 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ba/ba3700.cpp
View File

@ -123,15 +123,16 @@ int BA3700_application::read(TMask& m)
_pag->set_sheet(*_cs, ir); _pag->set_sheet(*_cs, ir);
if (_pag->n_rate() > 1) if (_pag->n_rate() > 1)
_interv_rate = _pag->scad_rata(_pag->n_rate() - 1); _interv_rate = _pag->scad_rata(_pag->n_rate() - 1);
else _interv_rate = 30;
TArray* arr = new TArray; TArray* arr = new TArray;
if (shuttle._rws != NULL) delete shuttle._rws; if (shuttle._rws != NULL) delete shuttle._rws;
(*arr) = _cs->rows_array(); (*arr) = _cs->rows_array();
shuttle._rws = arr; shuttle._rws = arr;
// shuttle._msk->field(F_INT_RATE).set(format("%d",_interv_rate)); shuttle._msk->field(F_INT_RATE).set(format("%d",_interv_rate));
shuttle._msk->field(F_NUM_RATE).set(format("%d",_pag->n_rate())); shuttle._msk->field(F_NUM_RATE).set(format("%d",_pag->n_rate()));
shuttle._msk->field(F_RATE_DIFF).set(_pag->rate_differenziate() ? "1" : "2"); shuttle._msk->set(F_RATE_DIFF, _pag->rate_differenziate() ? "1" : "2", TRUE);
return NOERR; return NOERR;
} }
@ -148,7 +149,7 @@ void BA3700_application::init_insert_mode(TMask& m)
shuttle._msk->field(F_INT_RATE).set("30"); shuttle._msk->field(F_INT_RATE).set("30");
shuttle._msk->field(F_INIZIOSCAD).set("F"); shuttle._msk->field(F_INIZIOSCAD).set("F");
shuttle._msk->field(F_NUM_RATE).set("1"); shuttle._msk->field(F_NUM_RATE).set("1");
shuttle._msk->field(F_RATE_DIFF).set("2"); shuttle._msk->set(F_RATE_DIFF, "2", TRUE);
} }
void BA3700_application::init_query_mode(TMask& m) void BA3700_application::init_query_mode(TMask& m)
@ -407,7 +408,7 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
pag->mese_commerciale(), pag->mese_commerciale(),
need_recalc); need_recalc);
// see if parameters changed // see if parameters changed
msk->field(F_RATE_DIFF).set(pag->rate_differenziate() ? "1" : "2"); msk->set(F_RATE_DIFF, pag->rate_differenziate() ? "1" : "2", TRUE);
msk->field(F_MESECOMM).set(pag->mese_commerciale() ? "X" : ""); msk->field(F_MESECOMM).set(pag->mese_commerciale() ? "X" : "");
} }
if (!recalc) if (!recalc)
@ -461,7 +462,7 @@ int BA3700_application::rewrite(const TMask& m)
const int err = _pag->rewrite(tab_rpg); const int err = _pag->rewrite(tab_rpg);
if (err != NOERR) return err; if (err != NOERR) return err;
m.autosave(_rel); m.autosave(_rel);
tab_cpg.put("R1", _pag->rate_differenziate() ? "X" : ""); tab_cpg.put("B1", _pag->rate_differenziate() ? "X" : "");
return _rel->lfile().rewrite(); return _rel->lfile().rewrite();
} }
@ -472,7 +473,7 @@ int BA3700_application::write(const TMask& m)
const int err = _pag->write(tab_rpg); const int err = _pag->write(tab_rpg);
if (err != NOERR) return err; if (err != NOERR) return err;
m.autosave(_rel); m.autosave(_rel);
tab_cpg.put("R1", _pag->rate_differenziate() ? "X" : ""); tab_cpg.put("B1", _pag->rate_differenziate() ? "X" : "");
return _rel->lfile().write(); return _rel->lfile().write();
} }

15
ba/ba3700a.uml
View File

@ -7,6 +7,13 @@ ENDPAGE
PAGE "Tabella condizioni di pagamento" -1 -1 78 15 PAGE "Tabella condizioni di pagamento" -1 -1 78 15
BOOLEAN 909
BEGIN
PROMPT 0 0 ""
FLAGS "GH"
FIELD %CPG->B1
END
GROUPBOX DLG_NULL 71 4 GROUPBOX DLG_NULL 71 4
BEGIN BEGIN
PROMPT 4 0 "" PROMPT 4 0 ""
@ -115,10 +122,10 @@ LIST F_RATE_DIFF 25
BEGIN BEGIN
PROMPT 5 7 "Rate " PROMPT 5 7 "Rate "
HELP "Descrizione del meccanismo di generazione rate " HELP "Descrizione del meccanismo di generazione rate "
ITEM "1|Differenziate" ITEM "1|Differenziate" MESSAGE "X",909
ITEM "2|Uguali (obbligate dalla 2a)" ITEM "2|Uguali (obbligate dalla 2a)" MESSAGE "",909
ITEM "3|Uguali dalla prossima modifica" ITEM "3|Uguali dalla prossima modifica" MESSAGE "X",909
ITEM "4|Uguali finche' possibile" ITEM "4|Uguali finche' possibile" MESSAGE "X",909
END END
STRING F_ULT_CLASS 2 STRING F_ULT_CLASS 2