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

Corretto comportamento della relapp in write e rewrite

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ba/ba1400.cpp
View File

@ -73,8 +73,9 @@ bool set_users::user_create()
int set_users::read(TMask& m) int set_users::read(TMask& m)
{ {
TRelation_application::read(m);
const TRelation *r = get_relation(); const TRelation *r = get_relation();
m.autoload(r);
m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD"))); m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
return NOERR; return NOERR;
} }
@ -83,23 +84,20 @@ int set_users::write(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
r->zero();
m.autosave(r);
TString16 s(encode(m.get(F_PASSWORD))); TString16 s(encode(m.get(F_PASSWORD)));
r->lfile().put("PASSWORD", (const char *) s); r->lfile().put("PASSWORD", (const char *) s);
return r->write(); return TRelation_application::write(m);
} }
int set_users::rewrite(const TMask& m) int set_users::rewrite(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
r->zero();
m.autosave(r);
TString16 s(encode(m.get(F_PASSWORD))); 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() bool set_users::user_destroy()

9
ba/ba1400a.uml
View File

@ -101,9 +101,16 @@ END
BOOLEAN F_NI BOOLEAN F_NI
BEGIN BEGIN
PROMPT 1 11 "Nota integrativa" 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 END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

12
ba/ba1500a.h
View File

@ -1,6 +1,6 @@
#define F_K1 101 #define F_K1 101
#define F_K2 102 #define F_K2 102
#define F_K3 103 #define F_K3 103
#define F_K4 104 #define F_K4 104
#define F_SN 105 #define F_SN 105
#define F_DT 106 #define F_DT 106

5
ba/ba1500a.uml
View File

@ -97,6 +97,11 @@ BEGIN
PROMPT 1 9 "Nota integrativa" PROMPT 1 9 "Nota integrativa"
END END
BOOLEAN F_NR
BEGIN
PROMPT 31 9 "Nota integrativa ridotta"
END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""