Канал для поиска кода, обработок, расширений 1С, упрощающих работу. Оценивайте реакциями.
Отправляйте полезное для публикации в канале через бот: @usefultools1c_bot

Поиск строк в Таблице значений по нескольким значениям в 1С 8.3

Процедура Поиск_строк_в_ТЗ_по_нескольким_значениям(ТЗ, ЗначениеПоиска1, ЗначениеПоиска2, ВидПоиска) Экспорт //ЗначениеПоиска3...,

// Параметры:
// ТЗ - таблица значений по полям которой ищем
// Пример ТЗ:
// Стр["Цвет"] = "Красный";
// Стр["Вес"] = 120;
//
// ЗначениеПоискаN - переданные значения для поиска по колонкам (согласно ОписаниеТипов)
// Пример значений:
// ЗначениеПоиска1="Красный"
// ЗначениеПоиска2=120
//
// ВидПоиска - метод поиска: 1-запросом, 2-с помощью структуры

Если ВидПоиска=1 Тогда //запросом

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Врем_ТЗ.Цвет КАК Цвет,
| Врем_ТЗ.Вес КАК Вес
|ПОМЕСТИТЬ Врем_ТЗ
|ИЗ
| &ТЗ КАК Врем_ТЗ
|;
|
|///////////////////////////////////////////
|ВЫБРАТЬ
| Врем_ТЗ.Цвет КАК Цвет,
| Врем_ТЗ.Вес КАК Вес
|ИЗ
| Врем_ТЗ КАК Врем_ТЗ
|ГДЕ
| Врем_ТЗ.Цвет = &Цвет
| И Врем_ТЗ.Вес = &Вес";

Запрос.УстановитьПараметр("ТЗ", ТЗ);
Запрос.УстановитьПараметр("Цвет", ЗначениеПоиска1);
Запрос.УстановитьПараметр("Вес", ЗначениеПоиска2);

РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать();
Пока Записи.Следующий() Цикл
// Обход результата запроса по каждой записи в полученной выборке
КонецЦикла;

ИначеЕсли ВидПоиска=2 Тогда //с помощью структуры

ЗначенияПоиска = Новый Структура;
ЗначенияПоиска.Вставить("Цвет", ЗначениеПоиска1);
ЗначенияПоиска.Вставить("Вес", ЗначениеПоиска2);
НайденныеПоля = ТЗ.НайтиСтроки(ЗначенияПоиска);

КонецЕсли;

КонецПроцедуры


✍️ @odin1C_rus

Привет программисты 1С. Один парень несколько раз спросил, как выполнить GET запрос к локальному ресурсу подобного вида

https://localhost:8000/send_message/?phone_number=1234567890&text=Hello

и так как он остался без ответа, то решил написать в виде поста, может и другим пригодится.

HTTPСоединение = Новый HTTPСоединение("localhost", 8000);

Параметры = Новый Массив;
Параметры.Добавить(СтрШаблон("%1=%2", "phone_number", "1234567890"));
Параметры.Добавить(СтрШаблон("%1=%2", "text", "Hello"));

ПараметрыСтрока = СтрСоединить(Параметры, "&");

Если Параметры.Количество() > 0 Тогда
АдресРесурса = СтрШаблон("send_message/?%1", ПараметрыСтрока);
Иначе
АдресРесурса = "send_message/";
КонецЕсли;

HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса);

Результат = HTTPСоединение.ВызватьHTTPМетод("GET", HTTPЗапрос);

@nizamov_studio_1c

#1с #1c #программист1с #курсы1с

https://webmaster.yandex.ru/tools/xml-validator/

Когда работаете с конвертацией данных 3 может пригодится

https://www.telerik.com/fiddler

Как-то вытащил с помощью фидлера передаваемый логин/пароль старой программой (язык delphi) на сервер поставщика

https://t.iss.one/web_mobile_1C - много инструментов здесь

Отправляйте полезное для публикации в канале через бот: @usefultools1c_bot

Сегодня опубликовал своё творение на GitHub 🙃
https://github.com/nonameformr/Commander1C

Двухпанельный файловый менеджер для 1С

Возможности:
- просмотр каталога файлов (windows, linux)
- подключение к FTP
- отображение размера и времени изменения файла
- копирование, удаление файлов, создание каталога
- просмотре текстовых файлов
- просмотр сводной информации об оборудовании и ПО
- отображение строки подключения к базе
- имеется английский язык )

1С . Инструменты разработчика.

В этом видео рассматривается несколько инструментов для разработки на 1С: автоматическая генерация кода когда надо создать форму программно, генерация функции для программной работы с СКД, визуальный конструктор регулярных выражений.

🔗Ссылка на сервис

🔗Dzen 🔗ВК 🔗YouTube 🔗RuTube 💳 Поддержать канал (QR)

Скачиваем, устанавливаем, в конфигураторе нажимаем в тексте модуля ctrl+i, радуемся