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

Modifica per la chiamata al costruttore di TForm.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2861 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-20 13:32:13 +00:00
parent 3ef36be2c2
commit ecf5733929
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba2400.cpp
View File

@ -144,6 +144,7 @@ public:
bool TForm_printer::create() bool TForm_printer::create()
{ {
TString16 cod_prof;
TApplication::create(); TApplication::create();
if (argc() < 3) if (argc() < 3)
@ -157,7 +158,8 @@ bool TForm_printer::create()
return error_box("Il profilo %s non esiste", (const char*)form); return error_box("Il profilo %s non esiste", (const char*)form);
form.ext(""); form.ext("");
_tabcom = new TLocalisamfile(LF_TABCOM); _tabcom = new TLocalisamfile(LF_TABCOM);
TTab_form f(form, (code != 0) ? format("%05ld",code) : ""); cod_prof.format("%05ld",code);
TTab_form f(form, (code != 0) ? cod_prof : "");
f.print(); f.print();
stop_run(); stop_run();
return TRUE; return TRUE;