// Создание, добавление колонок в новой таблице значений ТабЗначений = Новый ТаблицаЗначений; ТабЗначений .Колонки.Добавить("НомерСтроки", Новый ОписаниеТипов("Число")); ТабЗначений...
8.x
Ex = Новый COMObject("Excel.Application"); Ex.Workbooks.Open(Путь); Ex.Visible = 1; ТекЛист=Ex.WorkSheets(1); Для Ячейка = 1 по 400 цикл Если...
// Параметры функции: // Слово1 - форма слова в ед числе ("шкаф") // Слово2 - форма слова...
// Модифицированность() - Определяет, был ли изменен объект после считывания из базы данных. // НО Метод не...
Функция ДатаПрописью(Дат) Экспорт Результат=""; Если ТипЗнч(Дат)=Тип("Дата") Тогда Результат=Формат(Дат,"ДФ=""дд ММММ гггг 'г.'"""); КонецЕсли; Возврат Результат КонецФункции
Например: реквизит (имя Материал) имеет тип СправочникСсылка.Номенклатура, чтобы его очистить программно нужно выполнить следующий код: Материал =...
&НаКлиенте Процедура ОбработатьВыполнить() Объект.Обработан=Истина; БылоСтрок= Объект.Данные.Количество(); Для Счетчик =1 по Объект.Данные.Количество() Цикл НомерСтроки= БылоСтрок-Счетчик; лСтр = Объект.Данные[НомерСтроки];...
Попытка Екс= Новый COMОбъект("Excel.Application") ; НашФайл = Екс.Workbooks.Open(пвФайл); //Открываем файл ДеревоЛистов.Строки.Очистить(); тУроветь=ДеревоЛистов.Строки.Добавить(); тУроветь[0]=Файл.Имя; Для к=1 по НашФайл.Sheets.Count()...
Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Фильтр = "Текст(*.txt)|*.txt"; ДиалогОткрытияФайла.Фильтр = Фильтр; ДиалогОткрытияФайла.МножественныйВыбор...
ДГ = ЭлементыФормы.ДГ; // Установить заголовок диаграммы. ДГ.ОбластьЗаголовка.Текст = "График дежурств"; // Интервал будем определять самостоятельно. ДГ.АвтоОпределениеПолногоИнтервала...
Попытка ОтправитьПоПочте2(ТекСтрока); // работает с Батом Исключение Попытка ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке...
Вопрос: Как в 1 С Бухгалтерия 8.1 доукомплектовать основное средство (компьютер), чтобы увеличить его первоначальную стоимость? Ответ:...
В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL) СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + (";UID=") +...
//Проверка на заполненность реквизитов формы, для которых установлен признак АвтоОтметкаНезаполненного Функция ПроверкаАвтоОтметкаНезаполненного(ЭлементыФормы) Экспорт Результат = Ложь; Для...
Инфо = Новый СистемнаяИнформация; Текст = "Версия 1С:Предприятия 8.0: " + Инфо.ВерсияПриложения; Текст = Текст + Символы.ПС...
На Рабочем столе Shell = Новый COMОбъект("WScript.Shell"); РабочийСтол = Shell.SpecialFolders("Desktop"); Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk"); Ярлык.TargetPath =...
//внешние обработки и отчеты: Процедура ЗагрузитьОбработкуВХранилище(РеквизитТипХранилище) СтепеньСжатия = Новый СжатиеДанных(9); //9 максимум РеквизитТипХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("c:\отчеты\отчет.epf",...
MS Excel Попытка Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа! |...
Вопрос: Можно ли зафиксировать несколько колонок в таблице так, чтобы при горизонтальной прокрутке они всегда были на...