From ecf5733929b94f2160d0a0323be13f6df9bf18ce Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 20 May 1996 13:32:13 +0000
Subject: [PATCH] Modifica per la chiamata al costruttore di TForm.

git-svn-id: svn://10.65.10.50/trunk@2861 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba2400.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ba/ba2400.cpp b/ba/ba2400.cpp
index 063060bc0..735358d8c 100755
--- a/ba/ba2400.cpp
+++ b/ba/ba2400.cpp
@@ -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;