списоксчетов » Поиск

Результаты по ключевому слову: списоксчетов

Поле выбора ~ Как ограничить список выбора?

Ограничим список элементов, установив отбор в открываемой форме

Код 1C v 8.х

  //Пример 1

Процедура СтатьяПДРНачалоВыбора(Элемент, СтандартнаяОбработка)

    ФормаВыбора = Справочники.ПрочиеДоходыИРасходы.ПолучитьФормуВыбора(, Элемент);

    ЭлементОтбораВидПДР = ФормаВыбора.Отбор.ВидПрочихДоходовИРасходов;

    Если ЭлементОтбораВидПДР <> Неопределено Тогда

        ЭлементОтбораВидПДР.ВидСравнения  = ВидСравнения.Равно;

        ЭлементОтбораВидПДР.Значение      = Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеВнереализационныеДоходыРасходы;

        ЭлементОтбораВидПДР.Использование = Истина;

    КонецЕсли;

   // Закроем доступ к настройке отбора. Таким образом, пользователь не может отключить заданный программно отбор

   //  и имеет возможность сделать выбор значения только из ограниченного списка.

    ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.ВидПрочихДоходовИРасходов.Доступность = Ложь;

    ФормаВыбора.Открыть();

    СтандартнаяОбработка = Ложь; 

КонецПроцедуры



//Пример 2

Процедура СчетДтНачалоВыбора(Элемент, СтандартнаяОбработка)

    Запрос = Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ

                   | Хозрасчетный.Ссылка

                   |ИЗ

                   | ПланСчетов.Хозрасчетный КАК Хозрасчетный

                   |ГДЕ

                   | Хозрасчетный.Родитель В ИЕРАРХИИ (ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Материалы))

                   | И Хозрасчетный.ЗапретитьИспользоватьВПроводках = ЛОЖЬ";

    СписокСчетов = Новый СписокЗначений;

    СписокСчетов.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));



    ФормаВыбора = ПланыСчетов.Хозрасчетный.ПолучитьФормуВыбора(, Элемент);

    ЭлементОтбораСсылка = ФормаВыбора.Отбор.Ссылка;

    Если ЭлементОтбораСсылка <> Неопределено Тогда

        ЭлементОтбораСсылка.ВидСравнения  = ВидСравнения.ВСписке;

        ЭлементОтбораСсылка.Значение      = СписокСчетов;

        ЭлементОтбораСсылка.Использование = Истина;

    КонецЕсли;

    ФормаВыбора.ЭлементыФормы.Список.НастройкаОтбора.Ссылка.Доступность = Ложь;

    ФормаВыбора.Открыть();

    СтандартнаяОбработка = Ложь; 

КонецПроцедуры

Использование выбора из списка

Код 1C v 8.х

 //Пример 1

Процедура ВидПДРНачалоВыбора(Элемент, СтандартнаяОбработка)

    ВидыПДР = Новый СписокЗначений;

    ВидыПДР.Добавить(Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеВнереализационныеДоходыРасходы);

    ВидыПДР.Добавить(Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеОперационныеДоходыРасходы);

    ВыбранныйЭлемент = ВыбратьИзСписка(ВидыПДР, Элемент, ВидыПДР.НайтиПоЗначению(Элемент.Значение));

    Если ВыбранныйЭлемент <> Неопределено Тогда

        Элемент.Значение = ВыбранныйЭлемент.Значение;

    КонецЕсли;

    СтандартнаяОбработка = Ложь;

КонецПроцедуры



//Пример 2

Процедура СчетКтНачалоВыбора(Элемент, СтандартнаяОбработка)

    СчетаКт = Новый СписокЗначений;

    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);

    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами);

    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);

    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям);

    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.ПрочиеДоходы);

    ВыбранныйЭлемент = ВыбратьИзСписка(СчетаКт, Элемент, СчетаКт.НайтиПоЗначению(Элемент.Значение));

    Если ВыбранныйЭлемент <> Неопределено Тогда

        Элемент.Значение = ВыбранныйЭлемент.Значение;

    КонецЕсли;

    СтандартнаяОбработка = Ложь;

КонецПроцедуры

Категория: Работа с Формой (Диалог) и её элементами

Поле выбора ~ Как отобрать значения выводящиеся в список выбора у элемента формы поле выбора? Категория: Работа с Формой (Диалог) и её элементами

Выбрать Остатки и Обороты по указанным счетам, отбор по субконто и выгрузка результата в EXCEL

Код 1C v 8.х

  Запрос=Новый Запрос;

Запрос.Текст="

|ВЫБРАТЬ

|	ХозрасчетныйОстаткиИОбороты.Счет,

|	ХозрасчетныйОстаткиИОбороты.Субконто1,

|	ХозрасчетныйОстаткиИОбороты.Субконто2,

|	ХозрасчетныйОстаткиИОбороты.Субконто3,

|	ХозрасчетныйОстаткиИОбороты.Организация,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборот,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборотДт,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборотКт

|ИЗ

|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(

|			&ДатаНач,

|			&ДатаКон,

|			Период,

|			,

|			Счет В (&Cчета),

|			,";

//Если задан отбор по контрагенту

Если Не Контрагент.Пустая() Тогда 

Запрос.Текст=Запрос.Текст+"

|			Субконто1 = &Контрагент

|				ИЛИ Субконто2 = &Договор";

КонецЕсли;

Запрос.Текст=Запрос.Текст+"

|) КАК ХозрасчетныйОстаткиИОбороты

|";



//Создадим список счетов

СписокСчетов=Новый СписокЗначений;

СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01

СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);          //60,02

Запрос.УстановитьПараметр("Cчета",СписокСчетов);

Запрос.УстановитьПараметр("ДатаКон",ДатаК);

Запрос.УстановитьПараметр("ДатаНач",ДатаН);

Запрос.УстановитьПараметр("Договор",Договор);

Запрос.УстановитьПараметр("Контрагент",Контрагент);

Результат = Запрос.Выполнить();

ТабДок=ЭлементыФормы.ТД;

ТабДок.Очистить();

ПечатьТЗвТаб(ТабДок, Результат);



//Выгрузка выведенного результата запроса в Excel

Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Excel(*.xls)|*.xls"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;

ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);

Категория: Запросы