Patch level :4.0 608
Files correlati : Ricompilazione Demo : [ ] Commento :non si devono poter cancellare i gruppi con ancora conti figli esistenti git-svn-id: svn://10.65.10.50/trunk@14853 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
1b7aa2bde6
commit
dab4b0fccf
@ -103,6 +103,7 @@ protected:
|
|||||||
virtual int write(const TMask& m);
|
virtual int write(const TMask& m);
|
||||||
virtual int rewrite(const TMask& m);
|
virtual int rewrite(const TMask& m);
|
||||||
virtual bool remove();
|
virtual bool remove();
|
||||||
|
virtual bool protected_record(TRectype& rec);
|
||||||
|
|
||||||
void init_indbil(TMask& mask);
|
void init_indbil(TMask& mask);
|
||||||
virtual void init_query_mode(TMask& mask);
|
virtual void init_query_mode(TMask& mask);
|
||||||
@ -214,6 +215,20 @@ bool TAnalisi_app::remove()
|
|||||||
return err == NOERR;
|
return err == NOERR;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
bool TAnalisi_app::protected_record(TRectype& rec)
|
||||||
|
{
|
||||||
|
TLocalisamfile pconana(LF_PCONANA);
|
||||||
|
pconana.curr() = rec;
|
||||||
|
if (pconana.read() == NOERR && pconana.next() == NOERR)
|
||||||
|
{
|
||||||
|
const TString key = rec.get(PANA_CODCONTO);
|
||||||
|
const TString new_key = pconana.get(PANA_CODCONTO);
|
||||||
|
|
||||||
|
return new_key.starts_with(key);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
void TAnalisi_app::init_indbil(TMask& mask)
|
void TAnalisi_app::init_indbil(TMask& mask)
|
||||||
{
|
{
|
||||||
bool enabled = true;
|
bool enabled = true;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user