Corretto comportamento della relapp in write e rewrite
Aggiunta nota integrativa ridotta git-svn-id: svn://10.65.10.50/trunk@568 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
4ece2fba16
commit
06996b445c
@ -73,8 +73,9 @@ bool set_users::user_create()
|
||||
int set_users::read(TMask& m)
|
||||
|
||||
{
|
||||
TRelation_application::read(m);
|
||||
const TRelation *r = get_relation();
|
||||
m.autoload(r);
|
||||
|
||||
m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
|
||||
return NOERR;
|
||||
}
|
||||
@ -83,23 +84,20 @@ int set_users::write(const TMask& m)
|
||||
|
||||
{
|
||||
TRelation *r = get_relation();
|
||||
r->zero();
|
||||
m.autosave(r);
|
||||
TString16 s(encode(m.get(F_PASSWORD)));
|
||||
|
||||
r->lfile().put("PASSWORD", (const char *) s);
|
||||
return r->write();
|
||||
return TRelation_application::write(m);
|
||||
}
|
||||
|
||||
int set_users::rewrite(const TMask& m)
|
||||
|
||||
{
|
||||
TRelation *r = get_relation();
|
||||
|
||||
r->zero();
|
||||
m.autosave(r);
|
||||
TString16 s(encode(m.get(F_PASSWORD)));
|
||||
r->lfile().put("PASSWORD", (const char *) s);
|
||||
return r->rewrite();
|
||||
|
||||
r->lfile().put("PASSWORD", s);
|
||||
return TRelation_application::rewrite(m);
|
||||
}
|
||||
|
||||
bool set_users::user_destroy()
|
||||
|
@ -101,9 +101,16 @@ END
|
||||
BOOLEAN F_NI
|
||||
BEGIN
|
||||
PROMPT 1 11 "Nota integrativa"
|
||||
FIELD AUTSTR[22,22]
|
||||
FIELD AUTSTR[22,22]
|
||||
END
|
||||
|
||||
BOOLEAN F_NR
|
||||
BEGIN
|
||||
PROMPT 31 11 "Nota integrativa ridotta"
|
||||
FIELD AUTSTR[23,23]
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
12
ba/ba1500a.h
12
ba/ba1500a.h
@ -1,6 +1,6 @@
|
||||
#define F_K1 101
|
||||
#define F_K2 102
|
||||
#define F_K3 103
|
||||
#define F_K4 104
|
||||
#define F_SN 105
|
||||
#define F_DT 106
|
||||
#define F_K1 101
|
||||
#define F_K2 102
|
||||
#define F_K3 103
|
||||
#define F_K4 104
|
||||
#define F_SN 105
|
||||
#define F_DT 106
|
||||
|
@ -97,6 +97,11 @@ BEGIN
|
||||
PROMPT 1 9 "Nota integrativa"
|
||||
END
|
||||
|
||||
BOOLEAN F_NR
|
||||
BEGIN
|
||||
PROMPT 31 9 "Nota integrativa ridotta"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
|
Loading…
x
Reference in New Issue
Block a user