Алгоритм «по среднему» реализуется наиболее просто: определяется текущая стоимость товара и текущий остаток. Их отношение дает нам среднюю цену. Перемножая среднюю цену на реализуемое количество, получаем себестоимость.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2); БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6"); Сум=БИ.СКД(1); Ост=БИ.СКД(3); Если Ост=Количество Тогда СумСпис=Сум; ИначеЕсли Ост>Количество Тогда ЦенаСпис=Сум/Ост; СумСпис=Окр(Количество*ЦенаСпис,2); Иначе Сообщить("Остаток меньше нуля"); НеПроводитьДокумент(); КонецЕсли; Операция.НоваяПроводка(); Операция.Дебет.Счет=Сч91_2; Операция.Кредит.Счет=Сч58_6; Операция.ЦенныеБумаги=ЦБ; Операция.Сумма=СумСпис; Операция.Количество=Количество; |
About the Author
