Имя: Пароль:
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 проводок, наверно не надо во все строчки этот счет херачить.
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn