Соломатин Александр

160
Рейтинг

v77
Александр Соломатин



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

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

Подписчики 9
Группы

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

Рейтинг 160

Автоматический формооткрыватель
+2 –

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

Маленький, но полезный инструмент, который избавляет нас от постоянного переоткрывания формы внешнего отчета или обработки после каждой правки. Разработчик пишет код во внешней обработке или мучает СКД, а внешняя обработка или отчет автоматически переоткрываются в работающей базе. Не нужно после каждой правки переключаться на окно работающей конфигурации и открывать заново нашу внешнюю обработку или отчет. Тестировалось на 8.3 (8.3.13.1513)

1 стартмани

26.11.2018    4992    6    v77    3       

2

Шаблон внешней компоненты для Lazarus (FreePascal)
+6 –

Инструменты и обработки Программист Платформа 1С v7.7 Платформа 1С v8.3 Windows Абонемент ($m) Приложение (exe) Инструментарий разработчика

Шаблон внешней компоненты COM для Lazarus (FreePascal)

1 стартмани

16.05.2014    22798    32    v77    5       

6

ВК NativeAPI на Delphi и FreePascal
+152 –

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Windows Абонемент ($m) Компонента, плагин (dll, vbs,..) Разработка внешних компонент

1CNativeLib - бесплатная библиотека Delphi для создания внешних компонент (ВК) 1С по технологии Native API. Новая версия. 16.12.2015 Исправлена ошибка: поиск свойств и методов ВК выполнялся с учетом регистра букв. 06.10.2015 Исправлена ошибка: сообщение "некорректная работа компоненты с памятью"

1 стартмани

17.02.2011    72344    603    v77    216       

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

Комментарии

ВК › Внешняя компонента для хранения данных во внешней обработке/отчете › #38 10.03.24 22:11
Можно же средствами 1с записать в файл обработки всё, что угодно. Или это для 7.7?
ВК › Внешняя компонента для хранения данных во внешней обработке/отчете › #37 10.03.24 12:12
А зачем ВК здесь нужна, не понятно.
Dev › Функция СтрШаблон с именованными маркерами › #27 22.10.19 17:20
(26) Ну функцию можно написать какую угодно. Тем более сейчас уже не важно как быстро она будет парсить шаблон, т.к. её в цикле можно не использовать.
Dev › Функция СтрШаблон с именованными маркерами › #25 22.10.19 17:15
(24) А моя то чем не читабельная. Очень даже читабельная. Да в добавок еще и быстрая. И кода меньше писать.
Dev › Функция СтрШаблон с именованными маркерами › #23 22.10.19 17:01
Кстати. Можно еще ускорить, если заранее шаблон заготовить

Код
   Шаблон = F("Приветонище, {Выборка.Наименование}. Ваш долг {Выборка.СуммаДолга} руб.");
   Пока Выборка.Следующий() Цикл
      ВВ = Вычислить(Шаблон);
      Сообщить(ВВ);
   КонецЦикла;
Dev › Функция СтрШаблон с именованными маркерами › #22 22.10.19 16:32
(21)
Цитата
Мысля у народа работает)
А ты типа не народ :)
Dev › Функция СтрШаблон с именованными маркерами › #19 22.10.19 15:17
(16) F или не F какая разница. Назовите как хотите.

А если СуммаДолга лежит в Выборке то нужно будет сделать так?

Ну так и писать {Выборка.Сумма}

ВВ = Вычислить(F("Приветонище, {Имя}. Ваш долг {Выборка.Сумма} руб."));
Dev › Функция СтрШаблон с именованными маркерами › #11 22.10.19 11:30
Померил скорость велосипеда из (8). Работает в три раза быстрее и писанины в два раза меньше.

Код
Текст = СтрШаблон_("Заказано товаров на сумму [Сумма] в количестве [Колво]",
  "Сумма", 2500, "Колво", 100);

Текст = Вычислить(F("Заказано товаров на сумму {Сумма} в количестве {Колво}"));
Dev › Функция СтрШаблон с именованными маркерами › #8 22.10.19 10:29
А что если так?

Код
&НаКлиенте
Процедура Команда1(Команда)
   СуммаДолга = 100500;
   Имя = "Петр Петрович";
   ВВ = Вычислить(F("Приветонище, {Имя}. Ваш долг {СуммаДолга} руб."));
   Сообщить(ВВ);
КонецПроцедуры

&НаКлиенте
Функция F(Стр)
   Стр = СтрЗаменить(Стр,"{",Символы.ПС+"^");   
   Стр = СтрЗаменить(Стр,"}",Символы.ПС);
   Стр = СтрРазделить(Стр,Символы.ПС);
   Результат = """""";
   Для Каждого Ст Из Стр Цикл
      Если СтрНачинаетсяС(Ст,"^") Тогда
         Результат = Результат + "+" + Сред(Ст,2,СтрДлина(Ст));   
      Иначе
         Результат = Результат + "+""" + Ст + """";
      КонецЕсли;
   КонецЦикла;
   Возврат Результат;
КонецФункции
Dev › Перфолента, первое знакомство. Новый язык программирования › #109 25.07.19 9:08
(107) Кошка и Кукуруза вполне подходит. Это простые слова. А с перфолентой будет всегда так:
- На чем ты там писал?... Как оно там называется? Кардолента?
- Перфокарта! Ой! Перфолента.
- Мля. Ну и название.