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

Aggiustamenti maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2843 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-05-16 10:44:00 +00:00
parent 31114112f2
commit 600e9787d2
5 changed files with 36 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ba/ba1400a.uml
View File

@ -6,6 +6,11 @@ ENDPAGE
PAGE "Gestione moduli" -1 -1 35 7 PAGE "Gestione moduli" -1 -1 35 7
GROUPBOX DLG_NULL 78 15
BEGIN
PROMPT 0 4 "Moduli"
END
STRING F_USER 8 STRING F_USER 8
BEGIN BEGIN
PROMPT 1 1 "Utente " PROMPT 1 1 "Utente "
@ -267,11 +272,6 @@ BEGIN
FIELD AUTSTR[38,38] FIELD AUTSTR[38,38]
END END
GROUPBOX DLG_NULL 78 15
BEGIN
PROMPT 0 4 "Moduli"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

26
ba/ba1500.cpp
View File

@ -25,6 +25,16 @@ enum KeyType { _user_key, _aga_key, _prassi_key};
#define BITTEST(w,p) (((w) & (0x0001 << (p))) != 0) #define BITTEST(w,p) (((w) & (0x0001 << (p))) != 0)
#define BITSET(w,p,v) ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p))))) #define BITSET(w,p,v) ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
class TError_application : public TApplication
{
TString _errmess;
virtual bool create()
{ fatal_box(_errmess); return FALSE; }
public:
TError_application(const char* err) : _errmess(err) {}
};
class TAttivazione_moduli : public TApplication class TAttivazione_moduli : public TApplication
{ {
TMask* _msk; TMask* _msk;
@ -386,7 +396,19 @@ bool TAttivazione_moduli::menu(MENU_TAG)
int ba1500(int argc, char** argv) int ba1500(int argc, char** argv)
{ {
TAttivazione_moduli a ; // dipende dalla check_parameters fatta in main()
a.run(argc, argv, "Attivazione moduli"); TString user(user());
if (user == "PRASSI")
{
TAttivazione_moduli a ;
a.run(argc, argv, "Attivazione moduli");
}
else
{
TString err(80);
err.format("L'utente %s non e' abilitato all'esecuzione di questo programma", (const char*)user);
TError_application e(err);
e.run(argc, argv, "Attivazione moduli");
}
return 0; return 0;
} }

10
ba/ba1500a.uml
View File

@ -17,6 +17,11 @@ ENDPAGE
PAGE "Attivazione Moduli" -1 -1 79 21 PAGE "Attivazione Moduli" -1 -1 79 21
GROUPBOX DLG_NULL 78 15
BEGIN
PROMPT 0 4 "Moduli"
END
STRING F_K1 16 STRING F_K1 16
BEGIN BEGIN
PROMPT 1 1 "Attivazione 1 " PROMPT 1 1 "Attivazione 1 "
@ -243,11 +248,6 @@ BEGIN
PROMPT 1 17 "Statistiche e Provvigioni" PROMPT 1 17 "Statistiche e Provvigioni"
END END
GROUPBOX DLG_NULL 78 15
BEGIN
PROMPT 0 4 "Moduli"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
ba/ba5.cpp
View File

@ -209,7 +209,7 @@ bool TQuery_application::do_query()
TRectype& ditte = _ditte->curr(); TRectype& ditte = _ditte->curr();
soci.zero(); soci.zero();
_mask->autosave(_soci); _mask->autosave(*_soci);
for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet
{ {
if (query.test(soci) == 0) if (query.test(soci) == 0)

2
ba/ba6100.cpp
View File

@ -459,7 +459,7 @@ bool TAnaprint_app::user_create()
_bk_ditta = _bk_ana = _bk_socio = _bk_attiv = _bk_registro = _bk_unloc = -1; _bk_ditta = _bk_ana = _bk_socio = _bk_attiv = _bk_registro = _bk_unloc = -1;
TToken_string rxp(40); TToken_string rxp(40);
TProgind p(5, "Preparazione archivi\nPrego attendere", FALSE, TRUE, 30); TProgind p(5, "Preparazione archivi\rPrego attendere", FALSE, TRUE, 30);
// setup relation // setup relation
_rel_fis = new TRelation(LF_ANAG); _rel_fis = new TRelation(LF_ANAG);