// Отбор на форме

&НаКлиенте

....

ФМ=Новый ФиксированнаяСтруктура("КлючСвязи",Элементы.ДанныеБезКоррекции.ТекущиеДанные.КлючСвязи);

Элементы.СписокПодразделений.ОтборСтрок=ФМ;   

 //Функция получает записи табличной части согласно установленному отбору

Функция ПолучитьЗаписиСогласноОтбору(ТабличноеПолеИсточник)



ОтборСтрок = ТабличноеПолеИсточник.ОтборСтрок;

ПостроительЗапроса = Новый ПостроительЗапроса;

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПолеИсточник.Значение); 

Для Каждого ЭлементОтбора Из ОтборСтрок Цикл     

Если ЭлементОтбора.Использование Тогда

НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя);        

НовыйОтбор.Использование = Истина;         

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

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

НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо;        

НовыйОтбор.Значение = ЭлементОтбора.Значение;     

КонецЕсли;

КонецЦикла;





Таблица = ПостроительЗапроса.Результат.Выгрузить();

МассивСтрок = Новый Массив;

Для Каждого Стр ИЗ Таблица Цикл

СтруктураПоиска = Новый Структура;

Для Каждого Колонка Из Таблица.Колонки Цикл

СтруктураПоиска.Вставить(Колонка.Имя, Стр[Колонка.Имя]);

КонецЦикла;

НайденыеСтроки = ТабличноеПолеИсточник.Значение.НайтиСтроки(СтруктураПоиска);

Если НайденыеСтроки.Количество() > 0 Тогда

МассивСтрок.Добавить(НайденыеСтроки[0]);

КонецЕсли;

КонецЦикла;



Возврат МассивСтрок;



КонецФункции   

 ПараметрыОтбора = Новый Структура;

	ПараметрыОтбора.Вставить("ДокСсылка", ДанныеПоШК.Объект);

	НайденныеСтроки = ПакетДокументов.НайтиСтроки(ПараметрыОтбора);



// Подробнее

СтруктураОтбора = Новый Структура("ВидДокумента, Контрагент", ПФ, ?(Контр = Неопределено, Справочники.Контрагенты.ПустаяСсылка(), Контр));

ПакетДокументов 		 = ЗадачаОбъект.ПакетДокументов;

МассивСтрок				 = ПакетДокументов.НайтиСтроки(СтруктураОтбора);

Если МассивСтрок.Количество() Тогда

	Для Каждого СтрокаМассива Из МассивСтрок Цикл

		СтрокаМассива.ДобавленоПользователем = Истина;

		СтрокаМассива.Пользователь           = ПараметрыСеанса.ТекущийПользователь;

		СтрокаМассива.ДатаВремя				 = ТекущаяДата();

	КонецЦикла;

КонецЕсли;



//или

ТЧ = ПромежуточнаяНакладная.Выгрузить();

		ТЧ.Свернуть("СхемаПродажи");

		СтрокаСПустойСП = ТЧ.НайтиСтроки(Новый Структура("СхемаПродажи", Справочники.СхемыПродаж.ПустаяСсылка()));

		

		Если ТЧ.Количество() - СтрокаСПустойСП.Количество() > 1 Тогда

			Если Вопрос("Сбросить все схемы в строках?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда

				НесколькоСхем = Истина;

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

		Для каждого СтрокаПН из ПромежуточнаяНакладная Цикл

			Если СтрокаПН.Номенклатура.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда

				СтрокаПН.СхемаПродажи = СхемаПродажи;

			КонецЕсли;

	КонецЦикла;   

 Функция СоздатьФайлСхемы()



    ФайлСхемы = Новый Файл(КаталогВременныхФайлов() + "schema.xsd");

    Если ФайлСхемы.Существует() Тогда

        УдалитьФайлы(ФайлСхемы.ПолноеИмя);

    КонецЕсли;



    Ссылка = ПолучитьМакет("schema_xsd");

    Ссылка.Записать(ФайлСхемы.ПолноеИмя);



    Возврат ФайлСхемы.ПолноеИмя;



КонецФункции



Функция ВыгрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    Пока Выборка.Следующий() Цикл



        Документ = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "Документ"));

        Документ.ID = Строка(Док.УникальныйИдентификатор());

        Документ.ВидДокумента = Док.Метаданные().Имя;

        Документ.Дата = Док.Дата;

        Документ.Номер = Док.Номер;

        Документ.Статус = ?(Док.Проведен, "Проведен", ?(Док.ПометкаУдаления, "ПометкаУдаления", "НеПроведен"));

        Документ.Комментарий = Док.Комментарий;



    КонецЦикла



    ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML("UTF-8", "1.0", Ложь);



    МойXML = Новый ЗаписьXML;

    МойXML.ОткрытьФайл(ИмяФайла, ПараметрыЗаписиXML);

    МойXML.ЗаписатьОбъявлениеXML();

    Фабрика.ЗаписатьXML(МойXML, ФайлОбмена);

    МойXML.Закрыть();



    ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Создан файл обмена " + ИмяФайла);



КонецФункции



Процедура ЗагрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    ОбменXML = Новый ЧтениеXML;

    ОбменXML.ОткрытьФайл(ИмяФайла);

    ФайлОбмена = Фабрика.ПрочитатьXML(ОбменXML, Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    Для Каждого Документ Из ФайлОбмена.Документ Цикл



        ОбработкаПрерыванияПользователя();



        Если Документ.ВидДокумента = "ПоступлениеТоваров" И

             ЗначениеЗаполнено(Поставщик) И

             Документ.Контрагент.ИНН  Поставщик.ИНН Тогда



        КонецЕсли;



    КонецЦикла



    ФайлОбмена = "";

    ОбменXML.Закрыть();

    УдалитьФайлы(ИмяФайла);



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

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

    "ВЫБРАТЬ 

    |    усЕдиницыХранения.Ссылка

    |ИЗ

    |    Справочник.усЕдиницыХранения КАК усЕдиницыХранения"



    // Пример 1. сравнение с не заполненным булевым значением:

    |ГДЕ

    |     усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь



    // Пример 2. но если это булево определено, то лучше так: // условие на отрицательное булево:

    |ГДЕ

    |     НЕ усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны



    // Пример 3. выборка по условию не заполненного поля, имеющего тип "справочник конкретного типа"

    |ГДЕ

    |    усЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.усОбластиОтбора.ПустаяСсылка)



    // Пример 3а. выборка по условию не заполненного поля, имеющего тип "документ конкретного типа"

    |ГДЕ

    |    НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент.ПустаяСсылка)



    // Пример 3б. выборка по условию не заполненного поля, имеющего тип "документы разных типов" (составное поле)

    |ГДЕ

    |    (НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент1.ПустаяСсылка)

    |    ИЛИ НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент2.ПустаяСсылка)

    |    ИЛИ ...(и т.д. - последовательно перечисляем условия для всех возможных типов этого составного поля))



    // Пример 4. или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:

    |ГДЕ

    |    усЕдиницыХранения.Наименование > """"



    // Пример 5. если нужно выбрать документы конкретного типа, при составном типе данных, например в регистре "ВыполняемыеЗадания" ресурс "Задание" имеет составной тип, среди значений которого возможен документ "Отбор"

    |ГДЕ

    |    ВЫРАЗИТЬ(РегистрСведенийВыполняемыеЗадания.Задание КАК Документ.Отбор) ССЫЛКА Документ.Отбор



    // Пример 5а. Еще аналогичный пример, когда нужно выбрать документы конкретного типа

    |	ВЫБОР

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.ПоступлениеТоваровУслуг) ССЫЛКА Документ.ПоступлениеТоваровУслуг

    |			ТОГДА ""ПоступлениеТоваровУслуг""

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.РеализацияТоваровУслуг) ССЫЛКА Документ.РеализацияТоваровУслуг

    |			ТОГДА ""РеализацияТоваровУслуг""

    |		ИНАЧЕ """"

    |	КОНЕЦ КАК ВидДокумента



    // Пример 6. выбор по условию не определенного значения:

    |ГДЕ

    |    СохраненныеНастройки.Пользователь = НЕОПРЕДЕЛЕНО



    // Пример 7. выбор по виду движения "Приход" регистра накопления, "Расход" - аналогично):

    |ГДЕ

    |    РегТоварыВРознице.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)



    // Пример 8. Как в запросе указать, что выполнять запрос не нужно (например, нужно программно в зависимости от какого-то

    // условия вернуть пустой результат запроса - 

    // Запрос.Текст = СтрЗаменить(Запрос.Текст, "ГДЕ Док.Ссылка = &ДокументСсылка", "ГДЕ ЛОЖЬ");).

    // Для этого достаточно добавить условие "Где Ложь".

    // Кстати, независимо от объема запрашиваемых в выборке данных, такой запрос будет выполнен мгновенно.

    |ГДЕ ЛОЖЬ



    // Пример 9. Проверка на то, что результат выполнения запроса содержит данные:

    Если НЕ Запрос.Выполнить().Пустой() Тогда



    // Пример 10. выбор по условию не заполненной даты:

    |ГДЕ

    |    тбСтроки.ДатаОтмены = ДАТАВРЕМЯ(1, 1, 1)   

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

    Connection = Новый COMОбъект("ADODB.Connection");

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

    ТЗ=Новый ТаблицаЗначений;

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;   

 ЭлементОтбора = ИсторияЛимитовИПорогов.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Абонент");

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

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

ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;

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

 ЖурналДокументовСписок.Отбор.ВидДокумента.Установить(Метаданные.Документы.ПриемНаРаботу);

   

  // Пример 1

Для к = 1 по Метаданные.РеквизитПроводки()

    Сообщить(Метаданные.РеквизитПроводки(к).Идентификатор);

КонецЦикла;

  // Пример 2

СписокРеквизитов    = СоздатьОбъект("СписокЗначений");

// реквизиты формы операции   

СписокРеквизитов.ДобавитьЗначение("ДатаОперации");

СписокРеквизитов.ДобавитьЗначение("НомерДок");

СписокРеквизитов.ДобавитьЗначение("СуммаОперации");

СписокРеквизитов.ДобавитьЗначение("Содержание");



// Дополнительные реквизиты операции

Для М1    = 1 По Метаданные.РеквизитОперации() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.РеквизитОперации(М1).Идентификатор);

КонецЦикла;



// Общие реквизиты документов

Для М1    = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.ОбщийРеквизитДокумента(М1).Идентификатор);

КонецЦикла;  



СписокРеквизитов.ДобавитьЗначение("НомерПроводки");

СписокРеквизитов.ДобавитьЗначение("ПланСчетов");

СписокРеквизитов.ДобавитьЗначение("СчетДт");

СписокРеквизитов.ДобавитьЗначение("СчетКт");

СписокРеквизитов.ДобавитьЗначение("Субконто");

СписокРеквизитов.ДобавитьЗначение("СубконтоДт");

СписокРеквизитов.ДобавитьЗначение("СубконтоКт");



Для М1    = 1 По Метаданные.МаксимальноеКоличествоСубконто Цикл

    СписокРеквизитов.ДобавитьЗначение("Субконто"    + М1);

    СписокРеквизитов.ДобавитьЗначение("СубконтоКт"    + М1);

    СписокРеквизитов.ДобавитьЗначение("СубконтоДт"    + М1);

КонецЦикла; 





СписокРеквизитов.ДобавитьЗначение("Валюта");

СписокРеквизитов.ДобавитьЗначение("Курс");

СписокРеквизитов.ДобавитьЗначение("Количество");

СписокРеквизитов.ДобавитьЗначение("ВалСумма");

СписокРеквизитов.ДобавитьЗначение("Сумма");

СписокРеквизитов.ДобавитьЗначение("НомерСтроки");



// Дополнительные реквизиты проводки

Для М1    = 1 По Метаданные.РеквизитПроводки() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.РеквизитПроводки(М1).Идентификатор);

КонецЦикла;



// журнал операций

СписокРеквизитов.ДобавитьЗначение("ВидДок");

СписокРеквизитов.ДобавитьЗначение("ВремяОперации");



// Дополнительные графы журнала операций

Для М1    = 1 По Метаданные.ГрафаЖурналаОпераций() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.ГрафаЖурналаОпераций(М1).Идентификатор);

КонецЦикла;

 

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

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

|ВЫБРАТЬ

|	ВЫБОР

|		КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.РасходныйКассовыйОрдер

|			ТОГДА ""Расходный кассовый ордер""

|		ИНАЧЕ ВЫБОР

|				КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ПлатежноеПоручениеИсходящее

|					ТОГДА ""Платежное поручение исходящее""

|				ИНАЧЕ ВЫБОР

|						КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ДепонированиеОрганизаций

|							ТОГДА ""Депонирование""

|						ИНАЧЕ ВЫБОР

|							КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ПриходныйКассовыйОрдер

|								ТОГДА ""Приходный кассовый ордер""

|							ИНАЧЕ """"

|						КОНЕЦ

|					КОНЕЦ

|			КОНЕЦ

|	КОНЕЦ КАК ВидДокумента,

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор КАК Регистратор,

|	ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов КАК СуммаВзаиморасчетов

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

|ГДЕ

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор.Дата МЕЖДУ &ДатаН И &ДатаК

|	И ВзаиморасчетыСРаботникамиОрганизаций.ВидДвижения = &ВидДвижения

|ИТОГИ

|	СУММА(СуммаВзаиморасчетов)

|ПО

|	ВидДокумента

|";

Запрос.УстановитьПараметр("ВидДвижения",ВидДвиженияНакопления.Расход);

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

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

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

Результат = Результат.Выбрать();

Пока Результат.Следующий() Цикл

   // ... код обработки...

КонецЦикла;    

 ГДЕ ТИПЗНАЧЕНИЯ(Регистратор) = ТИП(Документ.ВидДокумента)   

 Процедура Заполнить()

    Спр = СоздатьОбъект("Справочник.Новый1");

    Для Х = 1  По Метаданные.Документ() Цикл

    ИдДок = Метаданные.Документ(Х).Идентификатор;

     Если Спр.НайтиПоНаименованию(ИдДок) = 0 Тогда

     Спр.Новый();

     Спр.Наименование = ИдДок;

     Спр.Записать();

     КонецЕсли;

    КонецЦикла;

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



Процедура Применить()

    НачатьТранзакцию();

    Спр = СоздатьОбъект("Справочник.Новый1");

    Х = 0;

    Док = СоздатьОбъект("Документ");

    Док.ВыбратьДокументы();

    Пока Док.ПолучитьДокумент() = 1 Цикл

    ВидДок = Док.Вид();

       Если Спр.НайтиПоНаименованию(ВидДок) = 1 Тогда

            Док.ДляОтбора = Спр.Код;

            Док.Записать();

       КонецЕсли;

     Х = Х + 1;

     Состояние(Х);

     КонецЦикла;

     ЗафиксироватьТранзакцию();

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

 Процедура ПриОткрытии()

ЗакладкиОтбора("ДляОтбора");

КонецПроцедуры //ПриОткрытии