mr_vidocq
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Процедура ВводНаОсновании(Док)
Если Док.ВидТорговли=Перечисление.ВидыТорговли.Консигна ция Тогда
Предупреждение("Для возврата товара с консигнации используйте документ 'Возврат с консигнации'!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
РегОст = СоздатьОбъект("Регистр.Остатки");
Фирма = Док.Фирма;
ВидУчета = Док.ВидУчета;
ЗаполнитьПоУмолчанию();
Отпустил = Константа.БазОтпустил;
УстановитьНомерДокумента(Контекст);
Склад = Док.Склад;
Клиент = Док.Клиент;
Менеджер = Док.Менеджер;
Валюта = Док.Валюта;
Курс = Док.Курс;
ТипЦен = Док.ТипЦен;
ВидТорговли = Перечисление.ВидыТорговли.Нал;
СубконтоВалДох = Док.СубконтоВалДох;
СчетПокупателя = Док.СчетПокупателя;
// табл часть
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
НоваяСтрока();
СтрокаПродажи = Док.НомерСтроки;
ТМЦ = Док.ТМЦ;
Партия = Док.Партия;
ДокПродажи = Док;
Кво = Док.Кво;
Ед = Док.Ед;
Коэффициент = Док.Коэффициент;
ЦенаБезНДС = Док.ЦенаБезНДС;
СуммаБезСкидки = Док.СуммаБезСкидки;
Скидка = Док.Скидка;
СуммаБезНДС = Док.СуммаБезНДС;
СуммаСНДС = Док.СуммаСНДС;
НДС = Док.НДС;
фПрошлиНужныеСтроки = 0;
РегОст.ВыбратьДвиженияДокумента(Док);
Пока РегОст.ПолучитьДвижение()=1 Цикл
Если РегОст.Приход = 1 Тогда
Продолжить;
КонецЕсли;
Если РегОст.НомерСтроки() <> Док.НомерСтроки Тогда
Если фПрошлиНужныеСтроки = 0 Тогда
Продолжить;
Иначе
Прервать;
КонецЕсли;
Иначе
Если (ВидУчета = Перечисление.ВидыУчета.Совместный) и (РегОст.Фирма.Выбран()=0) Тогда
// выберем только бухг. движения, чтобы не удваивать сумму
Продолжить;
КонецЕсли;
фПрошлиНужныеСтроки = 1;
СуммаУчБезНДС = СуммаУчБезНДС + РегОст.СуммаБезНДС;
СуммаУчСНДС = СуммаУчСНДС + РегОст.СуммаГрн;
СуммаУчОсн = СуммаУчОсн + РегОст.СуммаОсн;
ЦенаУчБезНДС = ?(Кво = 0,0,СуммаУчБезНДС/(Кво*Коэффициент));
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры |
Всего записей: 69 | Зарегистр. 30-04-2010 | Отправлено: 12:18 27-05-2010 | Исправлено: mr_vidocq, 16:08 27-05-2010 |
|
