Архивы 1C - Страница 41 из 47

Выгрузка списка сотрудников организации в 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, список сотрудников

Выгрузка списка контрагентов в XML (1C 8.2)

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

Достаточно простой код, используя обьект 1С ЗаписьXML:

 Запрос = Новый Запрос;
 Запрос.Текст = 
 "ВЫБРАТЬ
	|	Контрагенты.Наименование как имя,
	|	Контрагенты.НаименованиеПолное как полноеимя,
	|	Контрагенты.Код как код,
	|	Контрагенты.ИНН как инн,
	|	Контрагенты.КПП как кпп,
	|	Контрагенты.Ссылка,
	|	Контрагенты.Покупатель как покупатель,
	|	Контрагенты.Поставщик как поставщик
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты";
	
  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();

  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");
	 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");
	 ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");
	 ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");
	 ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();

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

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

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

"ВЫБРАТЬ

| Контрагенты.Наименование как имя,

| Контрагенты.НаименованиеПолное как полноеимя,

| Контрагенты.Код как код,

| Контрагенты.ИНН как инн,

| Контрагенты.КПП как кпп,

| Контрагенты.Ссылка,

| Контрагенты.Покупатель как покупатель,

| Контрагенты.Поставщик как поставщик

|ИЗ

| Справочник.Контрагенты КАК Контрагенты";

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

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

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

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

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

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

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

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

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

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

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

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

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

ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");

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

конеццикла;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

УПП 1.3 (1.3.29.2) опять творится мистика

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

Дано: в начале месяца поступление бензина по приходным ордерам на разные склады. Требованиями накладными далее в течении месяца это все тратится (с разных складов). Все казалось бы хорошо, но в конце месяца вылезло что по управленческому учету все списывается адекватно, а по бухгалтерскому учету, если в требовании накладной выписанной с определенного склада количество бензина превышает остаток на складе, разница мистическим образом списывается с другого склада. Есть предположение что в бухгалтерском учете списание идет еще и в разрезе подразделений?

Оставить комментарий мистика, УПП

« 1 … 39 40 41 42 43 … 47 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
	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