Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Вопрос к ГУРУ 1С 8
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Пользователю 1С 8.3, 8.2, 8.1, 8.0 > 1С Бухгалтерия 8 для Украины > Бухгалтерия 8, редакция 1 для Украины
martyn
Всем добрый!

Купили 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 шт товара Товары в ассортименте (без НДС), счет учета ЗА , налог. назначение: Хоз. д-сть, ст. прир.-уб. запасов :Товары на оптовых складах
Vofka
Ну здесь, наверное, всётаки вопрос не по программной части, а по пользовательской, поэтому тема переезжает.
По теме:
1. Точно остатков на счете 281 хватает?
2. Посмотрите аналитику по налоговому учету: с какой оприходовали и по какой пытаетесь списать.
Zaval
По логике, при перемещении в НТТ ТоварыВАссортименте должны приходоваться(в эту самую НТТ), а списываться должны вполне определенные товары с оптового склада.
martyn
вопрос решился до удивления просто и в тоже время глупо...........sad.gif(((((((((

приход - 03.01.2011 0:00:00 и расход 03.01.2011 0:00:00 - на 281 до прихода ничего не было - вопрос решился добавлением к дате расхода 1 секунды.... ну не смогла 1С пусть в расход ..........
Vofka
Ну и что здесь глупого?
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.