HelpF.pro

Реализация алгоритма «По среднему»

Алгоритм «по среднему» реализуется наиболее просто: определяется текущая стоимость товара и текущий остаток. Их отношение дает нам среднюю цену. Перемножая среднюю цену на реализуемое количество, получаем себестоимость.

Код 1C v 7.x
 
БИ=СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2);
БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6");

Сум=БИ.СКД(1);
Ост=БИ.СКД(3);

Если Ост=Количество Тогда
СумСпис=Сум;
ИначеЕсли Ост>Количество Тогда
ЦенаСпис=Сум/Ост;
СумСпис=Окр(Количество*ЦенаСпис,2);
Иначе
Сообщить("Остаток меньше нуля");
НеПроводитьДокумент();
КонецЕсли;

Операция.НоваяПроводка();
Операция.Дебет.Счет=Сч91_2;
Операция.Кредит.Счет=Сч58_6;
Операция.ЦенныеБумаги=ЦБ;
Операция.Сумма=СумСпис;
Операция.Количество=Количество;

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/197.html