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

2
ba/ba1100.cpp
View File

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

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

18
ba/ba1200.cpp
View File

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