Spostato all'inizio il codice Altro per la lista del Tipo IVA.
git-svn-id: svn://10.65.10.50/trunk@38 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
df89a58856
commit
5e5176d3c8
11
ba/ba1.h
11
ba/ba1.h
@ -1,15 +1,8 @@
|
||||
#ifndef __BA1_H
|
||||
#define __BA1_H
|
||||
|
||||
#ifdef MAIN
|
||||
#define extern
|
||||
#endif
|
||||
|
||||
#ifdef MAIN
|
||||
#undef extern
|
||||
#endif
|
||||
int ba1100(int argc, char** argv);
|
||||
int ba1200(int argc, char** argv);
|
||||
|
||||
#endif // __BA1_H
|
||||
|
||||
int ba1100(int argc, char* argv[]);
|
||||
int ba1200(int argc, char* argv[]);
|
||||
|
||||
118
ba/ba1100.cpp
118
ba/ba1100.cpp
@ -16,23 +16,23 @@
|
||||
|
||||
class BA1100_application : public TApplication
|
||||
{
|
||||
TDir_sheet * _browse;
|
||||
TMask * _mask;
|
||||
long _firm;
|
||||
TRec_sheet* _rec;
|
||||
TDir_sheet * _browse;
|
||||
TMask * _mask;
|
||||
long _firm;
|
||||
TRec_sheet* _rec;
|
||||
|
||||
protected:
|
||||
virtual bool menu (MENU_TAG);
|
||||
virtual bool create () ;
|
||||
virtual bool destroy();
|
||||
void insert_riga(long, TToken_string&);
|
||||
void edit_riga(long, TToken_string&);
|
||||
void delete_riga();
|
||||
virtual bool extended_firm() const { return TRUE; }
|
||||
void update();
|
||||
void update_dir();
|
||||
void convert_dir();
|
||||
virtual void print();
|
||||
virtual bool menu (MENU_TAG);
|
||||
virtual bool create () ;
|
||||
virtual bool destroy();
|
||||
void insert_riga(long, TToken_string&);
|
||||
void edit_riga(long, TToken_string&);
|
||||
void delete_riga();
|
||||
virtual bool extended_firm() const { return TRUE; }
|
||||
void update();
|
||||
void update_dir();
|
||||
void convert_dir();
|
||||
virtual void print();
|
||||
|
||||
public:
|
||||
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)
|
||||
{
|
||||
/* 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--)
|
||||
{
|
||||
_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)
|
||||
|
||||
{
|
||||
KEY tasto;
|
||||
FileDes dep;
|
||||
TDir d;
|
||||
const int logicnum = int(riga_sel) + 1;
|
||||
KEY tasto;
|
||||
FileDes dep;
|
||||
TDir d;
|
||||
const int logicnum = int(riga_sel) + 1;
|
||||
|
||||
_mask->enable(DLG_PACK);
|
||||
_mask->enable(DLG_RECORD);
|
||||
_mask->enable(DLG_LOAD);
|
||||
_mask->enable(DLG_DUMP);
|
||||
_mask->set (FLD_NUM, riga.get(0));
|
||||
_mask->set (FLD_NOME, riga.get());
|
||||
_mask->set (FLD_EOD, riga.get());
|
||||
_mask->set (FLD_EOX, riga.get());
|
||||
_mask->set (F_LEN, riga.get());
|
||||
_mask->set (FLD_DESC, riga.get());
|
||||
_mask->set (FLD_FORMULA, riga.get());
|
||||
_mask->set (FLD_FLAG, riga.get());
|
||||
_mask->reset (FLD_EXTEND);
|
||||
_mask->enable(DLG_PACK);
|
||||
_mask->enable(DLG_RECORD);
|
||||
_mask->enable(DLG_LOAD);
|
||||
_mask->enable(DLG_DUMP);
|
||||
_mask->set (FLD_NUM, riga.get(0));
|
||||
_mask->set (FLD_NOME, riga.get());
|
||||
_mask->set (FLD_EOD, riga.get());
|
||||
_mask->set (FLD_EOX, riga.get());
|
||||
_mask->set (F_LEN, riga.get());
|
||||
_mask->set (FLD_DESC, riga.get());
|
||||
_mask->set (FLD_FORMULA, riga.get());
|
||||
_mask->set (FLD_FLAG, riga.get());
|
||||
_mask->reset (FLD_EXTEND);
|
||||
|
||||
const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
|
||||
const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name();
|
||||
const char* name = _mask->get(FLD_NOME);
|
||||
const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0);
|
||||
const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
|
||||
const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name();
|
||||
const char* name = _mask->get(FLD_NOME);
|
||||
const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0);
|
||||
|
||||
_mask->show(FLD_EXTEND, enable_extend);
|
||||
_mask->show(FLD_EOX, enable_extend);
|
||||
tasto = _mask->run();
|
||||
_mask->show(FLD_EXTEND, enable_extend);
|
||||
_mask->show(FLD_EOX, enable_extend);
|
||||
tasto = _mask->run();
|
||||
|
||||
switch (tasto)
|
||||
{
|
||||
switch (tasto)
|
||||
{
|
||||
case K_F4:
|
||||
{
|
||||
const TFilename filename(_mask->get(FLD_NOME));
|
||||
@ -210,7 +210,7 @@ switch (tasto)
|
||||
case K_F7:
|
||||
case K_F8:
|
||||
case K_ENTER:
|
||||
{
|
||||
{
|
||||
strcpy (dep.SysName,_mask->get (FLD_NOME));
|
||||
dep.EOD = atol(_mask->get (FLD_EOD));
|
||||
dep.Flags = atol(_mask->get (FLD_FLAG));
|
||||
@ -223,7 +223,7 @@ switch (tasto)
|
||||
dep.Des, dep.FCalc);
|
||||
_browse->dir()->put(logicnum, _nordir, _sysdirop);
|
||||
|
||||
{
|
||||
{
|
||||
TSystemisamfile f(logicnum);
|
||||
|
||||
if (eox != oldeox)
|
||||
@ -285,12 +285,12 @@ switch (tasto)
|
||||
f.load(m.get(FLD_INFILE), fs, fd, rs);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
void BA1100_application::delete_riga ()
|
||||
@ -420,14 +420,14 @@ void BA1100_application::update()
|
||||
|
||||
bool BA1100_application::menu(MENU_TAG m)
|
||||
{
|
||||
TToken_string riga;
|
||||
long riga_selezionata;
|
||||
bool done = FALSE;
|
||||
TToken_string riga;
|
||||
long riga_selezionata;
|
||||
bool done = FALSE;
|
||||
|
||||
_browse->rebuild();
|
||||
_browse->rebuild();
|
||||
|
||||
while (!done)
|
||||
{
|
||||
while (!done)
|
||||
{
|
||||
|
||||
disable_menu_item(M_FILE_NEW);
|
||||
|
||||
@ -462,11 +462,11 @@ while (!done)
|
||||
}
|
||||
|
||||
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;
|
||||
|
||||
|
||||
@ -24,7 +24,7 @@ void TDir_sheet::add ()
|
||||
|
||||
{
|
||||
_dir->get(LF_DIR, _lock, _nordir, _sysdirop);
|
||||
const int nitems = _dir->eod() + 1;
|
||||
const int nitems = (int)_dir->eod() + 1;
|
||||
|
||||
_dir->eod() = nitems;
|
||||
_dir->put(LF_DIR);
|
||||
@ -32,11 +32,11 @@ void TDir_sheet::add ()
|
||||
_dir->put(nitems);
|
||||
_items = nitems;
|
||||
|
||||
// select(nitems - 1);
|
||||
// select(nitems - 1);
|
||||
}
|
||||
|
||||
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;
|
||||
_rec = new TTrec;
|
||||
|
||||
@ -23,21 +23,29 @@ bool TTest_application::menu(MENU_TAG)
|
||||
{
|
||||
TLocalisamfile tab(LF_TABCOM);
|
||||
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;
|
||||
|
||||
TString80 msg;
|
||||
{
|
||||
TProgind p(n, "Lettura file tabelle comuni", TRUE, TRUE, 32);
|
||||
start = time(NULL);
|
||||
for (tab.first(); tab.good(); tab.next(), r++)
|
||||
{
|
||||
msg.format("%ld rec : %ld sec", r, time(NULL) - start);
|
||||
p.addstatus(1);
|
||||
if ((r % 50) == 0)
|
||||
{
|
||||
msg.format("%ld records %ld sec", r, time(NULL) - start);
|
||||
p.setstatus(r);
|
||||
p.set_text(msg);
|
||||
}
|
||||
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;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
@ -42,10 +42,10 @@ BEGIN
|
||||
PROMPT 4 6 "Natura documento "
|
||||
FIELD LF_TABCOM->I0
|
||||
HELP "Indicare la natura del documento"
|
||||
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
|
||||
ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
|
||||
ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
|
||||
ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
|
||||
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
|
||||
GROUP GR_RECORD_PROTECTED
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user