78
Рейтинг

Romeooo



  •   Регистрация: 18.11.2012 (11 лет назад)

  •   Был(а) на сайте: 25.04.2024

Друзья
  • Олег Ризванов
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Андрей Волин
Подписчики 5

Группы

Профессиональный разработчик

Рейтинг 78

Удаление дублей покупателей по телефону

Инструменты и обработки Системный администратор Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m) Архив с данными Чистка данных

Обработки позволяют найти клиентов по одинаковому номеру телефона и сделать замену ссылок на неправильные элементы. Некорректно заполненные номера телефонов приводятся к единому формату.

2 стартмани

26.02.2017    9790    14    Romeooo    1       

4

Обработка импорта\экспорта данных по зарплатной ведомости в клиент-банк УкрЭксимБанка

Инструменты и обработки Бухгалтер Платформа 1С v8.3 Конфигурации 1cv8 Украина Бухгалтерский учет Абонемент ($m) Внешняя обработка (ert,epf) Банковские операции Зарплата Файловый обмен (TXT, XML, DBF), FTP Внешние источники данных Обмен с интернет-банком

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

10 стартмани

21.02.2017    21479    3    Romeooo    0       

7

Алгоритм преобразования XML строки в дерево значений

Статья Программист Платформа 1С v8.3 Бесплатно (free) Нет файла Математика и алгоритмы

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

08.08.2013    19022    Romeooo    4       

22

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

Отчеты и формы Для всех Платформа 1С v8.3 Windows Абонемент ($m) Конфигурация (md, cf) Управление знаниями (Knowledge Base)

Конфигурация позволяет тестировать знания в любой области. Работает через веб-клиент. Возможность загрузки вопросов с ответами из Excel. Или создания новых.

1 стартмани

21.02.2013    14211    45    Romeooo    10       

1

1С 8.2 Консоль запросов к MySQL

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Windows Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

Обработка подключается к базе MySQL по указанному пути и выполняет требуемые запрос. Результат возвращает в тз на форме. Удобно использовать как шаблон для связки 1С с сайтом.

1 стартмани

28.12.2012    14680    92    Romeooo    12       

11

Групповая обработка баз для 1С 8.2 (OLE).

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 Конфигурации 1cv8 Украина Windows Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

Обработка является удобным инструментом, когда необходимо выполнить однотипные действия на нескольких базах с одинаковой конфигурацией. Обработка позволяет: 1. Выполнить произвольный код на всех базах из списка; 2. Выполнить произвольный запрос ко всем базам из списка, с выведением в поле табличного документа побазно. 3. Заменить значение константы во всех базах из списка. Все действия могут быть выполнены, на усмотрение пользователя, либо через COMConnector, либо через Application.

1 стартмани

27.12.2012    14022    57    Romeooo    11       

8

Комментарии

ВКЭлемент управления web камерой для системы 1С:Предприятие версии 8.#70 16.07.20 14:55
Добрый день. Не видит usb камеры.
{ВнешняяОбработка.WebCamPhotoMaker.Форма.Форма.Форма(238)}: Метод объекта не обнаружен (SelectDevices)
Если Камера.SelectDevices() Тогда
ВКActiveX компонента WebCamX для работы с веб-камерой!#142 16.07.20 13:46
Добрый день. Падает в ошибку:
{ВнешняяОбработка.CamX.Форма.Форма.Форма(3)}: Метод объекта не обнаружен (GetCountDivice)
Кол=ЭлементыФормы.WebCam.GetCountDivice();
Можете помочь? скачал WebCamX2
DevКопирование каталога средствами 1с#13 06.06.19 14:11
(12)
Цитата
Функция КопироватьПереместитьКаталог(СтарыйПуть, НовыйПуть, Переместить = Ложь) Экспорт

Для Каждого НайденныйОбъект Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл

Если НайденныйОбъект.ЭтоКаталог() Тогда
СоздатьКаталог(СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));
Продолжить;

Иначе
Если Переместить Тогда
ПереместитьФайл(НайденныйОбъект.ПолноеИмя, СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));

Иначе
КопироватьФайл(НайденныйОбъект.ПолноеИмя, СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));

КонецЕсли;
КонецЕсли;

КонецЦикла;

Если Переместить Тогда
Для Каждого НайденныйОбъект Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл

Если НайденныйОбъект.Существует() Тогда
УдалитьФайлы(НайденныйОбъект.ПолноеИмя);

КонецЕсли;

КонецЦикла;
КонецЕсли;

КонецФункции
Спасибо, классный вариант, только падает если файлы идут перед каталогами. Внес небольшие коррективы:

Код
Процедура КопироватьПереместитьКаталог(СтарыйПуть, НовыйПуть, Переместить = Ложь) Экспорт
    
    Для Каждого НайденныйОбъект Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл
        
        Если НайденныйОбъект.ЭтоКаталог() Тогда
            СоздатьКаталог(СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));            
            Продолжить;
            
      Иначе
         [B]КаталогПереносимогоФайла = Новый Файл(СтрЗаменить(НайденныйОбъект.путь, СтарыйПуть, НовыйПуть));
         Если НЕ КаталогПереносимогоФайла.Существует() Тогда
            СоздатьКаталог(КаталогПереносимогоФайла.ПолноеИмя);
         КонецЕсли;[/B]
         
            Если Переместить Тогда                
                ПереместитьФайл(НайденныйОбъект.ПолноеИмя, СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));
                
            Иначе
                КопироватьФайл(НайденныйОбъект.ПолноеИмя, СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));
                
            КонецЕсли;
        КонецЕсли;
                
    КонецЦикла;
    
    Если Переместить Тогда
        Для Каждого НайденныйОбъект Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл
            
            Если НайденныйОбъект.Существует() Тогда
                УдалитьФайлы(НайденныйОбъект.ПолноеИмя);
                
            КонецЕсли;
                     
        КонецЦикла;    
    КонецЕсли;
    
КонецПроцедуры
DevОтправка сообщений в Skype через Microsoft Bot Framework API#21 20.02.19 18:21
"Как получить ID беседы (группы, контакта)?" - может кому пригодится:
просто берем ник пользователя Skype и обрабатываем следующим образом:

Если СтрНайти(Контакт, ":") = 0 Тогда
Контакт = "8:" + Контакт;
ИначеЕсли СтрНачинаетсяС(Контакт, "live:") Тогда
Контакт = "8:" + Контакт;
КонецЕсли;

И переменную Контакт передаем как ИД беседы.

Авторство не мое, нашел в типовых.
DevУдаление дублей покупателей по телефону#0 26.02.17 17:16
Обработки позволяют найти клиентов по одинаковому номеру телефона и сделать замену ссылок на неправильные элементы.
Некорректно заполненные номера телефонов приводятся к единому формату.
ОбменОбработка импорта\экспорта данных по зарплатной ведомости в клиент-банк УкрЭксимБанка#0 21.02.17 11:49
Обработка позволяет выполнять выгрузку документов Зарплатная ведомость организаций в клиент-банк УкрЭксимБанка.
Для выгрузки данных по зарплатной ведомости, предварительно необходимо загрузить номера контрактов в 1С (записываются как свойства элементов справочника физ.лиц.)
Для удобства реализована возможность загрузки обработки в базу через механизм внешних печатных форм.
Протестировано на УТП.
ОбменОбработка импорта данных из клиент-банка Сбербанк для Украины. МФО: 320627#2 11.01.17 17:57
В файле импорта Сбербанка таких данных нет.
ОбменОбработка импорта данных из клиент-банка Сбербанк для Украины. МФО: 320627#0 03.01.17 12:43
Доработанная обработка импорта данных из клиент-банка Сбербанк (МФО 320627), позволяющая загружать данные в формате Excel.
DevПреобразование строки в дату#13 22.12.16 22:36
Класс! Спасибо! была мелкая ошибка, добавил затык, а так работает отлично!