helpf.pro
Регистрация
 0 
Распечатать

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

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

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

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

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

Операция.НоваяПроводка();
Операция.Дебет.Счет=Сч91_2;
Операция.Кредит.Счет=Сч58_6;
Операция.ЦенныеБумаги=ЦБ;
Операция.Сумма=СумСпис;
Операция.Количество=Количество;
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 5924
 0 
Распечатать
Возможно, вас также заинтересует
Использование Web-сервисов для синхронизации баз данных в режиме online 1с 8.х 7
Часто при ведении учета в различных конфигурациях 1с возникает необходимость выполнения обмена данных. Для решения этой задачи принято использовать Универсальный обмен данными XML или другие внешние обработки, общим...
Как получить Срез Последних на Каждую Дату 2
С задачей получения среза последних на каждую дату рано или поздно сталкиваются все. Безусловно, это задача достаточно просто решается запросом с соединением по максимальной дате из меньших или равных дат. Но эту же...
Как установить цену из РегистраСведений на дату создания документа 2
НаКлиенте Процедура ТоварНоменклатураПриИзменении(Элемент) СтрокаТабличнойЧасти = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные; Номенклатура = СтрокаТабличнойЧасти.Номенклатура; ТипЦен = ЭтаФорма.ТипЦен; ТекДата =...
Конструктор схемы компоновки данных - Закладка Настройки 0
Закладка повторяет пользовательский диалог «Настройка» доступный для настройки пользователем параметров отчета. https://helpf.pro/uploads/img/sukpd052.png Заполнение настроек на этой закладке служит для настройки отчета...
Подключение к ИБ через Com, Получение списка документов и их Загрузка 0
//Пример кода Перем Подключились; Перем COMОбъект; Функция ПолучитьНом(Выборка) Ном = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Выборка.Номенклатура)); Если Ном.Пустая() Тогда ВвестиЗначение(Ном, "...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.