1С 7.x : Реализация алгоритма «По среднему»

 

        БИ=СоздатьОбъект("БухгалтерскиеИтоги");

	БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2);		

	БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6");		

		

	Сум=БИ.СКД(1);

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

			

	Если Ост=Количество Тогда

		СумСпис=Сум;				

	ИначеЕсли Ост>Количество Тогда				

		ЦенаСпис=Сум/Ост;

		СумСпис=Окр(Количество*ЦенаСпис,2);				

	Иначе				

		Сообщить("Остаток меньше нуля");

		НеПроводитьДокумент();

	КонецЕсли; 	

			

	Операция.НоваяПроводка();

	Операция.Дебет.Счет=Сч91_2;

	Операция.Кредит.Счет=Сч58_6;

	Операция.ЦенныеБумаги=ЦБ;

	Операция.Сумма=СумСпис;

	Операция.Количество=Количество;