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? if (ahiahi) // any error?
// rimetti le righe com'erano prima // rimetti le righe com'erano prima
{ {
beep(); // beep();
// if (!recalc)
// se gli errori sono voluti, spiegali // {
if (!recalc) TString s(256);
{ pag->strerr(ahiahi,s);
TString s(256); warning_box(s);
pag->strerr(ahiahi,s); // }
warning_box(s);
}
shf->row(r) = (TToken_string&)(*rws)[r]; 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) else if (recalc && mod && need_recalc)
@ -458,19 +456,23 @@ return doit;
int BA3700_application::rewrite(const TMask& m) int BA3700_application::rewrite(const TMask& m)
{ {
TTable& tab_cpg = (TTable&)_rel->lfile();
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS); TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
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" : "");
return _rel->lfile().rewrite(); return _rel->lfile().rewrite();
} }
int BA3700_application::write(const TMask& m) int BA3700_application::write(const TMask& m)
{ {
TTable& tab_cpg = (TTable&)_rel->lfile();
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS); TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
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" : "");
return _rel->lfile().write(); return _rel->lfile().write();
} }

6
ba/ba3700a.uml
View File

@ -96,10 +96,10 @@ BEGIN
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta bancaria" ITEM "3|Ricevuta bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero' appena posso" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Rapporti interbancari diretti" ITEM "8|Rapporti interban. diretti"
ITEM "9|Bonifici" ITEM "9|Bonifici"
END END
@ -116,7 +116,7 @@ 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"
ITEM "2|Uguali" ITEM "2|Uguali (obbligate dalla 2a)"
ITEM "3|Uguali dalla prossima modifica" ITEM "3|Uguali dalla prossima modifica"
ITEM "4|Uguali finche' possibile" ITEM "4|Uguali finche' possibile"
END END