Имя: Пароль:
1C
1С v8
БП КОРП после обновления 3.0.167 задвоилось субконто "Регистрация в налоговом органе"
0 zinzillya
 
21.01.25
17:26
БП КОРП

В Функциональности галочка Обособленные подразделения не стоит.

До обновления (3.0.165... релиз) на сч. 68.01, 68.01.1, 68.01.2 по требованию клиента стояли галочки аналитики Подразделения поставленные в конфигураторе (Это ещё до перехода в 24г. на КОРП). И одна аналитика (2-е субконто) "Регистрация в налоговом органе".

После обновления (3.0.168.19 релиз) на сч. 68.01, в конфигураторе как обычно восстановил галочку "Подразделения". После применения обновления к базе, отработки обновления в режиме Предприятия на счете оказалось 2 одинаковых субконто 2 и 3 "Регистрация в налоговом органе" причём предыдущие остатки и обороты оказались на субконто3, при перепроведении клиентом документов 4 кв. начало заполняться 2 субконто - данные "разъехались".

Надо перебросить с 3-го субконто на второе данные наверное попробовать...
И причём 3-е субконто даёт удалить из Предприятия - 2-е появившееся пустое - нет - введено в Конфигураторе. Хрень какая-то. Умудрилось "сдвинуть" идентичное заполненное субконто в 3-ю позицию.
1 zinzillya
 
21.01.25
17:27
полечили так. потом удалить третье субконто.

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ТИПЗНАЧЕНИЯ(ХозрасчетныйОбороты.Регистратор) КАК ТипДок,
        |    ХозрасчетныйОбороты.Регистратор КАК Докум,
        |    СУММА(1) КАК Поле1,
        |    ХозрасчетныйОбороты.Период КАК Период
        |ИЗ
        |    РегистрБухгалтерии.Хозрасчетный.Обороты(&НачДата,&КонДата , Регистратор, Счет.Код = ""68.01"", , , , ) КАК ХозрасчетныйОбороты
        |
        |СГРУППИРОВАТЬ ПО
        |    ХозрасчетныйОбороты.Регистратор,
        |    ХозрасчетныйОбороты.Период,
        |    ТИПЗНАЧЕНИЯ(ХозрасчетныйОбороты.Регистратор)
        |
        |УПОРЯДОЧИТЬ ПО
        |    Период";
    Запрос.УстановитьПараметр("НачДата",Объект.рПериод.ДатаНачала);
    Запрос.УстановитьПараметр("КонДата",Объект.рПериод.ДатаОкончания);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    сообщить(ВыборкаДетальныеЗаписи.Количество());    
    сч6801 = ПланыСчетов.Хозрасчетный.НДФЛ;
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Сообщить(СокрЛП(ВыборкаДетальныеЗаписи.Докум));
        Проводки = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        Проводки.Отбор.Регистратор.Установить(ВыборкаДетальныеЗаписи.Докум);
        Проводки.Прочитать();

        тз = Проводки.Выгрузить();
        Для каждого стрТЗ из тз Цикл
            Если стрТЗ.СчетДт = сч6801 Тогда
                Если не ЗначениеЗаполнено(стрТЗ.СубконтоДт2) Тогда
                    стрТЗ.СубконтоДт2 = стрТЗ.СубконтоДт3;
                КонецЕсли;
            КонецЕсли;
            Если стрТЗ.СчетКт = сч6801 Тогда
                Если не ЗначениеЗаполнено(стрТЗ.СубконтоКт2) Тогда
                    стрТЗ.СубконтоКт2 = стрТЗ.СубконтоКт3;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        
        Проводки.Загрузить(тз);
        Проводки.Записать(Истина);
    КонецЦикла;
2 zinzillya
 
21.01.25
19:06
1С его вообще снёс патчем. цирк с конями.
3 Гена
 
21.01.25
19:20
(2) Готовит место для субконто КБК. Таковых уже с десяток для 13%, 15%, 18%... для КБК дивидендов... для КБК РК и СН...
4 Chai Nic
 
21.01.25
19:33
В БП Корп с 68 счетом напортачили в .166 релизе.. там кривая процедура обработки обновления, делает не всё что надо. У меня в одной организации вообще перестали перепроводится старые документы "Сведения об удержанном НДФЛ", начало ругаться на дублирование индекса в итогах по субконто, даже отменить проведение не давало. Решил проблему отключением итогов по регистру бухгалтерии, перепроведением с отключенными итогами, потом ещё раз перепровел со включенными.
5 Eiffil123
 
22.01.25
10:05
(4) интересно, как они в облаке такие коллизии разруливают
6 zinzillya
 
22.01.25
14:21
вот ещё ветка
(id=2217806)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший