1C программист

Функция преобразует Массив из структур в ТаблицуЗначений

    
        
&НаСервереБезКонтекста
Функция ПреобразоватьМассивВТаблицуЗначений(мсДанные) 
    
    тзДанные = Новый ТаблицаЗначений;
    
    Для Каждого ЭлементМассива Из мсДанные Цикл
  
  Если тзДанные.Колонки.Количество() = 0 Тогда
            Для Каждого ЗначениеСтруктуры Из ЭлементМассива Цикл
                тзДанные.Колонки.Добавить(ЗначениеСтруктуры.Ключ);
            КонецЦикла;
        КонецЕсли;
        
        НоваяСтрока = тзДанные.Добавить();
        Для Каждого ЗначениеСтруктуры Из ЭлементМассива Цикл
            НоваяСтрока[ЗначениеСтруктуры.Ключ] = ЗначениеСтруктуры.Значение;
        КонецЦикла;
    КонецЦикла;
    
    Возврат тзДанные;
    
КонецФункции
{}
    

Мы в MAX ✍️ @odin1C_rus

Преобразование отчета на СКД в таблицу значений на табличном документе Иногда с отчетами удобнее (или быстрее) работать в MS Excel, например, когда необходимо связать несколько разных отчетов. Если отчеты выводятся с группировкой, то связать их бывает проблематично. Если у отчета нет своей формы, то можно применить такое универсальное решение. В общую форму ФормаОтчета, в контекстное меню добавим команду "Исходные данные", которая будет выгружать набор данных СКД с текущими значениями параметров и отборов сначала в таблицу значений, а потом в табличный документ, размещенный на общей форме.

    
        
&НаСервере
Процедура ВыгрузитьПлоскуюТаблицуНаСервере()

 Результат = Новый ТаблицаЗначений;
 
 Попытка 
  
  ОтчетОбъект = РеквизитФормыВЗначение("Отчет");
  СхемаКомпоновкиДанных = ОтчетОбъект.СхемаКомпоновкиДанных;
  Настройки = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
  
  КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

  МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
      
  ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
  ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки); 

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

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

&НаКлиенте
Процедура ВыгрузитьПлоскуюТаблицу(Команда)
 ВыгрузитьПлоскуюТаблицуНаСервере();
КонецПроцедуры

Если часть параметров или отборов заполняется в процедуре ПриКомпоновкеРезультата, то могут возникнуть ошибки.
{}
    

Автор: RomanVG Мы в MAX ✍️ @odin1C_rus

Можно ли применить DevOps к 1С? Да, и это кардинально меняет подход к разработке и внедрению бизнес-приложений. 6 октября в 20:00 МСК приглашаем на открытый урок OTUS «Автоматизация разработки и развертывания бизнес-приложений: интеграция 1С с DevOps-практиками». На вебинаре вы узнаете: – как адаптировать принципы DevOps для 1С; – как настроить CI/CD и автоматизировать сборку и развертывание конфигураций; – как интегрировать 1С с Git, GitLab и Jenkins; – увидите практический пример настройки CI/CD-конвейера. Урок будет полезен 1С-разработчикам и тем, кто работает с инфраструктурой и хочет повысить эффективность процессов. Открытый урок проходит в преддверие старта курса «Разработчик 1С. Professional». Все участники получат скидку на обучение. Регистрация открыта: https://vk.cc/cQ0xLh Реклама. ООО «Отус онлайн-образование», ОГРН 1177746618576

👩‍💻 Пример скрипта, который блокирует все информационные базы Еще один пример работы через COM - блокировка работы со всеми информационными базами.

    
        

$services1C = Get-WmiObject win32_service | ?{$_.Name -like '*'} |
    Select Name, DisplayName, State, PathName | 
    Where-Object { $_.PathName  -Like "*ragent.exe*" };

$services1C | % {
    $serviceInfo = $_;
    $serviceExecPath = $services1C.PathName;
    $serviceExecPathRagent = $services1C.PathName.split('"')[1]
    
    $hash = [ordered]@{}
    $serviceExecPath.Split("-").Trim() | Where-Object { $_.Contains(" ") } | ForEach-Object { 
        $name, $value = $_ -split '\s+', 2
        $hash[$name] = $value
    }

    if([System.IO.File]::Exists($serviceExecPathRagent) -ne $true)
    {        
        break
    }
    
    $platformVersion = [System.Diagnostics.FileVersionInfo]::GetVersionInfo($serviceExecPathRagent).FileVersion        
    $clusterPath = $hash.d -replace '"', ''
    $clusterRegPort = $hash.regport
    $clusterPort = $hash.port
    $clusterPortRange = $hash.range
    $clusterRegPath = "$clusterPath\reg_$clusterRegPort"

    $agentPort = $clusterPort;
    $agentAddress = "localhost";
    $clusterAdminName = ""; # Имя администратора кластера
    $clusterAdminPassword = ""; # Пароль администратора кластера
    $fullAgentAddress = "tcp://" + $agentAddress + ":" + $agentPort;

    $COMConnector = $null;
    try {
        if($platformVersion -like "8.2.*")
        {            
            $COMConnector = New-Object -COMObject "V82.COMConnector"
        }
        if($platformVersion -like "8.3.*")
        {
            $COMConnector = New-Object -COMObject "V83.COMConnector"
        }{}
    

Мы в MAX ✍️ @odin1C_rus

👩‍💻 Пример скрипта, который блокирует все информационные базы Продолжение поста выше

    
        
if($null -ne $COMConnector) {
            $serverAgent = $COMConnector.ConnectAgent($SrvAddr);
            $clusterList = $ServerAgent.GetClusters();
            foreach ($cluster in $clusterList) {
                $serverAgent.Authenticate($Cluster, $clusterAdminName, $clusterAdminPassword)                   
                
                $workingProcesses = $serverAgent.GetWorkingProcesses($cluster)
                foreach ($workProcess in $workingProcesses) {
                    if($workProcess.Running -ne 1)
                    {
                        continue
                    }

                    $workProcessConnectionString = "tcp://"+$workProcess.HostName+":"+$workProcess.MainPort
                    $workProcessConnection= $COMConnector.ConnectWorkingProcess($workProcessConnectionString)
                    
                    # Здесь должна быть аутентификация пользователя, имеющего доступ к информационной базе                    
                    $infobaseUserName = ""                    
                    $infobaseUserPassword = ""                    
                    $workProcessConnection.AddAuthentication($infobaseUserName, $infobaseUserPassword)
                    $infoBases = $workProcessConnection.GetInfoBases()
                    $infoBases | ForEach-Object {                
                        $itemInfobase = $_;                        
                        # Снятие запрета соединения с информационной базой
                        $itemInfobase.ConnectDenied = $false
                        # Снятие блокировки регламентных заданий
                        $itemInfobase.ScheduledJobsDenied = $false
                        # Сохраняем измененные настройки
                        $workProcessConnection.UpdateInfoBase($itemInfobase);
                        
                        $infobaseName = $itemInfobase.Name

                        Write-Host "Снята блокировка подключений к базе $infobaseName" -ForegroundColor Green
                        Write-Host "Снята блокировка регламентных заданий в базе $infobaseName" -ForegroundColor Green                        
                    }
                    
                    break
                }
            }
        }

        $COMConnector = $null
    } 
    catch {
        Write-Host "Ошибка при выполнении скрипта." -ForegroundColor Red;
        Write-Host "Подробно:" -ForegroundColor Red
        Write-Host $Error[0] -ForegroundColor Red
    }
}{}
    

Мы в MAX ✍️ @odin1C_rus

🔹🔹🔹🔹7 неудобных вопросов к облачным 1С 7 октября МТС Web Services проведет онлайн-дискуссию, где спикеры расскажут об облачных приложениях 1С: почему они отказались от шаблонного подхода и создали надёжное кастомное решение, которое отвечает реальным запросам клиентов. 🎤 Вы также узнаете: ➡️ Что находится под капотом системы ➡️ Чего опасаются компании при внедрении облачных решений ➡️ Какие гарантии обеспечивают непрерывность работы сервисов 1С Регистрируйтесь по ссылке и до встречи в прямом эфире!

Решаем РЕАЛЬНУЮ задачу собеседования ПРОГРАММИСТА 1С на 100-150к! В этом ролике мы с вами попробуем решить задачу на 1С программиста, которую дали на собеседовании на вакансию с зарплатой 100-150 тысяч рублей. источник Мы в MAX ✍️ @odin1C_rus

📕 Экспресс-моделирование корректных BPMN-диаграмм для 1С - разработчикам 1С и архитекторам, аналитикам и руководителям проектов На открытом уроке 2 октября в 19:00 мск мы разберёмся с BPMN для 1С - когда моделировать процессы и как строить схемы. 📗 На вебинаре: 1. Всё о нотации BPMN: ключевые возможности и отличия от других. 2. Лайфхаки и популярные ошибки в моделировании. 📘 В результате на практике освоите основы BPMN и подход к моделям AS-IS/TO-BE и сможете оформлять базовые диаграммы без типичных ошибок. 👉 Регистрация на урок и подробности о курсе Архитектор 1C: https://vk.cc/cPZ5Gr Все участники открытого урока получат скидку на курс "Архитектор 1C" Реклама. ООО «Отус онлайн-образование», ОГРН 1177746618576