Округление в меньшую сторону \ Отсечь лишние числа 1С

 Взято с интернета

Цел(МоеЧисло * 100) / 100

Из кирилицы в латынь 1С

Процедура ОбработатьНомерДокументаИзХМЛСУчетомПрефиксаНаКирилице(_Строка)

НомерДокумента = КирВЛат(_Строка)

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

Функция КирВЛат(Слово)Экспорт

Латиница= "";

СоотвБукв = новый СписокЗначений;

//Кириллица

СоотвБукв.Добавить("й","j");

СоотвБукв.Добавить("ц","c");

СоотвБукв.Добавить("у","u");

СоотвБукв.Добавить("к","k");

СоотвБукв.Добавить("е","e");

СоотвБукв.Добавить("н","n");

СоотвБукв.Добавить("г","g");

СоотвБукв.Добавить("ш","sh");

СоотвБукв.Добавить("щ","sch");

СоотвБукв.Добавить("з","z");

СоотвБукв.Добавить("х","h");

СоотвБукв.Добавить("ъ","#");

СоотвБукв.Добавить("ф","f");

СоотвБукв.Добавить("ы","y");

СоотвБукв.Добавить("в","v");

СоотвБукв.Добавить("а","a");

СоотвБукв.Добавить("п","p");

СоотвБукв.Добавить("р","r");

СоотвБукв.Добавить("о","o");

СоотвБукв.Добавить("л","l");

СоотвБукв.Добавить("д","d");

СоотвБукв.Добавить("ж","zh");

СоотвБукв.Добавить("э""je");

СоотвБукв.Добавить("я","ya");

СоотвБукв.Добавить("ч","ch");

СоотвБукв.Добавить("с","s");

СоотвБукв.Добавить("м","m");

СоотвБукв.Добавить("и","i");

СоотвБукв.Добавить("т","t");

СоотвБукв.Добавить("ь","'");

СоотвБукв.Добавить("б","b");

СоотвБукв.Добавить("ю","ju");

СоотвБукв.Добавить("ё","jo");

//Латиница

СоотвБукв.Добавить("i","i");

СоотвБукв.Добавить("q","q");

СоотвБукв.Добавить("w","w");

СоотвБукв.Добавить("e","e");

СоотвБукв.Добавить("r","r");

СоотвБукв.Добавить("t","t");

СоотвБукв.Добавить("y","y");

СоотвБукв.Добавить("u","u");

СоотвБукв.Добавить("i","i");

СоотвБукв.Добавить("o","o");

СоотвБукв.Добавить("p","p");

СоотвБукв.Добавить("","");

СоотвБукв.Добавить("a","a");

СоотвБукв.Добавить("s","s");

СоотвБукв.Добавить("d","d");

СоотвБукв.Добавить("э","e");

СоотвБукв.Добавить("ы","i");

СоотвБукв.Добавить("f","f");

СоотвБукв.Добавить("g","g");

СоотвБукв.Добавить("h","h");

СоотвБукв.Добавить("j","j");

СоотвБукв.Добавить("k","k");

СоотвБукв.Добавить("l","l");

СоотвБукв.Добавить("z","z");

СоотвБукв.Добавить("х","x");

СоотвБукв.Добавить("c","c");

СоотвБукв.Добавить("v","v");

СоотвБукв.Добавить("b","b");

СоотвБукв.Добавить("n","n");

СоотвБукв.Добавить("m","m");

//Прочее

СоотвБукв.Добавить(" "," ");

СоотвБукв.Добавить("""","""");

СоотвБукв.Добавить("-","-");

СоотвБукв.Добавить(".",".");

СоотвБукв.Добавить(",",",");

СоотвБукв.Добавить("/","/");

СоотвБукв.Добавить("\","\");

СоотвБукв.Добавить("*","*");

СоотвБукв.Добавить("#","#");

СоотвБукв.Добавить("#","№");

СоотвБукв.Добавить("|","|");

СоотвБукв.Добавить("!","!");

СоотвБукв.Добавить("?","?");

СоотвБукв.Добавить("$","$");

СоотвБукв.Добавить("%","%");

СоотвБукв.Добавить("@","@");

СоотвБукв.Добавить("&","&");

СоотвБукв.Добавить("=","=");

СоотвБукв.Добавить("+","+");

СоотвБукв.Добавить("~","~");

СоотвБукв.Добавить("'","'");

СоотвБукв.Добавить("`","`");

СоотвБукв.Добавить(":",":");

СоотвБукв.Добавить(";",";");

СоотвБукв.Добавить("(","(");

СоотвБукв.Добавить(")",")");

СоотвБукв.Добавить("[","[");

СоотвБукв.Добавить("]","]");

СоотвБукв.Добавить("}","}");

СоотвБукв.Добавить("{","{");

//Цифры

СоотвБукв.Добавить("0","0");

СоотвБукв.Добавить("1","1");

СоотвБукв.Добавить("2","2");

СоотвБукв.Добавить("3","3");

СоотвБукв.Добавить("4","4");

СоотвБукв.Добавить("5","5");

СоотвБукв.Добавить("6","6");

СоотвБукв.Добавить("7","7");

СоотвБукв.Добавить("8","8");

СоотвБукв.Добавить("9","9");

Для а=1 по СтрДлина(Слово) Цикл

Латиница = Латиница + СоотвБукв.НайтиПоЗначению(НРЕГ(Сред(Слово,а,1)));

КонецЦикла;

Возврат ВРЕГ(Латиница)

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

Скопировать номенклатуру из папки источник в папку приемник

 Программный код выполняет копирование Номенклатуры из одной папки в другую с сохранением Иерархии папки источника в папке приемник.

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

//написано для "обычное приложение"

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

Если Не ЗначениеЗаполнено(ПапкаИсточник) Тогда // ПапкаИсточник это реквизит формы

Сообщить("Папка источник должна быть заполнена");

Возврат

КонецЕсли;

Если Не ЗначениеЗаполнено(ПапкаПриемник) Тогда //ПапкаПриемник это реквизит формы

Сообщить("Папка приемник должна быть заполнена");

Возврат

КонецЕсли;

Запрос = Новый Запрос("ВЫБРАТЬ

| Номенклатура.Ссылка

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.Ссылка В ИЕРАРХИИ(&Группа)

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

| Номенклатура.Ссылка ИЕРАРХИЯ"

);

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

//Вызываем рекурсивную процедуру, параметр "ПапкаПриемник" - это "получатель", куда будет скопирована ветка

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

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

Процедура Копировать(Предок,Выборка) //Рекурсивная процедура для обхода всего дерева

Если Не Предок.ЭтоГруппа Тогда //Если перетащили не на группу, то кидаем всё дерево в корень

Предок=Справочники.Номенклатура.ПустаяСсылка();

КонецЕсли;

Пока Выборка.Следующий() Цикл //Обходим все элементы и просто копируем всё подряд

//Поскольку выборка добывает нам ссылки для изменения с объекта его необходимо получить

ТекСпр = Выборка.Ссылка.ПолучитьОбъект();

элементСправочника = ТекСпр.Скопировать();

элементСправочника.Родитель=Предок;

//комментарий автора взятый из сети

//

// ** Если мы хотим запомнить откуда была скопирована номенклатура - нужно **

// ** предварительно добавить реквизит ОбразецНоменклатуры в справочник Номенклатура **

// ** типа "СправочникСсылка.Номенклатура" а затем раскомментировать следующую строку **

//элементСправочника.ОбразецНоменклатуры=ТекСпр.Ссылка;

// При желании здесь можно создавать подчинённые справочники вроде "единицы измерения"

// и сюда записывать все необходимые ссылки

Если Не элементСправочника.ЭтоГруппа Тогда

Если НЕ ЗначениеЗаполнено(элементСправочника.БазоваяЕдиницаИзмерения) Тогда

элементСправочника.БазоваяЕдиницаИзмерения = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяЕдиницаПоКлассификатору");

КонецЕсли;

КонецЕсли;

элементСправочника.Записать();

Если Не элементСправочника.ЭтоГруппа Тогда

ПроверитьЕдиницуХраненияОстатков(элементСправочника.Ссылка);

ЗаменитьВладельцаШКИсточникаНаПриемник(ТекСпр.Ссылка, элементСправочника.Ссылка)

КонецЕсли;

Сообщить("Успешно обработано объект "+ элементСправочника.Ссылка);

Если ТекСпр.ЭтоГруппа Тогда //Когда встречаем группу, то заходим внутрь и повторяем действия

Копировать(элементСправочника.Ссылка,Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией));

КонецЕсли;

КонецЦикла;

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

Процедура ЗаменитьВладельцаШКИсточникаНаПриемник(спрИсточник, спрПриемник)

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

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

"ВЫБРАТЬ

| Штрихкоды.Штрихкод,

| Штрихкоды.Владелец,

| Штрихкоды.ТипШтрихкода,

| Штрихкоды.ЕдиницаИзмерения,

| Штрихкоды.ХарактеристикаНоменклатуры,

| Штрихкоды.СерияНоменклатуры,

| Штрихкоды.Качество,

| Штрихкоды.ПредставлениеШтрихкода

|ИЗ

| РегистрСведений.Штрихкоды КАК Штрихкоды

|ГДЕ

| Штрихкоды.Владелец = &Владелец";

Запрос.УстановитьПараметр("Владелец", спрИсточник);

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

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Попытка

НачатьТранзакцию();

//1. отвязываем ШК от Источника

нз = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();

нз.Отбор.Штрихкод.Установить( ВыборкаДетальныеЗаписи.Штрихкод);

нз.Отбор.Владелец.Установить( ВыборкаДетальныеЗаписи.Владелец);

нз.Отбор.ТипШтрихкода.Установить( ВыборкаДетальныеЗаписи.ТипШтрихкода);

нз.Отбор.ЕдиницаИзмерения.Установить( ВыборкаДетальныеЗаписи.ЕдиницаИзмерения);

нз.Отбор.ХарактеристикаНоменклатуры.Установить( ВыборкаДетальныеЗаписи.ХарактеристикаНоменклатуры);

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

нз.Отбор.Качество.Установить( ВыборкаДетальныеЗаписи.Качество);

нз.Прочитать();

нз.Очистить();

нз.Записать();

//2. привязываем ШК Приемнику

мз = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();

мз.Штрихкод = ВыборкаДетальныеЗаписи.Штрихкод;

мз.Владелец = спрПриемник;

мз.ТипШтрихкода = ВыборкаДетальныеЗаписи.ТипШтрихкода;

мз.ЕдиницаИзмерения = ВыборкаДетальныеЗаписи.ЕдиницаИзмерения;

мз.ХарактеристикаНоменклатуры = ВыборкаДетальныеЗаписи.ХарактеристикаНоменклатуры;

мз.СерияНоменклатуры = ВыборкаДетальныеЗаписи.СерияНоменклатуры;

мз.Качество = ВыборкаДетальныеЗаписи.Качество;

мз.ПредставлениеШтрихкода = ВыборкаДетальныеЗаписи.ПредставлениеШтрихкода;

мз.Записать();

ЗафиксироватьТранзакцию()

Исключение

ОтменитьТранзакцию();

Сообщить(ОписаниеОшибки())

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

КонецЦикла;

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

// Процедура записывает единицу хранения остатков номенклатуры.

//

Процедура ПроверитьЕдиницуХраненияОстатков(спрНоменклатура)

Если ЗначениеЗаполнено(спрНоменклатура.ЕдиницаХраненияОстатков) Тогда

Возврат;

КонецЕсли;

ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, спрНоменклатура);

Если ВыборкаЕдиниц.Следующий() Тогда

//единица измерения найдена

Иначе

НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

//тут нужно дозаполнить новую единицу измерения

НайденнаяЕдиницаОбъект.Владелец = спрНоменклатура;

Попытка

НайденнаяЕдиницаОбъект.Записать();

спрНоменклатураО = спрНоменклатура.ПолучитьОбъект();

спрНоменклатураО.Записать()

Исключение

Сообщить("Не удалось записать единицу хранения остатков: " + ОписаниеОшибки(), СтатусСообщения.Важное)

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

КонецЕсли;

КонецПроцедуры // ПроверитьЕдиницуХраненияОстатков()

Удалить последний символ с строке

 стр = Лев(стр, СтрДлина(стр)-1);

Отправить файл POST запросом с учетом ultipart/form-data

Пример запроса отправки прайс листа на сервис "Вачсно" с последующей обработкой ответа от сервиса

#Область ВЧАСНО

Функция ОтправитьФайлПрайсВчасно(ПолноеИмяФайла, МассивID)

//пример запроса:

//

//POST https://edi.vchasno.ua/api/documents/prices?buyer_edrpou=ИдентификаторКонтрагентаДляКоторогоВыгружаемПрайс

//

//authorization: <vchasno-edi_token>

//content-type: multipart/form-data; boundary=BOUNDARY

//

//--BOUNDARY

//Content-Disposition: form-data; name="file"; filename="pricat.xml"

//Content-Type: application/xml

//<?xml version='1.0' encoding='utf-8'?>

//<PRICAT>

//...

//</PRICAT>

//--BOUNDARY--

урлОтправитьДокумент = "/api/documents/prices?buyer_edrpou=" + "ИдентификаторКонтрагентаДляКоторогоВыгружаетсяПрайс";

СерверАПИ = "edi.vchasno.ua";

Токен = "ХХХХХХХХХХХХХХХХ";

BOUNDARY = Строка(Новый УникальныйИдентификатор); //просто произвольные символы

лПолноеИмяФайлаXML = ПолноеИмяФайла; //ХМЛ файл, с которого будем получать ХМЛ строку

тФайл = Новый Файл(лПолноеИмяФайлаXML);

Если НЕ тФайл.Существует() Тогда

Сообщить(НСтр("ru = 'Не найден файл '; uk = 'Не знайдено файл '")+лПолноеИмяФайлаXML+" для отправки на сервис ""Вчасно""", СтатусСообщения.Внимание);

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

ИначеЕсли НЕ тФайл.ЭтоФайл() Тогда

Сообщить(НСтр("ru = 'Не является файлом '; uk = 'Не є файлом '")+лПолноеИмяФайлаXML+" для отправки на сервис ""Вчасно""", СтатусСообщения.Внимание);

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

КонецЕсли;

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

тмпОтвет = ПолучитьИмяВременногоФайла("txt");

ИмяФайлаОтправки = ПолучитьИмяВременногоФайла("txt");

ФайлОтправки = Новый ЗаписьТекста(ИмяФайлаОтправки, КодировкаТекста.ANSI, Символы.ПС, Ложь);

ФайлОтправки.ЗаписатьСтроку("--" + Boundary);

ФайлОтправки.ЗаписатьСтроку("Content-Disposition: form-data; name=""file""; filename=""pricat.xml""");

ФайлОтправки.ЗаписатьСтроку("Content-Type: application/xml");

ФайлОтправки.ЗаписатьСтроку("");

//вставка Прайса ХМЛ

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

ТекстXML.Прочитать(лПолноеИмяФайлаXML, КодировкаТекста.ANSI, );

ФайлОтправки.ЗаписатьСтроку(СокрЛП(ТекстXML.ПолучитьТекст()));

ФайлОтправки.ЗаписатьСтроку("");

ФайлОтправки.ЗаписатьСтроку("--" + Boundary + "--");

ФайлОтправки.Закрыть();

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить("Content-Type", "multipart/form-data; boundary=" + Boundary);

ЗаголовокHTTP.Вставить("Authorization", Токен);

ХСоединение = Новый HTTPСоединение( СерверАПИ,,,,, 60, Новый ЗащищенноеСоединениеOpenSSL());

ХЗапрос = Новый HTTPЗапрос(урлОтправитьДокумент, ЗаголовокHTTP);

ХЗапрос.УстановитьИмяФайлаТела(ИмяФайлаОтправки);

ХОтвет = ХСоединение.ОтправитьДляОбработки(ХЗапрос, тмпОтвет);

КодОтвета = ХОтвет.КодСостояния;

Если КодОтвета = 200 Тогда

Попытка

УдалитьФайлы(лПолноеИмяФайлаXML);

Исключение

Сообщить(НСтр("ru = 'Неудачная попытка удаления файла '; uk = 'Невдала спроба видалення файла '")+лПолноеИмяФайлаXML, СтатусСообщения.Внимание);

Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);

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

Если ВРЕГ(ХОтвет.Заголовки.Получить("Content-Type")) = ВРЕГ("application/json") Тогда

тФайлОтвета = Новый Файл(тмпОтвет);

Текст.Прочитать(тмпОтвет, КодировкаТекста.UTF8);

ЧтениеДЖ = Новый ЧтениеJSON;

ЧтениеДЖ.УстановитьСтроку(Текст.ПолучитьТекст());

ОбъектДЖ = ПрочитатьJSON(ЧтениеДЖ, Истина); // читаем в соответвие

ИДВчасно = ОбъектДЖ.Получить("id");

Если ИДВчасно <> Неопределено Тогда

Сообщить("Отправленный прас получил ИД: " + ИДВчасно);

МассивID.Добавить(ИДВчасно);

Попытка

УдалитьФайлы(тмпОтвет);

Исключение

Сообщить(НСтр("ru = 'Неудачная попытка удаления файла '; uk = 'Невдала спроба видалення файла '")+тмпОтвет, СтатусСообщения.Внимание);

Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);

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

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

КонецЕсли;

Иначе

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

КонецЕсли;

Иначе

Сообщить(НСтр("ru = 'Получен ответ с кодом '; uk = 'Отримано відповідь з кодом '")+КодОтвета, СтатусСообщения.Внимание);

// разобрать ошибки

ОшибкаРазбора = Ложь;

тФайлОтвета = Новый Файл(тмпОтвет);

Если НЕ тФайлОтвета.Существует() Тогда

Сообщить(НСтр("ru = 'Не найден файл ответа сервиса: '; uk = 'Не знайдено файл відповіді сервісу: '")+тмпОтвет, СтатусСообщения.Внимание);

Иначе

Текст.Прочитать(тмпОтвет, КодировкаТекста.UTF8);

Если Текст.КоличествоСтрок() > 0 Тогда

ОтветСервера = Текст.ПолучитьТекст();

_ЧтениеXML = Новый ЧтениеXML;

Попытка

_ЧтениеXML.УстановитьСтроку(ОтветСервера);

Исключение

Сообщить(НСтр("ru = 'Неудачная попытка чтения ответа сервиса: '; uk = 'Невдала спроба читання відповіді сервісу: '")+ОписаниеОшибки(), СтатусСообщения.Внимание);

ОшибкаРазбора = Истина;

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

КонецЕсли;

Если НЕ ОшибкаРазбора Тогда

Поз = Найти(Лев(ОтветСервера, 5), "xml");

Если Поз = 0 Тогда

Сообщить(НСтр("ru = 'Неудачная попытка разбора ответа сервиса (Код состояния = '; uk = 'Невдала спроба розбору відповіді сервісу (Код стану = '")+КодОтвета+"): ", СтатусСообщения.Внимание);

Сообщить(ОтветСервера, СтатусСообщения.Внимание);

Иначе

ОбработатьОписаниеОшибки(_ЧтениеXML, КодОтвета);

КонецЕсли;

КонецЕсли;

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

КонецЕсли;

КонецЕсли;

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

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

Процедура ОбработатьОписаниеОшибки(_ЧтениеXML, КодСостояния)

Если КодСостояния = 504 Тогда // иная структура ответа

Сообщить(НСтр("ru = 'Ответ сервиса (Код состояния = '; uk = 'Відповідь сервісу (Код стану = '")+КодСостояния+")", СтатусСообщения.Внимание);

Возврат;

КонецЕсли;

СтруктураОшибки = Новый Структура("title, body");

ИмяУзла = "";

Читать = Ложь;

Пока _ЧтениеXML.Прочитать() Цикл

ТипУзла = _ЧтениеXML.ТипУзла;

Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

Если ИмяУзла = "files" Тогда

СтруктураОшибки.Вставить("ИмяФайла", _ЧтениеXML.Имя);

Читать = Ложь;

Иначе

ИмяУзла = _ЧтениеXML.Имя;

Читать = СтруктураОшибки.Свойство(ИмяУзла);

КонецЕсли;

ИначеЕсли ТипУзла = ТипУзлаXML.Текст И Читать Тогда

СтруктураОшибки.Вставить(ИмяУзла, _ЧтениеXML.Значение);

Читать = Ложь;

Иначе

Читать = Ложь;

КонецЕсли;

КонецЦикла;

Сообщить(НСтр("ru = 'Ответ сервиса (Код состояния = '; uk = 'Відповідь сервісу (Код стану = '")+КодСостояния+"):", СтатусСообщения.Внимание);

Сообщить(" - заголовок: "+СтруктураОшибки["title"], СтатусСообщения.Внимание);

Сообщить(" - описание: "+СтруктураОшибки["body"] , СтатусСообщения.Внимание);

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

#КонецОбласти