Фрагменты кода отчетов и обработок
29634&type=14_2&ws=1
27612&type=11_1&ws=1
ВЫБРАТЬ РАЗЛИЧНЫЕ
ДокументыПоНачислениюЗарплатыОрганизаций.Ссылка КАК Ссылка
ИЗ
ЖурналДокументов.ДокументыПоНачислениюЗарплатыОрганизаций КАК ДокументыПоНачислениюЗарплатыОрганизаций
ГДЕ
ДокументыПоНачислениюЗарплатыОрганизаций.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ДокументыПоВыплатеЗарплатыОрганизаций.Ссылка
ИЗ
ЖурналДокументов.ДокументыПоВыплатеЗарплатыОрганизаций КАК ДокументыПоВыплатеЗарплатыОрганизаций
ГДЕ
ДокументыПоВыплатеЗарплатыОрганизаций.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ОтклоненияОрганизаций.Ссылка
ИЗ
ЖурналДокументов.ОтклоненияОрганизаций КАК ОтклоненияОрганизаций
ГДЕ
ОтклоненияОрганизаций.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ОтпускаПоУходуЗаРебенком.Ссылка
ИЗ
ЖурналДокументов.ОтпускаПоУходуЗаРебенком КАК ОтпускаПоУходуЗаРебенком
ГДЕ
ОтпускаПоУходуЗаРебенком.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПерсонифицированныйУчетПФР.Ссылка
ИЗ
ЖурналДокументов.ПерсонифицированныйУчетПФР КАК ПерсонифицированныйУчетПФР
ГДЕ
ПерсонифицированныйУчетПФР.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
ПлановыеДанныеДляРасчетов.Ссылка
ИЗ
ЖурналДокументов.ПлановыеДанныеДляРасчетов КАК ПлановыеДанныеДляРасчетов
ГДЕ
ПлановыеДанныеДляРасчетов.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
РасчетОплатыНеявок.Ссылка
ИЗ
ЖурналДокументов.РасчетОплатыНеявок КАК РасчетОплатыНеявок
ГДЕ
РасчетОплатыНеявок.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
РегламентированнаяОтчетностьПоФизлицам.Ссылка КАК Ссылка1
ИЗ
ЖурналДокументов.РегламентированнаяОтчетностьПоФизлицам КАК РегламентированнаяОтчетностьПоФизлицам
ГДЕ
РегламентированнаяОтчетностьПоФизлицам.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
РегламентныеДокументы.Ссылка
ИЗ
ЖурналДокументов.РегламентныеДокументы КАК РегламентныеДокументы
ГДЕ
РегламентныеДокументы.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
УчетНДФЛиЕСН.Ссылка
ИЗ
ЖурналДокументов.УчетНДФЛиЕСН КАК УчетНДФЛиЕСН
ГДЕ
УчетНДФЛиЕСН.Организация = &Организация
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РАЗЛИЧНЫЕ
РеестрыПособийФСС.Ссылка
ИЗ
ЖурналДокументов.РеестрыПособийФСС КАК РеестрыПособийФСС
ГДЕ
РеестрыПособийФСС.Организация = &Организация
ДатаНапоминания=ЭлементыФормы.ДатаСледующегоНапоминания.Значение;
Для Каждого тПользователь из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "ПовторитьПопыткуПодключенияПриСтартеПрограммы", Ложь,,тПользователь.Имя);
ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Ложь,,тПользователь.Имя);
ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "НеНапоминатьОбАвторизацииДо", ДатаНапоминания,,тПользователь.Имя);
КонецЦикла;
Задача=Задачи.ЗадачаИсполнителя.Выбрать(Дата1, КонецДня(Дата2));
Пока Задача.Следующий() Цикл
Зад=Задача.ПолучитьОбъект();
Если Пользователь=Справочники.Пользователи.ПустаяСсылка() Тогда
Зад.ПометкаУдаления=Истина;
Зад.Записать();
Сообщить("Задача отмечена на удаление: "+Зад);
ИначеЕсли Пользователь=Зад.Исполнитель Тогда
Зад.ПометкаУдаления=Истина;
Сообщить("Задача отмечена на удаление: "+Зад);
Зад.Записать();
КонецЕсли;
КонецЦикла;
Текст="";
Для Каждого Документ Из Метаданные.Документы Цикл
Если Документ.Реквизиты.Найти("Организация")=Неопределено Тогда
Продолжить;
КонецЕсли;
ТекстУсловия=" ГДЕ "+Документ.Имя+".Организация = *Организация И "+Документ.Имя+".ПометкаУдаления = ЛОЖЬ";
Текст=Текст+"ВЫБРАТЬ "+Документ.Имя+".Ссылка ИЗ Документ."+Документ.Имя+" КАК "+Документ.Имя+ТекстУсловия+" ОБЪЕДИНИТЬ ";
КонецЦикла;
ТекстЗапроса=Лев(Текст,СтрДлина(Текст)-СтрДлина(" ОБЪЕДИНИТЬ "));
lotta.dlinkddns.com:8086
Комментариев нет:
Отправить комментарий