Выбрать(, ) (необязательный) — Структура. Задает реквизит вида расчета и значение этого реквизита, по которому будет создана...
8.x
// Сравнивает два массива однотипных значений (кроме коллекций значений) // // Параметры: // ПервыйМассив,ВторойМассив - сравниваемые массивы...
Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | БУОсновныеНачисления.Организация КАК Организация, | БУОсновныеНачисления.ВидРасчета, | БУОсновныеНачисления.ФизЛицо КАК ФизЛицо, | БУОсновныеНачисления.ПериодРегистрации, |...
// Просуммируем записи удержаний неявок по физлицу НаборЗаписей = РегистрыРасчета.УдержанияРаботниковОрганизаций.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Регистратор.Значение = ВыбДокНачисл; НаборЗаписей.Отбор.физлицо.Установить(Физлицо); НаборЗаписей.Прочитать(); Для Каждого...
WScript = Новый COMОбъект("WScript.Shell"); SpecialFolders = WScript.SpecialFolders; КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup"); ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk"); Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);...
Фильтр = Новый Структура; Фильтр.Вставить("ФизЛицо",ТекущаяСтрока.Физлицо); СумОст=РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(ПериодРегистрации,Фильтр);
При помощи приведенных ниже функций можно вывести дату прописью, например: 03.08.2009 — третье августа две тысячи девятого...
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path;...
Запрос = Новый Запрос(" |ВЫБРАТЬ | ПродажиОбороты.Номенклатура, | ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот/ПродажиОбороты.КоличествоОборот КАК ЧИСЛО(15, 2)) КАК СредняяЦенаПродажи |ИЗ | РегистрНакопления.Продажи.Обороты(&ДатаНач,...
КодГруппы = "123100"; ПоискПоПолномуКоду = Ложь; // значение по умолчанию Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду); Если Группа.Пустая() Тогда...
// Получим суммы начисленные по ФизЛицу документом НачислениеЗарплатыРаботникамОрганизаций // (отбор по Документ.НачислениеЗарплатыРаботникамОрганизаций) Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ |...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...
// ФайлDoc1 - Реквизит ХранилищеЗначения, в нем хранится сам файл // ФайлDoc1Название - Название файла находящегося в...
//Пример: СТР = "Тест [наш]ей функции" //НовСтр=ПолучитьПеременнуюИзСтроки(СТР) //В итоге НовСтр="наш"; Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт Переменная = ""; ПервыйСимвол...
Вопрос: В бухгалтерии 8.1 программа не списывает материалы в документе требование накладная. В служебном сообщении написано "УСН...
Перем ОбъектыКонфы; Перем СтруктКонфы; Процедура ВыгрузитьВWord() Попытка Word = Новый COMОбъект("Word.Application"); Исключение Сообщить("Не удалось открыть Word"); Возврат;...
V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок);...
При указании конечной даты, указывайте на просто Дату, а Границу! Например, если нужно получить на конец дня,...
Для этого можно расположить в форме табличное поле (например, с именем Пользователи) и воспользоваться методом глобального контекста...
//Функция преобразует строку вида 04/30/09 в дату Функция РазобратьДату(ИзмДата); Возврат Дата("20"+Сред(ИзмДата,7,2)+Сред(ИзмДата,0,2)+Сред(ИзмДата,4,2)); КонецФункции //НовДата = РазобратьДату("04/30/09"); //НовДата будет...