С Алексей

34
Рейтинг

viplelik
Алексей С



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

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

Друзья
  • Дмитрий Мишарин
  • Дмитрий Малышев
  • Гордей Голиков
  • Сергей
  • Георгий Погосян
  • Максуд Мдв
  • Андрей Волин
  • Максим Чудновский
  • rhrt rhr
Подписчики 16

Рейтинг 34

Генерация и создание купонов для 1С:Розница 2.3

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

Обработка позволяет быстро сгенерировать одноразовые купоны для дальнейшего применения их в скидках 1С: Розница 2.3.

1 стартмани

12.05.2021    5911    41    viplelik    8       

6

Генератор штрихкодов. Формирование текста QR кода чека ККТ с проверкой на сайте ФНС

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

Внешняя обработка. Позволяет генерировать штрих-коды разных типов. А также сформировать текст QR кода чека ККТ. Есть возможность проверить чек на корректность на сайте ФНС.

1 стартмани

02.04.2020    11409    18    viplelik    4       

2

Продажа сигарет по МРЦ. Отправка отчета при закрытии кассовой смены. Цены в поступлении и др.

Инструменты и обработки Бухгалтер Пользователь Управляемые формы 1С:Розница 2 Управленческий учет Абонемент ($m) Расширение (cfe) Розничная торговля Ценообразование, анализ цен Рабочее место

Небольшая доработка в виде расширение для конфигурации Розница, редакция 2.3 (2.3.2.33) поможет работникам розничной торговли заносить товар, а также отправлять отчеты при закрытии смены, при продаже сигарет брать цену (цена которая указана на пачке) прямо из кода DataMatrix в РМК, отображение цены и остатка в справочнике Номенклатура.

1 стартмани

06.09.2019    7647    11    viplelik    1       

3

Комментарии

DevПолучение файла в тонком клиенте и сохранение полученного файла в каталоге на физическом сервере#9 12.01.23 3:25
Просто выбрать у клиента и сохранить на сервере в нужную папку.
Код
&НаСервере
Процедура СохранитьФайлНаСервере(АдресВременногоХранилища, ИмяФайла)
   
   Попытка
      ДД = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
       ДД.Записать("C:\ПапкаНаСервере"+ИмяФайла);
   Исключение
      ВызватьИсключение("Не могу сохранить файл на сервере!" + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()),КатегорияОшибки.ОшибкаДоступаКЛокальномуФайлу);
   КонецПопытки;
   
КонецПроцедуры

&НаКлиенте
Процедура СохранитьФайлЗавершение(ОписаниеПомещенногоФайла, ДополнительныеПараметры) Экспорт

   Если ОписаниеПомещенногоФайла = Неопределено Тогда
      Возврат;
   КонецЕсли;

   СохранитьФайлНаСервере(ОписаниеПомещенногоФайла.Адрес, ОписаниеПомещенногоФайла.СсылкаНаФайл.Имя);
   
КонецПроцедуры

&НаКлиенте
Процедура СохранитьФайлОтКлиентаНаСервере(Команда)

   ОписаниеОповещенияОЗавершении = Новый ОписаниеОповещения("СохранитьФайлЗавершение", ЭтотОбъект);
   ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов;
   ПараметрыДиалога.Заголовок = НСтр("ru = 'Выберите имя файла для открытия'");
   ПараметрыДиалога.МножественныйВыбор = Ложь;
   НачатьПомещениеФайлаНаСервер(ОписаниеОповещенияОЗавершении, , , ,ПараметрыДиалога, УникальныйИдентификатор);

КонецПроцедуры
Devадрес электронной почты во внешнюю печатную ворму#16 23.11.22 18:03
запрос по типу КИ

Код
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   ОрганизацииКонтактнаяИнформация.Представление КАК Представление
      |ИЗ
      |   Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформация
      |ГДЕ
      |   ОрганизацииКонтактнаяИнформация.Тип = &Тип";
   
   Запрос.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
Devадрес электронной почты во внешнюю печатную ворму#15 23.11.22 17:49
(13)
У меня нет такой конфигурации. Я дал направление.
Проверьте название реквизитов справочника сами и сопоставьте.
Devадрес электронной почты во внешнюю печатную ворму#12 23.11.22 17:17
(10)
если таким путём, тогда надо через поиск по наименованию

Код
Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("EmailКонтрагента", Истина));
Devадрес электронной почты во внешнюю печатную ворму#11 23.11.22 17:09
нужно смотреть в предопределенные значение.

Справочники.ВидыКонтактнойИнформации.
после точки, помощник подскажет что есть, либо левый клик нажать на справочнике "Открыть предопределенные данные" посмотреть как они называются.
Devадрес электронной почты во внешнюю печатную ворму#8 23.11.22 16:45
Код
   Запрос = Новый Запрос;
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   ОрганизацииКонтактнаяИнформация.Представление КАК Представление
      |ИЗ
      |   Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформация
      |ГДЕ
      |   ОрганизацииКонтактнаяИнформация.Вид = &Вид";
   
   Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.EmailКонтрагента);


вот направление для дальнейшей разработки.
DevПеренос значений из табличной части формы справочника в форму документа.#24 19.11.22 23:05
Вариант через запрос.

Код
&НаСервере
Процедура Справочник1ПриИзмененииНаСервере()
   
   //ТЗ = Справочник1.ТабличнаяЧасть1.Выгрузить();
   //Объект.ТабличнаяЧасть1.Загрузить(ТЗ); 
   
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |   Справочник1ТабличнаяЧасть1.Реквизит1 КАК Реквизит1,
   |   Справочник1ТабличнаяЧасть1.Реквизит2 КАК Реквизит2
   |ИЗ
   |   Справочник.Справочник1.ТабличнаяЧасть1 КАК Справочник1ТабличнаяЧасть1
   |ГДЕ
   |   Справочник1ТабличнаяЧасть1.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка", Справочник1);
   Результат = Запрос.Выполнить();
   Если Не Результат.Пустой() Тогда
      Выборка = Результат.Выбрать();
      Объект.ТабличнаяЧасть1.Очистить();
      Пока Выборка.Следующий() Цикл
         НоваяСтрока = Объект.ТабличнаяЧасть1.Добавить();
         ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка);
      КонецЦикла;
   КонецЕсли;
   
КонецПроцедуры
DevПеренос значений из табличной части формы справочника в форму документа.#23 19.11.22 22:43
Если я правильно понял задание. Можно сделать так.
В форме документа, при изменении справочника:
Код
&НаСервере
Процедура Справочник1ПриИзмененииНаСервере()

   ТЗ = Справочник1.ТабличнаяЧасть1.Выгрузить();
   Объект.ТабличнаяЧасть1.Загрузить(ТЗ);

КонецПроцедуры
DevПрочитать ответ от Kafka#28 17.11.22 5:16
Вот такой мой вариант. Ищем все GUID в строке. Все найденные GUID сохраняем в массиве.
Далее уже от них ищем индекс и город.
Широту и долготу по ищем по "$"
СтроковыеФункцииКлиентСервер.ЭтоУникальныйИдентификатор это БСП функция. Показывать здесь её не буду, сможете посмотреть у себя.

Код
ДекодированнаяСтрока = ПолучитьСтрокуИзДвоичныхДанных(Base64Значение(Base64Text));
   МассивGUID = Новый Массив;
   
   Для Индекс = 1 По СтрДлина(ДекодированнаяСтрока) Цикл
      GUID = Сред(ДекодированнаяСтрока, Индекс, 36);
      
      Если СтроковыеФункцииКлиентСервер.ЭтоУникальныйИдентификатор(GUID) Тогда
         МассивGUID.Добавить(GUID);
      КонецЕсли;
   КонецЦикла;

   Если МассивGUID.Количество() > 0 Тогда
      ПозицияГородаСИндексомНачало = СтрНайти(ДекодированнаяСтрока, МассивGUID[0])+36;
      ПозицияГородаСИндексомКонец = СтрНайти(ДекодированнаяСтрока, МассивGUID[1])-1;
      ИндексИГород = СокрЛП(Сред(ДекодированнаяСтрока, ПозицияГородаСИндексомНачало, ПозицияГородаСИндексомКонец-ПозицияГородаСИндексомНачало));
   КонецЕсли;
   
   ПозицияШирота = СтрНайти(ДекодированнаяСтрока, "$")+1;
   ПозицияДолгота = СтрНайти(ДекодированнаяСтрока, "$",,ПозицияШирота)+1;
   
   Широта = Сред(ДекодированнаяСтрока, ПозицияШирота, 18);
   Долгота = Сред(ДекодированнаяСтрока, ПозицияДолгота, 18);
   
ПубликацииКонтроль минимальной розничной цены (МРЦ) алкогольной продукции и установка цен#8 16.11.22 21:06
(7) Добрый вечер. Обновил.
Можете оставить свой контакт здесь или в ЛС, отправлю обновлённый.