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

Spostato all'inizio il codice Altro per la lista del Tipo IVA.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@38 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-19 10:41:33 +00:00
parent df89a58856
commit 5e5176d3c8
5 changed files with 291 additions and 290 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ba/ba1.h
View File

@ -1,15 +1,8 @@
#ifndef __BA1_H #ifndef __BA1_H
#define __BA1_H #define __BA1_H
#ifdef MAIN int ba1100(int argc, char** argv);
#define extern int ba1200(int argc, char** argv);
#endif
#ifdef MAIN
#undef extern
#endif
#endif // __BA1_H #endif // __BA1_H
int ba1100(int argc, char* argv[]);
int ba1200(int argc, char* argv[]);

118
ba/ba1100.cpp
View File

@ -16,23 +16,23 @@
class BA1100_application : public TApplication class BA1100_application : public TApplication
{ {
TDir_sheet * _browse; TDir_sheet * _browse;
TMask * _mask; TMask * _mask;
long _firm; long _firm;
TRec_sheet* _rec; TRec_sheet* _rec;
protected: protected:
virtual bool menu (MENU_TAG); virtual bool menu (MENU_TAG);
virtual bool create () ; virtual bool create () ;
virtual bool destroy(); virtual bool destroy();
void insert_riga(long, TToken_string&); void insert_riga(long, TToken_string&);
void edit_riga(long, TToken_string&); void edit_riga(long, TToken_string&);
void delete_riga(); void delete_riga();
virtual bool extended_firm() const { return TRUE; } virtual bool extended_firm() const { return TRUE; }
void update(); void update();
void update_dir(); void update_dir();
void convert_dir(); void convert_dir();
virtual void print(); virtual void print();
public: public:
BA1100_application() : _browse(NULL), _rec(NULL) {} BA1100_application() : _browse(NULL), _rec(NULL) {}
@ -140,7 +140,7 @@ void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
if (_mask->run() == K_ENTER) if (_mask->run() == K_ENTER)
{ {
/* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */ /* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */
for (int i=num_files; i>=logicnum; i--) for (int i=num_files; i>=logicnum; i--)
{ {
_browse->dir()->get (i, _nolock, _nordir, _sysdirop); _browse->dir()->get (i, _nolock, _nordir, _sysdirop);
@ -164,36 +164,36 @@ void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
void BA1100_application::edit_riga (long riga_sel, TToken_string& riga) void BA1100_application::edit_riga (long riga_sel, TToken_string& riga)
{ {
KEY tasto; KEY tasto;
FileDes dep; FileDes dep;
TDir d; TDir d;
const int logicnum = int(riga_sel) + 1; const int logicnum = int(riga_sel) + 1;
_mask->enable(DLG_PACK); _mask->enable(DLG_PACK);
_mask->enable(DLG_RECORD); _mask->enable(DLG_RECORD);
_mask->enable(DLG_LOAD); _mask->enable(DLG_LOAD);
_mask->enable(DLG_DUMP); _mask->enable(DLG_DUMP);
_mask->set (FLD_NUM, riga.get(0)); _mask->set (FLD_NUM, riga.get(0));
_mask->set (FLD_NOME, riga.get()); _mask->set (FLD_NOME, riga.get());
_mask->set (FLD_EOD, riga.get()); _mask->set (FLD_EOD, riga.get());
_mask->set (FLD_EOX, riga.get()); _mask->set (FLD_EOX, riga.get());
_mask->set (F_LEN, riga.get()); _mask->set (F_LEN, riga.get());
_mask->set (FLD_DESC, riga.get()); _mask->set (FLD_DESC, riga.get());
_mask->set (FLD_FORMULA, riga.get()); _mask->set (FLD_FORMULA, riga.get());
_mask->set (FLD_FLAG, riga.get()); _mask->set (FLD_FLAG, riga.get());
_mask->reset (FLD_EXTEND); _mask->reset (FLD_EXTEND);
const TRecnotype oldeox = atol(_mask->get(FLD_EOX)); const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name(); const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name();
const char* name = _mask->get(FLD_NOME); const char* name = _mask->get(FLD_NOME);
const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0); const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0);
_mask->show(FLD_EXTEND, enable_extend); _mask->show(FLD_EXTEND, enable_extend);
_mask->show(FLD_EOX, enable_extend); _mask->show(FLD_EOX, enable_extend);
tasto = _mask->run(); tasto = _mask->run();
switch (tasto) switch (tasto)
{ {
case K_F4: case K_F4:
{ {
const TFilename filename(_mask->get(FLD_NOME)); const TFilename filename(_mask->get(FLD_NOME));
@ -210,7 +210,7 @@ switch (tasto)
case K_F7: case K_F7:
case K_F8: case K_F8:
case K_ENTER: case K_ENTER:
{ {
strcpy (dep.SysName,_mask->get (FLD_NOME)); strcpy (dep.SysName,_mask->get (FLD_NOME));
dep.EOD = atol(_mask->get (FLD_EOD)); dep.EOD = atol(_mask->get (FLD_EOD));
dep.Flags = atol(_mask->get (FLD_FLAG)); dep.Flags = atol(_mask->get (FLD_FLAG));
@ -223,7 +223,7 @@ switch (tasto)
dep.Des, dep.FCalc); dep.Des, dep.FCalc);
_browse->dir()->put(logicnum, _nordir, _sysdirop); _browse->dir()->put(logicnum, _nordir, _sysdirop);
{ {
TSystemisamfile f(logicnum); TSystemisamfile f(logicnum);
if (eox != oldeox) if (eox != oldeox)
@ -285,12 +285,12 @@ switch (tasto)
f.load(m.get(FLD_INFILE), fs, fd, rs); f.load(m.get(FLD_INFILE), fs, fd, rs);
} }
} }
} }
} }
break; break;
default: default:
break; break;
} }
} }
void BA1100_application::delete_riga () void BA1100_application::delete_riga ()
@ -420,14 +420,14 @@ void BA1100_application::update()
bool BA1100_application::menu(MENU_TAG m) bool BA1100_application::menu(MENU_TAG m)
{ {
TToken_string riga; TToken_string riga;
long riga_selezionata; long riga_selezionata;
bool done = FALSE; bool done = FALSE;
_browse->rebuild(); _browse->rebuild();
while (!done) while (!done)
{ {
disable_menu_item(M_FILE_NEW); disable_menu_item(M_FILE_NEW);
@ -462,11 +462,11 @@ while (!done)
} }
enable_menu_item(M_FILE_NEW); enable_menu_item(M_FILE_NEW);
} }
return TRUE; return TRUE;
} }
int ba1100(int argc, char* argv[]) int ba1100(int argc, char** argv)
{ {
BA1100_application a; BA1100_application a;

6
ba/ba1101.cpp
View File

@ -24,7 +24,7 @@ void TDir_sheet::add ()
{ {
_dir->get(LF_DIR, _lock, _nordir, _sysdirop); _dir->get(LF_DIR, _lock, _nordir, _sysdirop);
const int nitems = _dir->eod() + 1; const int nitems = (int)_dir->eod() + 1;
_dir->eod() = nitems; _dir->eod() = nitems;
_dir->put(LF_DIR); _dir->put(LF_DIR);
@ -32,11 +32,11 @@ void TDir_sheet::add ()
_dir->put(nitems); _dir->put(nitems);
_items = nitems; _items = nitems;
// select(nitems - 1); // select(nitems - 1);
} }
TDir_sheet::TDir_sheet(const char* title) TDir_sheet::TDir_sheet(const char* title)
: TSheet(-1,-1, 0, 0, title,"N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43|Formula@33|Flags@7", 0xC) : TSheet(-1,-1, 0, 0, title,"N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43|Formula@33|Flags@7", 0xC)
{ {
_dir = new TDir; _dir = new TDir;
_rec = new TTrec; _rec = new TTrec;

20
ba/ba1200.cpp
View File

@ -23,21 +23,29 @@ bool TTest_application::menu(MENU_TAG)
{ {
TLocalisamfile tab(LF_TABCOM); TLocalisamfile tab(LF_TABCOM);
const TRecnotype n = tab.items(); const TRecnotype n = tab.items();
TProgind p(n, "Lettura file tabelle comuni", TRUE, TRUE, 32);
const time_t start = time(NULL); time_t start;
TRecnotype r = 1; TRecnotype r = 1;
TString80 msg; TString80 msg;
{
TProgind p(n, "Lettura file tabelle comuni", TRUE, TRUE, 32);
start = time(NULL);
for (tab.first(); tab.good(); tab.next(), r++) for (tab.first(); tab.good(); tab.next(), r++)
{ {
msg.format("%ld rec : %ld sec", r, time(NULL) - start); if ((r % 50) == 0)
p.addstatus(1); {
msg.format("%ld records %ld sec", r, time(NULL) - start);
p.setstatus(r);
p.set_text(msg); p.set_text(msg);
}
if (p.iscancelled()) break; if (p.iscancelled()) break;
} }
}
const time_t t = time(NULL) - start;
msg.format("%ld records in %ld sec\n%lg records per sec", r, t, (double)r/t);
message_box(msg);
return TRUE; return TRUE;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////

2
ba/batb%tpd.uml
View File

@ -42,10 +42,10 @@ BEGIN
PROMPT 4 6 "Natura documento " PROMPT 4 6 "Natura documento "
FIELD LF_TABCOM->I0 FIELD LF_TABCOM->I0
HELP "Indicare la natura del documento" HELP "Indicare la natura del documento"
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
GROUP GR_RECORD_PROTECTED GROUP GR_RECORD_PROTECTED
END END