25.08.2025

8.x

&НаКлиенте Процедура ОбработатьВыполнить() Объект.Обработан=Истина; БылоСтрок= Объект.Данные.Количество(); Для Счетчик =1 по Объект.Данные.Количество() Цикл НомерСтроки= БылоСтрок-Счетчик; лСтр = Объект.Данные[НомерСтроки];...
Попытка Екс= Новый COMОбъект("Excel.Application") ; НашФайл = Екс.Workbooks.Open(пвФайл); //Открываем файл ДеревоЛистов.Строки.Очистить(); тУроветь=ДеревоЛистов.Строки.Добавить(); тУроветь[0]=Файл.Имя; Для к=1 по НашФайл.Sheets.Count()...
Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Фильтр = "Текст(*.txt)|*.txt"; ДиалогОткрытияФайла.Фильтр = Фильтр; ДиалогОткрытияФайла.МножественныйВыбор...
ДГ = ЭлементыФормы.ДГ; // Установить заголовок диаграммы. ДГ.ОбластьЗаголовка.Текст = "График дежурств"; // Интервал будем определять самостоятельно. ДГ.АвтоОпределениеПолногоИнтервала...
Попытка ОтправитьПоПочте2(ТекСтрока); // работает с Батом Исключение Попытка ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке...