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:
alex 1994-11-08 14:44:19 +00:00
parent 4ece2fba16
commit 06996b445c
4 changed files with 26 additions and 16 deletions

View File

@ -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()

View File

@ -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

View File

@ -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

View File

@ -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 ""