Решетников Дмитрий

12
Рейтинг

electrolis
Дмитрий Решетников



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

  •   Был(а) на сайте: вчера в 12:09

Друзья
  • Дмитрий Крюков
  • Владимир Татарников
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Сергей
  • Андрей Волин
Подписчики 8
Группы

Рейтинг 12

Загрузка прайс-листа из EXCEL в справочник Номенклатура, с картинками и иерархией, без установленного MS Office на компьютере
+9 –

Инструменты и обработки Программист Платформа 1С v8.3 1С:Управление торговлей 11 Россия Windows Абонемент ($m) Архив с данными Розничная торговля Загрузка и выгрузка в Excel

Загрузка прайс листа из EXCEL или табличного документа 1С MXL с сохранением структуры иерархии. А так же с картинками. При этом нет необходимости устанавливать Mcrosoft Office на компьютер. Загрузка в УТ 11.4

2 стартмани

10.08.2019    5734    36    electrolis    6       

9

Расчёт графика займа с полной стоимостью займа (ПСК), для конфигураций (8.1-8.3)
+3 –

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

Внешний отчёт для 1С версии 8.1 - 8.3 Позволяет рассчитать полную стоимость кредита и построить график возвратных платежей для займов с дополнительными и ежемесячными взносами. Предназначен для расчётов от 2 и более месяцев. НЕ подойдёт для расчётов за период менее месяца.

1 стартмани

05.01.2016    12028    24    electrolis    10       

3
Смотреть все

Комментарии

Обмен › Загрузка прайс-листа из EXCEL в справочник Номенклатура, с картинками и иерархией, без установленного MS Office на компьютере › #6 20.04.23 7:05
(5)
Цитата
Общая Форма:
&НаКлиенте
Процедура ПриОткрытии(Отказ)
сообщить(имяпользователя()); #ВЫВОД ПРИВЕТСТВЕННОГО ОКНА
КонецПроцедуры

&Наклиенте
Процедура открыть1(Команда)

СсылкаНаЭлементСправочника = полимя();
ПараметрыФормы = Новый Структура("Ключ", СсылкаНаЭлементСправочника);
ОткрытьФорму("Справочник.Сотрудники.ФормаОбъекта", ПараметрыФормы); #ССЫЛКА НА ЮЗЕРА
КонецПроцедуры

&Насервере
функция полимя()
возврат справочники.сотрудники.НайтиПоРеквизиту("Логин",имяпользователя()); #ОТКРЫТИЕ СПРАВОЧНИКА
КонецФункции

Справочник «Пользователи»:
&НаКлиенте
Процедура картинкаНажатие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.ПолноеИмяФайла = ""; #ВЫБОР КАРТИНКИ
Фильтр = "Файл Jpg (*.jpg)|*.jpg|Рисунок PNG(*.png)|*.png";
ДиалогОткрытия.Фильтр = Фильтр;
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберете файл для загрузки";
ОписаниеОповещения = Новый ОписаниеОповещения("ПослеЗагрузкиФайла",ЭтаФорма);
ДиалогОткрытия.Показать(ОписаниеОповещения);
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗагрузкиФайла(ВыбранныйФайл,ДопПараметр) Экспорт
Если ВыбранныйФайл = Неопределено Тогда #КАРТИНКА
Возврат;
КонецЕсли;
ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтаФорма);
НачатьПомещениеФайла(ОписаниеОповещения,, ВыбранныйФайл[0], Ложь, УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ПослеПомещенияФайла(Результат, Адрес, ВыбранноеИмяФайла,ДопПараметры) Экспорт
Если Не Результат Тогда
Возврат;
КонецЕсли;
Картинка = Адрес;
Модифицированность = Истина;
КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если ЭтоАдресВременногоХранилища(картинка) Тогда
ФайлКартинки = ПолучитьИзВременногоХранилища(Картинка);
ТекущийОбъект.Изображение = Новый ХранилищеЗначения(ФайлКартинки); #ПОЛУЧЕНИЕ КАРТИНКИ
УдалитьИзВременногоХранилища(картинка);
картинка = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Изображение");
КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
картинка = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Изображение");
КонецПроцедуры

Функция Запись()
НовыйПользователь = ПользователиИнформационнойБазы.НайтиПоИмени(имяпользователя());
Если НовыйПользователь = Неопределено Тогда
НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
КонецЕсли;
НовыйПользователь.Имя = Объект.Логин;
НовыйПользователь.ПолноеИмя = Объект.Наименование;
НовыйПользователь.АутентификацияСтандартная = Истина;
Если Объект.роль=Перечисления.роль.Админ тогда
НовыйПользователь.Роли.Добавить(метаданные.Роли.Админ); #ДОБАВЛЕНИЕ ЮЗЕРА ПРОГРАММНО
иначеесли Объект.роль=Перечисления.роль.Повар тогда
НовыйПользователь.Роли.Добавить(метаданные.Роли.Повар);
иначе Объект.роль= Перечисления.роль.Пользователь ;
НовыйПользователь.Роли.Добавить(метаданные.Роли.Поль);
Конецесли;
НовыйПользователь.Язык = Метаданные.Языки.Русский;
НовыйПользователь.Записать();
КонецФункции


&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ГСЧ = Новый ГенераторСлучайныхЧисел();
число=1;
п=0;
пока п<>3 цикл
а = ГСЧ.СлучайноеЧисло(1, 10);
б = ГСЧ.СлучайноеЧисло(1, 10);
Итог = а+б;

ВвестиЧисло(Число, ""+а+"+"+б+"=?",2);
если число=итог тогда
сообщить("ждлвтпаол");
прервать;
КонецЕсли;
п=п+1;
КонецЦикла;
если п=3 тогда
Режим = РежимДиалогаВопрос.ОК; #КАПЧА
Вопрос(("Попытки были исчерпаны!" ), Режим, 0);
отказ=истина;
ПрекратитьРаботуСистемы();
КонецЕсли;

Запись();

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)
если не пустаястрока(объект.код) тогда
элементы.Роль.Доступность=ложь;
КонецЕсли;
КонецПроцедуры

Конечно. а что, не работает?
Обмен › Обмен УТ 11 (11.4.13.227) с БП 3.0 (из серии - никогда такого не было, и вот опять) › #19 28.09.21 12:04
Спасибо за статью. я уж думал что с ума сошёл. Буквально вчера всё работало, обновил и здрасте вам!
Хорошо я обновления устанавливаю с некоторой задержкой и уже вышло 11.4.13.275 в котором (или в одном из прошлых где-то между 243 и 275) всё пофиксили.
Dev › 1c + kafka.apache › #69 06.04.20 8:36
Ничего не понятно. Но очень интересно. :-)
Dev › Несколько видов оплат в Чеке ККМ и Z-отчете, разделение по секциям в X отчете › #2 03.01.20 12:23
А если нужно закрыть чек с указанием системы налогооблажения?
вроде как там теперь есть такой парметр. Куда его передавать?
Финансы › Расчёт графика займа с полной стоимостью займа (ПСК), для конфигураций (8.1-8.3) › #10 08.12.19 9:20
(9)Напишите мне в личку
Обмен › Загрузка прайс-листа из EXCEL в справочник Номенклатура, с картинками и иерархией, без установленного MS Office на компьютере › #0 10.08.19 11:48
Загрузка прайс листа из EXCEL или табличного документа 1С MXL с сохранением структуры иерархии.
А так же с картинками.
При этом нет необходимости устанавливать Mcrosoft Office на компьютер.
Загрузка в УТ 11.4
Dev › Как правильно проиндексировать поля для запроса › #5 06.08.18 12:48
Почему-то ссылка в начале статьи никуда не ведёт. вот нашёл ещё https://its.1c.ru/db/metod8dev#content:5842:hdoc
HighLoad › Отчет по размерам таблиц в базе SQL › #5 27.03.18 9:04
Ваша обработка позволит подключится к базе если она на postgres ?
Финансы › Расчёт графика займа с полной стоимостью займа (ПСК), для конфигураций (8.1-8.3) › #8 27.03.18 9:03
(7)Если нужен сам алгоритм в модуле, пишите.
Финансы › Расчёт графика займа с полной стоимостью займа (ПСК), для конфигураций (8.1-8.3) › #6 18.07.16 12:56
(5) Petrushka, мог бы, но мне какой в этом интерес? :-)