Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
06 апр 2025, 03:53

Неверное автозаполнение суммы в приходном кассовом ордере после реализации товаров

Автор MegaMozg, 04 окт 2014, 22:05

0 Пользователей и 1 гость просматривают эту тему.

MegaMozg

роцедура ЗаполнитьПоРозничнойВыручкеУпр(СтрокаПлатеж)

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

Запрос.Текст =
"ВЫБРАТЬ
| СуммаОстаток
|ИЗ
| РегистрНакопления.РозничнаяВыручка.Остатки(, РозничнаяТочка = &РозничнаяТочка)
|ГДЕ
| СуммаОстаток > 0 
|";

РезультатЗапроса = Запрос.Выполнить();

Выборка = РезультатЗапроса.Выбрать();
Если Выборка.Следующий() Тогда
СуммаДокумента = Мин(МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Выборка.СуммаОстаток,
                                мВалютаРегламентированногоУчета, ВалютаДокумента,
                                1, КурсДокумента, 1, КратностьДокумента),
                                МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(ДокументОснование.СуммаДокумента,  мВалютаРегламентированногоУчета, ВалютаДокумента,
                                1, КурсДокумента, 1, КратностьДокумента));
СтрокаПлатеж.СуммаПлатежа=СуммаДокумента;
КонецЕсли;

КонецПроцедуры // ЗаполнитьПоРозничнойВыручкеУпр()

вот это
СуммаДокумента = Мин(МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Выборка.СуммаОстаток,
                                мВалютаРегламентированногоУчета, ВалютаДокумента,
                                1, КурсДокумента, 1, КратностьДокумента),
                                МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(ДокументОснование.СуммаДокумента,  мВалютаРегламентированногоУчета, ВалютаДокумента,
                                1, КурсДокумента, 1, КратностьДокумента));
СтрокаПлатеж.СуммаПлатежа=СуммаДокумента;

дфтын


Теги:  8.2 Сумма 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск