Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   УниверсальныйОбменДаннымиВФорматеXML.epf (http://forums.kuban.ru/f1040/universal-nyjobmendannymivformatexml_epf-4487037.html)

LivingStar 12.07.2013 09:39

УниверсальныйОбменДаннымиВФорматеXML.epf
 
Почему если я в процедуре ПослеЗагрузки, размещаю код:

Для каждого СтрокаТЧ из Объект.Товары Цикл
Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);
КонецЦикла;

...при загрузке выдается код ошибки, -

Ошибка формата обмена

добавляю в ПослеЗагрузки в конвертации данных этот кусок кода, после сохранения и перегрузке, при загрузке выдается эта ошибка, - Ошибка формата обмен

если этот кусок кода закоментировать, то при перезагрузке ошибки нет, то есть дело только в нем

в БП в модуле объекта документа РеализацияТоваровУслуг есть процедура, -

// Заполняет счета в строке табличной части

//

Процедура ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, ИмяТабЧасти, Заполнять) Экспорт

СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Организация, СтрокаТЧ.Номенклатура, Склад);
//СчетаРозницы = (Склад.ВидСклада = Перечисления.ВидыСкладов.Розничный);

ЭтоКомиссия = (ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером);
МетаданныеДока = Метаданные();

ЗаполнитьСчета(СтрокаТЧ, ИмяТабЧасти, СчетаУчета, Заполнять, ЭтоКомиссия, МетаданныеДока);

КонецПроцедуры // ЗаполнитьСчетаУчетаВСтрокеТабЧасти()

Tolkien 12.07.2013 20:45

Осторожно спросю: тема про конфигурацию "Конвертация", или как она там?

Reaper 12.07.2013 21:48

Версии конфигурации и обработки обмена в студию

LivingStar 16.07.2013 06:51

(1) Это тема про правила обмена в которых почему то при перегрузке в загруженных документах реализация товаров услуг отсутствуют счета в табличной части.
Правлю правила, да, загрузив их в конфигурацию конвертация данных!

(2) УТ 10.3, БП 2.0.38.6
УТ 10-3-12-3 - Бух 2-0-38-6

shik2005 16.07.2013 07:59

В ПКО после загрузки:
Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Объект.ОтражатьВБухгалтерскомУчете, Объект.ОтражатьВНалоговомУчете);

т.е. без перебора табличной части. Код выдран из обмена УТ - УПП. В БП будет аналогично

LivingStar 16.07.2013 09:46

(4) спасибо!

LivingStar 19.07.2013 06:52

(4) ПРИ ЗАГРУЗКЕ ВЫЛЕТАЕТ ОШИБКА

ОписаниеОшибки = Поле объекта не обнаружено (ОтражатьВБухгалтерскомУчете)

МимохожийОднако 19.07.2013 06:54

В бухгалтерии надо настроить регистр сведений Счета учета номенклатуры.

LivingStar 19.07.2013 07:17

вот, вот это прописывает счета:

КоличествоСтрок = Объект.Товары.Количество();
Для НомерСтроки = 0 по КоличествоСтрок-1 цикл
СтрокаТЧ = Объект.Товары.Получить(НомерСтроки);

//Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);

СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
СтрокаТЧ.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.Продажи_НДС;
СтрокаТЧ.Себестоимость = СтрокаТЧ.Сумма - СтрокаТЧ.СуммаНДС;

//Если Не ЗначениеЗаполнено(СтрокаТЧ.Субконто) тогда
// СтрокаТЧ.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000002");
//КонецЕсли;
КонецЦикла;


но не прописывается субконто!!!

LivingStar 19.07.2013 07:57

Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями;
Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями;
Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;

КоличествоСтрок = Объект.Товары.Количество();
Для НомерСтроки = 0 по КоличествоСтрок-1 цикл
СтрокаТЧ = Объект.Товары.Получить(НомерСтроки);
СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
СтрокаТЧ.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.Продажи_НДС;
СтрокаТЧ.Себестоимость = СтрокаТЧ.Сумма - СтрокаТЧ.СуммаНДС;
Если Не ЗначениеЗаполнено(СтрокаТЧ.Субконто) тогда
//СтрокаТЧ.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000002");
СтрокаТЧ.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Товар");
КонецЕсли;
КонецЦикла;


Текущее время: 12:08. Часовой пояс GMT +3.