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
#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[]);

2
ba/ba1100.cpp
View File

@ -466,7 +466,7 @@ while (!done)
return TRUE;
}
int ba1100(int argc, char* argv[])
int ba1100(int argc, char** argv)
{
BA1100_application a;

2
ba/ba1101.cpp
View File

@ -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);

18
ba/ba1200.cpp
View File

@ -23,19 +23,27 @@ 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;
}

2
ba/batb%tpd.uml
View File

@ -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