Страница 1 из 1

Динамическое имя выходного файла...

Добавлено: 17 май 2011, 13:34
Masygreen
В общем такая проблема ...
есть интрефейс который в цикле печатает много документов типа

Код: Выделить всё

_loop
{
RunForm('PrintExcelComp01',_oKatMC);
}
форма RTF определена так

Код: Выделить всё

.autoform 'PrintExcelComp01' (_oKatMC)
.ard
.Group '**********'
.nameinlist '**************'
.hide
проблема в том, при цикле форма создается с тем же именем что и файл исходник RTF - следовательно мы видим только результат 1 отчета
остальные не печатаются(если вставить message перед RunForm и при выводе rtf пере сохранять их под другими именами - то выводятся все отчеты из цикла) надо что то типа

Код: Выделить всё

.F _oKatMC
но на такое ругается Ошибка: Ожидалось имя выходного файла

Re: Динамическое имя выходного файла...

Добавлено: 17 май 2011, 13:59
Masygreen
нашел обсуждение тынц .. в принципе подходит CopyMoveFile .. но у меня rtf, как заставить галактику не открывать файл rtf после формирования ?

Re: Динамическое имя выходного файла...

Добавлено: 17 май 2011, 16:12
edward_K
в форме прототип.fexit ( например по какому то полю)
В выводе либо abortform, либо showfile('') - под рукой нет.
чтобы еще диалога с выбором форм не было - outf.nodialog ( тогда все присоединенки сформируются).

Re: Динамическое имя выходного файла...

Добавлено: 17 май 2011, 18:11
Masygreen
edward_K писал(а):в форме прототип.fexit ( например по какому то полю)
В выводе либо abortform, либо showfile('') - под рукой нет.
чтобы еще диалога с выбором форм не было - outf.nodialog ( тогда все присоединенки сформируются).
решило проблему в форме
и в интерфейсе

Код: Выделить всё

     _vFileRTF := Replace(_FileRTF,'\*****.rtf','\'+v_oKatMC+'.rtf');
     deletefile(_vFileRTF);
     CopyMoveFile(_FileRTF,_vFileRTF, false);
     ExecProgram ('start','WINWORD.EXE '+ _vFileRTF, 'Просмотр файла', pfDontWait, 0);
спасибо ...

Re: Динамическое имя выходного файла...

Добавлено: 23 май 2011, 07:53
Alpiton
Я использовал SetFileName:

цикл
{
frm.SetFileName
frm.Write
frm.ShowFile
}

Re: Динамическое имя выходного файла...

Добавлено: 23 май 2011, 14:32
Masygreen
Alpiton писал(а):Я использовал SetFileName:

цикл
{
frm.SetFileName
frm.Write
frm.ShowFile
}
это RTF