Small_green_yojik
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vizlipuzli
Поступил следующим образом:
Код:
procedure open1S(Base, User, Pass: string);
begin
Ole1S:='';//На всякий случай
try
Ole1S:= CreateOleObject('V77M.Application');
except
Log('Ошибка создания ole объекта! Проверьте установку 1с!');
end;
ResOpen:=Ole1S.Initialize(Ole1S.RMTrade, '/D'+Base+' /N'+User+' /P'+Pass,'NO_SPLASH_SHOW'); {NO_SPLASH_SHOW}
end;
|
Код:
procedure MainProc(BasePath, ObrPath, Login, Passw:string);
var indy:byte;
begin
Log('Старт выполнения задания. Чтение логина/пароля.');
Log('Попытка открытия базы данных и запуска отчета.');
indy:=0;
try
open1S(BasePath, Login, Passw);
Log('База данных успешно открыта. Старт выполнения отчета.');
indy:=1;
except
Log('Ошибка! Не удалось подключиться к базе 1С.');
end;
if indy=1 then
try
Ole1S.EvalExpr('ОткрытьФорму("Отчет",,"'+ObrPath+'")');
Log('Отчет выполнен.');
except
Log('Отчет выполнить не удалось.')
end;
Ole1S:='';
end;
|
Первичные тесты прошла. Опять ждем.
Добавлено:
vizlipuzli
Спасибо. Из дома посмотрю. Здесь траффик ограниченный. |
Всего записей: 214 | Зарегистр. 18-05-2009 | Отправлено: 14:49 24-10-2011 | Исправлено: Small_green_yojik, 14:57 24-10-2011 |
|
Программы » 
Варезник » 
