8.х Инвентаризация основных средств

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Amalgam, 11 дек 2006.

  1. TopicStarter Overlay
    Amalgam
    Offline

    Amalgam

    Регистрация:
    10 ноя 2006
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Ребят помогите, незнаю как сделать выборку в 1С Предприятие 8 бухгалтерия, по инвенриризации Основных средств по материально ответственному лице, если кто то что то подходящее делал , расскажите как??
  2. Serge
    Offline

    Serge Опытный в 1С

    Регистрация:
    15 фев 2008
    Сообщения:
    160
    Симпатии:
    0
    Баллы:
    26
    Откопаю эту тему, ибо до сих пор не появилась эта возможность в типовой конфигурации.

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

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

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

Поделиться этой страницей