Помощь - Поиск - Пользователи - Календарь
Полная версия: Инвентаризация основных средств
1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Конфигурирование на платформе "1С:Предприятие 8.x"
Amalgam
Ребят помогите, незнаю как сделать выборку в 1С Предприятие 8 бухгалтерия, по инвенриризации Основных средств по материально ответственному лице, если кто то что то подходящее делал , расскажите как??
Serge
Откопаю эту тему, ибо до сих пор не появилась эта возможность в типовой конфигурации.

Пришлось самому. Нужно добавить реквизит в форму документа для выбора материально-ответственного лица (назовем его "Сотрудник") и изменить модуль формы

Документ ИнвентаризацияОС, ФормаДокумента, модуль, функция ОстаткиОС:

Код
Если ЗначениеЗаполнено(Сотрудник) Тогда //Сотрудник - реквизит формы
//Видоизмененный запрос
Запрос.Текст =
"ВЫБРАТЬ
| СписокОСВПодразделении.ОсновноеСредство КАК ОсновноеСредство,
| ЕСТЬNULL(ХозрасчетныйОстатки_ВосстановительнаяСтоимость.СуммаОстатокДт, 0) КАК ВосстановительнаяСтоимость
|ИЗ
| (ВЫБРАТЬ
| МестонахождениеОСБухгалтерскийУчет.ОсновноеСредство КАК ОсновноеСредство
| ИЗ
| (ВЫБРАТЬ
| МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство КАК ОсновноеСредство,
| МестонахождениеОСБухгалтерскийУчетСрезПоследних.Местонахождение КАК Местонахождение
| ИЗ
| РегистрСведений.МестонахождениеОСБухгалтерскийУчет.СрезПоследних(
| &ДатаОстатков,
| Организация = &Организация
| И МОЛ = &Сотрудник " + УсловиеОС + ") КАК МестонахождениеОСБухгалтерскийУчетСрезПоследних) КАК МестонахождениеОСБухгалтерскийУчет
| ГДЕ
| МестонахождениеОСБухгалтерскийУчет.Местонахождение = &Подразделение) КАК СписокОСВПодразделении
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.СчетаБухгалтерскогоУчетаОС.СрезПоследних(&ДатаОстатков, Организация = &Организация " + УсловиеОС + ") КАК СчетаБухгалтерскогоУчетаОССрезПоследних
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОстатков, , &СубконтоОС, Организация = &Организация " + УсловиеСубконто + ") КАК ХозрасчетныйОстатки_ВосстановительнаяСтоимость
| ПО СчетаБухгалтерскогоУчетаОССрезПоследних.СчетУчета = ХозрасчетныйОстатки_ВосстановительнаяСтоимость.Счет
| И СчетаБухгалтерскогоУчетаОССрезПоследних.ОсновноеСредство = ХозрасчетныйОстатки_ВосстановительнаяСтоимость.Субконто1
| ПО СписокОСВПодразделении.ОсновноеСредство = СчетаБухгалтерскогоУчетаОССрезПоследних.ОсновноеСредство";
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
Иначе
Запрос.Текст =
"ВЫБРАТЬ
| СписокОСВПодразделении.ОсновноеСредство КАК ОсновноеСредство,
| ЕСТЬNULL(ХозрасчетныйОстатки_ВосстановительнаяСтоимость.СуммаОстатокДт, 0) КАК ВосстановительнаяСтоимость
|ИЗ
| (ВЫБРАТЬ
| МестонахождениеОСБухгалтерскийУчет.ОсновноеСредство КАК ОсновноеСредство
| ИЗ
| (ВЫБРАТЬ
| МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство КАК ОсновноеСредство,
| МестонахождениеОСБухгалтерскийУчетСрезПоследних.Местонахождение КАК Местонахождение
| ИЗ
| РегистрСведений.МестонахождениеОСБухгалтерскийУчет.СрезПоследних(&ДатаОстатков, Организация = &Организация " + УсловиеОС + ") КАК МестонахождениеОСБухгалтерскийУчетСрезПоследних) КАК МестонахождениеОСБухгалтерскийУчет
| ГДЕ МестонахождениеОСБухгалтерскийУчет.Местонахождение = &Подразделение) КАК СписокОСВПодразделении
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.СчетаБухгалтерскогоУчетаОС.СрезПоследних(&ДатаОстатков, Организация = &Организация " + УсловиеОС + ") КАК СчетаБухгалтерскогоУчетаОССрезПоследних
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОстатков, , &СубконтоОС, Организация = &Организация " + УсловиеСубконто + ") КАК ХозрасчетныйОстатки_ВосстановительнаяСтоимость
| ПО СчетаБухгалтерскогоУчетаОССрезПоследних.СчетУчета = ХозрасчетныйОстатки_ВосстановительнаяСтоимость.Счет
| И СчетаБухгалтерскогоУчетаОССрезПоследних.ОсновноеСредство = ХозрасчетныйОстатки_ВосстановительнаяСтоимость.Субконто1
| ПО СписокОСВПодразделении.ОсновноеСредство = СчетаБухгалтерскогоУчетаОССрезПоследних.ОсновноеСредство";

КонецЕсли;

Возврат Запрос.Выполнить().Выгрузить();


В типовой конфе текст запроса - тот, что идет после слова Иначе.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2009 Invision Power Services, Inc.