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

Gabriellate tabella pagamenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2101 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-11-07 11:36:38 +00:00
parent 7cb6b921f8
commit 09381b469a
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ba/ba3700.cpp
View File

@ -64,7 +64,6 @@ public:
virtual ~BA3700_application() {}
};
// app-data per handlers
struct sht {
TMask* _msk;
@ -73,8 +72,6 @@ struct sht {
TArray* _rws;
} shuttle;
bool BA3700_application::user_create()
{
_rel = new TRelation(TAB_CPG);
@ -175,13 +172,16 @@ bool BA3700_application::intervallo_rate(TMask_field& f, KEY k)
if (!pag || msk->get(F_INT_RATE).empty()) return TRUE;
pag->set_intervallo_rate(msk->get_int(F_INT_RATE));
pag->set_intervallo_rate(msk->get_int(F_INT_RATE));
if (pag->dirty())
{
pag->set_sheet(*shf);
(*(s->_rws)) = shf->rows_array();
msk->field(F_MESECOMM).set(pag->mese_commerciale() ? "X" : "");
}
}
else f.set(format("%d",pag->intervallo_rate()));
return TRUE;
}
@ -341,7 +341,6 @@ bool BA3700_application::ult_class(TMask_field& f, KEY k)
return TRUE;
}
// qui viene il belloccio
bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
{
@ -389,7 +388,7 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
if (strcmp(ts.get(2),newt) != 0) // modificato tipo pagamento
mod = m_tipo = TRUE;
if (strcmp(ts.get(4),newu) != 0) // modificata ulteriore classificazione
if (strcmp(ts.get(3),newu) != 0) // modificata ulteriore classificazione
mod = m_ulc = TRUE;
}
break;
@ -432,6 +431,7 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
if (m_scad) trw.add(news,0);
if (m_perc) trw.add(newp,1);
if (m_tipo) trw.add(newt,2);
if (m_ulc) trw.add(newu,3);
// validate the payment
if ((ahiahi = pag->validate()) != P_OK)
pag->rata(r) = srw;
@ -451,19 +451,19 @@ bool BA3700_application::sheet_action(TSheet_field&, int r, KEY k)
msk->set(F_NUM_RATE, pag->n_rate());
}
else if (recalc && mod && need_recalc)
{
// ridefinisci lo sheet sulla base delle nuove rate
pag->set_sheet(*shf);
shf->force_update(-1);
rws->destroy();
(*rws) = shf->rows_array();
}
else if (recalc && mod && need_recalc)
{
// ridefinisci lo sheet sulla base delle nuove rate
pag->set_sheet(*shf);
shf->force_update(-1);
rws->destroy();
(*rws) = shf->rows_array();
}
msk->field(F_NUM_RATE).set(format("%d", pag->n_rate()));
}
msk->field(F_NUM_RATE).set(format("%d", pag->n_rate()));
}
return doit;
return doit;
}

8
ba/ba3700a.uml
View File

@ -202,8 +202,8 @@ BEGIN
PROMPT 36 9 "(2) "
FIELD I1
HELP "Giorno scadenza obbligato: seconda alternativa"
NUM_EXPR (#F_FIXSCAD_2>=0)&&(#F_FIXSCAD_2<=31)
WARNING "Il giorno del mese e' compreso tra 1 e 31!"
NUM_EXPR (#F_FIXSCAD_2==0)||((#F_FIXSCAD_2>0)&&(#F_FIXSCAD_2<=31)&&(#F_FIXSCAD_2>#F_FIXSCAD_1))
WARNING "Giorno errato o non in sequenza"
END
NUMBER F_FIXSCAD_3 2
@ -211,8 +211,8 @@ BEGIN
PROMPT 44 9 "(3) "
FIELD I2
HELP "Giorno scadenza obbligato: terza alternativa"
NUM_EXPR (#F_FIXSCAD_3>=0)&&(#F_FIXSCAD_3<=31)
WARNING "Il giorno del mese e' compreso tra 1 e 31!"
NUM_EXPR (#F_FIXSCAD_3==0)||((#F_FIXSCAD_3>0)&&(#F_FIXSCAD_3<=31)&&(#F_FIXSCAD_3>#F_FIXSCAD_2)&&(#F_FIXSCAD_3>#F_FIXSCAD_1))
WARNING "Giorno errato o non in sequenza"
END
BOOLEAN F_MESECOMM