//+++++++++++++++++++++++OLE-подключение+++++++++++++++++++++++++++++++++++++
Процедура ПриНачалеРаботыСистемы()
БазаИсточник = СоздатьОбъект("V77.Application");
Путь=Строка("D:\1C_Base\Копия(2)\");
Пользователь=глПользователь;
пароль="";
Открыта = БазаИсточник.Initialize(БазаИсточник.RMTrade, "/D" + СокрЛП(Путь) + " /N" + Пользователь + "/P" + Пароль, "");
Если Открыта = 0 Тогда
Предупреждение("Ошибка открытия информационной базы 2");
Иначе
Сообщить("База 2 доступна");
КонецЕсли
Установить/прочитать режим блокировки.
Если при вызове метода параметр <ВклВыкл> не задан, то возвращается режим блокировки до выполнения метода.
Число: 1 - заблокирован; 0 - свободен.
Если при вызове метода параметр <ВклВыкл> задан, то возвращается результат выполнения метода блокировки.
Число: 1 - успешно; 0 - не получилось.
! | необходимо зарегистрироваться для просмотра ссылки: 1 |
Док=СоздатьОбъект("Документ");
олеДок=БазаИсточник.CreateObject("Документ");
Док.ВыбратьДокументы(ДатаОтчета);
олеДок.ВыбратьДокументы(ДатаОтчета);
Пока Док.ПолучитьДокумент()=1 Цикл
Если (Док.Вид()= "Счет") тогда
олеДок.НайтиПоНомеру(Док.НомерДок,ДатаОтчета,"Счет");
олеСчет=ОлеДок.ТекущийДокумент();
олеКл.НайтиПоКоду(Док.Контрагент.Код,0);
олеСчет.Контрагент=олеКл.ТекущийЭлемент();
//.........................................
олеСчет.Записать();
Сообщить("Обновлен"+олеСчет.ПредставлениеВида()+" №"+СокрЛП(олеСчет.НомерДок)+" от "+Шаблон("[олеСчет.ДатаДок]"));