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

Выгрузка списка контрагентов в 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С УПП 8.2 — глюк с табелем

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

Оказывается если сделать документ «начисление зарплаты» вперед табеля, то в табеле будет у сотрудника стоять явка, в не зависимости от состояния регистра «Состояние сотрудника»

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

« 1 … 34 35 36 37 38 … 41 »

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