выгружается » Поиск

Результаты по ключевому слову: выгружается

Фоновые задания: Пример запуска выполнения процедуры / функции на сервере

Как в 1С производится запуск фоновых заданий, каким образом можно получить список заданий при помощи метода "ПолучитьФоновыеЗадания()?

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

Пользователь на своем клиенте открывает обработку, устанавливает параметры и нажимает выгрузить.

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

На клиенте в модуле Кнопки Выгрузить:

Код 1C v 8.3

 Процедура КоманднаяПанель1ВыгрузитьНаСайт(Кнопка)

	

	//Выгружается фоновым заданием на серваке

	ПараметрыФоновогоЗадания = Новый Массив;

	ПараметрыФоновогоЗадания.Добавить(Группа); //Группа номенклатуры

	ФоновыеЗадания.Выполнить("МодульРегламентныхЗаданий.ВыгрузкаПрайсаНАФТП",

				ПараметрыФоновогоЗадания, Новый УникальныйИдентификатор, 

				"Выгрузка прайса на сайт"); 	

	ПоказатьОповещениеПользователя("Выгрузка прайса на сайт", ,"Запущено задание выгрузки прайса на сайт, проверьте данные на сайте через 2-3 минуты...", БиблиотекаКартинок.Информация32);

ПараметрыФоновогоЗадания - это переменные функции, они задаются по порядку как определены в вызываемой функции.

На сервере в общем модуле МодульРегламентныхЗаданий:

Код 1C v 8.3

 Процедура ВыгрузкаПрайсаНАФТП(Группа) Экспорт   	

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

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

	"ВЫБРАТЬ

	|	ПрайсЛист1СрезПоследних.НоменклатураПрайса,

	|	ПрайсЛист1СрезПоследних.Цена

	|ИЗ

	|	РегистрСведений.ПрайсЛист.СрезПоследних(, Поставщик = ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)) КАК ПрайсЛист1СрезПоследних

	|ГДЕ

	|	&Условие

	|	И ПрайсЛист1СрезПоследних.НоменклатураПрайса.ИДдляСайта > 0";

	

	Если ЗначениеЗаполнено(Группа) Тогда

		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ПрайсЛист1СрезПоследних.НоменклатураПрайса В ИЕРАРХИИ(&НоменклатураПрайса)")

	Иначе

		Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Условие", "ИСТИНА")

	КонецЕсли;	

	Запрос.УстановитьПараметр("НоменклатураПрайса", Группа);

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

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

	Пока Выборка.Следующий() Цикл

		НомПрайса = Выборка.НоменклатураПрайса;

		ЦенаА = Выборка.Цена;

		Цена = Ценообразование.ОкруглитьЦену(ЦенаА * ( 1 + НомПрайса.Наценка20 / 100) + НомПрайса.Надбавка20, НомПрайса.ПорядокОкругления, НомПрайса.ОкруглятьВБольшуюСторону); 		

		Если Цена > 0 Тогда

			Текст.ДобавитьСтроку(""+Формат(НомПрайса.ИДдляСайта, "ЧГ=0")+";"+Формат(Цена, "ЧГ=0"));

		КонецЕсли;

	КонецЦикла;

	

	// запись в текстовый файл

	ПутьКФайлВыгр = "\\FG-1\1c_data\naSite\vigruz.csv";//"D:\!!!For1C!!!\naSite\vigruz.csv";

	Текст.Записать(ПутьКФайлВыгр, "windows-1251");

	КаталогНаSFTPСервере = "/sitetest.ru/public_html/p";	

	Попытка

		ИмяПользователя = "serveruser";

		ПарольПользователя = "password";

		Сервер = "192.253.6.47";

		Порт = "21";  		

		Прокси = Новый ИнтернетПрокси();

		Прокси.Пользователь = ИмяПользователя;

		Прокси.Пароль = ПарольПользователя;

		

		FTPСоединение = Новый FTPСоединение(Сервер,,ИмяПользователя,ПарольПользователя,,Ложь);

		FTPСоединение.УстановитьТекущийКаталог(КаталогНаSFTPСервере);

		//FTPСоединение.ПассивныйРежим(Ложь);

		ТекущийКаталог = FTPСоединение.ТекущийКаталог();

	Исключение

	КонецПопытки;

	FTPСоединение.Записать(ПутьКФайлВыгр,"vigruz.csv"); 

	

	//Вызов PHP скрипта для иморта данных из csv файла на сайт

	НТТР = Новый HTTPСоединение("sitetest.ru");

	ФайлРезультата = ПолучитьИмяВременногоФайла();

	НТТР.Получить("/p/import_price.php", ФайлРезультата);



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

Как Получить фоновые задания?

Напишем в процедуре обработки нажания следующий код:

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПолучитьФоновыеЗадания(Команда)

	ПолучитьФоновыеЗаданияНаСервере();	

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

Текст процедуры на сервере:

Код 1C v 8.2 УП

 &НаСервере

Процедура ПолучитьФоновыеЗаданияНаСервере()



	ПараметрыОтбора = Новый Структура("Наименование", "Тестовое задание");	

	СписокФоновыхЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ПараметрыОтбора);

	

	Для каждого Задание Из СписокФоновыхЗаданий Цикл

		Сообщить(Задание.Наименование);

	КонецЦикла;



КонецПроцедуры // ПолучитьФоновыеЗаданияНаСервере()

В окно сообщений выведутся наименования выполняющихся и выполненных в 1С фоновых заданий с наименованием "Тестовое задание", так как мы сделали отбор именно по этому наименованию.

Категория: Регламентные задания, Фоновые задания

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

В 1С хранится номенклатура, которая в последствии выгружается на сайт.

Для каждой выгружаемой номенклатуры нужно указать описание! Но не обычный текст, а хорошо оформленный, со списками, курсив, выделение:

Реализовано следующим образом:

Реквизит объекта ОписаниеОсновное
Реквизит формы фдОсновноеОписание

Код, который при изменении форматированного документа, помещает кусок HTML кода находящегося в BODY в реквизит ОписаниеОсновное:

Код 1C v 8.3

 &НаКлиенте

Процедура фдОсновноеОписаниеПриИзменении(Элемент)

	Вложение = Новый Структура; текТекст ="";

	фдОсновноеОписание.ПолучитьHTML(текТекст,Вложение); 

	//Поправим валидность кода

	текТекст=СтрЗаменить (текТекст, "center'", "center;'");

	текТекст=СтрЗаменить (текТекст, "right'", "right;'");

	текТекст=СтрЗаменить (текТекст, "justify'", "justify;'");

	

	//Получим текст из BODY

	Содержимое=текТекст; НачалоБлока = "<body>"; КонецБлока = "</body>";

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

	

	Объект.ОписаниеОсновное = СокрЛП(текТекст);

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

При открытии:

Код 1C v 8.3

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	фдОсновноеОписание.УстановитьHTML(Объект.ОписаниеОсновное,Новый Структура);

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

Категория: Форматированный документ

КД: Передача параметров из выгрузки в загрузку (в т.ч. и на ранние стадии) при обмене из 7.7 в 8.х

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

Ниже излагается способ передачи глобальных параметров при таком обмене без правки выгруженного из КД 2 модуля выгрузки и без правки самой КД 2.

Итак, в обработчике ПередВыгрузкойДанных пишем код:

Код 1C v 8.2 УП

 УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр1");

УстановитьАтрибут(УзелПарам,"Тип","Строка");

ЗаписатьЭлемент(УзелПарам,"Значение","Значение нашего параметра 1");

ДобавитьПодчиненный(rootNode,УзелПарам);





УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр2");

УстановитьАтрибут(УзелПарам,"Тип","Булево");

ЗаписатьЭлемент(УзелПарам,"Значение","true");

ДобавитьПодчиненный(rootNode,УзелПарам);

после этого данные параметры будут абсолютно штатно загружены в стандартной обработке "Универсальный обмен данными в формате XML (2.1.5)".

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

Код 1C v 8.2 УП

 АлгПослеЗагрузкиПараметров=

"СтрокаКода1;"+РазделительСтрок+

"СтрокаКода2;"+РазделительСтрок+

"СтрокаКода3;";

ЗаписатьЭлемент(rootNode,"АлгоритмПослеЗагрузкиПараметров",АлгПослеЗагрузкиПараметров);

Нюанс: чтобы иметь параметры на ранних стадиях загрузки, например, в обработчиках ПередЗагрузкойДанных или ПередОбработкой в ПОД (правилах очистки данных), нужно помещать выгружаемые параметры в корень узла с выгружаемыми данными:

Код 1C v 8.2 УП

 ИмяПараметра="НашПараметр1";

ТипПараметра="Строка";

ЗначениеПараметра="Значение нашего параметра 1";



// Устанавливаем значение параметра в обработчике ПередЗагрузкойДанных

УзелПравил=rootNode.getElementsByTagName("ПравилаОбмена").item(0);

УзелПередЗагрузкой=УзелПравил.getElementsByTagName("ПередЗагрузкойДанных").item(0);

КоллУзлов=УзелПередЗагрузкой.childNodes;

Для НомУзла=0 По КоллУзлов.length-1 Цикл

    ТекУзел=КоллУзлов.item(НомУзла);

    Если (ТекУзел.nodeType=3) Тогда

        // текст элемента

        ТекУзел.nodeValue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+

            ЗначениеПараметра+?(ТипПараметра="Строка","""","")+";"+РазделительСтрок+РазделительСтрок+

            ТекУзел.nodeValue;

        Прервать;

    КонецЕсли;

КонецЦикла;

Автор: andrewks - Источник

Категория: Конвертация данных, Обмен, Перенос

Классификация записей по приоритету видов расчета

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

Ниже приведен пример процедуры, которая классифицирует записи исходного набора по приоритету видов расчета и для каждого уровня приоритета вызывает процедуру расчета поднабора записей. В данном случае из набора записей выгружается массив видов расчета, после чего по этим видам расчета строится запрос с иерархией по приоритету.

Расчет записей по приоритету видов расчета

Код 1C v 8.х

 Процедура РассчитатьЗаписиРегистраРасчета(ИмяРегистра, НаборЗаписей, ТабличнаяЧасть = Неопределено) Экспорт



НаборЗаписей.Записать(Истина, Ложь);



// Определить название плана видов расчета для запроса. ИмяПланаВидовРасчета =

Метаданные.РегистрыРасчета[ИмяРегистра].ПланВидовРасчета.Имя;



// Получить массив видов расчета из набора записей. ТаблицаВидовРасчета = НаборЗаписей.Выгрузить(); ТаблицаВидовРасчета.Свернуть("ВидРасчета");

МассивВидовРасчета = ТаблицаВидовРасчета.ВыгрузитьКолонку("ВидРасчета");



// Запрос по приоритетам видов расчета. Запрос = Новый Запрос;



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

|ВЫБРАТЬ РАЗЛИЧНЫЕ

| Приоритет

|ИЗ

| ПланВидовРасчета." + ИмяПланаВидовРасчета + " КАК " +

| ИмяПланаВидовРасчета + "

|ГДЕ

| Ссылка В (&МассивВидовРасчета)

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

| " + ИмяПланаВидовРасчета + ".Приоритет

|ИТОГИ ПО

| Приоритет";



Запрос.УстановитьПараметр("МассивВидовРасчета", МассивВидовРасчета); ВыборкаПриоритетов = Запрос.Выполнить().

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



// Для каждого значения приоритета выполнить расчет записей. Пока ВыборкаПриоритетов.Следующий() Цикл

РассчитатьНаборЗаписей(НаборЗаписей, ВыборкаПриоритетов.Приоритет, ТабличнаяЧасть);



// Записать набор в регистр для расчета записей следующего

// приоритета, фактический период действия не пересчитывается. НаборЗаписей.Записать(Истина, Истина);

КонецЦикла;



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

После расчета записей каждого приоритета необходимо перезаписать весь набор в регистр для образования базы расчета для записей следующего приоритета. При этом параметр ТолькоЗапись метода Записать() должен быть установлен в значение Истина, так как пересчитывать фактический период действия уже не нужно, он был рассчитан при первоначальной записи.

ПРИМЕЧАНИЕ
После расчета записей последнего приоритета набор записей можно не перезаписывать, но только в том случае, если в документе после этого не будет производиться расчет записей другого регистра, который может использовать данные текущего регистра как базу. Например, если после расчета регистра основных начислений в модуле будет сразу производиться расчет дополнительных начислений, то записи регистра основных начислений после расчета последнего приоритета должны быть перезаписаны.

Категория: Регистры расчета

Пытаюсь сделать расшифровку отчета

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

Код 1C v 8.х

 Если ТипЗнч(Расшифровка) = Тип("СписокЗначений") Тогда

        Если Расшифровка.Количество() = 1 Тогда

            ВыбранноеЗначение = Расшифровка[0];

        Иначе

            ВыбранноеЗначение = Расшифровка.ВыбратьЭлемент("Выберите расшифровку",Расшифровка[0]);

        КонецЕсли;

        Если ВыбранноеЗначение <> Неопределено Тогда

            ВыбраннаяРасшифровка = ВыбранноеЗначение.Значение;

        Иначе

            СтандартнаяОбработка = Ложь;

            Возврат;

        КонецЕсли;

    ИначеЕсли ТипЗнч(Расшифровка) = Тип("Структура")

        ИЛИ ТипЗнч(Расшифровка) = Тип("Соответствие") Тогда

        

        ВыбраннаяРасшифровка = Расшифровка;

    КонецЕсли;

    

    Если ТипЗнч(ВыбраннаяРасшифровка) = Тип("Структура") 

        ИЛИ ТипЗнч(ВыбраннаяРасшифровка) = Тип("Соответствие") Тогда

        

        ОбщаяРасшифровка = Элемент.Область(1,1).Расшифровка;

        

        Если ТипЗнч(ОбщаяРасшифровка) = Тип("Структура") 

            ИЛИ ТипЗнч(ОбщаяРасшифровка) = Тип("Соответствие") Тогда

            

            Для Каждого Элемент Из ОбщаяРасшифровка Цикл

                ВыбраннаяРасшифровка.Вставить(Элемент.Ключ, Элемент.Значение);

            КонецЦикла;

            

        КонецЕсли;

        

        СтандартнаяОбработка = Ложь;

        

        Отчет = Отчеты[ВыбраннаяРасшифровка["ИмяОбъекта"]].Создать();

        Настройки = Отчет.КомпоновщикНастроек.ПолучитьНастройки();

        Отчет.РежимРасшифровки = Истина;

        ФормаОтчета = Отчет.ПолучитьФорму(, , Новый УникальныйИдентификатор());

        Отчет.НачалоПериода = ДатаНач;

        Отчет.КонецПериода  = ДатаКон;

        Отчет.Организация   = ПостроительОтчета.Отбор.Организация.Значение;

        Отчет.Счет = ПланыСчетов.Хозрасчетный.Материалы;

        Отчет.Настроить();                    

        Если ВыбраннаяРасшифровка["Отбор"] <> Неопределено Тогда

            Для Каждого СтрокаОтбора Из ВыбраннаяРасшифровка["Отбор"] Цикл

                Если ТипЗнч(СтрокаОтбора.Значение) <> Тип("Соответствие") Тогда

                    ТиповыеОтчеты.ДобавитьОтбор(Отчет.КомпоновщикНастроек, СтрокаОтбора.Ключ, СтрокаОтбора.Значение);

                Иначе                              

                    Для Каждого Элемент Из СтрокаОтбора.Значение Цикл

                        ТиповыеОтчеты.ДобавитьОтбор(Отчет.КомпоновщикНастроек,Элемент.Ключ,Элемент.Значение);

                    КонецЦикла;                              

                КонецЕсли;                           

            КонецЦикла;

        КонецЕсли;          

        

        ФормаОтчета.Открыть();

        ФормаОтчета.ОбновитьОтчет();

Категория: Нет

Обработка Универсальный обмен данными в формате XML Категория: Обработки

Взаимодействие с Контрольно-Кассовыми Машинами (ККМ)

Имеется ли возможность взаимодействия конфигурации Управление торговлей с контрольно-кассовыми машинами (ККМ)?
Данная возможность реализована в конфигурации в трех вариантах: ККМ в режиме фискального регистратора, ККМ в режиме Offline, ККМ в режиме Online.

Каким образом реализован механизм взаимодействия ККМ в режиме фискального регистратора?
При работе в режиме фискального регистратора, ККМ подключается непосредственно к компьютеру пользователя. Для удобства работы используется интерфейс кассира. При пробитии чека на ККМ в информационной базе автоматически регистрируется документ «Чек ККМ».

При завершении кассовой смены продавец-кассир снимает "z-отчет" и регистрирует его в бумажной "Книге кассира-операциониста". При этом в информационной базе автоматически регистрируется документ "Отчет о розничных продажах", заполняемый автоматизированным способом. Документ содержит сводку товаров, проданных в течение кассовой смены, и заменяет собой все документы "Чек ККМ", ранее введенные в течение этой же смены. Полученную выручку кассир сдает в кассу предприятия, эта операция также регистрируется соответствующим документом.

Как работать с ККМ в режиме Offline?
При работе ККМ в режиме Offline вся информация о товаре выгружается и хранится в запоминающем устройстве кассового аппарата. Запоминающее устройство может быть внутренним, расположенном в самом ККМ, или внешнем (например, блок внешней памяти).

При работе с ККМ, регистрация продаж осуществляется по коду товара. Пользователь может набрать код на клавиатуре кассы или считать его с помощью сканера штрих-кодов. В начале работы в память кассового аппарата (блок внешней памяти) загружается вся информация о товарах, по мере необходимости данные о товарах выгружаются в ККМ. В конце рабочей смены из касс производится выгрузка данных о продажах в учетную программу.

Каков механизм работы с ККМ в режиме Online?
В режиме Online все данные о товарах ККМ оперативно получает из программы и информация о продажах, сформированная кассой, сразу попадает в учетную программу. Отсутствует момент загрузки данных в ККМ, так как в неё ничего не загружается— вся необходимая информация берется из учетной программы автоматически. В результате в учетной программе хранится полностью достоверная информация по продажам, доступная для анализа и обработки.

Категория: 1С Управление торговлей 10.3