Ввод начальных остатков - учет по партиям

Здравствуйте!<br>Я точно также переношу данные с помощью универсального обмена данными и точно также у меня нет партий. Только вот ошибка у меня "Деление на 0". Возможно вы сталкивались с такой ошибкой? Как ее обойти? Ошибка возникает при выгрузке из БП 1.6.25.6 (8.1.15.14)

Наконец-то хоть кто-то попал на эти грабли , а то центр телеграфирует , что деление на 0 у них невозможно . Я писал в 1-с , они ответили , что не может быть ! и пришлите нам тестовый пример с вашей базой. В общем это было обойдено с помощью изменения файла правил переноса, по-топорному ,т.к. нет у меня программного средства, могущего полноправно менять файл правил под названием ACC16_20.xml<br>Удачи!

> Накт.к. нет у меня программного средства, могущего полноправно менять файл правил под названием ACC16_20.xml<br>Так установите, в чем проблема?

Уважаемая Tanya, у мня проблем нет , это у предыдущего оратора деление на 0. Может вы подскажите как с помощью правильного ввода документов не делиться на 0?

> Уважаемая Tanya, у мня проблем нет <br>А кто писал об отсутствии программного обеспечения для правки файла правил обмена? <br><br>> , это у предыдущего оратора деление на 0.<br>У меня пока такой ошибки не было.<br><br><br>

Подскажите, пожалуйста, что именно вы изменили в файле правил переноса, что обошли эту ошибку?

"1. открыл с помощью XML Notepad 2007<br> в Правилах выгрузки данных <br>4 группа       Входящие остатки<br>16 правило      Остатки материалы<br>Перед обработкой правило<br><br>2. убрал "Коэфф = НоваяСтрока.Количество/МассивДанныхНДС.Итог("Количество");"<br> и все места где этот Коэфф УПОМИНАЕТСЯ подчистил . Вот текст исходника (это самый конец данного пункта правил)<br>Кстати - это единственное место , где перед делением нет проверки на не 0 И КАК МЫ С ВАМИ ПОПАЛИ!!!<br><br>Запрос.Текст = <br>"ВЫБРАТЬ<br>| НДСПартииТоваровОстатки.Организация,<br>| НДСПартииТоваровОстатки.СчетУчета,<br>| НДСПартииТоваровОстатки.Номенклатура,<br>| НДСПартииТоваровОстатки.Склад,<br>| НДСПартииТоваровОстатки.Партия,<br>| НДСПартииТоваровОстатки.СчетФактура,<br>| НДСПартииТоваровОстатки.НДСВключенВСтоимость,<br>| НДСПартииТоваровОстатки.ВидЦенности,<br>| НДСПартииТоваровОстатки.СчетУчетаНДС,<br>| НДСПартииТоваровОстатки.СтавкаНДС,<br>| НДСПартииТоваровОстатки.КоличествоОстаток КАК Количество,<br>| НДСПартииТоваровОстатки.СтоимостьОстаток КАК Стоимость,<br>| НДСПартииТоваровОстатки.НДСОстаток КАК НДС,<br>| 0 КАК Ключ,<br>| 0 КАК НомерСтрокиТЧ<br>|ИЗ<br>| РегистрНакопления.НДСПартииТоваров.Остатки(&ДатаСведений, СчетУчета В (&СписокСчетов)) КАК НДСПартииТоваровОстатки";<br><br>РезультатЗапросаПоПартиямНДС = Запрос.Выполнить().Выгрузить();<br><br>ТаблицаДанных = РезультатЗапроса.СкопироватьКолонки();<br>ТаблицаДанныхНДС = РезультатЗапросаПоПартиямНДС.СкопироватьКолонки();<br><br>ТаблицаОрганизаций = РезультатЗапроса.Скопировать(,"Организация,СчетУчета");<br>ТаблицаОрганизаций.Свернуть("Организация,СчетУчета",);<br><br>Для Каждого СтрокаТаблицыОрганизаций ИЗ ТаблицаОрганизаций Цикл<br> <br> ТекОрганизация = СтрокаТаблицыОрганизаций.Организация;<br> ТекСчетУчета = СтрокаТаблицыОрганизаций.СчетУчета;<br> <br> ПрименениеУСН = НалоговыйУчетУСН.ПрименениеУСН(ТекОрганизация, ДатаНачала);<br> Предприниматель = ДоходыИРасходыПредпринимателя.Предприниматель(ТекОрганизация, ДатаНачала);<br> Если Предприниматель Тогда<br> УчетнаяПолитикаНеЗадана = Истина;<br> УчетнаяПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(ДатаНачала, УчетнаяПолитикаНеЗадана, ТекОрганизация);<br> Если УчетнаяПолитикаНеЗадана Тогда<br> ОсновнойХарактерДеятельности = Неопределено;<br> ОсновнаяНоменклатурнаяГруппа = Неопределено;<br> Иначе<br> ОсновнойХарактерДеятельности = УчетнаяПолитика.ОсновнойХарактерДеятельности;<br> ОсновнаяНоменклатурнаяГруппа = УчетнаяПолитика.ОсновнаяНоменклатурнаяГруппа;<br> КонецЕсли;<br> КонецЕсли; <br> <br> ТаблицаДанных.Очистить(); <br> ТаблицаДанныхНДС.Очистить();<br> <br> СтруктураОтбора = Новый Структура;<br> СтруктураОтбора.Вставить("Организация", ТекОрганизация);<br> СтруктураОтбора.Вставить("СчетУчета", ТекСчетУчета);<br> <br> МассивДанных = РезультатЗапроса.НайтиСтроки(СтруктураОтбора);<br> <br> Для Н=1 По МассивДанных.Количество() Цикл<br> НоваяСтрока = ТаблицаДанных.Добавить();<br> ЗаполнитьЗначенияСвойств(НоваяСтрока,МассивДанных.Получить(Н-1)); <br> НоваяСтрока.Ключ = Н;<br> НоваяСтрока.НомерСтрокиТЧ = Н;<br> Если Предприниматель Тогда<br> Если НоваяСтрока.ХарактерДеятельности = Неопределено Тогда<br> НоваяСтрока.ХарактерДеятельности = ОсновнойХарактерДеятельности;<br> КонецЕсли;<br> Если НоваяСтрока.НоменклатурнаяГруппа = Неопределено Тогда<br> НоваяСтрока.НоменклатурнаяГруппа = ОсновнаяНоменклатурнаяГруппа;<br> КонецЕсли;<br> КонецЕсли;<br> <br> //Формируем таблицу по партиям НДС <br> Если РезультатЗапросаПоПартиямНДС.Количество() <> 0 Тогда<br> <br> СтруктураОтбора = Новый Структура;<br> СтруктураОтбора.Вставить("Организация", ТекОрганизация);<br> СтруктураОтбора.Вставить("СчетУчета", ТекСчетУчета);<br> СтруктураОтбора.Вставить("Номенклатура", НоваяСтрока.Номенклатура);<br> Если Параметры.ВестиСуммовойУчетПоСкладамБУ Тогда<br> СтруктураОтбора.Вставить("Склад", НоваяСтрока.Склад);<br> КонецЕсли;<br> СтруктураОтбора.Вставить("Партия", НоваяСтрока.Партия);<br> <br> МассивДанныхНДС = РезультатЗапросаПоПартиямНДС.Скопировать(СтруктураОтбора);<br> <br> Если МассивДанныхНДС.Количество() <> 0 Тогда<br> <br> Коэфф = НоваяСтрока.Количество/МассивДанныхНДС.Итог("Количество");<br> Для НС=1 По МассивДанныхНДС.Количество() Цикл<br> НоваяСтрокаНДС = ТаблицаДанныхНДС.Добавить();<br> ЗаполнитьЗначенияСвойств(НоваяСтрокаНДС,МассивДанныхНДС.Получить(НС-1)); <br> НоваяСтрокаНДС.Ключ = НоваяСтрока.Ключ;<br> НоваяСтрокаНДС.НомерСтрокиТЧ = НС;<br> НоваяСтрокаНДС.Количество = НоваяСтрокаНДС.Количество*Коэфф;<br> НоваяСтрокаНДС.Стоимость = НоваяСтрокаНДС.Стоимость*Коэфф;<br> НоваяСтрокаНДС.НДС = НоваяСтрокаНДС.НДС*Коэфф;<br> КонецЦикла; <br> <br> КонецЕсли;<br> <br> КонецЕсли;<br> <br> КонецЦикла;<br> <br> Если ТаблицаДанных.Количество() <> 0 Тогда<br> <br> ВходящиеДанные = Новый Структура("Комментарий, Организация, ОтражатьВБухгалтерскомУчете, ОтражатьВНалоговомУчете, ОтражатьПоСпециальнымРегистрам, ПодразделениеОрганизации, РазделУчета, ОС, НМА, БухСправка, ДанныеПоСФ, ДанныеПоСФНДС, ДопРасходыИП, ДопРасходыУСН, МПЗОтгруженные, МПЗПриобретенные, МПЗРеализованныеИП, МПЗРеализованныеУСН, Обороты, ПрочиеРасходыИП, РасходыБудущихПериодов, РасчетыПоЗаработнойПлате, РасчетыПоНалогамИСборам, РасчетыСКонтрагентами, РасчетыСПодотчетнымиЛицами, УслугиУСН");<br> ВходящиеДанные.Организация                   = ТекОрганизация;<br> ВходящиеДанные.ОтражатьВБухгалтерскомУчете = Истина;<br> ВходящиеДанные.ОтражатьВНалоговомУчете       = Истина;<br> ВходящиеДанные.ОтражатьПоСпециальнымРегистрам = Истина;<br> ВходящиеДанные.ПодразделениеОрганизации       = Справочники.ПодразделенияОрганизаций.ПустаяСсылка();<br> ВходящиеДанные.РазделУчета                   = Перечисления.РазделыУчетаДляВводаОстатков[РазделУчета];<br> ВходящиеДанные.МПЗПриобретенные = ТаблицаДанных; <br> ВходящиеДанные.ДанныеПоСФ = ТаблицаДанныхНДС; <br> ВходящиеДанные.Комментарий                   = "#Счет учета: """"" + Строка(ТекСчетУчета) + """""# #Раздел учета """"" + Строка(Перечисления.РазделыУчетаДляВводаОстатков[РазделУчета]) + """""# #Перенесено из 1С:Бухгалтерии 8, ред. 1.6#";<br> <br> //Дополнение входящих данных пустыми таблицами<br> ВходящиеДанные.ОС = Новый ТаблицаЗначений;<br> ВходящиеДанные.НМА = Новый ТаблицаЗначений; <br> ВходящиеДанные.РасчетыПоНалогамИСборам = Новый ТаблицаЗначений;<br> ВходящиеДанные.РасчетыСПодотчетнымиЛицами = Новый ТаблицаЗначений; <br> ВходящиеДанные.БухСправка = Новый ТаблицаЗначений;<br> ВходящиеДанные.РасчетыСКонтрагентами = Новый ТаблицаЗначений;<br> ВходящиеДанные.РасчетыПоЗаработнойПлате = Новый ТаблицаЗначений;<br> ВходящиеДанные.МПЗОтгруженные = Новый ТаблицаЗначений; <br> ВходящиеДанные.Обороты = Новый ТаблицаЗначений;<br> ВходящиеДанные.ДанныеПоСФНДС = Новый ТаблицаЗначений;<br> ВходящиеДанные.РасходыБудущихПериодов = Новый ТаблицаЗначений;<br> ВходящиеДанные.МПЗРеализованныеИП = Новый ТаблицаЗначений;<br> ВходящиеДанные.ДопРасходыИП = Новый ТаблицаЗначений;<br> ВходящиеДанные.ПрочиеРасходыИП = Новый ТаблицаЗначений;<br> ВходящиеДанные.МПЗРеализованныеУСН = Новый ТаблицаЗначений;<br> ВходящиеДанные.ДопРасходыУСН = Новый ТаблицаЗначений;<br> ВходящиеДанные.УслугиУСН = Новый ТаблицаЗначений;<br> //***<br> <br> ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНаДату");<br> <br> КонецЕсли;<br> <br>КонецЦикла;<br><br>3. может это и неправильно, Но жить - то хочется . Тем более дальше всплыли камни покруче этого деления на о . много остатков по материалам скорректировалось на 0.001 или в + или в - . И т.д. и и т.п.<br><br>УДАЧИ!<br>"

Спасибо большое!

Всегда рад!<br>Удачи!