Запрос = Новый Запрос(" |ВЫБРАТЬ | ПродажиОбороты.Номенклатура, | ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот/ПродажиОбороты.КоличествоОборот КАК ЧИСЛО(15, 2)) КАК СредняяЦенаПродажи |ИЗ | РегистрНакопления.Продажи.Обороты(&ДатаНач,...
8.x
КодГруппы = "123100"; ПоискПоПолномуКоду = Ложь; // значение по умолчанию Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду); Если Группа.Пустая() Тогда...
// Получим суммы начисленные по ФизЛицу документом НачислениеЗарплатыРаботникамОрганизаций // (отбор по Документ.НачислениеЗарплатыРаботникамОрганизаций) Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ |...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...
МойФайл = Новый ДвоичныеДанные(ПутьКФайлу); ХранилищеФайла = Новый ХранилищеЗначения(МойФайл); Новстр.ФайлDoc1=ХранилищеФайла; Новстр.ФайлDoc1Название = ПутьКФайлу;
Функция ЗаменитьПробелы(Строка, Символы) // Пишем все слова с больших букв, кому не надо закомментируйте СтрокаВозврата = СокрЛП(ТРег(Строка));...
ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); ScriptCtrl.Language = "vbscript"; ScriptCtrl.AddCode(" Function PlayS() | Set Wrap = CreateObject(""DynamicWrapper"") | Wrap.Register...
// Проверка орфоргафии переданного текста с помощью средств MS Word // Параметры // <Текст> – <Строка> –...
// Необходимо выбрать документы за период по ответственному // В каждом документе, где в первой строке табличного...
// Открыть форму списка регистра накопления Форма = РегистрыНакопления.ОстаткиМатериалов.ПолучитьФормуСписка(); Форма.Открыть();
Для документов, как вариант: номискдок=ЭлементыФормы.ДокументСписок.ТекущиеДанные.Номер; ИскомыйДокумент=документы.Заявка.НайтиПоНомеру(номискдок); Форма = ИскомыйДокумент.ПолучитьФорму("ФормаДокументаПолная"); Форма.Открыть(); Но лучше все же( и ПРАВИЛЬНЕЕ )...
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Заголовок = "Выберите файл"; Диалог.ПолноеИмяФайла = ""; Фильтр = "Все файлы (*.*)|*.*"; Диалог.Фильтр...
Задача: Ноутбук с Windows 7 (Домашняя версия) должен работать с офисной ИБ 1С8. В офисе компьютеры объединены...
Вопрос: Есть возможность в запросе получить значение переодического регистра сведений если меняется дата в строке запроса. Например:...
Значение типа Неопределено используется прежде всего как значение по умолчанию (незаданное значение) для полей с составным типом....
// Траб - Таблица значений с данными // Диаграмма - ЭлементыФормы.Диаграмма Процедура ПостроитьДиаграмму(Траб,Диаграмма) Для Каждого Колонка из...
Это можно сделать с помощью оператора языка запросов ССЫЛКА, который позволяет проверить, является ли значение выражения, указанного...
"Момент времени" — виртуальное поле, не хранится в базе данных. Содержит объект МоментВремени (который включает в себя...
Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
Процедура ПереместитьСтрокуДерева(Дерево, ПеремещаемаяСтрока, НовыйРодитель, Уровень = 0) Если Уровень = 0 Тогда НоваяСтрока = НовыйРодитель.Строки.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, ПеремещаемаяСтрока);...