Архивы 1с - Страница 28 из 32

Выгрузка списка сотрудников организации в XML. 1С УПП 8.2

21.03.2013 Павел Грибов 1C

Использую данный скрипт, поместив его в регламентированные заданиях (в рамках доработки проекта «Учет оргтехники в организации» — разработка модуля контроля прохода работников через турникет).Поставщик данных — регистр РаботникиОрганизацийСрезПоследних. Период — задаем например текущую дату. На выходе получаем текущую фазу работника («Работает», «В отпуске и т.п.), и если есть дата выхода из этой «Фазы» (например дата выхода из отпуска), то пишется и она.

Процедура СохранитьВXMLСписокСотрудников();
 Запрос = Новый Запрос;
 Запрос.Текст = 
"ВЫБРАТЬ
|	РаботникиОрганизацийСрезПоследних.Сотрудник,
|	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код КАК кодфиз,
|	РаботникиОрганизацийСрезПоследних.Сотрудник.Должность КАК должн,
|	ВЫБОР
|		КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период
|			ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.Состояние
|		ИНАЧЕ ""Работает""
|	КОНЕЦ КАК Состояние,
|	ВЫБОР
|		КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период
|			ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения
|		ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|	КОНЕЦ КАК КонецФазы
|ИЗ
|	РегистрСведений.РаботникиОрганизаций.СрезПоследних(&Период, ) КАК РаботникиОрганизацийСрезПоследних
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостояниеРаботниковОрганизаций.СрезПоследних(&Период, ) КАК СостояниеРаботниковОрганизацийСрезПоследних
|		ПО РаботникиОрганизацийСрезПоследних.Сотрудник = СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник
|ГДЕ
|	РаботникиОрганизацийСрезПоследних.ЗанимаемыхСтавок <> 0";

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

  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\employees.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();

  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("employees");
	 ЗаписьXML.ЗаписатьБезОбработки("<faza>"+СокрЛП(Результат.Состояние)+"</faza>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fio>"+СокрЛП(Результат.Сотрудник)+"</fio>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+СокрЛП(Результат.кодфиз)+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<enddate>"+СокрЛП(Результат.КонецФазы)+"</enddate>");
	 ЗаписьXML.ЗаписатьБезОбработки("<post>"+СокрЛП(Результат.должн)+"</post>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();

  конеццикла;
  ЗаписьXML.ЗаписатьКонецЭлемента();

Процедура СохранитьВXMLСписокСотрудников();

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

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

"ВЫБРАТЬ

| РаботникиОрганизацийСрезПоследних.Сотрудник,

| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код КАК кодфиз,

| РаботникиОрганизацийСрезПоследних.Сотрудник.Должность КАК должн,

| ВЫБОР

| КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период

| ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.Состояние

| ИНАЧЕ ""Работает""

| КОНЕЦ КАК Состояние,

| ВЫБОР

| КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период

| ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения

| ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)

| КОНЕЦ КАК КонецФазы

|ИЗ

| РегистрСведений.РаботникиОрганизаций.СрезПоследних(&Период, ) КАК РаботникиОрганизацийСрезПоследних

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостояниеРаботниковОрганизаций.СрезПоследних(&Период, ) КАК СостояниеРаботниковОрганизацийСрезПоследних

| ПО РаботникиОрганизацийСрезПоследних.Сотрудник = СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник

|ГДЕ

| РаботникиОрганизацийСрезПоследних.ЗанимаемыхСтавок <> 0";

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

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

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

ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\employees.xml","UTF-8");

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

ЗаписьXML.ЗаписатьНачалоЭлемента("export");

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

ЗаписьXML.ЗаписатьНачалоЭлемента("employees");

ЗаписьXML.ЗаписатьБезОбработки("<faza>"+СокрЛП(Результат.Состояние)+"</faza>");

ЗаписьXML.ЗаписатьБезОбработки("<fio>"+СокрЛП(Результат.Сотрудник)+"</fio>");

ЗаписьXML.ЗаписатьБезОбработки("<code>"+СокрЛП(Результат.кодфиз)+"</code>");

ЗаписьXML.ЗаписатьБезОбработки("<enddate>"+СокрЛП(Результат.КонецФазы)+"</enddate>");

ЗаписьXML.ЗаписатьБезОбработки("<post>"+СокрЛП(Результат.должн)+"</post>");

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

ЗаписьXML.ЗаписатьКонецЭлемента();

Оставить комментарий 1с, выгрузка xml, список сотрудников

Сохранение ширины столбцов макета в табличной части при выводе разных макетов (1С)

12.03.2013 Павел Грибов 1C

Дано: два макета с различной шириной столбцов последовательно друг за другом выводятся в табличную часть документа.

Получаем: при выводе второго макета используется ширина столбцов от первого макета. Соотвественно печатная форма искажается.

Решение: в каждом макете выделяем мышкой все строки, и удерживая CTRL дергаем мышкой любую колонку. После чего выводится диалог: «Сохранить новый формат строк?». Отвечаем — Да. Как результат, при выводе макета в табличную часть, используется именно сохраненный формат, а не формат первого выведенного макета.

Оставить комментарий 1с, различная ширина, табличная часть, формат строк

1С — подчиненные таблицы на форме

13.02.2013 Павел Грибов 1C

Для того чтобы связать на форме 2 таблицы, по принципу главная-подчиненная, необходимо вставить обработку выбора строки главной таблицы.

Процедура ПотребностиПриАктивизацииСтроки(Элемент)
	// Вставить содержимое обработчика.
	Если ЭлементыФормы.Потребности.ТекущаяСтрока <> Неопределено Тогда
  		ЭлементыФормы.СкладыУчета.ОтборСтрок.Номенклатура.Значение= ЭлементыФормы.Потребности.ТекущаяСтрока.Номенклатура;
  		ЭлементыФормы.СкладыУчета.ОтборСтрок.Номенклатура.Использование= Истина;
	КонецЕсли;

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

Процедура ПотребностиПриАктивизацииСтроки(Элемент)

// Вставить содержимое обработчика.

Если ЭлементыФормы.Потребности.ТекущаяСтрока <> Неопределено Тогда

ЭлементыФормы.СкладыУчета.ОтборСтрок.Номенклатура.Значение= ЭлементыФормы.Потребности.ТекущаяСтрока.Номенклатура;

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

КонецЕсли;

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

Оставить комментарий 1с, подчиненная таблица, связанные таблицы

Остатки на складах с поставщиками УПП 8.2

19.09.2012 Павел Грибов 1C

Отчет формирует файл EXCEL с остатками на текущий день в разрезе складов, серий,номенклатуры, поставщикам. Поле поставщик заполняется по возможности, на основании документов поступления товаров и услуг (на самом деле нормально будет подставлять только в случае оприходования по сериям, иначе — последний поставщик).
Область применения: конкретно у меня — для отдела снабжения. Чтоб не давать всем доступ в 1С (отпадает проблема обучения, закрытия «лишнего» чтоб не «лазали» и т.п.). У меня данная обработка повешана в регламентные задания, и файл формируется каждый час.

Загрузить можно Здесь

Оставить комментарий 1с, остатки, поставщики

Регламентные задания в 1С 8.2, файловый вариант

27.08.2012 Павел Грибов 1C

1. В общих модулях создаем процедуру, которая будет выполнятся по расписанию, которое мы назначим позже.
2. Создаем регламентное задание

3. Настраиваем расписание

4. В модуль управляемого приложения добавляем:

Процедура ПроверкаЗаданий()  Экспорт
    ВыполнитьОбработкуЗаданий();
КонецПроцедуры

ПодключитьОбработчикОжидания("ПроверкаЗаданий",3);

Процедура ПроверкаЗаданий() Экспорт

ВыполнитьОбработкуЗаданий();

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

ПодключитьОбработчикОжидания("ПроверкаЗаданий",3);

Оставить комментарий 1с, регламентные задания, файловый режим

« 1 … 26 27 28 29 30 … 32 »

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30