Купили 1С - встал вопрос перекачки данных из собственной системы складского учета
Приходные накладные закачиваю и налоговые формирую.... на 281 счете вижу все проводки... но при перемещении товаров на НТТ ругается....
Делаю вручную - ввожу на основании приходного документа - все работает а автоматом - НИКАК.
Контр.ПризнакСтруктПодр = Истина тогда
докРН = Документы.ПеремещениеТоваров.СоздатьДокумент();
докРН.ВидОперации = Перечисления.ВидыОперацийПеремещениеТоваров["ТоварыПродукция"];
ДокРН.Организация = Орг;
ДокРН.Дата = Дат;
ДокРН.НомерДок = Ном; //Добавлено мною поле НомерДок для поиска уже сделанных перемещений
ДокРН.ОтражатьВНалоговомУчете = Истина;
ДокРН.СкладОтправитель = Склад;
ДокРН.СкладПолучатель = Справочники.Склады.НайтиПоКоду(Контр.КодПоЕДРПОУ); //привязка кода склада к контрагенту по ЕДРПОУ
ДокрН.Комментарий = "РН - " + Дат + " № " + Ном;
ДокРН.СтатьяВаловыхРасходов = Справочники.СтатьиНалоговыхДеклараций.НайтиПоКоду("00037");
НовСтрока = ДокРН.Товары.Добавить();
НовСтрока.Количество = СокрЛП(Excel.Cells(Row,13).Value);
НовСтрока.Коэффициент = 1;
НовСтрока.Цена = 1;
НовСтрока.ЦенаВРознице = СокрЛП(Excel.Cells(Row,9).Value)/СокрЛП(Excel.Cells(Row,13).Value);
Сум=СокрЛП(Excel.Cells(Row,9).Value);
НовСтрока.СуммаВРознице = Сум;
Если СокрЛП(Excel.Cells(Row,10).Text) <> "0" Тогда
НовСтрока.Номенклатура = ТоварСНДС;
НовСтрока.СтавкаНДСВРознице = НовСтрока.Номенклатура.СтавкаНДС;
НовСтрока.ЕдиницаИзмерения = ТоварСНДС.БазоваяЕдиницаИзмерения;
Иначе
НовСтрока.Номенклатура = ТоварБезНДС;
НовСтрока.СтавкаНДСВРознице = НовСтрока.Номенклатура.СтавкаНДС;
НовСтрока.ЕдиницаИзмерения = ТоварБезНДС.БазоваяЕдиницаИзмерения;
КонецЕсли;
НовСтрока.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе;
НовСтрока.НовыйСчетУчетаБУ = ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговлеВПродажныхЦенахНТТ;
НовСтрока.СтатьяПриростаУбылиЗапасов = Справочники.СтатьиНалоговыхДеклараций.НайтиПоКоду("00038");
НовСтрока.СтатьяПриростаУбылиЗапасовНовая = Справочники.СтатьиНалоговыхДеклараций.НайтиПоКоду("00037");
НовСтрока.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.НайтиПоКоду("000001");
НовСтрока.НалоговоеНазначениеНовое = Справочники.НалоговыеНазначенияАктивовИЗатрат.НайтиПоКоду("000001");
ДокРН.Записать(РежимЗаписиДокумента.Запись);
ДокРН.Записать(РежимЗаписиДокумента.Проведение);
не проводит - пишет
Бухгалтерский учет. Строка :1
Не списано 4 955,99 шт товара Товары в ассортименте (без НДС), счет учета 281
Налоговый учет. Строка :1
Не списано 4 955,99 шт товара Товары в ассортименте (без НДС), счет учета ЗА , налог. назначение: Хоз. д-сть, ст. прир.-уб. запасов :Товары на оптовых складах