Срочно, нужно помочь моему Админке 1С с кодом (и запросом) в 1С 8.2. Оплата сразу!!!
Выполнено
1 300.00
Новосибирск(Россия )
23.12.1985(39 лет)
272 |
2
15 июня 2023 в 07:58:50
(1 год 27 недель 3 дня 1 час назад)
598676
07.07.2016 10:03:53
до 08.07.2016
Текст задания
Имеем: Внешнюю Обработку, могу Выслать только Исполнителю !!! Конфа 1С какая-то по ЖКХ, но это не важно !!!
В ней:
Поиск и дальнейший отбор ЛС происходит именно по адресам они разные, но м/б и одинаковые, т.е. ЛС их номера (коды) разные, а адреса у ЛС от 2-вух и выше м.б. одинаковые, в случае одинаковых адресов и возникают Неточности !!!
Есть Внешняя обработка по выгрузке Инфы в dbf-файл там есть такой код: ниже начиная со слов: ЩАЗ КОД В НАШЕЙ ОБРАБОТКЕ ТАКОЙ.
НАМ Надо: Нужно сделать что-бы работало ещё как-то такое дело: ИначеЕсли МассивЛС.Количество() = 2 Тогда
"ПРОИСХОДИЛО БЫ ОБЪЕДИНЕНИЕ по суммам и т.д. в Один-бы Лицевой Счет (ЛС), сейчас он 1 такой ЛС просто выбрасывает сам по выбору, точнее по полю Комментарий, берет или 1 ЛС или Другой ЛС, а не 2ва их вместе !!!
а уже потом было бы уже это к примеру:
Иначе //А Если-в ЛС уже больше чем 2-ва тогда уже ЭТО допустим выполнялось бы тогда:
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + СокрЛП(МассивЛС[0]) + ", АХТУНГ ТАКИЕ ЛС есть еще, проверьте это!!!";
ЩАЗ КОД В НАШЕЙ ОБРАБОТКЕ ТАКОЙ:
МассивЛС = ВнешОбработка.ПолучитьЛицевойСчетПоАдресу(пГород,пУлица,пДом,пКорпус,пКвартира);//ФУНКЦИЯ НИЖЕ!
СтрЛС = ""; ВыводитьСообщение = Истина;
Если МассивЛС.Количество() = 0 Тогда
СтрЛС = "ЛС ненайден";
ИначеЕсли МассивЛС.Количество() = 1 Тогда
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + ЛицевойСчет;
ВыводитьСообщение = Ложь;
Иначе
ЛицевойСчет = МассивЛС[0];
СтрЛС = "ЛС " + СокрЛП(МассивЛС[0]) + ", АХТУНГ такой ЛС есть еще!!!";
КонецЕсли;
Функция ПолучитьЛицевойСчетПоАдресу(Город, Улица, Дом, Корпус, Квартира) Экспорт
Запрос.Текст =
"ВЫБРАТЬ
| ркЛицевыеСчета.Ссылка КАК ЛицевойСчет,
| ВЫРАЗИТЬ(ркЛицевыеСчета.Комментарий КАК СТРОКА(10)) КАК Порядок
|ИЗ
| Справочник.ркЛицевыеСчета КАК ркЛицевыеСчета
|ГДЕ
| НЕ ркЛицевыеСчета.ЭтоГруппа
| И ркЛицевыеСчета.ПометкаУдаления = ЛОЖЬ
| И ркЛицевыеСчета.Дом.Владелец.Город.Наименование ПОДОБНО &парамГород
| И ркЛицевыеСчета.Дом.Владелец.Наименование ПОДОБНО &парамУлица
| И ркЛицевыеСчета.Дом.Номер = &парамДом
| И ЕСТЬNULL(ркЛицевыеСчета.Дом.Корпус, """") = &парамКорпус
| И ЕСТЬNULL(ркЛицевыеСчета.Помещение.Номер, """") = &парамКвартира
|
|УПОРЯДОЧИТЬ ПО
| Порядок,
| ЛицевойСчет
|АВТОУПОРЯДОЧИВАНИЕ";
Готов сделать, но могу заняться только вечером сегодня (по московскому времени).
Но у меня впечатление, что в постановке задачи есть пробелы: по одному и тому же адресу может быть 2 лицевых счета
(к примеру квартира разделена на 2 хозяина и каждый платит лично) посему объединять и указывать один лиц. счет было бы
очень некорректно.
скайп va_bil
e-mail vladimirbil@mail.ru