B
bremlin
Доброго времени суток. Опишу ситуацию в целом.
1С 7.7 бухгалтерия. С дописанной конфигурацией под ЖКХ. В общем есть задача делать импорт данных об оплате за квартиру из файлика xls в бухгалтерскую справку, по 150-200 записей в день в одну справку.
Импорт делается по номеру лицевого счёта. Вроде
99007110253 Сумма
9900712021 Сумма
Где в общем 11 и 12 - номер дома в справочнике, ну а 253 и 21 - номера квартир.
Поиск нужной квартиры делаю через:
И все хорошо и здорово. Но проблема появилась в том, что раньше некоторые квартиры были на счёте 76.5, потом их перевели на 76.РК, но переводили не в справочнике, а просто при создании квитанции на оплату, идёт проверку, если квартира старая, то счёт выставляется на счёт 76.РК, если позже указанный даты, то уже смотрится значение из справочника.
И сейчас, когда идёт импорт и вытаскиваются данные из справочника, то он берёт данные по тому счёту которые там, т.е. 76.5, а надо 76.РК.
При замене:
Данные по СубконтаЖКХ_1 сбрасываются, а там собственно сам котрагент.
И вот если КоррСчетЖКХ я могу установить просто = "76.РК", то я что-то не понимаю пока как можно присвоить СпрЖКХ.ТекущийЭлемент().СубконтоЖКХ_1 новое значение выбранное из справочника ЖКХ(там нужно зайти в нужный дом и выбрать нужную квартиру).
Подскажите пожалуйста, как можно заменить этот атрибут у элемента в справочнике на нужный мне?
1С 7.7 бухгалтерия. С дописанной конфигурацией под ЖКХ. В общем есть задача делать импорт данных об оплате за квартиру из файлика xls в бухгалтерскую справку, по 150-200 записей в день в одну справку.
Импорт делается по номеру лицевого счёта. Вроде
99007110253 Сумма
9900712021 Сумма
Где в общем 11 и 12 - номер дома в справочнике, ну а 253 и 21 - номера квартир.
Поиск нужной квартиры делаю через:
Код:
СовсемПолныйКод = Число((Excel.Cells(ТекСтрока, 1).Value));
Если Лев(СокрЛП(СовсемПолныйКод), 5) = "99007" Тогда
ПолныйКод = "" + Число(Сред(СокрЛП(СовсемПолныйКод), 6, 2)) + "/" + Число(Сред(СокрЛП(СовсемПолныйКод), 8, 4));
Иначе
ПолныйКод = СокрЛП(СтрЗаменить(СовсемПолныйКод, "-", "/"));
КонецЕсли;
Код:
СпрЖКХ = СоздатьОбъект("Справочник.ЖКХ");
Если СпрЖКХ.Выбран() = 0 Тогда
Если СпрЖКХ.НайтиПоКоду(ПолныйКод, 2 - "поиск по полному коду через разделитель") = 1 Тогда
РПС_ЛицевойСчет1 = СпрЖКХ.ТекущийЭлемент().СубконтоЖКХ_1;
РПС_ЛицевойСчет2 = СпрЖКХ.ТекущийЭлемент().СубконтоЖКХ_2;
РПС_ЛицевойСчет3 = СпрЖКХ.ТекущийЭлемент().СубконтоЖКХ_3;
РПС_ЛицевойСчет = СпрЖКХ.ТекущийЭлемент().КоррСчетЖКХ;
И сейчас, когда идёт импорт и вытаскиваются данные из справочника, то он берёт данные по тому счёту которые там, т.е. 76.5, а надо 76.РК.
При замене:
Код:
Если СчетПоКоду(РПС_ЛицевойСчет) = "76.5" Тогда
СпрЖКХ.ТекущийЭлемент().КоррСчетЖКХ; = "76.РК";
И вот если КоррСчетЖКХ я могу установить просто = "76.РК", то я что-то не понимаю пока как можно присвоить СпрЖКХ.ТекущийЭлемент().СубконтоЖКХ_1 новое значение выбранное из справочника ЖКХ(там нужно зайти в нужный дом и выбрать нужную квартиру).
Подскажите пожалуйста, как можно заменить этот атрибут у элемента в справочнике на нужный мне?