224
Рейтинг

MrFlanker

Регистрация: 12.04.2012 (12 лет назад)
Был(а) на сайте: 25.04.2024

Друзья

Подписчики 10

Дополнительная информация

Группы

Партнер IS-SP

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

Рейтинг 224

Указание вида оплаты по умолчанию в документе "Оплата от покупателя платежной картой". УТ 10.3
+2 –

Статья Программист Платформа 1С v8.3 1С:Управление торговлей 10 Россия Бесплатно (free) Нет файла Розничная торговля Адаптация типовых решений

Добавлеем вид оплаты по умолчанию для документа "Оплата от покупателя платежной картой".

06.03.2023 1782 MrFlanker 5

Изменение единицы измерения в табличной части документов. УТ 10.3
+1 –

Инструменты и обработки Бухгалтер Пользователь Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Абонемент ($m) Внешняя обработка (ert,epf) Корректировка данных

Обработка табличной части позволяет изменить единицу измерения единицы в табличной части документов.

1 стартмани

02.12.2019 4349 9 MrFlanker 2

Поиск выпадающих позиций товара в течение года
+1 –

Отчеты и формы Программист Пользователь Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Управленческий учет Абонемент ($m) Архив с данными Логистика, склад и ТМЦ

Предназначено для типовой конфигурации Торговля и Склад 10.3. Запрос позволяет найти выпадающие позиции, остаток по которым на конец месяца падает ниже определенного порога от среднемесячного остатка.

1 стартмани

23.05.2019 3247 1 MrFlanker 2

Оприходование отрицательных остатков для 1С:Бухгалтерии 3.0
+44 –

Маркетплейс Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб) Внешняя обработка (ert,epf) Логистика, склад и ТМЦ

Находит отрицательные остатки за выбранный период и позволяет оприходовать их двумя типами документов.

5 стартмани

17.12.2018 22756 62 MrFlanker 17

Подключение торгового оборудования по rdp. Подключение личного оборудования пользователя
+4 –

Инструменты и обработки Системный администратор Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Абонемент ($m) Конфигурация (md, cf) Розничная торговля ККМ

Указан способ, как подключать торговое оборудование отдельным пользователям данного компьютера. Полезно при работе по RDP. Требуются минимальные изменения в конфигурации.

1 стартмани

28.09.2017 16772 6 MrFlanker 4

Продвинутая установка основного поставщика для номенклатуры (Управление Торговлей, УТ 10.3)
+ –

Инструменты и обработки Бухгалтер Руководитель проекта Платформа 1С v8.3 1С:Управление торговлей 10 Россия Управленческий учет Абонемент ($m) Внешняя обработка (ert,epf) Оптовая торговля

Обработка устанавливает основного поставщика в номенклатуре по последним Поступлениям ТМЦ.

2 стартмани

15.06.2017 8317 12 MrFlanker 3

Внешняя Печатная Форма Товарный Чек Мини (80мм)
+4 –

Отчеты и формы Для всех Платформа 1С v8.3 1С:Управление торговлей 10 Windows Абонемент ($m) Внешняя обработка (ert,epf) Печатные формы Розничная торговля

Внешняя печатная форма для Управление Торговлей 10.3 Идеально подходит для печати на принтере чеков шириной 80мм (Posilfex 6000, 7000, 8000 и другие)

1 стартмани

17.10.2014 14220 28 MrFlanker 1

Работа с принтером чеков Posiflex PP 6000, 7000, 8000
+26 –

Инструменты и обработки Программист Россия Windows Абонемент ($m) Архив с данными POS терминал Периферийные устройства

Некоторые варианты для работы с принтером чеков POSIFLEX AURA 6000, 7000, 8000.

1 стартмани

18.08.2014 81498 247 MrFlanker 27

Порядковый номер в запросе (Новым простым способом)
+96 –1

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

По образованию я прикладной математик, ну не смог без боли в глазах смотреть на предлагаемый всюду способ образования натуральных(порядковых) чисел в запросе. Заодно список дат по порядку. Предлагаю новый простой способ. (с) Верес Иван 2014

18.01.2014 62219 MrFlanker 61

Отчет по ликвидным средствам для 1С Предприятие 7.7 (Торговля, Комплексная)
+ –

Отчеты и формы Бизнес-аналитик Бухгалтер Платформа 1С v7.7 Конфигурации 1cv7 Управленческий учет Windows Абонемент ($m) Внешний отчет (ert,erf) Учет доходов и расходов

Отчет позволяет узнать ваш чистый доход, анализируя остатки ликвидных средств (товары, деньги, долги,...)

1 стартмани

17.12.2013 17436 9 MrFlanker 12

Смотреть все

Код
ТабЗнач.Сортировать("Поле ИЕРЕРХИЯ"); // такого к сожалению нету

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

Но возможно если подумать еще немного найдется способа без массива в цикле N раз. что приведет к числу операций O(N^2) .

Dev › Тестовая задача на вакансию "Старший разработчик 1С" › #8 29.03.24 14:12

Вот так решена задача в типовой УТ10.3

Код
// Функция выполняет пропорциональное распределение суммы в соответствии // с заданными коэффициентами распределения // // Параметры: // ИсхСумма - распределяемая сумма // МассивКоэф - массив коэффициентов распределения // Точность - точность округления при распределении. Необязателен. // //Возвращает: // МассивСумм - массив размерностью равный массиву коэффициентов, содержит // суммы в соответствии с весом коэффициента (из массива коэффициентов) // В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0, // или суммарный вес коэф. = 0), тогда возвращается значение Неопределено // Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2, ПроверкаНулевыхЗначений=Истина) Экспорт Если МассивКоэф.Количество() = 0 Или (ПроверкаНулевыхЗначений И ИсхСумма = 0) Или ИсхСумма = Null Тогда Возврат Неопределено; КонецЕсли; ИндексМакс = 0; МаксЗнач = 0; РаспрСумма = 0; СуммаКоэф = 0; Для К = 0 По МассивКоэф.Количество() - 1 Цикл МодульЧисла = ?(МассивКоэф[К] > 0, МассивКоэф[К], - МассивКоэф[К]); Если МаксЗнач < МодульЧисла Тогда МаксЗнач = МодульЧисла; ИндексМакс = К; КонецЕсли; СуммаКоэф = СуммаКоэф + МассивКоэф[К]; КонецЦикла; Если СуммаКоэф = 0 Тогда Возврат Неопределено; КонецЕсли; МассивСумм = Новый Массив(МассивКоэф.Количество()); Для К = 0 По МассивКоэф.Количество() - 1 Цикл МассивСумм[К] = Окр(ИсхСумма * МассивКоэф[К] / СуммаКоэф, Точность, 1); РаспрСумма = РаспрСумма + МассивСумм[К]; КонецЦикла; // Погрешности округления отнесем на коэффицент с максимальным весом Если Не РаспрСумма = ИсхСумма Тогда МассивСумм[ИндексМакс] = МассивСумм[ИндексМакс] + ИсхСумма - РаспрСумма; КонецЕсли; Возврат МассивСумм; КонецФункции // РаспределитьПропорционально()

Код

// Функция выполняет пропорциональное распределение суммы в соответствии
// с заданными коэффициентами распределения
//
// Параметры:
//  ИсхСумма   - распределяемая сумма
//  МассивКоэф - массив коэффициентов распределения
//  Точность   - точность округления при распределении. Необязателен.
//
//Возвращает:
//  МассивСумм - массив размерностью равный массиву коэффициентов, содержит
//               суммы в соответствии с весом коэффициента (из массива коэффициентов)
//               В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0,
//               или суммарный вес коэф. = 0), тогда возвращается значение Неопределено
//
Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2, ПроверкаНулевыхЗначений=Истина) Экспорт

   Если МассивКоэф.Количество() = 0 Или (ПроверкаНулевыхЗначений И ИсхСумма = 0) Или ИсхСумма = Null Тогда
      Возврат Неопределено;
   КонецЕсли;
   
   ИндексМакс = 0;
   МаксЗнач   = 0;
   РаспрСумма = 0;
   СуммаКоэф  = 0;
   
   Для К = 0 По МассивКоэф.Количество() - 1 Цикл
      
      МодульЧисла = ?(МассивКоэф[К] > 0, МассивКоэф[К], - МассивКоэф[К]);
      
      Если МаксЗнач < МодульЧисла Тогда
         МаксЗнач = МодульЧисла;
         ИндексМакс = К;
      КонецЕсли;
      
      СуммаКоэф = СуммаКоэф + МассивКоэф[К];
      
   КонецЦикла;
   
   Если СуммаКоэф = 0 Тогда
      Возврат Неопределено;
   КонецЕсли;
   
   МассивСумм = Новый Массив(МассивКоэф.Количество());
   
   Для К = 0 По МассивКоэф.Количество() - 1 Цикл
      МассивСумм[К] = Окр(ИсхСумма * МассивКоэф[К] / СуммаКоэф, Точность, 1);
      РаспрСумма = РаспрСумма + МассивСумм[К];
   КонецЦикла;
   
   // Погрешности округления отнесем на коэффицент с максимальным весом
   Если Не РаспрСумма = ИсхСумма Тогда
      МассивСумм[ИндексМакс] = МассивСумм[ИндексМакс] + ИсхСумма - РаспрСумма;
   КонецЕсли;
   
   Возврат МассивСумм;

КонецФункции // РаспределитьПропорционально()

Тут всю погрешность кидают на максимальный коэфициент... что не совсем коректно учитывая отрицательные значения.

Я бы построил алгоритм так:
- находим минимум и максиум значений (-5 и +100).
- сдаивгаем все в плюс... чтобы не было значений ниже 0 (+5 делаем)
- в примере получаются числа от 0...105
- распределяем сумму с максимальной точностью (на выходе массив дробных чисел)
- копируем точный массив распределения суммы и округляем числа до необходимой точности
- считаем погрешность итоговую Погрешность = Сумма - Массив.
далее самое интересное... способ распределения погрешности
первое что приходит в голову
- докидывать к суммам можно только по 1 еденицы точности Например (0,01 = 1 копейка) для точности округляени 2.
- Шаг1. Находим максимальную разнциу округл. и точных коэф.
- Щаг2. Докидываем 0.01 к этому коэфициенту
- Щаг3. Погрешность уменьшилась на 0.01, проверяем если она не равно нулю повторяем шаг1.
Посло того как вся погрешность раскидана.. возвращаем смещение -5.
Готово.

Публикации › АТОЛ ВЕБ-СЕРВИС 54ФЗ. Для работы с онлайн-кассами АТОЛ через веб-сервер (Ревизия 3004). Поддержка ФФД 1.2 › #81 10.12.23 6:50

(77) В Атоловской программе "Тест Драйвера ККТ" кнопка "Лицензии", далле "считать лицензии"

Dev › Программно очистить поиск (который по ctrl+f) в динамическом списке › #7 27.11.23 3:50

(6) Спасибо, думаю это будет работать. (записал в копилочку знаний)

Но я все же решил отказаться от подхода который требовал програмное управление поиском в списке.

Dev › Программно очистить поиск (который по ctrl+f) в динамическом списке › #5 24.11.23 2:41

2023 год по прежнему актуально, как решилась проблема ?

Публикации › Осторожно: новый релиз › #24 04.10.23 6:20

(20) Спасибо, работает.

Добавил в глобальный модуль, вот так:

Код
// Для работы 1С в 8.3 в режиме совместимости 8.2.16 // Исправл ошибку которая возникает при попытке открыть на редактирование в поле ввода значение типа СписокЗначений Функция StrTemplate(ValueAddedMoreThanOnce, RightValue) Экспорт Возврат СтрШаблон(ValueAddedMoreThanOnce, RightValue); КонецФункции

Код

// Для работы 1С в 8.3 в режиме совместимости 8.2.16
// Исправл ошибку которая возникает при попытке открыть на редактирование в поле ввода значение типа СписокЗначений
Функция StrTemplate(ValueAddedMoreThanOnce, RightValue) Экспорт
   
   Возврат СтрШаблон(ValueAddedMoreThanOnce, RightValue);
   
КонецФункции

СтрШаблон() - функция видимо доступна в глобальном контексте и проблема только StrTemplate()

Прикрепленные файлы:

2023-10-04_121546.png

Торговля › 96 Отсутствует лицензия на работу с Web-сервером (Касса Атол) › #14 05.04.23 2:32

(13) Да ККМ одна стоит.

Навскидку у вас не вышло ни одной обработки обслуживания торгового оборудования, а только решения которые нужно внедрять и допиливать. 4-я ссылка вообще для УФ, а у нас УТ10.3 она на обычных формах.

На за внимание к теме спасибо.

224 Рейтинг

MrFlanker

Рейтинг 224

Комментарии

224
Рейтинг