Какие видов скидок предусмотрены в прикладном решении Управление Торговлей? Конфигурация позволяет работать со следующими видами скидок: скидки...
8.x
СледующийДень = ТекущаяДата() + 60 * 60 * 24; ДобавитьМесяц(Дата(2005, 1, 31), 1); ДобавитьМесяц(Дата(2005, 2, 28), -1);...
ТекущееВремя = Формат(ТекущаяДата(), "ДЛФ=В"); Сообщить(ТекущееВремя); ТекущаяДата = Формат(ТекущаяДата(), "ДЛФ=Д"); Сообщить(ТекущаяДата);
// Выбрать(, , , ) Номенклатура = Справочники.Номенклатура; Отбор = Новый Структура("ТипНоменклатуры"); Пусто = Перечисления.ТипыНоменклатуры.ПустаяСсылка(); Отбор.ТипНоменклатуры =...
Проблема: Не найден интерфейс сервера (80070005) Решение: 1. На клиенте включить DCOM утилитой dcomcnfg и добавить нужные...
НовыйМассив = Новый Массив; Соответствие = Новый Соответствие; Для каждого ЭлементМассива Из Массив Цикл Соответствие.Вставить(ЭлементМассива); КонецЦикла; Для...
Функция РазницаДатВМесяцах(Дата1, Дата2) Экспорт ДатаНач = ?(Дата1 < Дата2, Дата1, Дата2); ДатаКон = ?(Дата1 < Дата2, Дата2,...
Пример поиска НАЙТИ: //Искать по всей таблице значений НайденнаяСтрока = ТаблицаЗначений.Найти(ИскомоеЗначение); //Искать в колонках Поставщик, Покупатель НайденнаяСтрока...
Процедура ЗапуститьПриложениеShell(Команда) Попытка Shell = Новый COMОбъект("Shell.Application"); Shell.ShellExecute(Команда, "", "", "open", 1); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; КонецПроцедуры //Пример...
Запись файла в каталог, проверка существования каталога, имя — Уникальный идентификатор пользователя
Запись файла в каталог, проверка существования каталога, имя — Уникальный идентификатор пользователя
ЮзерИД=ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор; КаталогЗаметок = "С:\note\"; КаталогНаДиске = Новый Файл(КаталогЗаметок); Если Не КаталогНаДиске.Существует() Тогда СоздатьКаталог(КаталогЗаметок); КонецЕсли; ТекстЗаметки.Записать(КаталогЗаметок+строка(ЮзерИД)+".txt");
// Модифицированность() - Определяет, был ли изменен объект после считывания из базы данных. // НО Метод не...
Функция СтрЧислоБезРазделителей(Чсл) Экспорт Результат=Формат(Чсл,"ЧГ=0"); Возврат Результат; КонецФункции Дополнительно: Важно понимать, что здесь используется не символ пробела, а...
ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("0036"); Для Каждого ТекущаяСтрока Из ЭлементСправочника.Товары Цикл Сообщить(ТекущаяСтрока.ВидДеятельности); КонецЦикла;
// Получим суммы начисленные по ФизЛицу документом НачислениеЗарплатыРаботникамОрганизаций // (отбор по Документ.НачислениеЗарплатыРаботникамОрганизаций) Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ |...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...
// ФайлDoc1 - Реквизит ХранилищеЗначения, в нем хранится сам файл // ФайлDoc1Название - Название файла находящегося в...
//Пример: СТР = "Тест [наш]ей функции" //НовСтр=ПолучитьПеременнуюИзСтроки(СТР) //В итоге НовСтр="наш"; Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт Переменная = ""; ПервыйСимвол...
Вопрос: В бухгалтерии 8.1 программа не списывает материалы в документе требование накладная. В служебном сообщении написано "УСН...
Перем ОбъектыКонфы; Перем СтруктКонфы; Процедура ВыгрузитьВWord() Попытка Word = Новый COMОбъект("Word.Application"); Исключение Сообщить("Не удалось открыть Word"); Возврат;...