дальнейшей » Поиск

Результаты по ключевому слову: дальнейшей

Как преобразовать MXL файл в Таблицу Значений? Категория: Табличный документ

Где список открытых окон (документов, справочников) в такси?

В текущей работе пользователь обычно открывает несколько объектов. Это может быть документ, справочник, отчет и т.д. В предыдущем интерфейсе не было проблем быстро найти открытый объект и актуализировать его для дальнейшей работы используя окна или вкладки.

Однако в интерфейсе Такси, как только мы открываем новый документ, предыдущий скрывается. Искать его с помощью стрелок Вперед-Назад крайне неудобно. После долгих поисков решение было найдено. Возможно оно не лучшее.

Все Окна

На панели системных команд (это самая верхняя строка командного интерфейса) кликаем по кнопке «Добавить или удалить кнопки», затем кликаем по пункту «Все окна …». На панели системных команд появится кнопка «Список окон». Клик по ней открывает форму «Все окна», в которой отображается список открытых объектов конфигурации. Это могут быть справочники, формы документов, списки журналов, регистры накопления, регистры сведений, план счетов.

По щелчку Все Окна открывается форма со списком открытых окон:

В прежнем интерфейсе, независимо от его внешнего вида «Формы в закладках» или «Формы в отдельных окнах», все открытые формы были на виду: либо в закладках на рабочем столе, либо в трее операционной системы.

Пользователю легко было найти нужную форму. Кроме того он наглядно видел насколько он увлекся в количестве открытых окон. Теперь же, во-первых, он должен знать, как добраться до кнопки «Список окон». Во-вторых, он не видит, сколько окон им открыто. Для этого он должен каждый раз кликать по кнопке «Список окон».

Еще вариант: Добавить панель открытых Окон

Нажмите в меню "Вид > Настройки панелей":

Я люблю вкладки сверху, поэтому перетаскиваю Панель открытых вверх и жму ОК

В результате вверху появляется панель открытых окон:

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Обработка "Универсальные подбор и обработка объектов" Категория: 1С Общие вопросы - Обычные формы

Табличное поле ~ Колонка с Флажком для пометки необходимых документов

Вопрос:
Есть ТЗ с типом Значения ДокументСписок.ПоступлениеТоваровУслуг. Мне необходимо добавить еще одну колонку, в котором пользователь сможет отмечать необходимые документы для дальнейшей обработки(флажок, поставил/снял галочку).

Ответ:

Код 1C v 8.х

 Перем СписокДокументовДляОбработки;



Процедура ТабличноеПоле1ПриПолученииДанных(Элемент, ОформленияСтрок)

    

    Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл 

        ОформлениеСтроки.Ячейки.Флажок1.УстановитьФлажок(СписокДокументовДляОбработки.Получить(ОформлениеСтроки.ДанныеСтроки.Ссылка) <> Неопределено);

    КонецЦикла; 

    

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



Процедура ТабличноеПоле1ПередНачаломИзменения(Элемент, Отказ)

    

    Если ЭлементыФормы.ТабличноеПоле1.ТекущаяКолонка.Имя = "Флажок1" Тогда

        Отказ = Истина;

        Ссылка = ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные.Ссылка;

        Если СписокДокументовДляОбработки.Получить(Ссылка) = Неопределено Тогда

            СписокДокументовДляОбработки.Вставить(Ссылка, Ссылка);

        Иначе

            СписокДокументовДляОбработки.Удалить(Ссылка);

        КонецЕсли;

    КонецЕсли;

    

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



СписокДокументовДляОбработки = Новый Соответствие;



Колонка = ЭлементыФормы.ТабличноеПоле1.Колонки.Вставить(0, "Флажок1");

Колонка.Имя = "Флажок1";

Колонка.Ширина = 3;

Колонка.Данные = "";

Колонка.ДанныеФлажка = "ПометкаУдаления";

Колонка.ИзменятьПозицию = Ложь;

Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;

Колонка.ИзменятьВидимость = Ложь;

Колонка.ИзменятьНастройку = Ложь;

Колонка.РежимРедактирования =  РежимРедактированияКолонки.Непосредственно;

Категория: Работа с Формой (Диалог) и её элементами

Получаем курс валют с сайта банка (HTML)

Для полного понимания происходящего смотрите исходный код вэб-страницы. Подобным примитивным образом можно получить любую информацию, опираясь на значения id и class html блоков.

Из этого фрагмента страницы будем получать значения:

fragment

Код 1C v 8.х

 

Процедура КнопкаВыполнитьНажатие(Кнопка)



	//Сохраняем нужную страницу для дальнейшей работы

	Сервер = "kkb.kz";

	Адрес = "/";

	ИмяВходящегоФайла = КаталогВременныхФайлов() + "rate.html";

	НТТР = Новый HTTPСоединение(Сервер);

	НТТР.Получить(Адрес, ИмяВходящегоФайла);

	ВходящийФайл = Новый Файл(ИмяВходящегоФайла);

	

	//Получаем текст страницы

	Текст = Новый ТекстовыйДокумент; 

	Текст.Прочитать(ИмяВходящегоФайла);

	Содержимое = Текст.ПолучитьТекст();

	

	//Получаем дату курса

	НачалоБлокаСДатой = "<div class=" + """" + "w100fl" + """" + " id=" + """" + "kurs" + """" + ">";

	КонецБлокаСДатой = "<div class=" + """" + "tbl_menu" + """" + " id=" + """" + "tbl_menu" + """" +">";

	БлокСДатой = Сред(Содержимое, Найти(Содержимое, НачалоБлокаСДатой) + СтрДлина(НачалоБлокаСДатой), Найти(Содержимое, КонецБлокаСДатой) - Найти(Содержимое, НачалоБлокаСДатой) - СтрДлина(НачалоБлокаСДатой));

	НачалоБлокаСДатой = "<nobr>";

	КонецБлокаСДатой = "</nobr>";

	Дата = Дата(Сред(БлокСДатой, Найти(БлокСДатой, НачалоБлокаСДатой) + СтрДлина(НачалоБлокаСДатой), Найти(БлокСДатой, КонецБлокаСДатой) - Найти(БлокСДатой, НачалоБлокаСДатой) - СтрДлина(НачалоБлокаСДатой)) + ":00");

	

	//Выделяем блок, где содержится информация о курсах

	НачалоТекста = Найти(Содержимое, "<" + "div id=" + """" + "div_sub1" + """" + ">");

	КонецТекста = Найти(Содержимое, "<" + "div id=" + """" + "div_sub2" + """");

	БлокКурса = Сред(Содержимое, НачалоТекста, КонецТекста - НачалоТекста);

	

	//Получаем курс (в нашем случае функции можем передать ещё значения "EUR" и "RUB")

	Курс = ПолучитьКурсВалюты("USD", БлокКурса);

	Покупка = Курс[0];

	Продажа = Курс[1];

	



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



Функция ПолучитьКурсВалюты(Валюта, БлокКурса)

	

	БлокКурса = СтрЗаменить(БлокКурса, Символы.ПС, "");

	БлокКурса = СтрЗаменить(БлокКурса, " ", "");

	СтрокаНачала = "<td><strong>" + Валюта + "</strong></td>";

	НачалоБлокаВалюты = Найти(БлокКурса, СтрокаНачала);

	ОстатокБлока = Сред(БлокКурса, НачалоБлокаВалюты + СтрДлина(СтрокаНачала), СтрДлина(БлокКурса) - НачалоБлокаВалюты);

	КонецБлокаПокупки = Найти(ОстатокБлока, "</td>") - 1;

	ЦенаПокупки = Число(СтрЗаменить(Сред(ОстатокБлока, 1, КонецБлокаПокупки), "<td>", ""));

	ОстатокБлока = Сред(ОстатокБлока, КонецБлокаПокупки + 6, СтрДлина(ОстатокБлока) - КонецБлокаПокупки + 6);

	КонецБлокаПродажи = Найти(ОстатокБлока, "</td>") - 1;

	ЦенаПродажи = Число(СтрЗаменить(Сред(ОстатокБлока, 1, КонецБлокаПродажи), "<td>", ""));

	

	Массив = Новый Массив;

	Массив.Добавить(ЦенаПокупки);

	Массив.Добавить(ЦенаПродажи);

	

	Возврат Массив;

	

КонецФункции

Категория: Работа с Интернет, Почтой (Mail), FTP

Ошибка "Нарушена целостность структуры конфигурации" Категория: Системные Ошибки

Реквизит ~ Функция проверяет заполненность реквизитов объекта Категория: Работа с Формой (Диалог) и её элементами

Выгрузка результата запроса в текстовый файл с разделителями

Код 1C v 8.х

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

Запрос.УстановитьПараметр("ДатаНач",НачалоДня(ДатаНач));

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

Запрос.УстановитьПараметр("Организация",Организация);

Запрос.Текст = "ВЫБРАТЬ

|	ПоступлениеТоваровУслугТовары.Номенклатура КАК Номенклатура,

|	ПоступлениеТоваровУслугТовары.Количество КАК Количество,

|	ПоступлениеТоваровУслугТовары.Цена КАК Цена,

|	ПоступлениеТоваровУслугТовары.Ссылка.Номер КАК Номер,

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата КАК Дата,

|	ПоступлениеТоваровУслугТовары.Ссылка.Контрагент КАК Контрагент,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Код КАК НоменклатураКод,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Артикул КАК НоменклатураАртикул

|ИЗ

|	Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары

|ГДЕ

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон

|	И ПоступлениеТоваровУслугТовары.Ссылка.Организация = &Организация

|	

|УПОРЯДОЧИТЬ ПО	

|	Контрагент,

|	Номер,

|	Дата,

|	НоменклатураКод,

|	Номенклатура,

|	НоменклатураАртикул,

|	Количество,

|	Цена";	

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

Текст = Новый ЗаписьТекста("c:\vigruz.txt", КодировкаТекста.ANSI);

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

Пока РезультатДок.Следующий() Цикл		

	ОбработкаПрерыванияПользователя();

	// В качестве разделителей необходимо использовать Символы. ВК (CR),ВТаб (VTab),НПП (NBSp),ПС (LF),ПФ (FF),Таб (Tab)

	

	//Если нам нужна строка вида " helpf.pro    07.08.2009   13 " в качестве разделителя используется табуляция

	//то пишем так:

	Текст.ЗаписатьСтроку(Строка(РезультатДок.Контрагент)+Символы.Таб+Строка(Формат((РезультатДок.Дата),"ДЛФ=D"))+Символы.Таб+Строка(РезультатДок.Номер));	

	// При загрузке строку можно будет разложить в массив для дальнейшей работы, РазложитьСтрокуВМассивПодстрок( ТекСтр, Символы.Таб). Ссылка на функцию ниже



	//Если нужен вид 

	// helpf.pro 

	// 07.08.2009

	// 13 

	// здесь в качестве разделителя используется перевод каретки (следующая строка), то пишем

	Текст.ЗаписатьСтроку(РезультатДок.Контрагент);

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(Формат((РезультатДок.Дата),"ДЛФ=D"));      

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(РезультатДок.Номер);          

	

КонецЦикла;		

Текст.Закрыть();

При загрузке для разбора строки используйте: Функция разбирает строку на подстроки, используя заданный разделитель и возвращает массив

Еще посмотрите пример: Загрузка данных из Текстового файла

Категория: Работа с Текстом (Строкой)