Программная проверка счета на групповой

Как известно делать проводки по счетам-группам нельзя. Однако жизнь течет и после введения бухгалтером очередного нового счета какой либо старый, который ранее не являлся счетом-группы, теперь становится групповым. И соответственно все проводки на этот счет становятся ошибочными. Для предупреждения подобной ситуации целесообразно перед записью данных по счетам имеет смысл всегда проверять счета на предмет группы. Один из возможных вариантов такой проверки привожу ниже:

Код 1C v 8.3

 



Процедура ПриЗаписи(Отказ, РежимЗаписи)

      

    Запрос = Новый Запрос;

    Запрос.Текст = 

        "ВЫБРАТЬ

        |	Хозрасчетный.Код КАК Код,

        |   Хозрасчетный.Родитель.Код КАК РодительКод

        |ИЗ

        |ПланСчетов.Хозрасчетный КАК Хозрасчетный

        |ГДЕ

	    |Хозрасчетный.Родитель В (&СчетДт,СчетКт)";

    

    СчетДт = ЭтотОбъект[0].СчетДт;

    СчетКт = ЭтотОбъект[0].СчетКт;

    

    Запрос.УстановитьПараметр("СчетДт", СчетДт);

    Запрос.УстановитьПараметр("СчетКт", СчетКт);

    

    РезультатЗапроса = Запрос.Выполнить();

    

    Если НЕ РезультатЗапроса.Пустой() Тогда

        

        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

        

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

            Если СтрНайти(ВыборкаДетальныеЗаписи.Код, ".") Тогда

                Отказ = Истина; 

                Сообщить("Некорретный номер счета - " + ВыборкаДетальныеЗаписи.РодительКод);   	

            КонецЕсли;		

        КонецЦикла;

    КонецЕсли;

КонецПроцедуры