Вход Блог
Строительство и ремонт
Репетиторы
Красота
Фрилансеры
Разные специалисты
Уход за животными
Тренеры
Автоинструкторы

Программисты 1С — удалённая работа в Москве

Дата: 2025-11-18
Детали
Регион
Москва
Занятость
дистанционно
Стоимость
договорная
Дата публикации
2025-11-18
Описание
Доработать. Конфигурация 1С: Предприятие. Версия: 8.3. Найти и объяснить баги в коде. Причина ошибки импорта файла &НаКлиенте Процедура Импорт(Команда) Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Фильтр = “Файлы Excel (*.xlsx;*.xls)|*.xlsx;*.xls“; Диалог.Заголовок = “Выберите файл для импорта“; Диалог.ПолноеИмяФайла = ““; Диалог.Показать(Новый ОписаниеОповещения(“ПослеВыбораФайла“, ЭтотОбъект)); КонецПроцедуры &НаКлиенте Процедура ПослеВыбораФайла(РезультатВыбора, ДополнительныеПараметры) Экспорт Если Не РезультатВыбора = Неопределено Тогда ИмпортНаСервере(РезультатВыбора); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПоказатьСообщениеНаКлиенте(ТекстСообщения) Сообщить(ТекстСообщения); КонецПроцедуры &НаКлиенте Процедура ИзометрииПриОтображенииСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки) Если ДанныеСтроки.Готовность = 100 Тогда ОформлениеСтроки.ЦветФона = WebЦвета.LightGreen; ОформлениеСтроки.ЦветТекста = WebЦвета.DarkGreen; КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ОбновитьФорму() Элементы.Изометрии.Обновить(); КонецПроцедуры &НаСервере Процедура ИмпортНаСервере(ПутьКФайлу) Попытка // Чтение данных из Excel Данные = ПрочитатьФайлExcel(ПутьКФайлу); Исключение Сообщить(“Ошибка чтения файла: “ + ОписаниеОшибки()); Возврат; КонецПопытки; // Группировка данных по изометриям ДанныеИзометрий = Новый Соответствие; Для Каждого СтрокаДанных Из Данные Цикл Ключ = СтрокаДанных.Изометрия + “_“ + СтрокаДанных.Ревизия; Если Не ДанныеИзометрий.Содержит(Ключ) Тогда ДанныеИзометрий[Ключ] = Новый Структура(“Изометрия,Блок,Линия,Ревизия,Стыки“); ДанныеИзометрий[Ключ].Изометрия = СтрокаДанных.Изометрия; ДанныеИзометрий[Ключ].Блок = СтрокаДанных.Блок; ДанныеИзометрий[Ключ].Линия = СтрокаДанных.Линия; ДанныеИзометрий[Ключ].Ревизия = СтрокаДанных.Ревизия; ДанныеИзометрий[Ключ].Стыки = Новый ТаблицаЗначений; ДанныеИзометрий[Ключ].Стыки.Колонки.Добавить(“НомерСтыка“); ДанныеИзометрий[Ключ].Стыки.Колонки.Добавить(“ДатаСварки“); ДанныеИзометрий[Ключ].Стыки.Колонки.Добавить(“Сварщик“); КонецЕсли; НоваяСтрока = ДанныеИзометрий[Ключ].Стыки.Добавить(); НоваяСтрока.НомерСтыка = СтрокаДанных.НомерСтыка; НоваяСтрока.ДатаСварки = СтрокаДанных.ДатаСварки; НоваяСтрока.Сварщик = СтрокаДанных.Сварщик; КонецЦикла; // Обработка и сохранение данных НачатьТранзакцию(); Попытка Для Каждого ЭлементДанных Из ДанныеИзометрий Цикл ОбработатьИзометрию(ЭлементДанных); КонецЦикла; ЗафиксироватьТранзакцию(); ////ОбновитьФорму(); ////ПоказатьСообщениеНаКлиенте(“Импорт завершен успешно!“); Исключение ОтменитьТранзакцию(); ////ПоказатьСообщениеНаКлиенте(“Ошибка при импорте: “ + ОписаниеОшибки()); КонецПопытки; КонецПроцедуры &НаСервере Функция ПрочитатьФайлExcel(ПутьКФайлу) Данные = Новый Массив; Excel = Новый COMОбъект(“Excel.Application“); Попытка Excel.Visible = Ложь; Excel.DisplayAlerts = Ложь; Книга = Excel.Workbooks.Open(ПутьКФайлу); Лист = Книга.WorkSheets(1); ТекущаяСтрока = 2; Пока Истина Цикл Изометрия = Лист.Cells(ТекущаяСтрока, 1).Text; Если ПустаяСтрока(Изометрия) Тогда Прервать; КонецЕсли; СтрокаДанных = Новый Структура; СтрокаДанных.Вставить(“Изометрия“, СокрЛП(Изометрия)); СтрокаДанных.Вставить(“Блок“, СокрЛП(Лист.Cells(ТекущаяСтрока, 2).Text)); СтрокаДанных.Вставить(“Линия“, СокрЛП(Лист.Cells(ТекущаяСтрока, 3).Text)); СтрокаДанных.Вставить(“Ревизия“, Число(СокрЛП(Лист.Cells(ТекущаяСтрока, 4).Text))); СтрокаДанных.Вставить(“НомерСтыка“, Число(СокрЛП(Лист.Cells(ТекущаяСтрока, 5).Text))); ТекстДаты = СокрЛП(Лист.Cells(ТекущаяСтрока, 6).Text); Если ПустаяСтрока(ТекстДаты) Тогда СтрокаДанных.Вставить(“ДатаСварки“, Неопределено); Иначе Попытка СтрокаДанных.Вставить(“ДатаСварки“, Дата(ТекстДаты)); Исключение СтрокаДанных.Вставить(“ДатаСварки“, Неопределено); КонецПопытки; КонецЕсли; СтрокаДанных.Вставить(“Сварщик“, СокрЛП(Лист.Cells(ТекущаяСтрока, 7).Text)); Данные.Добавить(СтрокаДанных); ТекущаяСтрока = ТекущаяСтрока + 1; КонецЦикла; Книга.Close(Ложь); Исключение ВызватьИсключение “Не удалось прочитать файл Excel: “ + ОписаниеОшибки(); КонецПопытки; Excel.Quit(); Возврат Данные; КонецФункции &НаСервере Процедура ОбработатьИзометрию(ДанныеИзометрии) // Поиск или создание элементов справочников Блок = НайтиИлиСоздатьБлок(ДанныеИзометрии.Блок); Линия = НайтиИлиСоздатьЛинию(ДанныеИзометрии.Линия); // Поиск существующей изометрии СущИзометрия = Справочники.Изометрии.НайтиПоНаименованию(ДанныеИзометрии.Изометрия); Если Не ЗначениеЗаполнено(СущИзометрия) Тогда СущИзометрия = Справочники.Изометрии.СоздатьЭлемент(); СущИзометрия.Наименование = ДанныеИзометрии.Изометрия; КонецЕсли; // Заполнение реквизитов СущИзометрия.Блок = Блок; СущИзометрия.Линия = Линия; СущИзометрия.Ревизия = ДанныеИзометрии.Ревизия; // Очистка и заполнение табличной части СущИзометрия.Стыки.Очистить(); ВсегоСтыков = ДанныеИзометрии.Стыки.Количество(); ГотовыеСтыки = 0; Для Каждого СтрокаСтыка Из ДанныеИзометрии.Стыки Цикл Сварщик = НайтиИлиСоздатьСварщика(СтрокаСтыка.Сварщик); НоваяСтрока = СущИзометрия.Стыки.Добавить(); НоваяСтрока.НомерСтыка = СтрокаСтыка.НомерСтыка; НоваяСтрока.ДатаСварки = СтрокаСтыка.ДатаСварки; НоваяСтрока.Сварщик = Сварщик; // Подсчет готовых стыков Если ЗначениеЗаполнено(СтрокаСтыка.ДатаСварки) Тогда ГотовыеСтыки = ГотовыеСтыки + 1; КонецЕсли; КонецЦикла; // Расчет готовности СущИзометрия.Готовность = ?(ВсегоСтыков > 0, Окр(ГотовыеСтыки / ВсегоСтыков * 100, 0), 0); СущИзометрия.Записать(); КонецПроцедуры &НаСервере Функция НайтиИлиСоздатьБлок(КодБлока) Если ПустаяСтрока(КодБлока) Тогда Возврат Неопределено; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = “ВЫБРАТЬ | Блоки.Ссылка |ИЗ | Справочник.Блоки КАК Блоки |ГДЕ | Блоки.Код = &КодБлока“; Запрос.УстановитьПараметр(“КодБлока“, Число(КодБлока)); Результат = Запрос.Выполнить(); Если Результат.Пустой() Тогда НовыйБлок = Справочники.Блоки.СоздатьЭлемент(); НовыйБлок.Код = Число(КодБлока); НовыйБлок.Наименование = Строка(КодБлока); НовыйБлок.Записать(); Возврат НовыйБлок; Иначе Возврат Результат[0].Ссылка; КонецЕсли; КонецФункции &НаСервере Функция НайтиИлиСоздатьЛинию(НаименованиеЛинии) Если ПустаяСтрока(НаименованиеЛинии) Тогда Возврат Неопределено; КонецЕсли; СущЛиния = Справочники.Линии.НайтиПоНаименованию(НаименованиеЛинии); Если Не ЗначениеЗаполнено(СущЛиния) Тогда СущЛиния = Справочники.Линии.СоздатьЭлемент(); СущЛиния.Наименование = НаименованиеЛинии; СущЛиния.Записать(); КонецЕсли; Возврат СущЛиния; КонецФункции &НаСервере Функция НайтиИлиСоздатьСварщика(ИмяСварщика) Если ПустаяСтрока(ИмяСварщика) Тогда Возврат Неопределено; КонецЕсли; СущСварщик = Справочники.Сварщики.НайтиПоНаименованию(ИмяСварщика); Если Не ЗначениеЗаполнено(СущСварщик) Тогда СущСварщик = Справочники.Сварщики.СоздатьЭлемент(); СущСварщик.Наименование = ИмяСварщика; СущСварщик.Записать(); КонецЕсли; Возврат СущСварщик; КонецФункции.
Похожие заказы

Дизайнеры

дистанционно
договорная
Графический дизайнер для разработки большого авиационного постера с картой маршрутов. Опыт работы с картами, инфографикой, постерами и подготовкой макетов к широкоформатной печати. Желательно знание Illustrator / Photoshop / InDesign. Нужно разработать именно большой настенный плакат, а не просто карту с нанесёнными маршрутами. Формат предполагается около 160 ? 140 см, горизонтальный, но желательно сделать макет максимально гибким по пропорциям и предоставить его в редактируемом формате, чтобы при обращении в копицентр можно было без потери качества изменить размер под конкретный формат печати. Основой должна быть карта мира с реальными маршрутами полётов, данные которых будут предоставлены из Volanta — это сервис, который сохраняет историю полётов и информацию о каждом рейсе: аэропорт вылета и прилёта, дату, продолжительность, номер рейса, воздушное судно и другие данные. На карту необходимо нанести эти реальные маршруты, аэропорты и ICAO-коды, при этом повторяющиеся направления нужно оформить так, чтобы большое количество линий не превращало карту в хаос. Визуально хочется именно атмосферу авиационного атласа или навигационной карты: координатная сетка, линии широты и долготы, технические обозначения, небольшие подписи, условные обозначения и другие декоративные элементы, характерные для настоящих авиационных карт. Особенно желательно добавить в нижней части плаката блок с различными обозначениями, техническими подписями, условными знаками, шкалами, координатами и небольшими текстовыми элементами — как это бывает на настоящих картах и атласах, чтобы создавалось ощущение полноценного картографического плаката. Можно использовать винтажные или современные авиационные картографические мотивы, но итоговый дизайн должен выглядеть цельным и профессиональным. При этом основным визуальным элементом должны оставаться карта и маршруты, а дополнительные надписи и декоративные элементы не должны мешать их восприятию. Важно, чтобы итог выглядел именно как качественный большой настенный авиационный плакат, который интересно рассматривать издалека и вблизи, а не как скриншот или инфографика из приложения. Итог желательно предоставить в PDF для печати и в исходном редактируемом формате, чтобы при необходимости в копицентре можно было самостоятельно изменить размер, пропорции, поля или другие параметры перед печатью. Также необходимо добавить на плакат крупный заголовок или обозначение, по которому сразу понятно, что это персональная карта полётов. В качестве основного идентификатора использовать ник HauBHa9lDbIPo4Ka. Возможные варианты оформления: “HauBHa9lDbIPo4Ka — FLIGHT LOG”, “HauBHa9lDbIPo4Ka — FLIGHT HISTORY”, “FLIGHTS OF HauBHa9lDbIPo4Ka” или другой более стилистически подходящий вариант на усмотрение дизайнера. Ник должен быть заметным, но органично вписываться в стиль авиационного атласа. Дополнительно необходимо предусмотреть информационный блок с периодом полётов в формате “FLIGHT HISTORY · 2018—2026”. Важно использовать именно обозначение периода через годы, без формулировок вроде «первый полёт — последний полёт». Точные годы будут определены по данным Volanta на момент создания плаката. Если позволяет композиция, рядом можно разместить дополнительную статистику из истории Volanta: количество полётов, уникальных аэропортов, стран, общий налёт, наиболее частые направления и другие интересные показатели. Точные значения будут предоставлены отдельно после обработки истории полётов.
Санкт-Петербург Фрилансеры

Размещение на маркетплейсах

дистанционно
договорная
Маркетплейс: Wildberries, Ozon, Яндекс.Маркет. Бюджет на рекламную кампанию: 6000. Физическое лицо. Пожелания и особенности: Ищем менеджера маркетплейсов для тестирования и развития AI-решения UnionHouse разрабатывает AI-инструменты для продавцов на Wildberries, Ozon и других маркетплейсах. Ищем опытного менеджера маркетплейсов, который готов участвовать в развитии продукта: тестировать инструменты на реальных магазинах, помогать находить точки роста и формировать решения, которые действительно нужны продавцам. Что предлагаем: ? бесплатное использование наших инструментов; ? помощь в аналитике, поиске точек роста, оптимизации продаж и рекламы; ? возможность влиять на развитие продукта; ? процент от результата / партнёрское вознаграждение. Ищем человека с опытом работы с маркетплейсами, который понимает продажи, карточки товаров, рекламу, аналитику и реальные проблемы продавцов. Если вам интересно стать одним из первых участников проекта пишите.
Москва Фрилансеры

Создание карточек товаров

дистанционно
договорная
Ozon. Количество карточек: 100 шт. ИП. Пожелания и особенности: Ищу специалиста для работы с карточками товаров на озон. Что нужно делать: * создавать новые карточки товаров на Ozon; * заполнять характеристики, описание, преимущества и другие поля; * работать с SEO — подбирать ключевые слова и грамотно прописывать их в карточке; * редактировать и оптимизировать уже существующие карточки; * загружать фотографии и инфографику; * при необходимости ставить задачи дизайнеру или самостоятельно готовить ТЗ на изображения; * следить за корректностью характеристик, категорий, названий и остальной информации; * анализировать карточки конкурентов и предлагать улучшения; * поддерживать карточки в актуальном состоянии.
Москва Фрилансеры

Разработка ботов Telegram

дистанционно
договорная
Задачи чат-бота: автоматическое бронирование, информирование клиентов. Продукт: telegram bot для бизнеса. Техзадания нет. Пожелания и особенности: Нужен Telegram-бот для бизнеса Ищу разработчика, который сделает Telegram-бота под ключ. Что должен уметь бот: — приветствовать пользователя и показывать меню с услугами — отвечать на частые вопросы (FAQ) — собирать заявку (имя, телефон, что интересует) и присылать её мне в чат — по возможности — принимать запись на услугу с выбором даты/времени Готовое ТЗ пока нет, готов обсудить логику в переписке или на созвоне.
Москва Фрилансеры

Настройка Авито

дистанционно
договорная
Пожелания и особенности: Мы производим чемоданы. Продаем оптом и в розницу. В Ассортименте пластиковые и тканевые. Есть склад в Краснодаре, доставка по РФ через Авито Доставку. На данный момент есть профиль на Авито, но продаж мало. Самостоятельно выкладываю объявления, но спрос не большой. Хотела бы прибегнуть к помощи специалиста по Авито. Хочу системный подход, включенное ведение; не просто автоподнятие, а стратегия, которая приведет к заявкам и продажам.
Краснодар Фрилансеры

Маркетинг

дистанционно
договорная
Консультация маркетолога. Тема: план и стратегия маркетинга, Необходима консультация маркетолога для репетитора по русскому языку. Продукт, деятельность: Я репетитор по русскому языку. Есть курс подготовки к егэ. Его необходимо продвинуть, готовы только конспекты и домашние задания. Ничего больше нет Нужен план по привлечению клиентов. Текущие методы привлечения клиентов: клиенты приходят по рекомендации. Разовая консультация.
Санкт-Петербург Фрилансеры

Транскрибация

дистанционно
договорная
Текст: разговорный. Язык: русский. Объём работ: 50 минут. Исходный формат: аудио. Разовая задача или временный проект. Прошу помочь мне сделать транскрибацию видоса по биологии. Лекция +- час, нужно сделать в ворде объемом до 5 страниц, пишем только основное. Нужно сделать до 7.10 Пишите мне в ттел.ллег.рам - ronferys За срочность и качество заплачу 5800 рублей . Очень жду.
Москва Фрилансеры