Modifica per la chiamata al costruttore di TForm.

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

View File

@ -144,6 +144,7 @@ public:
bool TForm_printer::create()
{
TString16 cod_prof;
TApplication::create();
if (argc() < 3)
@ -157,7 +158,8 @@ bool TForm_printer::create()
return error_box("Il profilo %s non esiste", (const char*)form);
form.ext("");
_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();
stop_run();
return TRUE;