Имя: Пароль:
1C
1С v8
Подскажите: программно заполняю ТЧ док-та Поступление
0 листопад
 
25.12.11
11:54
БП (редакция 1.6)
Надо загрузить данные в документ "ПоступлениеТоваров", с видом операции "ПокупкаКомиссия". Данные загружаются, но как-то не так. Т.е. во вновь созданном документе ВидОперации стоит "ПокупкаКомиссия", но интерфейс табличной части не тот.
Должен быть такой: http://s007.radikal.ru/i301/1112/76/66624bc00eda.jpg
А после загрузки получается такой: http://s003.radikal.ru/i204/1112/de/0a3e55f2889f.jpg

Т.е. нет колонок по НДС и внизу Всего (USD) не должно подсчитываться.

P.S. Контрагента и Договор с картинки я убрала, но договор USD (флажок расчеты в уе стоит).




Процедура ЗагрузитьПриходНажатие(Элемент)
   
   ДокПриход = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
   ДокПриход.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
   ДокПриход.Дата = "20111001";      
   ДокПриход.ВалютаДокумента = Дог.ВалютаВзаиморасчетов;
   ДокПриход.Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной( "глТекущийПользователь"), "ОсновнаяОрганизация");
   ДокПриход.СуммаВключаетНДС = Ложь;
   ДокПриход.УчитыватьНДС = Ложь;
   ДокПриход.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками;   //счет 76.05
   
   Для Каждого Строка из ТаблицаДокумента Цикл
       СтрокаТовары = ДокПриход.Товары.Добавить();
       СтрокаТовары.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
       СтрокаТовары.Количество = Строка.Количество;
       СтрокаТовары.Сумма = Строка.Сумма;
       СтрокаТовары.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ИнвентарьИХозяйственныеПринадлежности;
       СтрокаТовары.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ;
       СтрокаТовары.Коэффициент = 1;
       
       СтрокаТовары.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка.НаимИтоговое).Ссылка;
       Если СтрокаТовары.Номенклатура.Пустая() Тогда
           Сообщить (Строка.НаимИтоговое +  " - не загружена!!!", СтатусСообщения.Важное);
       КонецЕсли;
       
       ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТовары, ДокПриход);
       ОбработкаТабличныхЧастей.ПриИзмененииСуммыТабЧасти(СтрокаТовары, ДокПриход);
       ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(СтрокаТовары, ДокПриход);  //+
       ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(СтрокаТовары, ДокПриход);
   КонецЦикла;
   
   ДокПриход.Записать();      
   ДокПриход.ПолучитьФорму().Открыть();
   
КонецПроцедуры
1 Мимохожий Однако
 
25.12.11
12:10
ДокПриход.УчитыватьНДС = Истина;
2 листопад
 
25.12.11
12:23
(1) Спасибо!!!
3 листопад
 
25.12.11
12:29
Еще сейчас обнаружила, что при загрузке загружаются не те суммы!!! Т.е. данные у меня сначала загружаются в ТЗ на форме, а затем вызывается процедура в (0), по которой данные загружаются уже в ТЧ документа.

Изначально, суммы в ТЗ на форме:
21,79
163,40
326,80

А после загрузки в ТЧ документа, суммы уже меняются:
21,80
163,50
327
4 Мимохожий Однако
 
25.12.11
12:31
Попробуй сначала обойтись без
ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТовары, ДокПриход);
       ОбработкаТабличныхЧастей.ПриИзмененииСуммыТабЧасти(СтрокаТовары, ДокПриход);

       ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(СтрокаТовары, ДокПриход);  //+

       ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(СтрокаТовары, ДокПриход);
5 листопад
 
25.12.11
12:34
(4) Да, уже закомментировала их. Вроде корректно все загружает. Спасибо.
А как мне подтянуть заполнение Единицы измерения в ТЧ документа?
6 Мимохожий Однако
 
25.12.11
12:41
Из Номенклатуры
7 листопад
 
25.12.11
12:45
(6) Пишу:
СтрокаТовары.ЕдиницаИзмерения = Строка.НаимИтоговое.БазоваяЕдиницаИзмерения;

Выдает ошибку:

{Форма.Форма.Форма(326)}: Значение не является значением объектного типа (БазоваяЕдиницаИзмерения)
       СтрокаТовары.ЕдиницаИзмерения = Строка.НаимИтоговое.БазоваяЕдиницаИзмерения;
8 Мимохожий Однако
 
25.12.11
12:47
НаимИтоговое?!! СтрокТовары.Номенклатура...Единица
9 Мимохожий Однако
 
25.12.11
12:48
*СтрокаТовары.ЕдиницаИзмерения = СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения;
Отладчиком воспользуйся...быстрее будет
10 листопад
 
25.12.11
12:52
(9) Спасибо, все получилось!!!
11 листопад
 
25.12.11
13:11
Еще подскажите пож-та, почему при проведении документа (типовым механизмом), создается проводка по кредиту счета УЕ.60 на общую сумму в валюте. Такой проводки быть не должно!!! И соответственно в регистр "НДС расчеты с поставщиками" делается только одна запись на эту же общую сумму в валюте.
Договор в USD (расчеты в уе).