Имя: Пароль:
1C
1С v8
БП: кнопка ЦеныИВалюта (курс не подтягивает) при автомат.загрузке
,
0 листопад
 
25.12.11
15:00
БП (редакция 1.6)
Надо загрузить данные в документ "ПоступлениеТоваров", с видом операции "ПокупкаКомиссия". Договор USD (флажок расчеты в уе стоит). Непонимаю, почему при нажатии на кнопку ЦеныИВалюта выходит вот такая картинка:
http://s46.radikal.ru/i114/1112/ad/1188e1d742dd.jpg

А должно быть вот так: http://i017.radikal.ru/1112/46/3ff4b33f11a6.jpg

Т.е. при автоматической загрузке не подтягивается курс!!!

Вот код:


Процедура ЗагрузитьПриходНажатие(Элемент)
   
   ДокПриход = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
   ДокПриход.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
   ДокПриход.Дата = "20111001";      
   ДокПриход.ВалютаДокумента = Дог.ВалютаВзаиморасчетов;
   ДокПриход.Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной( "глТекущийПользователь"), "ОсновнаяОрганизация");
   ДокПриход.СуммаВключаетНДС = Ложь;
   ДокПриход.УчитыватьНДС = Истина;
   ДокПриход.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками;   //счет 76.05

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

       ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(СтрокаТовары, ДокПриход);
   КонецЦикла;
   
   ДокПриход.Записать();      
   ДокПриход.ПолучитьФорму().Открыть();
   
КонецПроцедуры
1 НуВотКак
 
25.12.11
15:08
ДокПриход.ВалютаДокумента = Дог.ВалютаВзаиморасчетов;
ДокПриход.ВалютаДокумента - значение из отладчика какое?
2 НуВотКак
 
25.12.11
15:10
+
ДокПриход.КурсВзаиморасчетов ДокПриход.КратностьВзаиморасчетов где?
3 листопад
 
25.12.11
15:20
(1) USD , вот значение из отладчика: http://s005.radikal.ru/i211/1112/bf/db8cb5316761.jpg

(2) А как описать ДокПриход.КратностьВзаиморасчетов?
4 листопад
 
25.12.11
15:24
+(3) Разобралась с кратностью, написала:
ДокПриход.КратностьВзаиморасчетов = 1;

Как теперь подтянуть ДокПриход.КурсВзаиморасчетов?
5 листопад
 
25.12.11
16:58
Ап!
6 Господин ПЖ
 
25.12.11
17:00
посмотреть в модуле как там считается, какие функции дергаются - не судьба?
7 листопад
 
25.12.11
18:21
(6) Не могу разобраться... Не задавала бы тему на форуме.
8 sanja26
 
25.12.11
18:50
ДокПриход.Дата = "20111001";
Вот это что такое??
9 sanja26
 
25.12.11
18:52
У тебя дата документа - строка, т.е. начало времен 1с
10 листопад
 
25.12.11
19:16
(8), (9) Это все правильно (проверила). Создается документ с датой 01.10.2011, так надо.
11 МишельЛагранж
 
25.12.11
19:31
а в УТ11 вообще нет формы ЦеныИВалюта... в принципе... переходите на УТ11 ))))
правда, бухгалтерии там тоже нет )))
12 листопад
 
25.12.11
21:52
Ап!
13 1с-кин
 
25.12.11
22:04
(0) а валюта регламента - usd? тогда считать не будет, 1с-ка, по-моему, только к рублям считате, а обратно -ни-ни...
14 листопад
 
25.12.11
22:09
(13) Валюта регламента - рубли.
15 1с-кин
 
25.12.11
22:16
(14) тогда перегружать из основания и сам КурсВзаиморасчетов, а если надо актуальный - то подключаться к механизму расчета ЦеныИВалюты, давать все необходимые данные туда и прогонять типовой расчет в выставлением галочки "ПересчитатьЦеныПоВалюте".
И проверить, если вообще актуальные курсы на заданную дату в регистре сведений...
16 листопад
 
26.12.11
10:50
Up!
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.