Программная работа с Excel из 1Сv8 - кнопки, макросы, области, отображение листов и полос прокрутки при открытии

Публикация № 340826

Разработка - Практика программирования

Excel.Application закрепление областей Создание Кнопки макросы Workbooks Worksheets VBProject

Буду краток, представленная информация здесь это пример работы с Excel программно из 1С, от начала - создание COMОбъект("Excel.Application"), до конца его закрытия. Тут представлен пример, как создать кнопку, присвоить ей макрос, затем добавить лист, прописать в ячейки необходимую информацию, затем установка нужного листа в момент при открытии Excel, корректное отображение листов и полосы прокрутки, затем сохранение файла в необходимый формат. Данная статья не уникальна, само собой, но в данном контексте она консолидирует информацию от различных источников и призвана только помочь в познании методов программной работы с Excel как полноценный законченный пример. Предполагается, что читатель уже имеет опыт в создании СКД отчетов.

Задача:

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

Решение:

Итак, нам нужна СКД, чтобы сделать красивости и необходимый визуальный формат прайса, а также возможность сохранения табличного документа в формат Excel. В данной статье я не буду рассказывать, как получить отчет в СКД, для этого достаточно воспользоваться поиском. Начнем наш пример с момента, когда метод Вывести в СКД выполнен. Теперь код:

 

//Процедура Формирования Табличного документа средствами СКД
//....
//Получили табличный документ с результатом работы СКД это ДокументРезультат
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.ОтображатьПроцентВывода = Истина;
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);
//В реквизатах на форме переменные Путь и ИмяФайла могут быть определены явно или по выбору пользователя
ПолныйПутьФайла = Путь + ИмяФайла + ".xlsx";
ИмяФайла = ИмяФайла + ".xlsx";
//Записываем табличный документ в файл екселя 
ДокументРезультат.Записать(ПолныйПутьФайла,ТипФайлаТабличногоДокумента.XLSX);
//Код ранее это было вступление, теперь мы подошли к месту, где и начинается наш пример
//В нашем примере рассматривается табличный документ с полями
код наименование товара кол-во цена комментарий
1 2 3 4 5

 

ВставитьКнопкиУправленияНаЛистExcel(ИмяФайла);
Процедура ВставитьКнопкиУправленияНаЛистExcel(ФайлЕксель)
    
    ИмяФайлаЕксель = Путь + ФайлЕксель;
    //Немного по форматам
    // formats in Excel 2007-2010
    xlExcel12 = 50; // XLSB - данные в бинарном виде, хорошо для больших таблиц, макс скорость,мин объем ).
    xlOpenXMLWorkbook = 51; // XLSX - не поддерживает макросы, вообще не наш случай
    xlOpenXMLWorkbookMacroEnabled = 52; // XLSM - поддерживает макросы, данные в виде openxml
    xlExcel8 = 56; // XLS (export to Excel 97-2003) небольшие файлы
   
    //Получаем доступ к екселю
    Ексель = Новый COMОбъект("Excel.Application");
   
    //Делаем книгу
    Книга = Ексель.Workbooks.Open(ИмяФайлаЕксель);
   
    //Теперь рабочую область 
    Лист1 = Книга.Worksheets(1);
    Лист1.Name = "Прайс лист";
    
    //Ставим закрепление областей
    Ексель.ActiveWindow.FreezePanes = 0;
    Ексель.ActiveWindow.SplitRow = 10;
    Ексель.ActiveWindow.SplitColumn = 5;
    Ексель.ActiveWindow.FreezePanes = 1;
    
    //Создание Кнопки
    Кнопка1=Книга.Worksheets(1).Buttons.Add(420.5, 12.5, 89.5, 17.5);
    //первые 2 цифарки (420.5, 12.5, , ) это координаты точки
    //вторые 2 цифарки размеры кнопки длина ширина (, , 89.5, 17.5)
    Кнопка1.Caption="Создать Заказ";
    Кнопка1.OnAction = "CommandButton1_Click";
    
    Кнопка2=Книга.Sheets(1).Buttons.Add(420.5, 42.5, 89.5, 17.5);
    Кнопка2.Caption="Очистить";
    Кнопка2.OnAction = "CommandButton2_Click";
    
    //Пишем макросы в кнопки
    //Название "CommandButton1_Click" должно совпадать в процедуре ниже строка и в OnAction на кнопке
    МакросСЗ = "Private Sub CommandButton1_Click()
    |Dim bookname As String, sheetname As String
    |Dim sh As Worksheet, sh1 As Worksheet
    |  
    |Application.ScreenUpdating = False
    |
    |sheetname = ActiveSheet.Name
    |bookname = ActiveWorkbook.Name
    |Set sh = Workbooks(bookname).Worksheets(sheetname)
    |Workbooks.Add
    |ActiveSheet.Name = ""Заказ"" // создали лист с заказом
    |Set sh1 = ActiveSheet
    |
    |sh1.Cells(1, 1) = ""Код""
    |sh1.Cells(1, 2) = ""Наименование товара""
    |sh1.Cells(1, 3) = ""Кол-во""
    |sh1.Cells(1, 4) = ""Цена""
    |  
    |sh1.Columns(""a:a"").ColumnWidth = 12
    |sh1.Columns(""b:b"").ColumnWidth = 70
    |sh1.Columns(""c:c"").ColumnWidth = 8
    |sh1.Columns(""d:d"").ColumnWidth = 8
    |   
    |sh1.Range(""A1"", ""D1"").Font.Bold = True
    |  
    |j = 2 // адрес строки в листе заказа
    |i = 14 // адрес строки входа в листе прайса
    |With sh
    |  While .Cells(i, 2) <> """" // если наименование не равно пустой строке то 
    |   If (.Cells(i, 3) <> """") And (.Cells(i, 3) <> "" "") Then // если пользователь в колонке кол-во указал необходимое нам колво в заказе, то берем эту строку в заказ
    |    
    |      sh1.Cells(j, 1) = .Cells(i, 1)  ' Код товара
    |      sh1.Cells(j, 2) = .Cells(i, 2)  ' Наименование товара
    |      sh1.Cells(j, 3) = .Cells(i, 3) ' Кол-во товара
    |      sh1.Cells(j, 4) = .Cells(i, 4) ' Цена товара
    |      j = j + 1
    |    End If
    |    i = i + 1
    |  Wend
    |
    |  End With
    |
    | MsgBox (""Заказ готов!"")
    |
    |  Application.ScreenUpdating = True
    |End Sub";
    
    МакросОч = "Private Sub CommandButton2_Click()// если пользователь хочет почистить свое введенное количество в прайсе
    |Dim i As Integer
    |Application.ScreenUpdating = False
    |
    |sheetname = ActiveSheet.Name
    |bookname = ActiveWorkbook.Name
    |Set ThisSheet = Workbooks(bookname).Worksheets(sheetname)
    |With ThisSheet
    |    i = 14
    |    While .Cells(i, 2).Value <> """"
    |        If (.Cells(i, 3) <> """") And (.Cells(i, 3) <> "" "") Then
    |            .Cells(i, 3).Value = """"
    |        End If
    |    i = i + 1
    |    Wend
    |End With
    |Application.ScreenUpdating = True
    |End Sub";
    
    
    VBComponents = Книга.VBProject.VBComponents;
    Кол = VBComponents.Count();
    Модуль = VBComponents.Add(1);
    Модуль.CodeModule.InsertLines(1,МакросСЗ);
    Модуль.CodeModule.InsertLines(48,МакросОч);
    
    //Выключаем ругательства
    Ексель.DisplayAlerts = 0;
    
    //Если в прайсе есть цветовая индикация строк то мы можем сделать лист с аннотацией цветовых обозначений
   //Делаем второй лист для информации о расскраске строк на прайсе
    НомерПоследнегоЛиста = Книга.Worksheets.Count;
    Лист2 = Книга.WorkSheets.Add(,Книга.WorkSheets(НомерПоследнегоЛиста));
    Лист2.Name = "Информация";
    Ячейка=Лист2.Cells(1,1);
    Ячейка.Value = "Цветовая информация в прайс-листе";
    Ячейка.Font.Bold = 1;
    Ячейка=Лист2.Cells(2,1);
    Ячейка.Value = "Красный – спецпредложение!!!";
    Ячейка.Font.ColorIndex = 3;
    Ячейка=Лист2.Cells(3,1);
    Ячейка.Value = "Синий – новинка!!!";
    Ячейка.Font.ColorIndex= 5;
    Ячейка=Лист2.Cells(4,1);
    Ячейка.Value = "Оранжевый – эксклюзив!!!";
    Ячейка.Font.ColorIndex = 44;
    
    //Устанавливаем открытие листа с прайсом при открытии файла клиентом
    Лист1.Activate();
    //Устанавливаем видимость закладок листов, по умолчанию они выключены
    Ексель.ActiveWindow.DisplayWorkbookTabs = 1; 
    //Устанавливаем положение полосы прокрутки, по умолчанию прокрутка закрывает видимость закладок листов
    Ексель.ActiveWindow.TabRatio = 0.6;
    //Сохраняем в формат с поддержкой макросов           
    Книга.SaveAS(СтрЗаменить(ИмяФайлаЕксель,".xlsx", ".xlsm"),xlOpenXMLWorkbookMacroEnabled);
    //Сохраняем в формат с поддержкой макросов только в бинарном виде - маленький размер файла.
    Книга.SaveAS(СтрЗаменить(ИмяФайлаЕксель,".xlsx", ".xlsb"),xlExcel12);
    //Закрываем книгу
    Книга.Close();
    //Выходим из ком
    Ексель.Quit();
    //Чистим xlsx, больше он не нужен
    УдалитьФайлы(ИмяФайлаЕксель);
    ФайлЕксель = СтрЗаменить(ФайлЕксель,".xlsx", ".xlsb");
КонецПроцедуры

//Наш пример закончен

Для желающих посмотреть вживую можно скачать отчет, в нем также реализован живой пример установки картинки в СКД, почему-то разработчики явно вывод картинок в СКД не реализовали, вот и приходится использовать хитрые методы обхода, как, например, специальная система зеркал в сабже про кошку и программистов. Также его можно использовать как пособие по созданию СКД отчета с раскраской строк по условиям.

Маленький нюанс для программного создания макросов, нужно в екселе, в параметрах, доверить доступ к объектной модели VBA, на картинке внизу показано как это сделать

 

 

Скачать файлы

Наименование Файл Версия Размер
Пример прайса скд

.erf 812,36Kb
29.07.15
19
.erf 01 812,36Kb 19 Скачать
результат выгрузки в ексель с кнопками

.xlsb 90,12Kb
29.07.15
11
.xlsb 01 90,12Kb 11 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. zarucheisky 05.08.15 10:37 Сейчас в теме
3. sergik_nsk 142 17.08.15 10:22 Сейчас в теме
(1) zarucheisky, в чем ужас, есть какие то замечания по содержанию, или это просто выход эмоций в конце трудового дня в пятницу 2 января
2. Dimel 06.08.15 04:07 Сейчас в теме
Для записи макроса в Excel необходимо чтобы был включен доверительный доступ к модели VBA. Вот как я это делал (года 4 назад):

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ ЗАПИСИ МАКРОСОВ В EXCEL

Процедура ЗаписатьМакросВМодуль(Excel,WorkBooks,ТекстМакроса)
	Версия = Excel.Version;
	ВключилиДоверительныйДоступ = ВключитьДоверительныйДоступКОбъектамVBA(1,Версия);
	Если ВключилиДоверительныйДоступ Тогда
		ТекущийИндекс= Excel.VBE.ActiveVBProject.VBComponents.Count;
		Excel.VBE.ActiveVBProject.VBComponents.Add( 1 );//добавим модуль
		WorkBooks.VBProject.VBComponents.Item(ТекущийИндекс+1).CodeModule.AddFromString(ТекстМакроса); //добавим в модуль наш скрипт
	Иначе
		//Сообщить("Для правильной работы необходимо включить доверительный доступ к VBA");
		ТекстСообщения = "Для правильной работы необходимо включить доверительный доступ к VBA";
		ОбработкаКомментариев.ДобавитьСообщение(ТекстСообщения, Перечисления.ВидыСообщений.Ошибка,,);
	КонецЕсли;
КонецПроцедуры

Процедура ЗаписатьМакросВЛист(Excel,ИмяЛиста,ТекстМакроса)
	Версия = Excel.Version;
	ВключилиДоверительныйДоступ = ВключитьДоверительныйДоступКОбъектамVBA(1,Версия);
	Если ВключилиДоверительныйДоступ Тогда
		Excel.VBE.ActiveVBProject.VBComponents(ИмяЛиста).CodeModule.AddFromString(ТекстМакроса);   //Добавим на лист наш скрипт
	Иначе
		//Сообщить("Для правильной работы необходимо включить доверительный доступ к VBA");
		ТекстСообщения = "Для правильной работы необходимо включить доверительный доступ к VBA";
		ОбработкаКомментариев.ДобавитьСообщение(ТекстСообщения, Перечисления.ВидыСообщений.Ошибка,,);
	КонецЕсли;
КонецПроцедуры

Процедура ЗаписатьМакросВКнигу(Excel,ИмяКниги,ТекстМакроса)
	Версия = Excel.Version;
	ВключилиДоверительныйДоступ = ВключитьДоверительныйДоступКОбъектамVBA(1,Версия);
	Если ВключилиДоверительныйДоступ Тогда
		Excel.VBE.ActiveVBProject.VBComponents(ИмяКниги).CodeModule.AddFromString(ТекстМакроса);   //в книгу наш наш скрипт
	Иначе
		//Сообщить("Для правильной работы необходимо включить доверительный доступ к VBA");
		ТекстСообщения = "Для правильной работы необходимо включить доверительный доступ к VBA";
		ОбработкаКомментариев.ДобавитьСообщение(ТекстСообщения, Перечисления.ВидыСообщений.Ошибка,,);
	КонецЕсли;
КонецПроцедуры

//Функция производит включение (отключение) доверительного доступа к объектной модели VBA
// параметры включить = 1 - включить,0 - отключить 
Функция ВключитьДоверительныйДоступКОбъектамVBA(Включить=1,Версия)
	//Получим текущую версию екселя
	Попытка
		Ключ = "HKEY_CURRENT_USER\Software\Microsoft\Office\" +Версия+"\Excel\Security\AccessVBOM";
		
		WshShell = Новый COMОбъект("WScript.Shell");
		//а надо ли менять?
		ТекущееЗначение = WshShell.RegRead(Ключ);
		Если ТекущееЗначение <> Включить Тогда
			WshShell.RegWrite(Ключ,Включить,"REG_DWORD");
		КонецЕсли;
	Исключение
		Возврат ЛОЖЬ;
	КонецПопытки;
	Возврат Истина;
КонецФункции	
Показать
4. sergik_nsk 142 17.08.15 10:31 Сейчас в теме
(2) Dimel, да этот вариант известен, нормальный программный способ, только есть одно но, для его реализации необходимо пользователю дать возможность редактирования реестра, а это уже вопрос безопасности, если политика позволяет почему бы и нет.
Восьмой; +1 Ответить
5. UserPMV 15.06.19 09:53 Сейчас в теме
У меня не получается передать параметры (https://docs.microsoft.com/ru-ru/office/vba/api/excel.window.scrollworkbooktabs)

Пробовал
Ексель.ActiveWindow.ScrollWorkbookTabs(Null,"xlFirst");
Ексель.ActiveWindow.ScrollWorkbookTabs(,"xlFirst");
Ексель.ActiveWindow.ScrollWorkbookTabs("xlFirst");
Ексель.ActiveWindow.ScrollWorkbookTabs("Position:=xlFirst");

Если воспользоваться записью макроса в Экселе, то получим ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

Как вызвать прокрутку листов в начало?
Оставьте свое сообщение

См. также

Вам нравятся запросы в 1С? Промо

Практика программирования Разработка v8 v8::Запросы 1cv8.cf Абонемент ($m)

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

1 стартмани

03.07.2019    18707    4    m-rv    86    

Конвейер проверки качества кода

Инструментарий разработчика Практика программирования Математика и алгоритмы v8 1cv8.cf Абонемент ($m)

Jenkinsfile для выполнения проверки качества кода. Собирает информацию с АПК, EDT и BSL-LS. Сопоставляет ошибки с гит-репозиторием, выгруженным ГитКонвертором. Отправляет в Сонар.

3 стартмани

04.09.2019    22273    21    Stepa86    44    

Алгоритмы поиска пути в графе

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Реализуем алгоритмы поиска пути в графе на платформе 1С 8.3, такие как алгоритм А*, поиск в ширину, жадный поиск, алгоритм Дейкстры и вконце волновой.

1 стартмани

09.07.2019    16231    11    RonX01    10    

Работа с публикациями "Инфостарт"

Практика программирования О сообществе WEB v8 УУ Абонемент ($m)

Работа с рублевыми публикациями на сайте "Инфостарт": ведение клиентов, заказов, обновление файлов публикации, рассылка обновлений.

1 стартмани

13.09.2018    20276    13    RocKeR_13    16    

ВСТАВИТЬ В Справочник.Номенклатура (Код, Наименование) ЗНАЧЕНИЯ ("001", "Новый товар") Промо

Практика программирования v8 v8::Запросы 1cv8.cf Абонемент ($m)

Вас не обманывают ваши глаза, это запрос на изменение данных! И это работает без прямого доступа к БД, регистрации и смс.

1 стартмани

01.06.2018    28969    86    m-rv    57    

HTTP Сервисы: Путь к своему сервису. Часть 3

Инструментарий разработчика Практика программирования v8 1cv8.cf Абонемент ($m)

Продолжение статьи «HTTP Сервисы: Путь к своему сервису. Часть 2». В предыдущих частях мы использовали только Get, в этой части поговорим о других методах и длительных операциях.

1 стартмани

27.08.2018    33148    51    dsdred    15    

Позиционирование в помещении с помощью нейросети по сигналу Wi-Fi. Интерактивная карта склада в 1С с показом позиции

Инструментарий разработчика Практика программирования v8 Абонемент ($m)

Данная публикация содержит в себе редактор и интерактивную карту склада или иного помещения, на которой в реальном времени отображается позиция устройства, координаты которого вычисляются по уровням сигнала нескольких роутеров Wi-Fi. В статье и приложенным к ней разработкам предлагаются инструменты и методика для реализации вычисления точной геопозиции внутри помещений с помощью нейронной сети. Конфигурация написана на релизе 1С:Предприятие 8.3.12.1412, клиентское приложение имеет минимальный уровень совместимости SDK -16.

5 стартмани

09.08.2018    26321    26    informa1555    26    

Работа с данными выбора

Практика программирования Работа с интерфейсом v8 Россия Абонемент ($m)

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

1 стартмани

17.07.2018    42575    17    kalyaka    16    

Заполняем по шаблону (по умолчанию) Промо

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

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

1 стартмани

08.02.2018    26713    19    mvxyz    17    

Полезные примеры составления схемы компоновки данных #2

Практика программирования v8 v8::СКД 1cv8.cf Абонемент ($m)

Еще один набор примеров как решить частные задачи в СКД

1 стартмани

22.05.2018    28532    11    SITR-utyos    13    

Печатная форма, сделанная как расширение конфигурации для БП 3.0. Новые возможности БСП

Практика программирования Универсальные печатные формы v8 БП3.0 Абонемент ($m)

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

1 стартмани

06.12.2017    25597    49    kwazi    6    

Паузы при исполнении кода (Sleep для 1С)

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

Решил проверить все найденные варианты паузы для 1С. В результате получилась обработка для тестирования и небольшая статья с итогом.

1 стартмани

28.11.2017    40419    11    swimdog    41    

Нечеткий поиск одним запросом Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Использование механизма полнотекстового поиска в 1С не всегда оправдано, т.к. построение индекса и поддержание его в актуальном состоянии может значительно нагружать систему. Предлагаемая реализация нечеткого поиска методом N-грамм выполняется одним запросом, что позволяет производить поиск в любой таблице и не требует предварительного построения индекса.

1 стартмани

28.12.2015    26117    67    vasvl123    9    

Макет в СКД - пример всех возможных типовых вариантов

Практика программирования Инструментарий разработчика v8 v8::СКД 1cv8.cf Абонемент ($m)

Макет СКД: наглядное представление того, что, как и куда выводится при типовых настройках.

1 стартмани

09.11.2017    20539    76    freelancer    4    

Telegram-боты

Практика программирования v8 Абонемент ($m)

Описание теории, разбор архитектуры и пример реализации telegram-ботов. Сразу скажу, со структурированием изложения мало что могу поделать. :) редакция от 18.07.2018 Правки последней редакции выделены жирным.

1 стартмани

01.09.2017    30294    128    PLAstic    54    

Умный дом на 1С + ардуино

Практика программирования v8 Абонемент ($m)

Конфигурация для автоматизации быта программиста 1C и не только. В данной статье будет рассказано, как можно использовать 1С для задач, не входящих в стандартные рамки этой платформы. Например, управление домом. В качестве периферии для подключения будет использован микроконтроллер (МК) Ардуино, но на нём не будет никакой логической нагрузки, весь процесс будет проходить на сервере 1С. Работа с пинами ввода/вывода происходит напрямую из 1С.

1 стартмани

07.08.2017    21353    20    sasha777666    63    

1С: Предприятие + корпоративный чат, как наладить оперативные уведомления за 10 минут Промо

Практика программирования v8 Абонемент ($m)

Как сделать автоматические уведомления о разных событиях из 1С в корпоративный чат MyChat для сотрудников компании

1 стартмани

14.08.2016    46402    36    Demanoidos    60    

Расширения конфигураций 1С: учимся перехватывать методы

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

В этой статье я на примерах разберу некоторые механизмы расширений конфигураций 1С. А именно «перехваты» методов модуля объекта и «перехваты» событий формы и элементов формы. Данная статья написана с учебными целями, чтобы показать, как при помощи расширений конфигурации можно делать такие доработки, ради которых раньше приходилось снимать конфигурацию с поддержки.

1 стартмани

30.05.2017    120884    13    signum2009    46    

Регулярные выражения – это просто. Построитель и отладчик регулярных выражений

Инструментарий разработчика Практика программирования v8 1cv8.cf Абонемент ($m)

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

1 стартмани

13.03.2017    29735    112    romasna    49    

Распознавание текста с помощью нейросетей Google Cloud Vision и 1С

Практика программирования v8 1cv8.cf Абонемент ($m)

Возможности Google Cloud Vision в распознавании текста.

1 стартмани

08.02.2017    26707    120    kiv1c    18    

Быстрое определение интервалов в запросе Промо

Практика программирования v8 Абонемент ($m)

В статье описывается новый метод определения интервалов между данными различных записей в запросе. В отличие от общеизвестного метода, время работы предлагаемого метода зависит от объема данных ЛИНЕЙНО. Это обеспечивает ему значительный выигрыш по быстродействию на больших объемах данных. В качестве иллюстрации возможностей метода приведен отчет, показывающий гистограмму распределения времени между продажами.

1 стартмани

01.10.2015    49482    35    ildarovich    41    

Графическая схема. Управление при помощи XDTO.

Практика программирования v8 Абонемент ($m)

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

2 стартмани

16.01.2017    20474    100    Alxby    21    

Простой редактор плана помещения JavaScript

Практика программирования Работа с интерфейсом v8 1cv8.cf Абонемент ($m)

На ресурсе сейчас очень много решений, которые позволяют редактировать карты, используя географические схемы. Так же много решений, которые позволяют редактировать объекты онлайн веб-карт. Мне же нужно было простое решение, для того чтобы расставить квадратные объекты на плане, показать их пользователю. Ну и распечатать, опять же. Я решил написать простенький редактор на JavaScript с использованием библиотеки Raphael.

1 стартмани

23.11.2016    19675    91    igel9780    22    

Работа с двоичными данными на примере чтения файлов изображений. Новые возможности 8.3.9

Практика программирования WEB v8 1cv8.cf Россия Абонемент ($m)

В статье приводятся новые функции по работе с двоичными данными, появившимися в версии платформы 8.3.9 , на примере анализа формата и размера изображений. А также пример отправки изображения через API ВКонтакте с помощью новых объектов (без использования ОбъединитьФайлы())

1 стартмани

14.11.2016    23842    16    Anton64    22    

Загрузка файлов на сервер с прогрессом и докачкой

Практика программирования v8 1cv8.cf Россия Абонемент ($m)

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

1 стартмани

04.10.2016    12248    53    mrstomak    21    

Несколько шаблонов для доработки типовых конфигураций

Практика программирования Инструментарий разработчика v8 v8::УФ Абонемент ($m)

Предлагаю несколько каркасов для создания новых объектов в типовых конфигурациях. Это выжимка из кода нескольких конфигураций, которая позволит быстро и красиво создавать и дорабатывать объекты метаданных с соблюдением идеологии исходной системы

1 стартмани

03.10.2016    35139    95    json    25    

HTTP-сервис: отчеты [Расширение]

Практика программирования Работа с интерфейсом v8 1cv8.cf Абонемент ($m)

Это HTTP-сервис, который возвращает почти любой отчет в HTML, XLSX или в JSON. Сохраните вариант отчета, получите на него ссылку и можно получить данные без захода в 1С. Работает в конфигурациях на основе БСП 2.3.3+, для отчетов на СКД и в 1С 8.3.8+

2 стартмани

30.08.2016    25003    132    Stepa86    15    

Недокументированное использование стандартных форм Upd.

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

Вам не хватает возможностей в платформе 1С или у Вас нет времени на углубленное изучение платформы 1С? Рассмотрены возможности использования стандартных форм, вызываемых из платформы.

1 стартмани

26.07.2016    26635    75    ZhokhovM    60    

Хранение файлов в томах на диске (для УПП 1.3)

Практика программирования v8 УПП1 Абонемент ($m)

Доработка типовой УПП 1.3 в плане хранения присоединенных файлов вне базы данных

2 стартмани

05.06.2016    54617    7    wowik    32    

БСП 2.3 и БСП 3.0: Просто про выполнение внешней обработки в фоне (c индикацией прогресса выполнения)

Инструментарий разработчика Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

Простое пояснение о том, как сделать внешнюю обработку с фоновым выполнением и индикацией процесса для любой конфигурации на основе БСП 2.3.2. UPDATE 20/09/19: добавлен вариант обработки с индикацией процента выполнения и статусом выполнения для БСП 3.0.

1 стартмани

18.05.2016    58268    167    rozer    64    

Остатки на каждый день в запросе

Практика программирования Учет ТМЦ Учет ТМЦ v8 1cv8.cf УУ Абонемент ($m)

Запрос формирует остатки товаров на каждый день в пределах выбранного периода.

1 стартмани

26.04.2016    54136    19    arakelyan    18    

Еще один способ расчета остатков на каждый день в запросе

Математика и алгоритмы Практика программирования v8 Абонемент ($m)

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

1 стартмани

24.04.2016    32949    48    ildarovich    23    

Вывод печатных форм с запросом данных в форму "Печать документов" из подсистемы БСП "Печать".

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

Все не раз видели, как в типовых конфигурациях, построенных на основе БСП (Библиотека стандартных подсистем), печатные формы, построенные на основе Табличного документа, выводятся в специальную форму "ПечатьДокументов". Эта форма входит в состав подсистемы "Печать" из БСП. При разработке своих печатных форм, иногда необходимо запросить у пользователя дополнительные данные необходимые для печати. Тут встает вопрос, как в этом случае вывести печатную форму в форму "Печать документа". В этой статье я рассмотрю, как реализовать вывод печатной формы в упомянутую форму из подсистемы "Печать", в случае если мы хотим перед выводом печатной формы запросить у пользователя дополнительные данные. Здесь будут рассмотрены два случая: когда реализуется печатная форма с использованием подсистемы "Дополнительные отчеты и обработки" и когда печатная форма добавляется в конфигурацию в режиме конфигуратора, т.е. вносятся изменения в типовую конфигурацию.

1 стартмани

29.03.2016    83673    166    lopatin    13    

Выполнение JavaScript кода из 1С в объекте Поле HTML Документа (HTML 5) и вызов события в 1С ПриНажатии

Практика программирования v8 1cv8.cf Россия Абонемент ($m)

Пример выполнения JS кода из 1С в Поле HTML Документа под управляемыми формами, с удобным получением результата в 1С(С помощью вызова привязанного события ПриНажатии к элементу ПолеHTMLДокумента)

1 стартмани

22.03.2016    76749    152    igo1    53    

Количество дней недели (понедельников/вторников/...) в заданном диапазоне одним запросом

Практика программирования v8 Абонемент ($m)

При реализации периодического авто-заполнения маршрутных листов по графику (недельному) необходимо было просчитать стоимость всего периода, с условием выездов только по определенным дням. Заморачиваться с обходом результата не хотелось. Пришлось написать "Небольшой" запрос.

1 стартмани

03.03.2016    17082    1    Alexander.Shvets    5    

Простые радости жизни программиста 1С: выбор типа значения

Работа с интерфейсом Практика программирования v8 1cv8.cf Абонемент ($m)

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

1 стартмани

17.02.2016    47691    50    yuraos    17    

Отображение прогресса выполнения длительных операций в БСП и их отладка в текущем сеансе.

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

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

1 стартмани

17.02.2016    51525    167    balanton    23    

Яндекс.Деньги "Благотворительность"

Инструментарий разработчика Практика программирования v8 1cv8.cf Абонемент ($m)

Яндекс.Деньги теперь в 1С. Форма для приема благотворительных взносов. Форму легко сделать и вставить на любую страницу сайта или блога. Платежи будут приходить на ваш кошелек. На форме есть три способа платежа: из кошелька, с банковской карты, с баланса мобильного.

1 стартмани

16.02.2016    22092    8    Tatitutu    5    

Мастер рассылки e-mail 2.2 для управляемых форм

Практика программирования Email v8 v8::УФ ERP2 БП3.0 УТ11 Абонемент ($m)

Для пользователей: переделанный из старый разработки под 8.2 с использованием библиотеки Мастер рассылки e-mail 2.2 (ERP, УТ, БП) (Только управляемые формы), который теперь может запускаться под любой версией платформы с разрешенными или запрещенными модальными/синхронными вызовами в конфигурации. Также удобный выбор e-mail и их владельцев с помощью отбора динамического списка по любым критериям и галочки исключения.

1 стартмани

29.12.2015    35906    19    milkers    4    

Передача больших пакетов через веб-сервисы

Практика программирования Администрирование данных 1С Внешние источники данных v8 Абонемент ($m)

Реализация механизма передачи больших пакетов через веб-сервисы. С его помощью передать файл размером в несколько гигабайт не составит проблем.

1 стартмани

06.12.2015    54424    47    YPermitin    19    

Пример связи 1С и мессенджера Telegram. Получение данных из 1С запросом из Telegram

Практика программирования Внешние источники данных v8 1cv8.cf Абонемент ($m)

В результате чтения публикации Вы получите готовую внешнюю обработку, позволяющую получать из 1С данные, запрашиваемые через Telegram. В данной статье рассмотрим следующее: Использование HTTPСоединение; Чтение JSON для версии 1С 8.3.6 и выше, а также аналог JSON для версии 1С ниже 8.3.6; Подключение обработчика ожидания; Некоторые основные возможности API Telegram; Как создать бота для Telegram; Программное создание колонок дерева на управляемой форме;

1 стартмани

19.11.2015    87861    446    Luchik    202