Для 8.1 : 1. Список баз 8.1 можно сохранять в файл.Для этого правой кнопкой мыши по корневому...
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");...
Колонтитул является специальным текстом, выводимым вверху или внизу каждой страницы при выводе документа на печать. В тексте...
1. После названия функции и параметов должно стоять Экспорт Например: Функция ВернутьДанныеДляЗаполнения(Отчет, Форма, ПараметрыОтчета) Экспорт // код...
// Задать выбираемые значения. ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101');...
Справ=СоздатьОбъект("Справочник.Задания"); Справ2=СоздатьОбъект("Справочник.Задания"); Справ.ИспользоватьВладельца(Цель); Справ2.ИспользоватьВладельца(Источник); Справ.ИспользоватьДату(НаДату); Справ2.ИспользоватьДату(НаДату); Справ2.ВыбратьЭлементы(); Пока Справ2.ПолучитьЭлемент()>0 Цикл Справ.Новый(); Справ.Записать(); МетаСправочник=Метаданные.Справочник(Справ.Вид()); Для Счетчик=1 По МетаСправочник.Реквизит()...
Функция ПересечениеОтрезков(А1, А2, Б1, Б2) Если А1<=Б1 Тогда Х = Мин(Б2-Б1,А2-Б1); Х = Макс(Х,0); // если Х<0,...
Процедура ОбработкаПроведения() Пока ПолучитьСтроку() = 1 Цикл Операция.НоваяПроводка(); Операция.Кредит.Счет = СчетПоКоду("60.1"); Операция.Дебет.Счет = СчетПоКоду("08.4"); Операция.СодержаниеПроводки = "Поступление...
Для реализации алгоритмов «FIFO» и «LIFO» (FIFO (первый пришел – первый ушел), LIFO (последний пришел – первый...
Алгоритм «по среднему» реализуется наиболее просто: определяется текущая стоимость товара и текущий остаток. Их отношение дает нам...
//ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора; Для Каждого Документ Из Метаданные.Документы Цикл //Проверим, есть...
&НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для...
Фильтр = Новый Структура; Фильтр.Вставить("ФизЛицо",ТекущаяСтрока.Физлицо); СумОст=РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(ПериодРегистрации,Фильтр);
Запись файла в каталог, проверка существования каталога, имя — Уникальный идентификатор пользователя
Запись файла в каталог, проверка существования каталога, имя — Уникальный идентификатор пользователя
ЮзерИД=ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор; КаталогЗаметок = "С:\note\"; КаталогНаДиске = Новый Файл(КаталогЗаметок); Если Не КаталогНаДиске.Существует() Тогда СоздатьКаталог(КаталогЗаметок); КонецЕсли; ТекстЗаметки.Записать(КаталогЗаметок+строка(ЮзерИД)+".txt");
// Параметры функции: // Слово1 - форма слова в ед числе ("шкаф") // Слово2 - форма слова...
Функция ВыделитьСлово(ИсходнаяСтрока) Экспорт Буфер = СокрЛ(ИсходнаяСтрока); ПозицияПослПробела = Найти(Буфер, " "); Если ПозицияПослПробела = 0 Тогда ИсходнаяСтрока...
Функция СформироватьТекстСообщения(Знач ТекстСообщения) Экспорт НачалоСлужебногоСообщения = Найти(ТекстСообщения, "{"); ОкончаниеСлужебногоСообщения = Найти(ТекстСообщения, "}:"); Если ОкончаниеСлужебногоСообщения > 0 И...
// Функция возвращает Истина при соответствии типов, ложь в обратном случае Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач) Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);...
Функция ВернутьИндексВМассиве(МассивДанные, Элемент) Экспорт Если МассивДанные = Неопределено Тогда Возврат -1; КонецЕсли; Для ИндексЭлемента = 0 По...
Процедура ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки) //Раскрасим ячейку статус в разные цвета взависимости от значения если сокрЛП(ДанныеСтроки.статус) = "Новая"...