новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
erotoman
Приватное сообщение

Срочно, нужно помочь моему Админке 1С с кодом (и запросом) в 1С 8.2. Оплата сразу!!!

Новосибирск(Россия )
23.12.1985(39 лет)
272 |  2
15 июня 2023 в 07:58:50 (1 год 27 недель 3 дня 1 час назад)
598676
Текст задания
Имеем: Внешнюю Обработку, могу Выслать только Исполнителю !!! Конфа 1С какая-то по ЖКХ, но это не важно !!!
В ней:
Поиск и дальнейший отбор ЛС происходит именно по адресам они разные, но м/б и одинаковые, т.е. ЛС их номера (коды) разные, а адреса у ЛС от 2-вух и выше м.б. одинаковые, в случае одинаковых адресов и возникают Неточности !!!

Есть Внешняя обработка по выгрузке Инфы в dbf-файл там есть такой код: ниже начиная со слов: ЩАЗ КОД В НАШЕЙ ОБРАБОТКЕ ТАКОЙ.

НАМ Надо: Нужно сделать что-бы работало ещё как-то такое дело: ИначеЕсли МассивЛС.Количество() = 2 Тогда
"ПРОИСХОДИЛО БЫ ОБЪЕДИНЕНИЕ по суммам и т.д. в Один-бы Лицевой Счет (ЛС), сейчас он 1 такой ЛС просто выбрасывает сам по выбору, точнее по полю Комментарий, берет или 1 ЛС или Другой ЛС, а не 2ва их вместе !!!
а уже потом было бы уже это к примеру:

Иначе //А Если-в ЛС уже больше чем 2-ва тогда уже ЭТО допустим выполнялось бы тогда:
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + СокрЛП(МассивЛС[0]) + ", АХТУНГ ТАКИЕ ЛС есть еще, проверьте это!!!";

ЩАЗ КОД В НАШЕЙ ОБРАБОТКЕ ТАКОЙ:
МассивЛС = ВнешОбработка.ПолучитьЛицевойСчетПоАдресу(пГород,пУлица,пДом,пКорпус,пКвартира);//ФУНКЦИЯ НИЖЕ!
СтрЛС = ""; ВыводитьСообщение = Истина;
Если МассивЛС.Количество() = 0 Тогда
СтрЛС = "ЛС ненайден";
ИначеЕсли МассивЛС.Количество() = 1 Тогда
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + ЛицевойСчет;
ВыводитьСообщение = Ложь;
Иначе
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + СокрЛП(МассивЛС[0]) + ", АХТУНГ такой ЛС есть еще!!!";
КонецЕсли;

Функция ПолучитьЛицевойСчетПоАдресу(Город, Улица, Дом, Корпус, Квартира) Экспорт

Запрос.Текст =
"ВЫБРАТЬ
| ркЛицевыеСчета.Ссылка КАК ЛицевойСчет,
| ВЫРАЗИТЬ(ркЛицевыеСчета.Комментарий КАК СТРОКА(10)) КАК Порядок
|ИЗ
| Справочник.ркЛицевыеСчета КАК ркЛицевыеСчета
|ГДЕ
| НЕ ркЛицевыеСчета.ЭтоГруппа
| И ркЛицевыеСчета.ПометкаУдаления = ЛОЖЬ
| И ркЛицевыеСчета.Дом.Владелец.Город.Наименование ПОДОБНО &парамГород
| И ркЛицевыеСчета.Дом.Владелец.Наименование ПОДОБНО &парамУлица
| И ркЛицевыеСчета.Дом.Номер = &парамДом
| И ЕСТЬNULL(ркЛицевыеСчета.Дом.Корпус, """") = &парамКорпус
| И ЕСТЬNULL(ркЛицевыеСчета.Помещение.Номер, """") = &парамКвартира
|
|УПОРЯДОЧИТЬ ПО
| Порядок,
| ЛицевойСчет
|АВТОУПОРЯДОЧИВАНИЕ";

МассивЛС = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("ЛицевойСчет");

Возврат МассивЛС;

КАК-ТО ТАК ВСЁ, пишите мне ТОЛЬКО В ЛС кто понял смысл и суть всего этого и кто может оперативно нам помочь с данным ТЗ. Жду предложений, спасибо !!!
0
Выбранные исполнители
Отклики