Документ списание ОС
1-я проводка по счету 101 формируется
1--я долджна по забалансовому А21 вот код:
   
Сч=СоздатьОбъект("Счет.ЕПСБУ");
   
         КодСЧ = "А21"+Сред(СчетОС.Код,4);
                // КодСЧ = "А21.38.1";
                   Если Сч.НайтиПоКоду(КодСЧ)=1 Тогда  
                       Операция.НоваяПроводка();  
                       Операция.Дебет.Счет = СчетПоКоду(КодСЧ);
                       Операция.Дебет.Субконто(ВидыСубконто.ОсновныеСредства,ОС);
                       Операция.Дебет.Субконто(ВидыСубконто.МестаХранения,МестоХранения);
                       Операция.Сумма = Сумма;
                       Операция.Количество = Количество;
                       Операция.СодержаниеПроводки ="Списано с учета: "+ СОКРЛП(ОС.Код)+ " "+ СОКРЛП(ОС.Наименование);
                       Операция.НомерЖурнала=глНомерЖурнала(СчетПоКоду(КодСЧ),СчетПоКоду(КодСЧ));
                       Операция.Учреждение = ВыбраннаяФирма;  
                   Иначе
                       Сообщить("В плане счетов отсутствует забалансовый счет для учета  при приеме ОС","!!");
                       СтатусВозврата(0);
                       Возврат;        
                   КонецЕсли;    




   Операция.Записать()

Ошибка такая почему?

Операция.Записать();
{Документ.ОС_Списание.Модуль Документа(565)}: Выбранный счет является группой!(проводка 16, счет А21)

"Выбранный счет является группой!"

Наверное, поэтому?

))))) Это я понял а как же когда делаю:    КодСЧ = "А21"+Сред(СчетОС.Код,4);

Хорошо тогда как надо?

Кто ж тебя знает, что у тебя там за план счетов?
У меня в базе счетов А21* нету...

КодСЧ = "А21."+Сред(СчетОС.Код,4);

а отладчиков воспользоваться религия не позволяет?

отладчиком

)) А21. не прокатывает

(4) А21 это группа а вот А21.38 это уже счет подскажи плиз как исправить?

КодСЧ = "А21."+Сред(СчетОС.Код,4);
сообщить(КодСч);

Что говорит?

(10) А21

(10) и что как исправить?

(9)А21.38  - это группа. А21.38.1 - это счет

ну а:
КодСЧ = "А21."+Сред(СчетОС.Код,4);
сообщить(Сред(СчетОС.Код,4));

Что говорит?

(13) Все так

(14) так КодСЧ = "А21."+Сред(СчетОС.Код,4);
сообщить(Сред(СчетОС.Код,4));

Ничего не говорит

(16) Вывод?

А если сообщить(СчетОС.Код); ?

(17) Скажии я не знаю?

(18) Ничего

(19) Вывод: СчетОС.Код = ПустоеЗначение.

Ой... А что тогда мы хотим выдернуть из ничего?

На заметку - подстрока из ничего - пустая строка...

Спасибо если можно то скажи как поправить/?

Добавь проверку
Если СокрЛП(СчетОС.Код)= "" Тогда
КодСч = "А21.38.1";
КонецЕсли;

СчетОС.Выбран()?