//*******************************************
// Процедура генерации запроса Сформировать.
Функция НайтиПоследПост(ном, регистратор)
рег = СоздатьОбъект("Регистр.ПартииНаличие");
Рег.УстановитьЗначениеФильтра("Номенклатура", ном, 1);
Кол=0;
сум=0;
ПослЦена =0;
Рег.ВыбратьДвижения();
Пока Рег.ПолучитьДвижение() = 1 Цикл
Если рег.Приход =1 тогда
Кол = рег.Количество;
сум = рег.СуммаРуб;
регистратор = рег.ТекущийДокумент();
КонецЕсли;
КонецЦикла;
Если сум
ПослЦена = сум/кол;
КонецЕсли;
// ПослЦена= Формат(ПослЦена, "Ч015.2") ;
возврат ПослЦена;
КонецФункции
//
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
ИтогСумма=0;
ИтогМ=0;
док= СоздатьОбъект("Документ.Реализация");
Док.выбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Пока док.ПолучитьДокумент()=1 Цикл
Если СокрЛП( ВыбПользователь)
Если док.Автор
Продолжить;
КонецЕсли;
КонецЕсли;
Если СокрЛП(ВыбПроект)
Если док.Проект
Продолжить;
КонецЕсли;
КонецЕсли;
Если док.проведен()=0 Тогда
Продолжить;
КонецЕсли;
док.выбратьстроки();
Пока док.получитьСтроку()=1 Цикл
Если СокрЛП(ГруппаНом)
Если Док.Номенклатура.ПринадлежитГруппе(ГруппаНом)=0 Тогда
продолжить;
КонецЕсли;
КонецЕсли;
регистратор="";
поступилоПо = НайтиПоследПост(Док.Номенклатура,регистратор);
Состояние("Заполнение выходной таблицы..."+Док.Номенклатура);
Если Док.Количество
ценаПр = Док.сумма / Док.Количество;
Иначе
ценаПр =0;
КонецЕсли;
ДоляМ = ((ценаПр-(поступилоПо*множитльСебестоимость) ) * ПроцентОТМаржи/100)*Док.Количество;
ПечДоляМ = Формат(ДоляМ, "Ч015.2") ;
ПечпоступилоПо = Формат(поступилоПо, "Ч015.2") ;
Таб.ВывестиСекцию("строка");
ИтогСумма = ИтогСумма +Док.сумма;
ИтогМ = ИтогМ + ДоляМ;
КонецЦикла;
КонецЦикла;
// Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Процедура ПриОткрытии()
ПроцентОТМаржи = 10;
множитльСебестоимость = 1.25;
Если глПользователь.наименование="Артур" Тогда
ИначеЕсли глПользователь.наименование="Шах" Тогда
Иначе
// ВыбПользователь = глПользователь.текущийЭлемент();
// Форма.ВыбПользователь.Доступность(0);
КонецЕсли;
Требуется написать конфигурацию для работы со световыми дисплеями (основная функция - получить информацию, высветить нужные цифры на дисплеях, погасить). (Имеется работающая аналогичная конфигурация, с полностью прописанным взаимодействием с аппаратной частью, много можно взять оттуда). Описание и ...
Требуется программист 1С для реализации функционала. Будет выборка по типу clck.ru/C8WnC , данные будут браться с JSON Так же будет подобный выборщик clck.ru/C8Wnn Верстка готова. Строго NDA. Новички не беспокоить. Смотрю отзывы. Знание битрикса на уровне глубокой разработки. Знаний ...
Необходимо разработать механизм (ПО, инструмент, скрипт, запрос или что угодно), что бы можно было загрузить в автоматическом режиме данные из 1С, а в R-Keepere получить документ продажи. Пример: В БП сделали реализацию №23 от 22.01.2018 на ...
Нужно изменить старую форму УПД и счет-фактуру на новую. Образец как должно быть и доступы - вышлю выбранному исполнителю Сроки и суммы указывайте в заявке
Всем добрый день, В базе хранятся цены на товары в USD. Эти цены устанавливаются вручную и являются базовыми. В нашей сфере требуется предоставлять рублевые цены клиентам, поэтому каждый день эта цена должна пересчитываться в цену RUB, ...
Цель: Создать программу, которая заменит менеджера по подбору персонала. Программа должна уметь: [list][*]Обновлять по расписанию вакансии на hh.ru и на rosrabota.ru [*]Подгружать отклики кандидатов в базу [*]Проводить анкетирование и тестирование (поднять веб сервер, давать к базе доступ внешним пользователям) [*]Отправлять ...
Мы ищем удобный функционал в Битрикс24 для ведения учетапредложений и заявок (от продавцов и покупателей), чтобы быстро стыковать подходящих клиентов в одну сделку. Интересуют и готовые решения и вариантыпо созданию/настройке функционала под нас. Просьба в заявке или ЛС ...
Есть интернет-магазин на WordPress и WooCommerce. Нужно, чтобы при заказе-покупке-оплате на сайте, инфо о товаре также менялось в 1С. И наоборот - при физической продаже на сайте также кол-во товара менялось. Соответственно, если в 1С заводится ...
Тема"Разработка Веб-сервиса для обмена данными между интегрированной информационной системой планирования учебного процесса БГУИР ( на базе технологической платформы 1С: Предприятие 8.3) и базой университета "Студент-2" Добрый день. Программа сама есть,надо доделать пояснительную, схемы и т.д
Нужна обработка, которая загрузит из таблицы Excel в 1С 8.3Бух Упрощенка документ – реализация акт . Данные в строках. Каждая строка – новый документ. Идентификация Контрагента по ИНН. При отсутствии Контрагента- надо его создать. Идентификация ...