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

Pagament restructuration

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1803 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-09-11 10:51:33 +00:00
parent d850474bee
commit 187f24e587
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ba/ba3700.cpp
View File

@ -426,18 +426,16 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
if (ahiahi) // any error?
// rimetti le righe com'erano prima
{
beep();
// se gli errori sono voluti, spiegali
if (!recalc)
{
TString s(256);
pag->strerr(ahiahi,s);
warning_box(s);
}
// beep();
// if (!recalc)
// {
TString s(256);
pag->strerr(ahiahi,s);
warning_box(s);
// }
shf->row(r) = (TToken_string&)(*rws)[r];
shf->force_update(r);
shf->force_update(-1);
msk->set(F_NUM_RATE, pag->n_rate());
}
else if (recalc && mod && need_recalc)
@ -458,19 +456,23 @@ return doit;
int BA3700_application::rewrite(const TMask& m)
{
TTable& tab_cpg = (TTable&)_rel->lfile();
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
const int err = _pag->rewrite(tab_rpg);
if (err != NOERR) return err;
m.autosave(_rel);
tab_cpg.put("R1", _pag->rate_differenziate() ? "X" : "");
return _rel->lfile().rewrite();
}
int BA3700_application::write(const TMask& m)
{
TTable& tab_cpg = (TTable&)_rel->lfile();
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
const int err = _pag->write(tab_rpg);
if (err != NOERR) return err;
m.autosave(_rel);
m.autosave(_rel);
tab_cpg.put("R1", _pag->rate_differenziate() ? "X" : "");
return _rel->lfile().write();
}

6
ba/ba3700a.uml
View File

@ -96,10 +96,10 @@ BEGIN
ITEM "2|Tratta"
ITEM "3|Ricevuta bancaria"
ITEM "4|Cessione"
ITEM "5|Paghero' appena posso"
ITEM "5|Paghero'"
ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata"
ITEM "8|Rapporti interbancari diretti"
ITEM "8|Rapporti interban. diretti"
ITEM "9|Bonifici"
END
@ -116,7 +116,7 @@ BEGIN
PROMPT 5 7 "Rate "
HELP "Descrizione del meccanismo di generazione rate "
ITEM "1|Differenziate"
ITEM "2|Uguali"
ITEM "2|Uguali (obbligate dalla 2a)"
ITEM "3|Uguali dalla prossima modifica"
ITEM "4|Uguali finche' possibile"
END