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

[Masygreen]

В общем такая проблема ...
есть интрефейс который в цикле печатает много документов типа

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

_loop
{
RunForm('PrintExcelComp01',_oKatMC);
}

форма RTF определена так

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

.autoform 'PrintExcelComp01' (_oKatMC)
.ard
.Group '**********'
.nameinlist '**************'
.hide

проблема в том, при цикле форма создается с тем же именем что и файл исходник RTF - следовательно мы видим только результат 1 отчета
остальные не печатаются(если вставить message перед RunForm и при выводе rtf пере сохранять их под другими именами - то выводятся все отчеты из цикла) надо что то типа

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

.F _oKatMC

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

[Masygreen]

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

[edward_K]

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

[Masygreen]

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

решило проблему

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

.fexit

в форме
и в интерфейсе

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

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

спасибо ...

[Alpiton]

Я использовал SetFileName:

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

[Masygreen]

Я использовал SetFileName:

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

это RTF