Программно созданный документ не хочет проводится. При этом ошибка возникает не в моем кода, а в общем модуле.


[code]по причине:
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{ОбщийМодуль.УчетНДС.Модуль(79)}: Преобразование значения к типу Булево не может быть выполнено
           новыйДокумент.Записать(РежимЗаписиДокумента.Проведение);[/code]

Код создания документа

[code]Если элемент.ИмяУзла = "РасходнаяНакладная" Тогда
           документРасходнаяНакладная = Документы.РеализацияТоваровУслуг;
           новыйДокумент = документРасходнаяНакладная.СоздатьДокумент();
           новыйДокумент.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
           новыйДокумент.Комментарий = элемент.ПолучитьАтрибут("НомерДокумента");
           новыйДокумент.Дата = Дата(элемент.ПолучитьАтрибут("Дата"));
           названиеСклада = элемент.ПервыйДочерний.ПолучитьАтрибут("Наименование");
           Если Справочники.Склады.НайтиПоНаименованию(названиеСклада).Пустая() Тогда
               склад = Справочники.Склады.СоздатьЭлемент();
               видСклада = элемент.ПолучитьЭлементыПоИмени("Клиент").Элемент(0).ПолучитьАтрибут("ВидСклада");
               Если видСклада = "Опт" Тогда
                   склад.ВидСклада = Перечисления.ВидыСкладов.Оптовый
                   Иначе Если видСклада = "Розница" Тогда
                       склад.ВидСклада = Перечисления.ВидыСкладов.Розничный
                   Иначе
                       склад.ВидСклада = Перечисления.ВидыСкладов.Оптовый;
                   КонецЕсли;
               КонецЕсли;
               склад.Наименование = названиеСклада;
               склад.Записать();
           КонецЕсли;                  
           новыйДокумент.ВалютаДокумента = рубли;
           новыйДокумент.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
           новыйДокумент.Организация = Организация;
           новыйДокумент.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.НеЗачитывать;
           новыйДокумент.Склад = Справочники.Склады.НайтиПоНаименованию(названиеСклада);
           новыйДокумент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(элемент.ПолучитьЭлементыПоИмени("Клиент").Элемент(0).ПолучитьАтрибут("Наименование"));    
           табличнаяЧастьУзел = элемент.ПоследнийДочерний;
           договоры = Справочники.ДоговорыКонтрагентов.Выбрать(, Справочники.Контрагенты.НайтиПоНаименованию(элемент.ПолучитьЭлементыПоИмени("Клиент").Элемент(0).ПолучитьАтрибут("Наименование")));
           названиеДоговора = элемент.ПолучитьАтрибут("НазваниеДоговора");
           табличнаяЧастьДокумента = новыйДокумент.Товары;
           Пока договоры.Следующий() Цикл
               Если договоры.Наименование = названиеДоговора Тогда
                   новыйДокумент.ДоговорКонтрагента = договоры.Ссылка;
                   break;  
               КонецЕсли;
           КонецЦикла;
           
           количество = 0;
           сумма = 0;                
           
           Для к = 0 По табличнаяЧастьУзел.ДочерниеУзлы.Количество() - 1 Цикл
               количество = количество + Число(табличнаяЧастьУзел.ДочерниеУзлы.Элемент(к).ПолучитьАтрибут("Количество"));
               сумма = сумма + Число(табличнаяЧастьУзел.ДочерниеУзлы.Элемент(к).ПолучитьАтрибут("Сумма"));
           КонецЦикла;
           
           Если количество <> 0 Тогда
               строкаТабличнойЧасти = табличнаяЧастьДокумента.Добавить();
               строкаТабличнойЧасти.Количество = количество;
               строкаТабличнойЧасти.Цена = сумма / количество;
               строкаТабличнойЧасти.Сумма = сумма;
               строкаТабличнойЧасти.Номенклатура = товар;
               строкаТабличнойЧасти.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
               строкаТабличнойЧасти.СчетДоходов = ПланыСчетов.Хозрасчетный.ПрочиеДоходы;
               строкаТабличнойЧасти.СчетРасходов = ПланыСчетов.Хозрасчетный.ПрочиеРасходы;
           КонецЕсли;
           новыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
           Сообщить("Создан документ ""Реализация товаров и услуг""...");
           счетФактураВыданный = Документы.СчетФактураВыданный.СоздатьДокумент();
           счетФактураВыданный.Дата = новыйДокумент.Дата;
           счетФактураВыданный.Организация = новыйДокумент.Организация;
           счетФактураВыданный.Контрагент = новыйДокумент.Контрагент;
           счетФактураВыданный.ДоговорКонтрагента = новыйДокумент.ДоговорКонтрагента;
           счетФактураВыданный.ВалютаДокумента = рубли;
           счетФактураВыданный.ВидСчетаФактуры = Перечисления.НДСВидСчетаФактуры.НаРеализацию;
           документОснованиеСчетаФактуры = счетФактураВыданный.ДокументыОснования.Добавить();
           документОснованиеСчетаФактуры.ДокументОснование =
           документы.РеализацияТоваровУслуг.НайтиПоНомеру(новыйДокумент.Номер, новыйДокумент.Дата);
           счетФактураВыданный.Записать(РежимЗаписиДокумента.Проведение);
           Сообщить("Создан документ ""Счет-фактура выданный""...");
           Продолжить;
       КонецЕсли;[/code]

Я долго писал обработку, поэтому у меня соответственно создалось много справочников и документом, и в моей конфигурации (Бухгалтерия) документы все проводятся удачно. Когда пытаюсь запустить на другом компьютере выходит ошибка.

Ошибка возникает в этом куске кода:
[code]
Если ЭтоУслуга Тогда
   ВидЦенности = Перечисления.ВидыЦенностей.ПрочиеРаботыИУслуги;    
Иначе
   ВидЦенности = Перечисления.ВидыЦенностей.Товары;    
КонецЕсли;
[/code]

В принципе, почему исключение возникает это понятно, переменная ЭтоУслуга равно Null, но что конкретно эта переменная обозначает и где в моем кода что не присвоилось мне не понятно.

(0) а ни чё, что в твоем коде нет НДС, но есть счёт-фактура ?

Если количество <> 0 Тогда
   строкаТабличнойЧасти = табличнаяЧастьДокумента.Добавить();
   строкаТабличнойЧасти.Количество = количество;
   строкаТабличнойЧасти.Цена = сумма / количество;
   строкаТабличнойЧасти.Сумма = сумма;
   строкаТабличнойЧасти.Номенклатура = товар;
   строкаТабличнойЧасти.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
   строкаТабличнойЧасти.СчетДоходов = ПланыСчетов.Хозрасчетный.ПрочиеДоходы;
   строкаТабличнойЧасти.СчетРасходов = ПланыСчетов.Хозрасчетный.ПрочиеРасходы;
   строкаТабличнойЧасти.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
   строкаТабличнойЧасти.СуммаНДС = 0;
КонецЕсли;


Исправил, толку ноль.

(2) найми отладчик

Я минут 10 трассировал общие модули, а до этой строки не добрался.

Ап...

"не в моем кода"
индус?

vicof, еврей.

ЭтоУслуга - признак номенклатуры.
Что у тебя в переменной "товар"?

На другом компьютере тоже бухгалтерия? Потому что у меня перед теми строками, что ты указал, в бухгалтерии есть проверка на Null

Осуществляется перенос данных из самописной конфигурации в бухгалтерию. Так как решили что бухгалтерам не важно знать какие товары продавались, решили завести в номенклатуре элемент с наименованием "Товар".

товар = Справочники.Номенклатура.НайтиПоНаименованию("Товар");

На другом тоже бухгалтерия.

Скорее всего у тебя ЭтоУслуга не булево, а строка или еще что-нить такое же неудобоваримое для Если.

Пробуй
Если ЭтоУслуга= Истина Тогда

Ругаться не будет, но в условие скорее всего никогда не войдет

Оказывается товар, находился как группа справочника, а не как элемент, поставил чувствительность при поиске.  Любопытная, спасибо.

Рэйв эта ошибка возникает в общем модуле, не в моем. А общий модуль править не хочется.

(14) Всегда лучше позиционироваться по коду в таких случаях

тогда смотри  что в общем модуле сидит в ЭтоУслуга.Может что-то не то передается

+(16) А нее, это ж обмен.

При создании элемента номенклатуры или поиске проверь, что это услуга или товар. Если услуга, то эта номенклатура не должна попадать в табличную часть товары. Проверь переменную "Товар" в момент заполнения.

Проблема решена. Просто в строке
Справочники.Номенклатура.НайтиПоНаименованию("Товар")
Находилась группа справочника "Товары". Сейчас передал второй параметр, теперь ищет точное соответствие.
Справочники.Номенклатура.НайтиПоНаименованию("Товар", Истина)
Всем спасибо.

И как тут код выделять?

(21) Да да... я не глянул, что может использоваться для разных БД