Aggiunta riga che trasforma in upper il nome del form.

git-svn-id: svn://10.65.10.50/trunk@2131 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-11-13 07:58:54 +00:00
parent 2b125cc141
commit c64f25337f

View File

@ -149,7 +149,7 @@ bool TForm_printer::create()
if (argc() < 3)
return error_box("Specificare il nome del profilo di stampa");
TFilename form(argv(2)); form.ext("frm");
TFilename form(argv(2)); form.ext("frm");form.upper();
long code=0;
if (argc() == 4)
code = atol(argv(3));