Показано с 1 по 9 из 9
Комбинированный просмотр
-
11.02.2013, 10:05 #1
- Регистрация
- 26.01.2013
- Сообщений
- 6
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Помогите пожалуйста с автоматическим расчетом стоимости при проведении документа расходная накладная.
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ТоварыНаСкладе.За писывать = Истина;
МенеджерВТ = Новый МенеджерВременныхТаблиц;
Запрос = Новый Запрос;
// Укажем, какой менеджер временных таблиц использует этот запрос
Запрос.МенеджерВременныхТ� �блиц = МенеджерВТ;
Запрос.Текст = "ВЫБРАТЬ
| РасходнаяНакладнаяТовары.� �оменклатура,
| МАКСИМУМ(ТоварыНаСкладеОс� �атки.СуммаОстаток / ТоварыНаСкладеОстатки.Кол� �чествоОстаток) КАК Себестоимость,
| СУММА(РасходнаяНакладнаяТ� �вары.Сумма) КАК Сумма,
| СУММА(РасходнаяНакладнаяТ� �вары.Количество) КАК Количество,
| РасходнаяНакладнаяТовары.� �клад,
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток
|ПОМЕСТИТЬ ДокТЧ
|ИЗ
| Документ.РасходнаяНакладн� �я.Товары КАК РасходнаяНакладнаяТовары
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыН� �Складе.Остатки КАК ТоварыНаСкладеОстатки
| ПО РасходнаяНакладнаяТовары.� �оменклатура = ТоварыНаСкладеОстатки.Ном� �нклатура
|ГДЕ
| РасходнаяНакладнаяТовары.� �сылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| РасходнаяНакладнаяТовары.� �оменклатура,
| РасходнаяНакладнаяТовары.� �клад,
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток";
Запрос.УстановитьПараметр( "Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
Запрос2 = Новый Запрос;
Запрос2.МенеджерВременныхТ аблиц = МенеджерВТ;
Запрос2.Текст = "ВЫБРАТЬ
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток,
| ДокТЧ.Номенклатура,
| ДокТЧ.Склад,
| ДокТЧ.Себестоимость,
| ДокТЧ.Сумма,
| ДокТЧ.Количество,
| РасходнаяНакладнаяТовары.� �ена
|ИЗ
| РегистрНакопления.ТоварыН� �Складе.Остатки(
| ,
| Номенклатура В
| (ВЫБРАТЬ
| ДокТЧ.Номенклатура
| ИЗ
| ДокТЧ)) КАК ТоварыНаСкладеОстатки
| ЛЕВОЕ СОЕДИНЕНИЕ ДокТЧ КАК ДокТЧ
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.РасходнаяНакладн� �я.Товары КАК РасходнаяНакладнаяТовары
| ПО ДокТЧ.Себестоимость = РасходнаяНакладнаяТовары.� �ена
| ПО ТоварыНаСкладеОстатки.Ном� �нклатура = ДокТЧ.Номенклатура";
Результат = Запрос2.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
Движение = Движения.ТоварыНаСкладе.До бавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Рас� �од;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Но� �енклатура;
Движение.Склад = ВыборкаДетальныеЗаписи.Ск� �ад;
Движение.Количество = ВыборкаДетальныеЗаписи.Ко� �ичество;
Если ВыборкаДетальныеЗаписи.Ко� �ичество<ВыборкаДетальныеЗ аписи.КоличествоОСтаток Тогда
Движение.Сумма = ВыборкаДетальныеЗаписи.Су� �маОСтаток/ВыборкаДетальныеЗаписи.Ко� �ичествоОстаток*ВыборкаДет альныеЗаписи.Количество;
Иначе
Движение.Сумма = ВыборкаДетальныеЗаписи.Су� �ма;
КонецЕсли;
Движения.Записать();
КонецЦикла;Последний раз редактировалось miha_serb; 11.02.2013 в 10:16.
Похожие темы
-
Помогите, пожалуйста, с переносом остатков
от Petenokor в разделе Общие вопросы по 1С - ПредприятиеОтветов: 1Последнее сообщение: 12.01.2013, 19:27 -
Автоматическая настройка Vpn
от Jump~ в разделе Microsoft WindowsОтветов: 0Последнее сообщение: 07.07.2007, 17:47
Социальные закладки