Имя: Пароль:
1C
 
Изменение счета в бухглатерских опреациях
0 pupurum
 
27.03.15
06:17
Здравствуйте! Понадобилось массово изменить счет в бухгалтерских операциях. Простым групповым изменением реквизитов не получается, так как видимо записи операции лежат непосредственно в хозрасчетном.

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

Написал простенький и вроде логичный код, но при попытке выполнения получаю ошибку "Запись не верна! Вид субконто "Статьи затрат" не доступен для данной записи". Подскажите, что в Хозрасчетном я не так понял?
1 hhhh
 
27.03.15
06:37
ну, проверьте счет ЗаменитьНаСчетДт. Те ли у него субконто.
2 pupurum
 
27.03.15
06:44
ЗаменитьНаСчетДт - поле на форме типа ПланСчетовСсылка.Хозрасчетный
3 pupurum
 
27.03.15
07:05
Посмотрел субконто счетов, я пока для примера меняю 76.05 на 76.06, субконто одинаковые, а ошибка есть...
4 hhhh
 
27.03.15
18:32
Для Каждого Запись из Набор Цикл

там наверняка штук 10 проводок, наверно не надо во все строчки этот счет херачить.