Tretiak Oleksandr

22
Рейтинг

alur



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

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

Друзья
  • boris nuraliev
Подписчики 3

Рейтинг 22


Комментарии

ТорговляПечать штрих-кодов из 1С: 7.7 Комплексная конфигурация#6 26.10.21 17:23
(5) это больше к админам вопрос. Различных технологий много. Обычно достаточно перенаправить порт на сетевое имя локального принтера.
ОбменПеревод номера банковского счета в стандарт IBAN для Украины#6 16.09.19 13:35
(5) как-то так:
Код
Функция НомерБанковскогоСчетаСоответствуетСтандартуIBAN(сIBAN)
   
   сIBANРаскодированный = Сред(сIBAN, 5)
   + Формат(КодСимвола(Сред(сIBAN, 1, 1)) - 55, "ЧЦ=2; ЧН=; ЧВН=")
   + Формат(КодСимвола(Сред(сIBAN, 2, 1)) - 55, "ЧЦ=2; ЧН=; ЧВН=")
   + Сред(сIBAN, 3, 2);
   
   Если СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке(сIBANРаскодированный) Тогда
      Возврат сIBANРаскодированный % 97 = 1;
   Иначе
      Возврат Ложь;
   КонецЕсли;
   
КонецФункции
ОбменПеревод номера банковского счета в стандарт IBAN для Украины#4 10.09.19 16:38
(1)условие проверки: число счета (с перекодированными символами) % 97 = 1
ОбменПеревод номера банковского счета в стандарт IBAN для Украины#3 10.09.19 16:34
Всё гораздо проще:
Код
Функция ПолучитьНомерСчетаIBAN(Страна, МФО, РСчет)
   
   сРезультат = СтроковыеФункцииКлиентСервер.ДополнитьСтроку(МФО, 6, "0", "Слева")
   + СтроковыеФункцииКлиентСервер.ДополнитьСтроку(РСчет, 19, "0", "Слева");
   
   СтрокаСтраны = Формат(КодСимвола(Сред(Страна, 1, 1)) - 55, "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН=; ЧГ=")
   + Формат(КодСимвола(Сред(Страна, 2, 1)) - 55, "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН=; ЧГ=");
   
   Если Не СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке(сРезультат + СтрокаСтраны, Истина, Ложь) Тогда
      Возврат РСчет;
   КонецЕсли;
   
   ЧислоРасчета = Число(сРезультат + СтрокаСтраны);
   КонтрольнаяСумма = 98 - ЧислоРасчета * 100 % 97;
   СтрокаКС = Формат(КонтрольнаяСумма, "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН=; ЧГ=");
   
   сРезультат = Страна + СтрокаКС + сРезультат;
   
   Если УправлениеДенежнымиСредствами.НомерБанковскогоСчетаСоответствуетСтандартуIBAN(сРезультат) Тогда
      Возврат сРезультат;
   Иначе
      Возврат РСчет;
   КонецЕсли;
   
КонецФункции
ТорговляПечать штрих-кодов из 1С: 7.7 Комплексная конфигурация#3 18.08.16 22:59
Приятно, что моя обработка еще кому-то нужна :-)
Отображение шк в ленте - глюк компоненты, поиграйся с расположением, масштабом, полями и пр. У меня основная фишка была в том, что границы элемента управления штрихкодом выходили за границы ячейки, и, как следствие, элемент масштабировался вместе с ячейкой (других средств управления его размером попросту нет)
ТорговляПечать штрих-кодов из 1С: 7.7#23 08.10.14 21:40
Это процедуры глобального модуля ТиС для Украины. Должны быть в любых релизах. Вероятно, должны быть их аналоги и в российской конфигурации.