Архивы Павел - Страница 239 из 283

Выгрузка списка контрагентов в 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с, различная ширина, табличная часть, формат строк

Получение прав root на Pipo m1 max

09.03.2013 Павел Грибов Android, Отзывы о девайсах

Предыстория: планшетом 90% времени пользуется маленький ребенок (2.7 года). А точнее играет в игрушки, слушает сказки, «раскрашивает» рисунки и т.п. Как оказалось очень трудно научить ребенка не нажимать случайно пальчиками на не убираемые кнопки внизу экрана характерные для операционок семейства Android 4.х Да меня немножко напрягало то, что часть экрана, даже при просмотре фильмов используется для этой статусной строки (бред!!бред!!). Из предложенных программ для устранения данного недостатка, Google Play выдал ссылку на приложение FullScreen. Один правда нюанс, для работы данного приложения необходимо получить root доступ к операционной системе.

» Читать далее

Один комментарий fullscreen, pipo m1 max, root, статусная строка убрать, строка статуса android 4.1 убрать

Дураки и дороги..

03.03.2013 Павел Грибов Из жизни

У меня предложение к тем кто отвечает за состояние дорог в Вологодской области: ну не можете привести в порядок все дороги, так приведите хотя-бы в нормальный вид дороги на мостах и на перекрестках. Это сильно поспособствует в деле уменьшения пробок на дорогах в частности в Вологде. Ну не поеду например я быстрее 40 км/час по Ленинградскому мосту по его колеям, рискуя улететь на ж/д пути. Или хоть убибикайтесь, взади едущие, но не поеду я по светофорам по перекресткам больше 20-30 км/час по раздолбаным дорогам, пусть и зелёный свет. Мне ежегодный ремонт подвески обходится в 16 тыс. рублей. Не готов я ремонтировать подвеску два раза в год. Со мной я думаю солидарны ОЧЕНЬ большая часть водителей.

Оставить комментарий дороги, шулепов

Чтиво за последнюю неделю.

03.03.2013 Павел Грибов Чтиво

Гарри Гаррисон — Мир смерти, все части (в цатый раз). Последние части, которые в соавторстве — читал с трудом — автор исписался и сюжет, который в соавторстве откровенно слаб.
Сергей Лукьяненко — Спектр. На самом деле приятно поразивший роман своей новизной и стилем изложения. «Расскажи свою историю странник» — ключники пускают из мира в мир, прося в виде платы рассказать историю. Детектив Мартин, ищет разгадку исчезнувшей девушки, попутно решая еще множество загадок.

Оставить комментарий гарри гаррисон, лукьяненко, мир смерти, спектр

« 1 … 237 238 239 240 241 … 283 »

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