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

Gestione utenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@549 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-07 16:09:15 +00:00
parent 29e703bf90
commit c7e356334a
16 changed files with 1062 additions and 147 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
ba/ba0.cpp
View File

@ -1,10 +1,12 @@
#include <applicat.h>
#include <execp.h>
#include <mask.h>
#include <isam.h>
#include <prefix.h>
#include <progind.h>
#include <utility.h>
#include <urldefid.h>
#include <stdio.h>
#if XVT_OS == XVT_OS_WIN
extern "C"
@ -17,6 +19,7 @@ extern "C"
#endif
#include "ba0.h"
#include "ba0100a.h"
///////////////////////////////////////////////////////////
// Picture Mask
@ -104,6 +107,8 @@ class TMenu_application : public TApplication
enum { MAXLEVEL = 1024 };
int _first[MAXLEVEL];
TArray _menu; // TAG|DESCRIPTION|ACTION
TBit_array _enabled;
TArray _modules;
int _level, _max;
bool _ditta_asked;
@ -116,11 +121,14 @@ protected:
void load_menu();
int do_level();
int find_menu(const char* s) const;
bool check_user();
virtual bool create();
virtual bool menu(MENU_TAG m);
static bool menu_item_handler(TMask_field&f, KEY k);
static bool menu_find_handler(TMask_field&f, KEY k);
bool module_enabled(const char * program) const;
bool module_enabled(int module) const { return has_module(module);}
public:
TMenu_application(const char* name) : _name(name), _ditta_asked(FALSE) {}
@ -132,11 +140,24 @@ bool TMenu_application::_find_button = FALSE;
inline TMenu_application& app()
{ return (TMenu_application&)main_app(); }
bool TMenu_application::module_enabled(const char * program) const
{
bool ok = FALSE;
const int nmod = _modules.items();
for (int aut = 0; aut < nmod; aut++)
{
const TString& s = (const TString&) _modules[aut];
if (strncmp((const char *) s, program, 2) == 0) { ok = TRUE; break; }
}
return ok && has_module(aut);
}
void TMenu_application::load_menu()
{
TScanner s(_name);
_max = -1;
while (s.line().not_empty())
{
TToken_string* ts = new TToken_string(s.token());
@ -158,6 +179,25 @@ void TMenu_application::load_menu()
}
_menu.add(ts);
const TString16 action = ts->get(2);
const int last = _menu.items() - 1;
if (atoi(action) > 0)
{
TToken_string list(ts->get(), ',');
int module = list.get_int();
if (module == 0)
_enabled.set(last);
while(!_enabled[last] && module > 0)
{
if (has_module(module))
_enabled.set(last);
module = list.get_int();
}
}
else
_enabled.set(last, module_enabled(action));
}
_first[++_max] = _menu.items();
}
@ -169,16 +209,20 @@ int TMenu_application::find_menu(const char* s) const
for (int i = 0; i < _menu.items(); i++)
{
TToken_string& l = (TToken_string&)_menu[i];
const int m = l.get_int(0);
if (m != _level)
if (_enabled[i])
{
TString80 v(l.get()); v.upper();
if (v.find(str) >= 0)
TToken_string& l = (TToken_string&)_menu[i];
const int m = l.get_int(0);
if (m != _level)
{
found = i;
if (isalpha(l.get_char())) break;
}
TString80 v(l.get()); v.upper();
if (v.find(str) >= 0)
{
found = i;
if (isalpha(l.get_char())) break;
}
}
}
}
return found;
@ -251,6 +295,7 @@ int TMenu_application::do_level()
menu.add_static(-1, 0, item, x+4, y);
menu.add_button(100+y, 0, t, x, y, 1, 1);
menu.set_handler(100+y, menu_item_handler);
if (!_enabled[i]) menu.disable(100 + y);
}
menu.add_static(-1, 0, "Cerca", 1,-3);
menu.add_string(99, 0, "", -12, -3, 50, "", bwidth+1);
@ -307,13 +352,68 @@ void TMenu_application::test_temp() const
#endif
}
bool TMenu_application::check_user()
{
TMask m("ba0100a");
TLocalisamfile users(LF_USER);
TString16 user;
TString16 password;
for (int i = 0 ; i < 3; i++)
{
if (m.run() == K_ESC) return FALSE;
user = m.get(F_USER);
password = m.get(F_PASSWORD);
if (password.len() > 3)
{
users.zero();
users.put("USERNAME", user);
if (users.read() == NOERR)
{
const TString16 pwd(users.get("PASSWORD"));
if (pwd == encode(password))
{
set_user(user);
return TRUE;
}
else
message_box("Password errata");
}
else
if (user == "PRASSI")
{
if (m.get(F_PASSWORD) == "pr.assi")
{
set_user(user);
return TRUE;
}
else
message_box("Password errata");
}
else
message_box("Utente sconosciuto");
}
else
message_box("Password errata");
}
return FALSE;
}
bool TMenu_application::create()
{
if (!check_user()) return FALSE;
set_perms();
test_temp();
load_menu();
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
{
TScanner scanner("prassi.aut");
for (int aut = 0; scanner.line() != ""; aut++)
_modules.add(new TString(scanner.token()));
}
load_menu();
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
}

13
ba/ba0100a.h Executable file
View File

@ -0,0 +1,13 @@
#define F_USER 101
#define F_PASSWORD 102
#define F_USERDESC 103
#define F_BASE 200
#define F_CG 201
#define F_MU 202
#define F_SC 203
#define F_EF 204
#define F_VE 205
#define F_MG 206
#define F_770 207
#define F_AB 220
#define F_NI 221

35
ba/ba0100a.uml Executable file
View File

@ -0,0 +1,35 @@
#include "ba0100a.h"
PAGE "Configurazione utente" -1 -1 35 7
STRING F_USER 8
BEGIN
PROMPT 1 1 "Utente "
HELP "Inserire il nome dell'utente"
FLAGS "U"
USE LF_USER
INPUT USERNAME F_USER
DISPLAY "Utente" USERNAME
DISPLAY "Descrizione@50" USERDESC
OUTPUT F_USER USERNAME
END
STRING F_PASSWORD 8 0
BEGIN
PROMPT 1 3 "Password "
HELP "Inserire la password"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

27
ba/ba1.cpp
View File

@ -1,28 +1,41 @@
#include <xvt.h>
#include <applicat.h>
#include <stdtypes.h>
#include <checks.h>
#include "ba1.h"
#define usage "Errore - uso : ba1 [-{0|1|2}]"
#define usage "Errore - uso : ba1 [-{0|1|2|3|4}]"
int main(int argc,char** argv)
{
int rt = 0 ;
check_parameters(argc, argv);
if (argc == 1)
rt = ba1100(argc,argv);
else
if (argc >= 2)
{
switch (argv[1][1])
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
switch (r)
{
case '0': rt = ba1100(argc,argv); break;
case '1': rt = ba1200(argc,argv); break;
case '2': rt = ba1300(argc,argv);break;
default : fatal_box(usage); break;
}
case 0:
rt = ba1100(argc,argv); break;
case 1:
rt = ba1200(argc,argv); break;
case 2:
rt = ba1300(argc,argv); break;
case 3:
rt = ba1400(argc,argv); break;
case 4:
rt = ba1500(argc,argv); break;
default:
error_box(usage); break;
}
}
else fatal_box(usage);
return rt;

2
ba/ba1.h
View File

@ -4,6 +4,8 @@
int ba1100(int argc, char** argv);
int ba1200(int argc, char** argv);
int ba1300(int argc, char** argv);
int ba1400(int argc, char** argv);
int ba1500(int argc, char** argv);
#endif // __BA1_H

14
ba/ba1.url
View File

@ -21,3 +21,17 @@ MENU MENU_BAR(2)
ITEM BAR_ITEM(1) "~Test"
ITEM BAR_ITEM(2) "~Debug"
/* ba1 -3 */
MENUBAR MENU_BAR(3)
MENU MENU_BAR(3)
SUBMENU MENU_FILE "~File"
/* ba1 -4 */
MENUBAR MENU_BAR(4)
MENU MENU_BAR(4)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Attiva"

18
ba/ba1100.cpp
View File

@ -355,6 +355,7 @@ void BA1100_application::update_dir()
d.get(i, _nolock, _nordir, _sysdirop);
TString desc(d.des());
TString s(d.name());
bool towrite = FALSE;
long flags = d.flags();
word len = d.len();
@ -362,16 +363,19 @@ void BA1100_application::update_dir()
d.get(i, _nolock, _nordir, _sysdirop);
bool to_create = (update_com ? *d.name() == '%' : *d.name() == '$');
if (flags == -1)
if (flags == -1 && len != d.len() && s != d.name())
{
if (len != d.len() && s != d.name())
d.set(s, d.eox(), 0L, desc, d.expr());
else
strcpy((char *) d.des(), desc);
d.set(s, d.eox(), 0L, desc, d.expr());
towrite = TRUE;
}
else
strcpy((char *) d.des(), desc);
d.put(i, _nordir, _sysdirop);
{
towrite = (desc != d.des());
if (towrite)
strcpy((char *) d.des(), desc);
}
if (towrite)
d.put(i, _nordir, _sysdirop);
d.get(i);
TFilename datafile(d.name());

2
ba/ba1100d.uml
View File

@ -140,6 +140,7 @@ END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL
END
ENDPAGE
@ -174,6 +175,7 @@ END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL
END
ENDPAGE

117
ba/ba1400.cpp Executable file
View File

@ -0,0 +1,117 @@
#include <relapp.h>
#include <stdtypes.h>
#include <lffiles.h>
#include <modaut.h>
#include <utility.h>
#include "ba1.h"
#include "ba0100a.h"
class set_users : public TRelation_application
{
TMask* _msk;
TRelation* _rel;
virtual bool user_create() ;
virtual bool user_destroy() ;
virtual TMask* get_mask(int mode) { return _msk;}
virtual bool changing_mask(int mode) { return FALSE;}
virtual TRelation* get_relation() const { return _rel;}
virtual int read(TMask& m);
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
void enable_aut(TMask& m);
static bool password_handler(TMask_field& f, KEY key);
virtual void init_query_mode(TMask& m) { enable_aut(m);}
virtual void init_insert_mode(TMask& m) { enable_aut(m);}
virtual void init_modify_mode(TMask& m) { enable_aut(m);}
public:
set_users() {}
virtual ~set_users() {}
};
bool set_users::password_handler(TMask_field& f, KEY key)
{
if (f.mask().mode() == MODE_QUERY || key != K_ENTER) return TRUE;
const bool ok = f.get().len() > 3 ;
if (!ok) f.error_box("La password deve essere almeno 3 caratteri");
return ok;
}
void set_users::enable_aut(TMask& m)
{
const bool prassi = (m.get(F_USER) == "PRASSI");
for (int i = 1; i < ENDAUT; i++)
{
if (i == MUAUT) continue;
const int pos = _msk->id2pos(F_BASE + i);
if (pos >= 0)
{
TMask_field& f = m.fld(pos);
f.enable(!prassi && has_module(i, CHK_DONGLE));
if (prassi) f.set("X");
}
}
}
bool set_users::user_create()
{
const TString16 u(user());
if (u != "PRASSI") return FALSE;
_msk = new TMask("ba1400a") ;
_rel = new TRelation(LF_USER);
_msk->field(F_MU).disable();
_msk->set_handler(F_PASSWORD, password_handler);
return TRUE;
}
int set_users::read(TMask& m)
{
const TRelation *r = get_relation();
m.autoload(r);
m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
return NOERR;
}
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();
}
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();
}
bool set_users::user_destroy()
{
delete _msk;
delete _rel;
return TRUE;
}
int ba1400(int argc, char* argv[])
{
set_users a ;
a.run(argc, argv, "Configurazione utenti");
return 0;
}

109
ba/ba1400a.uml Executable file
View File

@ -0,0 +1,109 @@
#include "ba0100a.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Selezione utente" -1 -1 35 7
STRING F_USER 8
BEGIN
PROMPT 1 1 "Utente "
HELP "Inserire il nome dell'utente"
FLAGS "U"
USE LF_USER
CHECKTYPE NORMAL
INPUT USERNAME F_USER
DISPLAY "Utente" USERNAME
DISPLAY "Descrizione@50" USERDESC
OUTPUT F_USER USERNAME
KEY 1
CHECHTYPE REQUIRED
FIELD USERNAME
END
STRING F_USERDESC 50
BEGIN
PROMPT 1 3 "Descrizione "
FIELD USERDESC
MESSAGE "X",F_BASE
END
STRING F_PASSWORD 8 0
BEGIN
PROMPT 1 5 "Password "
HELP "Inserire la password"
MESSAGE "X",F_BASE
MESSAGE "X",F_MU
END
GROUPBOX DLG_NULL 76 13
BEGIN
PROMPT 0 7 "Moduli"
END
BOOLEAN F_BASE
BEGIN
PROMPT 1 8 "Base"
FLAGS "D"
FIELD AUTSTR[1,1]
END
BOOLEAN F_CG
BEGIN
PROMPT 31 8 "Contabilita'"
FIELD AUTSTR[2,2]
END
BOOLEAN F_MU
BEGIN
PROMPT 59 8 "Multiutenza"
FIELD AUTSTR[3,3]
FLAGS "D"
END
BOOLEAN F_SC
BEGIN
PROMPT 1 9 "Saldaconto"
FIELD AUTSTR[4,4]
END
BOOLEAN F_EF
BEGIN
PROMPT 31 9 "Portafoglio"
FIELD AUTSTR[5,5]
END
BOOLEAN F_VE
BEGIN
PROMPT 59 9 "Vendite"
FIELD AUTSTR[6,6]
END
BOOLEAN F_MG
BEGIN
PROMPT 1 10 "Magazzino"
FIELD AUTSTR[7,7]
END
BOOLEAN F_770
BEGIN
PROMPT 31 10 "770"
FIELD AUTSTR[8,8]
END
BOOLEAN F_AB
BEGIN
PROMPT 59 10 "Bilanci"
FIELD AUTSTR[21,21]
END
BOOLEAN F_NI
BEGIN
PROMPT 1 11 "Nota integrativa"
FIELD AUTSTR[22,22]
END
ENDPAGE
ENDMASK

371
ba/ba1500.cpp Executable file
View File

@ -0,0 +1,371 @@
#include <applicat.h>
#include <modaut.h>
#include <mask.h>
#include <utility.h>
#include <urldefid.h>
#include <extcdecl.h>
#include "ba1.h"
#include "ba0100a.h"
#include "ba1500a.h"
#define USERADR 26952
#define AGAADR 26953
#define PRASSIADR 26954
#define K1 0x4500
#define BYTEMASK 0x00FF
#define UBYTEMASK 0xFF00
#define MAXAUT 49
enum kt { _user_key, _aga_key, _prassi_key};
#define BITTEST(w,p) (((w) & (0x0001 << (p))) != 0)
#define BITSET(w,p,v) ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
class att_moduli : public TApplication
{
TMask* _msk;
kt _key_type;
word _serno;
word _port;
virtual bool create() ;
virtual bool destroy() ;
bool menu(MENU_TAG);
void generate_key();
void keyext(const TString16 & s, word * v);
static bool user_hnd(TMask_field & f, KEY k);
static bool decode_hnd(TMask_field & f, KEY k);
static bool activate_hnd(TMask_field & f, KEY k);
public:
att_moduli() { _key_type = _user_key;}
virtual ~att_moduli() {}
};
void att_moduli::generate_key()
{
word ud[4];
bool ok;
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(_port, USERADR);
ud[0] = HL_RD(_port, 48);
ud[1] = HL_RD(_port, 49);
ud[2] = HL_RD(_port, 50);
ud[3] = HL_RD(_port, 51);
HL_OFF(_port);
INT_ON();
#else
HL_READ(48, &ud[0]);
HL_READ(49, &ud[1]);
HL_READ(50, &ud[2]);
HL_READ(51, &ud[3]);
#endif
int nmod = 0;
_msk->set(F_K2, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
for (int i = 1; i < MAXAUT; i++)
{
const int pos = _msk->id2pos(F_BASE + i);
if (pos >= 0 && has_module(i, CHK_DONGLE))
{
_msk->fld(pos).set("X");
nmod++;
}
}
_serno = SerNo;
ud[0] = _serno;
ud[1] = K1 | (nmod & BYTEMASK);
long & l = (long &) ud[2];
TDate d(TODAY);
l = (long) d;
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(_port, ModAd);
ok = K_EYE(_port, (unsigned char *) ud, HLBLOCK);
HL_OFF(_port);
INT_ON();
#else
HL_CODE(EYECAST &ud[0], HLBLOCK);
#endif
_msk->set(F_K1, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
_msk->set(F_SN, SerNo);
_msk->set(F_DT, d.string());
}
int hexdigit(char c)
{
static char s[] = "0123456789ABCDEF";
int i = strlen(s);
while (i-- >= 0)
if (s[i] == c)
break;
return i;
}
void att_moduli::keyext(const TString16 & s, word * val)
{
for (int i = 0 ; i < 4; i++)
{
const int off = i * 4;
word & l = val[i];
l = 0;
for (int j = 0; j < 4; j++)
l = l * 16 + hexdigit(s[off + j]);
}
}
bool att_moduli::user_hnd(TMask_field & f, KEY k)
{
const TString16 k4(f.get());
if (!f.to_check(k) || k4.empty()) return TRUE;
att_moduli & app = (att_moduli &) main_app();
TMask & m = f.mask();
word ud1[4], ud2[4], port = app._port;
BOOLEAN ok;
const TString16 k3(m.get(F_K3));
keyext(k3, ud1);
keyext(k4, ud2);
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, ModAd);
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
HL_OFF(port);
INT_ON();
#else
HL_CODE(EYECAST ud1, HLBLOCK);
#endif
const long & l = (long &) ud1[0];
TDate d(l), d1(TODAY);
d.addmonth(3);
if (d < d1)
return f.error_box("data non valida");
if ((ud1[2] & UBYTEMASK) != K1 || ud1[3] != app._serno)
return f.error_box("primo codice errato");
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, ModAd);
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
HL_OFF(port);
INT_ON();
#else
HL_CODE(EYECAST ud2, HLBLOCK);
#endif
for (int i = 0; i < 4; i++) ud2[i] ^= app._serno;
if (ud2[3] != 0)
return f.error_box("secondo codice errato");
for (i = 1; i < MAXAUT; i++)
{
const int af = i - 1;
const int pos = m.id2pos(F_BASE + i);
if (pos >= 0)
m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
}
if (k == K_ENTER)
{
keyext(k4, ud2);
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, ModAd);
HL_ON(port, ModAd);
HL_WR(port, 48, ud2[0]);
HL_WR(port, 49, ud2[1]);
HL_WR(port, 50, ud2[2]);
HL_WR(port, 51, ud2[3]);
HL_OFF(port);
INT_ON();
#else
HL_WRITE(48, ud2[0]);
HL_WRITE(49, ud2[1]);
HL_WRITE(50, ud2[2]);
HL_WRITE(51, ud2[3]);
#endif
}
return TRUE;
}
bool att_moduli::decode_hnd(TMask_field & f, KEY k)
{
const TString16 k2(f.get());
if (!f.to_check(k) || k2.empty()) return TRUE;
att_moduli & app = (att_moduli &) main_app();
TMask & m = f.mask();
word ud1[4], ud2[4], port = app._port;
BOOLEAN ok;
const TString16 k1(m.get(F_K1));
keyext(k1, ud1);
keyext(k2, ud2);
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, USERADR);
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
HL_OFF(port);
INT_ON();
#else
HL_CODE(EYECAST ud1, HLBLOCK);
#endif
long & l = (long &) ud1[2];
const TDate d(l);
app._serno = ud1[0];
if ((ud1[1] & UBYTEMASK) != K1)
return f.error_box("primo codice errato");
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, USERADR);
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
HL_OFF(port);
INT_ON();
#else
HL_CODE(EYECAST ud2, HLBLOCK);
#endif
for (int i = 0; i < 4; i++) ud2[i] ^= app._serno;
if (ud2[3] != 0)
return f.error_box("secondo codice errato");
m.set(F_SN, app._serno);
m.set(F_DT, d.string());
for (i = 1; i < MAXAUT; i++)
{
const int af = i - 1;
const int pos = m.id2pos(F_BASE + i);
if (pos >= 0)
m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
}
return TRUE;
}
bool att_moduli::activate_hnd(TMask_field & f, KEY k)
{
if (!f.to_check(k)) return TRUE;
att_moduli & app = (att_moduli &) main_app();
TMask & m = f.mask();
word ud1[4], ud2[4], port = app._port;
BOOLEAN ok;
int nmod = 0;
for (int i = 0; i < 4; i++) ud2[i] = 0;
for (i = 1; i < MAXAUT; i++)
{
const int af = i - 1;
const int pos = m.id2pos(F_BASE + i);
if (pos >= 0 && m.get_bool(F_BASE + i))
{
BITSET(ud2[af / 16], af % 16, TRUE);
nmod++;
}
}
for (i = 0; i < 4; i++) ud2[i] ^= app._serno;
const TDate d(m.get(F_DT));
long & l = (long &) ud1[0];
l = (long) d;
ud1[2] = K1 | (nmod & UBYTEMASK);
ud1[3] = app._serno;
#if XVT_OS == XVT_OS_SCOUNIX
INT_OFF();
HL_ON(port, ModAd);
ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
HL_OFF(port);
INT_ON();
#else
HL_CODE(EYECAST ud1, HLBLOCK);
HL_CODE(EYECAST ud2, HLBLOCK);
#endif
m.set(F_K4, format("%04X%04X%04X%04X", ud2[0], ud2[1], ud2[2], ud2[3]));
m.set(F_K3, format("%04X%04X%04X%04X", ud1[0], ud1[1], ud1[2], ud1[3]));
return TRUE;
}
bool att_moduli::create()
{
const TString16 u(user());
if (u != "PRASSI") return FALSE;
_msk = new TMask("ba1500a") ;
#if XVT_OS == XVT_OS_SCOUNIX
if (Hl_Port(AGAADR) != 0)
_key_type = _aga_key;
else
if (Hl_Port(PRASSIADR) != 0)
_key_type = _prassi_key;
_port = Hl_Port(USERADR);
#else
HL_LOGOUT();
if (HL_LOGIN(AGAADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
_key_type = _aga_key;
else
{
HL_LOGOUT();
if (HL_LOGIN(PRASSIADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
_key_type = _prassi_key;
}
HL_LOGOUT();
HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY);
#endif
switch (_key_type)
{
case _user_key:
{
_msk->disable(F_K1);
_msk->disable(F_K2);
_msk->set_handler(F_K4, user_hnd);
generate_key();
for (int i = 1; i < ENDAUT; i++)
{
const int pos = _msk->id2pos(F_BASE + i);
if (pos >= 0) _msk->fld(pos).disable();
}
}
break;
case _aga_key:
case _prassi_key:
{
_msk->set_handler(F_K2, decode_hnd);
_msk->disable(F_K3);
_msk->disable(F_K4);
for (int i = 1; i < MAXAUT; i++)
{
const int pos = _msk->id2pos(F_BASE + i);
if (pos >= 0)
_msk->set_handler(F_BASE + i, activate_hnd);
}
}
break;
default:
break;
}
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
}
bool att_moduli::destroy()
{
delete _msk;
return TRUE;
}
bool att_moduli::menu(MENU_TAG)
{
_msk->run();
return FALSE;
}
int ba1500(int argc, char* argv[])
{
att_moduli a ;
a.run(argc, argv, "Attivazione moduli");
return 0;
}

6
ba/ba1500a.h Executable file
View File

@ -0,0 +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

112
ba/ba1500a.uml Executable file
View File

@ -0,0 +1,112 @@
#include "ba0100a.h"
#include "ba1500a.h"
PAGE "Selezione utente" -1 -1 77 22
STRING F_K1 16
BEGIN
PROMPT 1 1 "Attivazione 1 "
FLAGS "U"
MESSAGE "X",F_BASE
END
STRING F_K2 16
BEGIN
PROMPT 35 1 ""
FLAGS "U"
END
STRING F_SN 4
BEGIN
PROMPT 56 1 "N.Serie "
FLAGS "ZD"
END
STRING F_K3 16
BEGIN
PROMPT 1 3 "Attivazione 2 "
FLAGS "U"
MESSAGE "X",F_BASE
END
STRING F_K4 16
BEGIN
PROMPT 35 3 ""
FLAGS "U"
END
DATE F_DT
BEGIN
PROMPT 56 3 "Data "
FLAGS "D"
END
GROUPBOX DLG_NULL 76 13
BEGIN
PROMPT 0 5 "Moduli"
END
BOOLEAN F_BASE
BEGIN
PROMPT 1 6 "Base"
FLAGS "D"
END
BOOLEAN F_CG
BEGIN
PROMPT 31 6 "Contabilita'"
END
BOOLEAN F_MU
BEGIN
PROMPT 59 6 "Multiutenza"
END
BOOLEAN F_SC
BEGIN
PROMPT 1 7 "Saldaconto"
END
BOOLEAN F_EF
BEGIN
PROMPT 31 7 "Portafoglio"
END
BOOLEAN F_VE
BEGIN
PROMPT 59 7 "Vendite"
END
BOOLEAN F_MG
BEGIN
PROMPT 1 8 "Magazzino"
END
BOOLEAN F_770
BEGIN
PROMPT 31 8 "770"
END
BOOLEAN F_AB
BEGIN
PROMPT 59 8 "Bilanci"
END
BOOLEAN F_NI
BEGIN
PROMPT 1 9 "Nota integrativa"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

27
ba/ba2.cpp
View File

@ -11,17 +11,18 @@ int main(int argc,char* argv[])
{
int rt = 0 ;
const TString p = argv[0], s = argv[1] ;
if (argc!=2) fatal_box(usage, (const char*) p) ;
else
{
if (s == "-0") rt = ba2300(argc,argv);
else
if (s == "-1") rt = ba2300(argc,argv) ;
else
if (s == "-2") rt = ba2300(argc,argv) ;
else fatal_box(usage, (const char*) p) ;
}
return rt;
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
switch (r)
{
case 0:
rt = ba2300(argc,argv); break;
case 1:
rt = ba2300(argc,argv) ; break;
case 2:
rt = ba2300(argc,argv) ; break;
default:
error_box(usage, argv[0]) ; break;
}
return rt;
}

37
ba/ba3.cpp
View File

@ -7,19 +7,30 @@
int main(int argc, char** argv)
{
if (argc < 2) fatal_box(usage, argv[0]);
const TFixed_string s(argv[1]);
int rt = -1;
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
if (s == "-0") ba3100(argc,argv) ; else
if (s == "-1") ba3200(argc,argv) ; else
if (s == "-2") ba3300(argc,argv) ; else
if (s == "-3") ba3400(argc,argv) ; else
if (s == "-4") ba3500(argc,argv) ; else
if (s == "-5") ba3600(argc,argv) ; else
if (s == "-6") ba3700(argc,argv) ; // else
if (s == "-7") ba3800(argc,argv) ;
else fatal_box(usage, argv[0]) ;
switch (r)
{
case 0:
rt = ba3100(argc,argv) ; break;
case 1:
rt = ba3200(argc,argv) ; break;
case 2:
rt = ba3300(argc,argv) ; break;
case 3:
rt = ba3400(argc,argv) ; break;
case 4:
rt = ba3500(argc,argv) ; break;
case 5:
rt = ba3600(argc,argv) ; break;
case 6:
rt = ba3700(argc,argv) ; break;
case 7:
rt = ba3800(argc,argv) ; break;
default:
error_box(usage, argv[0]) ; break;
}
return 0;
return rt ;
}

197
ba/ba3400.cpp
View File

@ -1,96 +1,101 @@
#include <relapp.h>
///////////////////////////////////////////////////////////
// Test Relapp
///////////////////////////////////////////////////////////
class TTestrel_application : public TRelation_application
{
const char* _maskname;
const char* _num;
TRelation* _rel;
TMask* _msk;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TMask* get_mask(int mode) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE;}
virtual TRelation* get_relation() const { return _rel; }
virtual int read(TMask& m) { m.autoload(); return NOERR; }
public:
TTestrel_application(const char* name, const char* num);
};
TTestrel_application::TTestrel_application(const char* name, const char* num)
: _maskname(name), _num(num),
_msk(NULL), _rel(NULL)
{}
bool TTestrel_application::user_create()
{
_msk = new TMask(_maskname);
int id = atoi(_num);
if (id > 0) _rel = new TRelation(id);
else _rel = new TRelation(_num);
return TRUE;
}
bool TTestrel_application::user_destroy()
{
delete _msk;
delete _rel;
return TRUE;
}
///////////////////////////////////////////////////////////
// Testmask
///////////////////////////////////////////////////////////
class TTest_application : public TApplication
{
const char* _maskname;
protected:
bool create() { return menu(0); }
bool destroy() { return TRUE; }
bool menu(MENU_TAG);
public:
TTest_application(const char* name) : _maskname(name) {}
};
bool TTest_application::menu(MENU_TAG)
{
TMask m(_maskname);
KEY k = m.run();
if (k == K_QUIT) stop_run();
return k != K_QUIT;
}
///////////////////////////////////////////////////////////
int ba3400(int argc, char* argv[])
{
if (argc < 3) fatal_box("You should specify a mask");
if (argc == 3)
{
TTest_application a(argv[2]);
a.run(argc, argv, "Testmask");
}
else
{
TTestrel_application a(argv[2], argv[3]);
a.run(argc, argv, "Gestione archivi");
}
return 0;
}
#include <relapp.h>
///////////////////////////////////////////////////////////
// Test Relapp
///////////////////////////////////////////////////////////
class TTestrel_application : public TRelation_application
{
const char* _maskname;
const char* _num;
TRelation* _rel;
TMask* _msk;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TMask* get_mask(int mode) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE;}
virtual TRelation* get_relation() const { return _rel; }
virtual int read(TMask& m) { m.autoload(); return NOERR; }
public:
TTestrel_application(const char* name, const char* num);
};
TTestrel_application::TTestrel_application(const char* name, const char* num)
: _maskname(name), _num(num),
_msk(NULL), _rel(NULL)
{}
bool TTestrel_application::user_create()
{
_msk = new TMask(_maskname);
int id = atoi(_num);
if (id > 0) _rel = new TRelation(id);
else _rel = new TRelation(_num);
return TRUE;
}
bool TTestrel_application::user_destroy()
{
delete _msk;
delete _rel;
return TRUE;
}
///////////////////////////////////////////////////////////
// Testmask
///////////////////////////////////////////////////////////
class TTest_application : public TApplication
{
const char* _maskname;
protected:
bool create() { return menu(0); }
bool destroy() { return TRUE; }
bool menu(MENU_TAG);
public:
TTest_application(const char* name) : _maskname(name) {}
};
bool TTest_application::menu(MENU_TAG)
{
TMask m(_maskname);
KEY k = m.run();
if (k == K_QUIT) stop_run();
return k != K_QUIT;
}
///////////////////////////////////////////////////////////
int ba3400(int argc, char* argv[])
{
check_parameters(argc, argv);
if (argc < 3)
{
error_box("You should specify a mask");
return 1;
}
if (argc == 3)
{
TTest_application a(argv[2]);
a.run(argc, argv, "Testmask");
}
else
{
TTestrel_application a(argv[2], argv[3]);
a.run(argc, argv, "Gestione archivi");
}
return 0;
}