25.08.2025

8.x

Есть строка "ABC-9.64,5=s", нужно оставить в ней только символы "a-z" и "0-9", т.е. получить "ABC9645s" RegExp=Новый COMОбъект("VBScript.RegExp");...
ВЫБРАТЬ ПродажиОбороты.Номенклатура, ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот / ПродажиОбороты.КоличествоОборот КАК ЧИСЛО(15, 2)) КАК СредняяЦенаПродажи ИЗ РегистрНакопления.Продажи.Обороты(&ДатаНач, &ДатаКон) КАК ПродажиОбороты
Форма = Справочники.Номенклатура.ПолучитьФормуСписка(); //Можно открыть так Форма.Открыть(); //Открывает форму и делает ее окно активным. // или так...
Выбрать(, ) (необязательный) — Структура. Задает реквизит вида расчета и значение этого реквизита, по которому будет создана...
Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | БУОсновныеНачисления.Организация КАК Организация, | БУОсновныеНачисления.ВидРасчета, | БУОсновныеНачисления.ФизЛицо КАК ФизЛицо, | БУОсновныеНачисления.ПериодРегистрации, |...
// Просуммируем записи удержаний неявок по физлицу НаборЗаписей = РегистрыРасчета.УдержанияРаботниковОрганизаций.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Регистратор.Значение = ВыбДокНачисл; НаборЗаписей.Отбор.физлицо.Установить(Физлицо); НаборЗаписей.Прочитать(); Для Каждого...
WScript = Новый COMОбъект("WScript.Shell"); SpecialFolders = WScript.SpecialFolders; КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup"); ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk"); Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);...
Фильтр = Новый Структура; Фильтр.Вставить("ФизЛицо",ТекущаяСтрока.Физлицо); СумОст=РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(ПериодРегистрации,Фильтр);
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path;...
Запрос = Новый Запрос(" |ВЫБРАТЬ | ПродажиОбороты.Номенклатура, | ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот/ПродажиОбороты.КоличествоОборот КАК ЧИСЛО(15, 2)) КАК СредняяЦенаПродажи |ИЗ | РегистрНакопления.Продажи.Обороты(&ДатаНач,...
КодГруппы = "123100"; ПоискПоПолномуКоду = Ложь; // значение по умолчанию Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду); Если Группа.Пустая() Тогда...
// Получим суммы начисленные по ФизЛицу документом НачислениеЗарплатыРаботникамОрганизаций // (отбор по Документ.НачислениеЗарплатыРаботникамОрганизаций) Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ |...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...