Перенос Альфа-Бух. Ошибка при переносе перемещений.

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Страницы: 1
RSS
Перенос Альфа-Бух. Ошибка при переносе перемещений.
 
При переносе из Альфа в Бухгалтерию документов "Перемещение товаров" с установленной галочкой в настройках "Списание ТМЦ с учетом себестоимости партий". Сумма списания берется первая из найденных. Это неправильно. Например товара списалось на триста рублей. В документе перемещения Альфа это одна строка, но, к примеру, в файле выгрузки она разбилась по партиям на две: 250 и 50. При перегрузке в Бухе создастся тоже две строки, но в обоих сумма будет 250. Первая из найденных. Подскажите, как это быстро поправить.

Если ЗначениеЗаполнено(СкладОтправитель) И СкладОтправитель.ВидСклада=Перечисления.ВидыСкладов.Розничный Тогда
Если ПереносПартий И ЗначениеЗаполнено(ТаблицаТоваров) Тогда
НайденныеСтроки = ТаблицаТоваров.НайтиСтроки(Новый Структура("Номенклатура,ВидДвижения",ЗначенияСтроки["Номенклатура"],"Расход"));
Если НайденныеСтроки.Количество()>0 Тогда
Если ТаблицаТоваров.Колонки.Найти("СуммаРозничная") <> Неопределено Тогда
СуммаСписания = НайденныеСтроки[0]["СуммаРозничная"];
Иначе
СуммаСписания = НайденныеСтроки[0]["Сумма"];
КонецЕсли;
КонецЕсли;
Иначе
СуммаСписания = ЗначенияСтроки["СуммаРозничная"];
КонецЕсли;
ИначеЕсли ПереносПартий Тогда
Если ПрименениеУСН Тогда
СуммаСписания = ЗначенияСтроки["Сумма"];
Иначе
СуммаСписания = ЗначенияСтроки["Сумма"] - ЗначенияСтроки["СуммаНДС"];
КонецЕсли;
КонецЕсли;
 
Посмотрим что можно сделать.
Задача в учетке С000254309.
 
Придётся сворачивать таблицы для перемещений во время загрузки(для этого документа).
Изменено: Евгений Машаров - 22.03.2013 12:37:40
 
Добрый день, Евгений.
Внимание! Импортирование не удалось: Перемещение товаров ... Ошибка при методе контекста (Свернуть): Неверное имя колонки
 
Не на всех перемещениях так вылетает. Вылетает вот здесь:
// Цикл по партионным движениям документа
ПереносПартий = ПереносПартий();
Если ПереносПартий Тогда
ТекТабличнаяЧасть = ПолучитьТаблицуИзСписка(ПолучитьТабличнуюЧасть(ИдентификаторОбъекта, "ПартииТоваров"));
ТаблицаТоваров = ТекТабличнаяЧасть.Скопировать();
//Свернём табличные части. Иного выхода установить сумму списания из расходной части движений нет
ТекТабличнаяЧасть.Свернуть("Номенклатура,ВидДвижения,Коэффициент","Количество,СуммаНДС");
ТаблицаТоваров.Свернуть("Номенклатура,ВидДвижения",?(ТаблицаТоваров.Колонки.Найти("СуммаРозничная")<>Неопределено,"СуммаРозничная","Сумма"));
Иначе
 
Вылетает, когда в ТекТабличнаяЧАсть нет колонки Коэффициент
 
Спасибо, подправил, дожно сработать.
Изменено: Евгений Машаров - 25.03.2013 16:37:33
 
Не, не прошло, там коэффициент еще задействован.
УстановитьРеквизит(ТекСтрока, "Количество", ?(ЗначенияСтроки["Количество"]<0,-ЗначенияСтроки["Количество"],ЗначенияСтроки["Количество"]) * ?(ЗначенияСтроки["Коэффициент"]=Неопределено,1,ЗначенияСтроки["Коэффициент"]));
 
А если обойти коэффициент, тогда ЦенаРозничная  :)
Внимание! Импортирование не удалось : ПеремещениеТоваров номер 0000001025 от 11.03.2013 9:15:09
{ВнешняяОбработка.ЗагрузкаДанных.МодульОбъекта(27161)}: Поле объекта не обнаружено (ЦенаРозничная)
 Начало работы - 25.03.2013 18:18:06, окончание работы - 25.03.2013 18:18:10
 Всего обработано объектов: 36 (из них: элементов справочников - 36 , документов - 0)
 
попрошу файлик для отладки
 
вот
 
отладил
Страницы: 1
Читают тему
Поддержка отраслевых решений «1С-Рарус»
Услуги 1С