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

Corrette le create delle TApplication

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-07 11:07:54 +00:00
parent 74197d129b
commit 034dfd861c
8 changed files with 322 additions and 315 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ba/ba0.cpp
View File

@ -515,6 +515,7 @@ bool TMenu_application::check_user()
bool TMenu_application::create()
{
TApplication::create();
if (!check_user()) return FALSE;
set_perms();
test_temp();

1
ba/ba1.url
View File

@ -32,6 +32,5 @@ MENUBAR MENU_BAR(4)
MENU MENU_BAR(4)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Attiva"

9
ba/ba1100.cpp
View File

@ -1,14 +1,13 @@
#include <stdlib.h>
#include <applicat.h>
#include <utility.h>
#include <prefix.h>
#include <isam.h>
#include <mask.h>
#include <prefix.h>
#include <progind.h>
#include <urldefid.h>
#include <utility.h>
#include <validate.h>
#include <xvtility.h>
#include "ba1.h"
#include "ba1100.h"
@ -101,6 +100,8 @@ void BA1100_application::print()
bool BA1100_application::create() // initvar e arrmask
{
TApplication::create();
_firm = get_firm();
if (argc() > 2)
@ -127,7 +128,7 @@ bool BA1100_application::destroy() // releasev e arrmask
if (_firm) set_firm(_firm);
if (_browse != NULL) delete _browse;
if (_mask != NULL) delete _mask;
return TRUE ;
return TApplication::destroy() ;
}

12
ba/ba1300.cpp
View File

@ -1,14 +1,12 @@
#include <stdlib.h>
#include <applicat.h>
#include <xvtility.h>
#include <utility.h>
#include <prefix.h>
#include <mask.h>
#include <isam.h>
#include <sheet.h>
#include <mask.h>
#include <progind.h>
#include <sheet.h>
#include <urldefid.h>
#include <utility.h>
#include <validate.h>
#include "ba1.h"
@ -53,6 +51,8 @@ HIDDEN bool seq_handler(TMask_field& f, KEY key)
bool BA1300_application::create() // initvar e arrmask
{
TApplication::create();
_firm = get_firm();
if (argc() > 2)
@ -75,7 +75,7 @@ bool BA1300_application::destroy() // releasev e arrmask
if (_firm) set_firm(_firm);
if (_testsheet != NULL) delete _testsheet;
if (_mask != NULL) delete _mask;
return TRUE ;
return TApplication::destroy() ;
}
TArray_sheet * BA1300_application::field_sheet(TMask * m)

16
ba/ba1500.cpp
View File

@ -17,7 +17,7 @@
#define UBYTEMASK 0xFF00
#define MAXAUT 49
enum kt { _user_key, _aga_key, _prassi_key};
enum KeyType { _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)))))
@ -26,15 +26,16 @@ class TAttivazione_moduli : public TApplication
{
TMask* _msk;
kt _key_type;
KeyType _key_type;
word _serno;
word _port;
virtual bool create() ;
virtual bool destroy() ;
bool menu(MENU_TAG);
virtual bool use_files() const { return FALSE; }
virtual bool menu(MENU_TAG);
void generate_key();
static void keyext(const TString & s, word * v);
static bool user_hnd(TMask_field & f, KEY k);
static bool decode_hnd(TMask_field & f, KEY k);
@ -45,7 +46,7 @@ public:
};
HIDDEN TAttivazione_moduli& app() { return (TAttivazione_moduli &) main_app(); }
HIDDEN TAttivazione_moduli& app() { return (TAttivazione_moduli &)main_app(); }
void TAttivazione_moduli::generate_key()
@ -292,6 +293,10 @@ bool TAttivazione_moduli::create()
{
if (user() != "PRASSI")
return error_box("Utente non abilitato all'uso di questo programma");
disable_menu_item(M_FILE_NEW);
disable_menu_item(M_FILE_REVERT);
disable_menu_item(M_FILE_PG_SETUP);
_msk = new TMask("ba1500a") ;
#if XVT_OS == XVT_OS_SCOUNIX
@ -314,6 +319,7 @@ bool TAttivazione_moduli::create()
HL_LOGOUT();
HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY);
#endif
switch (_key_type)
{
case _user_key:

3
ba/ba3200.cpp
View File

@ -381,7 +381,8 @@ bool BA3200_application::preprocess_print(int file, int counter)
set_headers();
set_footers();
set_translations();
}
return TRUE;
}
bool BA3200_application::user_destroy()
{

592
ba/ba5.cpp
View File

@ -1,297 +1,295 @@
#include <applicat.h>
#include <date.h>
#include <lffiles.h>
#include <mask.h>
#include <isam.h>
#include <sheet.h>
#include <utility.h>
#include <urldefid.h>
#include "ba4600.h"
///////////////////////////////////////////////////////////
// TSoci_sheet
///////////////////////////////////////////////////////////
const char* const PHYSICAL_HEAD = "Codice|Cognome@30|Nome@20";
const char* const JURASSIC_HEAD = "Codice|Ragione sociale@50";
class TSoci_sheet : public TArray_sheet
{
bool _physical;
protected:
const char* lastcode();
public:
TSoci_sheet(bool);
void add_socio(const TString& codice, const TString& ragione, int elem = -1);
};
TSoci_sheet::TSoci_sheet(bool fis)
: TArray_sheet(-1,-1, 0, 0, "Soci", fis ? PHYSICAL_HEAD : JURASSIC_HEAD),
_physical(fis)
{}
const char* TSoci_sheet::lastcode()
{
if (items() < 1) return "";
return data(items()-1).get(0);
}
void TSoci_sheet::add_socio(const TString& codice,
const TString& ragione,
int elem)
{
if (elem == -1 && codice == lastcode()) return;
TToken_string t(60);
t.add(codice);
if (_physical)
{
t.add(ragione.left(30));
t.add(ragione.mid(30));
} else t.add(ragione);
if (elem < 0) add(t);
else row(elem) = t;
}
///////////////////////////////////////////////////////////
// TQuery_socio
///////////////////////////////////////////////////////////
class TQuery_socio
{
TString _tipo; // tipo = F | G
int _anno; // anno
TString _carica; // codice carica
TString _qualifica; // richiesta qualifica
TString _q740; // quadro 740
TString _q750; // quadro 750
public:
TQuery_socio(const TMask* mask);
const TString& tipo() const { return _tipo; }
int test(const TRectype& rec) const;
};
TQuery_socio::TQuery_socio(const TMask* mask)
{
_tipo = mask->get(LST_SC1_TIPOASOC);
_anno = atoi(mask->get(FLD_SC1_ANNO));
_carica = mask->get(FLD_SC1_CODCAR);
_qualifica = mask->get(LST_SC1_RICQUAL);
_q740 = mask->get(LST_SC2_Q740);
_q750 = mask->get(LST_SC2_QUATTPREV);
}
int TQuery_socio::test(const TRectype& r) const
{
if (_tipo != r.get("TIPOASOC")) return 1;
if (_anno > 0 && _anno != r.get_int("ANNO")) return 2;
if (_carica.not_empty() && _carica != r.get("CODCAR")) return 3;
if (_qualifica.not_empty() && _qualifica != r.get("RICQUAL")) return 4;
if (_q740.not_empty() && _q740 != r.get("Q740")) return 5;
if (_q750.not_empty() && _q750 != r.get("QUATTPREV")) return 6;
return 0;
}
///////////////////////////////////////////////////////////
// TQuery_application
///////////////////////////////////////////////////////////
class TQuery_application : public TApplication
{
const TPrinter* _printer;
TLocalisamfile* _soci;
TLocalisamfile* _anag;
TLocalisamfile* _ditte;
TMask* _mask;
void create_files();
void create_masks();
void destroy_masks();
void destroy_files();
protected:
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool do_query();
public:
TQuery_application();
};
TQuery_application::TQuery_application() : _mask(NULL)
{}
void TQuery_application::create_files()
{
_soci = new TLocalisamfile(LF_SOCI); _soci->setkey(3);
_anag = new TLocalisamfile(LF_ANAG);
_ditte = new TLocalisamfile(LF_NDITTE);
}
void TQuery_application::destroy_files()
{
delete _ditte;
delete _anag;
delete _soci;
}
void TQuery_application::create_masks()
{
_mask = new TMask("ba5000");
}
void TQuery_application::destroy_masks()
{
delete _mask;
}
bool TQuery_application::create()
{
TApplication::create();
create_files();
create_masks();
dispatch_e_menu(MENU_ITEM(1));
return TRUE;
}
bool TQuery_application::destroy()
{
destroy_masks();
destroy_files();
return TApplication::destroy();
}
bool TQuery_application::menu(MENU_TAG m)
{
while (do_query());
return FALSE;
}
const char* head(const TRectype& r, const char* name,
const char* title)
{
if (title == NULL) title = name;
if (r.exist(name))
{
TString h(r.length(name));
h.spaces();
h.overwrite(title, 0);
strcpy(__tmp_string, h);
}
else strcpy(__tmp_string, title);
return __tmp_string;
}
bool TQuery_application::do_query()
{
if (_mask->run() != K_F9) return FALSE;
TQuery_socio query(_mask);
TSoci_sheet s(query.tipo() == "F"); // Create sheet
TRectype& soci = _soci->curr();
TRectype& anag = _anag->curr();
TRectype& ditte = _ditte->curr();
soci.zero();
_mask->autosave();
for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet
{
if (query.test(soci) == 0)
s.add_socio(soci.get("CODANAGRSO"), "");
}
TString ragsoc(80),
cur_codice(10);
for (int i = 0; i < s.items(); i++)
{
TToken_string& t = (TToken_string&) s.row(i);
t.restart();
cur_codice = t.get();
anag.zero();
anag.put("TIPOA", query.tipo());
anag.put("CODANAGR", cur_codice);
if (_anag->read() != NOERR) ragsoc = "Anagrafica assente";
else ragsoc = _anag->curr().get("RAGSOC");
s.add_socio(cur_codice, ragsoc, i);
}
if (s.items() == 0)
{
warning_box("Nessuna corrispondenza");
return TRUE;
}
while(s.run() == K_ENTER)
{
TToken_string& r = s.row();
r.restart();
TString codice(r.get());
TString nome(r.get());
TToken_string h(128);
h.add("Anno");
h.add(head(ditte, "CODDITTA", "Codice"));
h.add(head(ditte, "RAGSOC", "Ragione sociale"));
h.add("Carica|Qualifica|740|750");
h.add(head(soci, "PERCQUAZ", "% Quote"));
TArray_sheet d(-1,-1, 0, 0, nome, h);
soci.zero();
soci.put("TIPOASOC", query.tipo());
soci.put("CODANAGRSO", codice);
TToken_string row(128);
for (_soci->read(_isgteq); !_soci->eof(); _soci->next())
{
if (codice != soci.get("CODANAGRSO")) break;
if (query.test(soci) != 0) continue;
row = soci.get("ANNO");
ditte.zero();
row.add(soci.get("CODDITTA"));
ditte.put("CODDITTA", row.get(1));
if (_ditte->read() != NOERR)
row.add("Ditta assente");
else
row.add(ditte.get("RAGSOC"));
row.add(soci.get("CODCAR"));
row.add(soci.get("RICQUAL"));
row.add(soci.get("Q740"));
row.add(soci.get("QUATTPREV"));
row.add(soci.get("PERCQUAZ"));
d.add(row);
}
d.run();
}
return TRUE;
}
int main(int argc,char** argv)
{
TQuery_application qa;
qa.run(argc, argv, "Ricerca Soci");
return TRUE;
}
#include <applicat.h>
#include <mask.h>
#include <isam.h>
#include <sheet.h>
#include <utility.h>
#include <urldefid.h>
#include "ba4600.h"
///////////////////////////////////////////////////////////
// TSoci_sheet
///////////////////////////////////////////////////////////
const char* const PHYSICAL_HEAD = "Codice|Cognome@30|Nome@20";
const char* const JURASSIC_HEAD = "Codice|Ragione sociale@50";
class TSoci_sheet : public TArray_sheet
{
bool _physical;
protected:
const char* lastcode();
public:
TSoci_sheet(bool);
void add_socio(const TString& codice, const TString& ragione, int elem = -1);
};
TSoci_sheet::TSoci_sheet(bool fis)
: TArray_sheet(-1,-1, 0, 0, "Soci", fis ? PHYSICAL_HEAD : JURASSIC_HEAD),
_physical(fis)
{}
const char* TSoci_sheet::lastcode()
{
if (items() < 1) return "";
return data(items()-1).get(0);
}
void TSoci_sheet::add_socio(const TString& codice,
const TString& ragione,
int elem)
{
if (elem == -1 && codice == lastcode()) return;
TToken_string t(60);
t.add(codice);
if (_physical)
{
t.add(ragione.left(30));
t.add(ragione.mid(30));
} else t.add(ragione);
if (elem < 0) add(t);
else row(elem) = t;
}
///////////////////////////////////////////////////////////
// TQuery_socio
///////////////////////////////////////////////////////////
class TQuery_socio
{
TString _tipo; // tipo = F | G
int _anno; // anno
TString _carica; // codice carica
TString _qualifica; // richiesta qualifica
TString _q740; // quadro 740
TString _q750; // quadro 750
public:
TQuery_socio(const TMask* mask);
const TString& tipo() const { return _tipo; }
int test(const TRectype& rec) const;
};
TQuery_socio::TQuery_socio(const TMask* mask)
{
_tipo = mask->get(LST_SC1_TIPOASOC);
_anno = atoi(mask->get(FLD_SC1_ANNO));
_carica = mask->get(FLD_SC1_CODCAR);
_qualifica = mask->get(LST_SC1_RICQUAL);
_q740 = mask->get(LST_SC2_Q740);
_q750 = mask->get(LST_SC2_QUATTPREV);
}
int TQuery_socio::test(const TRectype& r) const
{
if (_tipo != r.get("TIPOASOC")) return 1;
if (_anno > 0 && _anno != r.get_int("ANNO")) return 2;
if (_carica.not_empty() && _carica != r.get("CODCAR")) return 3;
if (_qualifica.not_empty() && _qualifica != r.get("RICQUAL")) return 4;
if (_q740.not_empty() && _q740 != r.get("Q740")) return 5;
if (_q750.not_empty() && _q750 != r.get("QUATTPREV")) return 6;
return 0;
}
///////////////////////////////////////////////////////////
// TQuery_application
///////////////////////////////////////////////////////////
class TQuery_application : public TApplication
{
const TPrinter* _printer;
TLocalisamfile* _soci;
TLocalisamfile* _anag;
TLocalisamfile* _ditte;
TMask* _mask;
void create_files();
void create_masks();
void destroy_masks();
void destroy_files();
protected:
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool do_query();
public:
TQuery_application();
};
TQuery_application::TQuery_application() : _mask(NULL)
{}
void TQuery_application::create_files()
{
_soci = new TLocalisamfile(LF_SOCI); _soci->setkey(3);
_anag = new TLocalisamfile(LF_ANAG);
_ditte = new TLocalisamfile(LF_NDITTE);
}
void TQuery_application::destroy_files()
{
delete _ditte;
delete _anag;
delete _soci;
}
void TQuery_application::create_masks()
{
_mask = new TMask("ba5000");
}
void TQuery_application::destroy_masks()
{
delete _mask;
}
bool TQuery_application::create()
{
TApplication::create();
create_files();
create_masks();
dispatch_e_menu(MENU_ITEM(1));
return TRUE;
}
bool TQuery_application::destroy()
{
destroy_masks();
destroy_files();
return TApplication::destroy();
}
bool TQuery_application::menu(MENU_TAG m)
{
while (do_query());
return FALSE;
}
const char* head(const TRectype& r, const char* name,
const char* title)
{
if (title == NULL) title = name;
if (r.exist(name))
{
TString h(r.length(name));
h.spaces();
h.overwrite(title, 0);
strcpy(__tmp_string, h);
}
else strcpy(__tmp_string, title);
return __tmp_string;
}
bool TQuery_application::do_query()
{
if (_mask->run() != K_F9) return FALSE;
TQuery_socio query(_mask);
TSoci_sheet s(query.tipo() == "F"); // Create sheet
TRectype& soci = _soci->curr();
TRectype& anag = _anag->curr();
TRectype& ditte = _ditte->curr();
soci.zero();
_mask->autosave();
for (_soci->read(_isgteq); !_soci->eof(); _soci->next()) // Fill sheet
{
if (query.test(soci) == 0)
s.add_socio(soci.get("CODANAGRSO"), "");
}
TString ragsoc(80),
cur_codice(10);
for (int i = 0; i < s.items(); i++)
{
TToken_string& t = (TToken_string&) s.row(i);
t.restart();
cur_codice = t.get();
anag.zero();
anag.put("TIPOA", query.tipo());
anag.put("CODANAGR", cur_codice);
if (_anag->read() != NOERR) ragsoc = "Anagrafica assente";
else ragsoc = _anag->curr().get("RAGSOC");
s.add_socio(cur_codice, ragsoc, i);
}
if (s.items() == 0)
{
warning_box("Nessuna corrispondenza");
return TRUE;
}
while(s.run() == K_ENTER)
{
TToken_string& r = s.row();
r.restart();
TString codice(r.get());
TString nome(r.get());
TToken_string h(128);
h.add("Anno");
h.add(head(ditte, "CODDITTA", "Codice"));
h.add(head(ditte, "RAGSOC", "Ragione sociale"));
h.add("Carica|Qualifica|740|750");
h.add(head(soci, "PERCQUAZ", "% Quote"));
TArray_sheet d(-1,-1, 0, 0, nome, h);
soci.zero();
soci.put("TIPOASOC", query.tipo());
soci.put("CODANAGRSO", codice);
TToken_string row(128);
for (_soci->read(_isgteq); !_soci->eof(); _soci->next())
{
if (codice != soci.get("CODANAGRSO")) break;
if (query.test(soci) != 0) continue;
row = soci.get("ANNO");
ditte.zero();
row.add(soci.get("CODDITTA"));
ditte.put("CODDITTA", row.get(1));
if (_ditte->read() != NOERR)
row.add("Ditta assente");
else
row.add(ditte.get("RAGSOC"));
row.add(soci.get("CODCAR"));
row.add(soci.get("RICQUAL"));
row.add(soci.get("Q740"));
row.add(soci.get("QUATTPREV"));
row.add(soci.get("PERCQUAZ"));
d.add(row);
}
d.run();
}
return TRUE;
}
int main(int argc,char** argv)
{
TQuery_application qa;
qa.run(argc, argv, "Ricerca Soci");
return TRUE;
}

3
ba/bacnv.cpp
View File

@ -33,6 +33,8 @@ public:
bool TConversione_archivi::create()
{
TApplication::create();
if (argc() < 3)
{
_error = 101;
@ -170,4 +172,3 @@ int main(int argc,char** argv)
return 0;
}