Запись данных в файл Excel в 1С программно через com

Вступление.

Многие знают, что Excel гораздо старше 1С. На мой взгляд, это очень успешный продукт, и нареканий о нем я не слышал. Excel прост и универсален. Он способен выполнять не только простые арифметические операции, но и сложные вычисления, построение графиков и т.п. Знаю примеры, когда организации до перехода на 1С вели часть бухгалтерии в Excel. Многие и сейчас параллельно используют две программы. В этой статье рассмотрим способы обмена данными между 1С и Excel.

Конфигуратор / Excel
Подробнее

Ошибка Поле объекта не обнаружено (СтавкаНДСУСН)

Ошибка "Поле объекта не обнаружено (СтавкаНДСУСН)" в РМК при попытки сканирования штрих-кода номенклатуры.

Версия релиза с ошибкой: Розница, редакция 3.0 (3.0.10.143)

Исправление: Скачайте и установите расширение: "ИсправленияОшибокРМК_3_0_10_143"

Розница / Розница 3.0 / Исправления
Подробнее

http сервис 1с get

Запросы:

"http://localhost/REST/hs/employees"

"http://localhost/REST/hs/employees/да"

"http://localhost/REST/hs/employees/нет"


Функция СписокGET(Запрос)

 // Сформировать ответ, возвращаемый HTTP-сервисом.
 Ответ = Новый HTTPСервисОтвет(200);

 // Получить из запроса параметр URL *.
 Признак = Запрос.ПараметрыURL["*"];
 // Сформировать выборку сотрудников.
 Если Признак = "" Тогда
  // Без отбора.
  Выборка = Справочники.Сотрудники.Выбрать();
 Иначе
  // С отбором по признаку работы.
  Работает = ?(ВРег(Прав(Признак,2)) = "ДА", Истина, Ложь);
  Выборка = Справочники.Сотрудники.Выбрать(,, Новый Структура("Работает", Работает));
 КонецЕсли;

 // В цикле обхода выборки записать в JSON список сотрудников.
 // Создать объект записи и записать строковое значение в строку JSON.
 Запись = Новый ЗаписьJSON;
 Запись.УстановитьСтроку();

 // Записать начало корневого объекта.
 Запись.ЗаписатьНачалоОбъекта();
 Пока Выборка.Следующий() Цикл
  Запись.ЗаписатьИмяСвойства(Выборка.Наименование);
  Запись.ЗаписатьНачалоОбъекта();
  Запись.ЗаписатьИмяСвойства("Код");
  Запись.ЗаписатьЗначение(Выборка.Код);
  Запись.ЗаписатьИмяСвойства("Должность");
  Запись.ЗаписатьЗначение(Строка(Выборка.Должность));
  Запись.ЗаписатьКонецОбъекта();
 КонецЦикла;
 // Записать конец корневого объекта.
 Запись.ЗаписатьКонецОбъекта();
 // Записать результат записи в строку JSON.
 Результат = Запись.Закрыть();

 // Установить тело ответа из строки Результат.
 Ответ.УстановитьТелоИзСтроки(Результат);
 Ответ.Заголовки.Вставить("Content-type", "application/json");
 Возврат Ответ;

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

При запросе: "http://localhost/REST/hs/employees" Ответ:

{
 ″Иванов Сергей Иванович″: {
 ″Код″: ″000000001″,
 ″Должность″: ″Администратор″
 },
 ″Петров Игорь Владимирович″: {
 ″Код″: ″E-0003″,
 ″Должность″: ″Должность - Директор″
 },
 ″Аксакова Светлана Ивановна″: {
 ″Код″: ″000000002″,
 ″Должность″: ″Кассир″
 }
 }

При запросе: "http://localhost/REST/hs/employees/ДА" 

{
 ″Иванов Сергей Иванович″: {
 ″Код″: ″000000001″,
 ″Должность″: ″Администратор″
 },
 ″Петров Игорь Владимирович″: {
 ″Код″: ″E-0003″,
 ″Должность″: ″Должность - Директор″
 } 
 }


При запросе: "http://localhost/REST/hs/employees/нет"

{
 ″Аксакова Светлана Ивановна″: {
 ″Код″: ″000000002″,
 ″Должность″: ″Кассир″
 }
 }

Конфигуратор / HTTP Сервисы
Подробнее

Чтение разных форматов Даты в JSON в 1С программно

ФорматДатыJSON:
 ■ Формат ISO. В этом случае дата сериализуется следующим образом: 
«2019-03-15T00:00:00+0400».
// Выполнить чтение данных в структуру Данные с помощью объекта чтения (Чтение).
 Данные = ПрочитатьJSON(Чтение, Ложь, ″ДатаИзменения″,    ФорматДатыJSON.ISO);

 ■ Формат jаvascript. В этом случае дата сериализуется следующим образом: 
«new Date(1234656000000)».
 Данные = ПрочитатьJSON(Чтение, Ложь, ″ДатаИзменения″,    ФорматДатыJSON.ФорматДатыJSON.jаvascript);

 ■ Формат Microsoft. В этом случае дата сериализуется следующим образом: 
«\/Date(1234656000000)\/» или «/Date(1234656000000)/» (в зависимости  
от режима экранирования символов).
 Данные = ПрочитатьJSON(Чтение, Ложь, ″ДатаИзменения″,    ФорматДатыJSON.ФорматДатыJSON.Microsoft);


Конфигуратор / JSON
Подробнее

Чтение файла JSON в соответствие 1С программно


 &НаСервереБезКонтекста
 Процедура РаботаССоответствиемНаСервере()
 
 // Создать объект чтения и открыть файл, из которого будет выполняться чтение.
 Чтение = Новый ЧтениеJSON;
 Чтение.ОткрытьФайл("c:\temp\Serialisation_85.json");
 
 // Выполнить чтение данных в соответствие Данные с помощью объекта чтения (Чтение).
 Данные = ПрочитатьJSON(Чтение, Истина);
 // Данные = ПрочитатьJSON(Чтение);
 // Завершить работу с файлом.
 Чтение.Закрыть();
 // Вывести результат чтения в сообщение.
 Сообщение = Новый СообщениеПользователю;
 Сообщение.Текст = "Контрагент: " + Данные["Контрагент №2"] 
   + ", Объем продаж: " + Данные["Объем Продаж"] + 
   ", Поставщик?: " + Данные["Поставщик?"] + ", Телефон моб.: " + Данные["Мобильный тел."];
 Сообщение.Сообщить();
 
КонецПроцедуры



Конфигуратор / JSON
Подробнее

Прочитать файл JSON в структуру 1С программно


&НаСервереБезКонтекста
 Процедура ДесериализацияПростыхТиповНаСервере()
 
 // Создать объект чтения и открыть файл, из которого будет выполняться чтение.
 Чтение = Новый ЧтениеJSON;
 Чтение.ОткрытьФайл("c:\temp\Serialisation.json");
 
 // Выполнить чтение данных в структуру Данные с помощью объекта чтения (Чтение).
 Данные = ПрочитатьJSON(Чтение);
 // Завершить работу с файлом.
 Чтение.Закрыть();
 // Вывести результат чтения в сообщение.
 Сообщение = Новый СообщениеПользователю;
 Сообщение.Текст = "Контрагент: " + Данные.Контрагент + ", Объем продаж: " + Данные.ОбъемПродаж + 
   ", Поставщик?: "+ Данные.Поставщик + ", Телефоны: ";
 
 // Обойти в цикле элемент структуры данных Телефоны типа Массив.
 Для Каждого Телефон Из Данные.Телефоны Цикл
  Сообщение.Текст = Сообщение.Текст + Телефон + ", ";
 КонецЦикла;
 
 Сообщение.Сообщить();
 
КонецПроцедуры



Конфигуратор / JSON
Подробнее
1 2 3