| 1 |
Процедура ПроверитьОстаткиТоваров() // Создание запроса Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ Остатки.Товар КАК Товар, Остатки.Склад КАК Склад, Остатки.КоличествоОстаток КАК Количество ИЗ ОстаткиТоваров.Остатки"; // Установка параметров, если нужно // Запрос.УстановитьПараметр("Товар", Товар); // Выполнение запроса Результат = Запрос.Выполнить(); // Выборка по результату Выборка = Результат.Выбрать(); // Перебор результатов Пока Выборка.Следующий() Цикл Сообщить("Товар: " + Выборка.Товар); Сообщить("Склад: " + Выборка.Склад); Сообщить("Количество: " + Формат(Выборка.Количество, "ЧЦ=15.2")); КонецЦикла; // Пример условий Если День(ТекущаяДата()) = 1 Тогда Сообщить("Начало месяца: выполняется проверка лимитов"); ИначеЕсли День(ТекущаяДата()) = 15 Тогда Сообщить("Середина месяца: напоминание о заказах"); Иначе Сообщить("Обычный день"); КонецЕсли; // Работа с массивами МассивТоваров = Новый Массив; МассивТоваров.Добавить("Товар1"); МассивТоваров.Добавить("Товар2"); МассивТоваров.Добавить("Товар3"); Для Каждого Элемент Из МассивТоваров Цикл Сообщить("Проверяется товар: " + Элемент); КонецЦикла; // Работа со структурами СтруктураПараметров = Новый Структура; СтруктураПараметров.Вставить("ДатаНачала", НачалоМесяца(ТекущаяДата())); СтруктураПараметров.Вставить("ДатаОкончания", КонецМесяца(ТекущаяДата())); СтруктураПараметров.Вставить("Организация", "ООО Ромашка"); Для Каждого Ключ Значение Из СтруктураПараметров Цикл Сообщить(Ключ + ": " + Значение); КонецЦикла; // Пример функции РезультатФункции = ПолучитьКурсВалюты("USD", ТекущаяДата()); Сообщить("Курс USD на " + ТекущаяДата() + ": " + РезультатФункции); КонецПроцедуры Функция ПолучитьКурсВалюты(КодВалюты, ДатаКурса) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 Курсы.Курс ИЗ Справочник.Валюты.Курсы КАК Курсы ГДЕ Курсы.Валюта.Код = &КодВалюты И Курсы.Дата <= &ДатаКурса УПОРЯДОЧИТЬ ПО Курсы.Дата УБЫВ"; Запрос.УстановитьПараметр("КодВалюты", КодВалюты); Запрос.УстановитьПараметр("ДатаКурса", ДатаКурса); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Если Выборка.Следующий() Тогда Возврат Выборка.Курс; Иначе Возврат Неопределено; КонецЕсли; КонецФункции |
Комментарии