(495) - 5187132
Пример:
var
ct : Ttask;
j : integer;
begin
// Укажем директорию, куда хотим выгрузить документы
if SelectDirectory(Dir)=true then begin
//Создаем задачу ct
ct := TTask.Create;
ct.id := ‘{9EA688B3-F0C1-492F-8CEF-8E534E69E390}’;
// Загружаем задачу
LoadTask(ct);
ct.LoadDocumentFromXML(elemTmp.Items[0]);
// Вызываем _OnPreload_ у задачи ct
_CallPreload(ct);
// Идем по списку печатных форм в задаче
for j:=0 to ct.doclist.count-1 do
// Если печатная форма видима
// тогда экспортируем в формат PDF
if ct.doclist[j].visible=true then
_ExportTaskDocumentByName(ct, ct.doclist[j].name, 1, Dir + ‘\Doc’ + IntToStr(j));
end;
// Откроем папку с файлами
_ShellExecute_AndWait(Dir);
end;
var
ct : Ttask;
j : integer;
begin
// Укажем директорию, куда хотим выгрузить документы
if SelectDirectory(Dir)=true then begin
//Создаем задачу ct
ct := TTask.Create;
ct.id := ‘{9EA688B3-F0C1-492F-8CEF-8E534E69E390}’;
// Загружаем задачу
LoadTask(ct);
ct.LoadDocumentFromXML(elemTmp.Items[0]);
// Вызываем _OnPreload_ у задачи ct
_CallPreload(ct);
// Идем по списку печатных форм в задаче
for j:=0 to ct.doclist.count-1 do
// Если печатная форма видима
// тогда экспортируем в формат PDF
if ct.doclist[j].visible=true then
_ExportTaskDocumentByName(ct, ct.doclist[j].name, 1, Dir + ‘\Doc’ + IntToStr(j));
end;
// Откроем папку с файлами
_ShellExecute_AndWait(Dir);
end;
Загрузка ...
www.oganer.com