Функция проверки номеров расчетных счетов (IBAN)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 4099 ke.92@mail.ru 16

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Конфигурации 1cv8 Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 8189 YA_418728146 8

104

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 9359 YA_418728146 6

143

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

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

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023 2213 24 progmaster 7

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022 16342 142 sapervodichka 112

130

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022 7349 quazare 8

110

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. misha226 21 27.04.11 12:16 Сейчас в теме

Хотелось бы по подробней... ;)

2. sandybaev 197 05.11.14 15:46 Сейчас в теме

(1) misha226, вот держи специально для тебя.

В моем случае длина кода составляет 20 знаков
вдохновение брал вот отсюда:
http://www.morfoedro.it/doc.php?n=219&lang=ru

Функция ПроверитьКорректностьIBANКода(КодДляПроверки)

    ДлинаПравильная = ?(СтрДлина(КодДляПроверки) = 20, Истина, Ложь);
    
    Если ДлинаПравильная Тогда
        
        ПреобразованнаяСтрока = Перетащить4ЗнакаНазад(Строка(КодДляПроверки));
        
        ном = 0;
        ИтоговаяСтрока = "";
        Для Ном = 1 По СтрДлина(ПреобразованнаяСтрока) Цикл
        
            ИтоговаяСтрока = ИтоговаяСтрока + ВернутьЭквивалент(Сред(ПреобразованнаяСтрока, Ном, 1));	
        
        КонецЦикла; 
        
        
        Первые7Знаков = Лев(ИтоговаяСтрока, 7);
        
        ИтоговаяСтрока = СтрЗаменить(ИтоговаяСтрока, Первые7Знаков, "");
        
        Вторые7Знаков = Лев(ИтоговаяСтрока, 7);
        
        ИтоговаяСтрока = СтрЗаменить(ИтоговаяСтрока, Вторые7Знаков, "");
        
        Третьи7Знаков = Лев(ИтоговаяСтрока, 7);
        
        ИтоговаяСтрока = СтрЗаменить(ИтоговаяСтрока, Третьи7Знаков, "");
        
        Остаток       = Прав(ИтоговаяСтрока, 1);
        
        
        
        
        ПодготовленнаяСтрока = Первые7Знаков;
        
        ОстатокОтДеления = Число(ПодготовленнаяСтрока)%97;
        
        ПодготовленнаяСтрока = Строка(ОстатокОтДеления) + Вторые7Знаков;
        
        ОстатокОтДеления = Число(ПодготовленнаяСтрока)%97;
        
        ПодготовленнаяСтрока = Строка(ОстатокОтДеления) + Третьи7Знаков;
        
        ОстатокОтДеления = Число(ПодготовленнаяСтрока)%97;
        
        ПодготовленнаяСтрока = Строка(ОстатокОтДеления) + Остаток;
        
        ОстатокОтДеления = ПодготовленнаяСтрока%97;
        
        
        Если ОстатокОтДеления = 1 Тогда
            Возврат истина;
        Иначе	
            Возврат Ложь;
        КонецЕсли; 
        
    Иначе
        
        Возврат Ложь;
        
    КонецЕсли; 
    

КонецФункции // ()


и ещё две функции очень простых

Функция Перетащить4ЗнакаНазад(КодДляПроверки)

	ЧетыреЗнака = Лев(КодДляПроверки, 4);
    
    БезЧетырехЗнаков = СтрЗаменить(КодДляПроверки, ЧетыреЗнака, "");
    
    ИтоговаСтрока = БезЧетырехЗнаков + ЧетыреЗнака;
    
    Возврат ИтоговаСтрока;

КонецФункции // ()

Функция ВернутьЭквивалент(ОчереднойЗнак)

    а = 0;
    
    Если ОчереднойЗнак = "0" Тогда
    	Возврат "0";
    ИначеЕсли ОчереднойЗнак = "1" Тогда    
    	Возврат "1";
    ИначеЕсли ОчереднойЗнак = "2" Тогда    
    	Возврат "2";
    ИначеЕсли ОчереднойЗнак = "3" Тогда    
    	Возврат "3";
    ИначеЕсли ОчереднойЗнак = "4" Тогда    
    	Возврат "4";
    ИначеЕсли ОчереднойЗнак = "5" Тогда    
    	Возврат "5";
    ИначеЕсли ОчереднойЗнак = "6" Тогда    
    	Возврат "6";
    ИначеЕсли ОчереднойЗнак = "7" Тогда    
    	Возврат "7";
    ИначеЕсли ОчереднойЗнак = "8" Тогда    
    	Возврат "8";
    ИначеЕсли ОчереднойЗнак = "9" Тогда    
    	Возврат "9";
    ИначеЕсли ОчереднойЗнак = "A" Тогда    
    	Возврат "10";
    ИначеЕсли ОчереднойЗнак = "B" Тогда    
    	Возврат "11";
    ИначеЕсли ОчереднойЗнак = "C" Тогда    
    	Возврат "12";
    ИначеЕсли ОчереднойЗнак = "D" Тогда    
    	Возврат "13";
    ИначеЕсли ОчереднойЗнак = "E" Тогда    
    	Возврат "14";
    ИначеЕсли ОчереднойЗнак = "F" Тогда    
    	Возврат "15";
    ИначеЕсли ОчереднойЗнак = "G" Тогда    
    	Возврат "16";
    ИначеЕсли ОчереднойЗнак = "H" Тогда    
    	Возврат "17";
    ИначеЕсли ОчереднойЗнак = "I" Тогда    
    	Возврат "18";
    ИначеЕсли ОчереднойЗнак = "J" Тогда    
    	Возврат "19";
    ИначеЕсли ОчереднойЗнак = "K" Тогда    
    	Возврат "20";
    ИначеЕсли ОчереднойЗнак = "L" Тогда    
    	Возврат "21";
    ИначеЕсли ОчереднойЗнак = "M" Тогда    
    	Возврат "22";
    ИначеЕсли ОчереднойЗнак = "N" Тогда    
    	Возврат "23";
    ИначеЕсли ОчереднойЗнак = "O" Тогда    
    	Возврат "24";
    ИначеЕсли ОчереднойЗнак = "P" Тогда    
    	Возврат "25";
    ИначеЕсли ОчереднойЗнак = "Q" Тогда    
    	Возврат "26";
    ИначеЕсли ОчереднойЗнак = "R" Тогда    
    	Возврат "27";
    ИначеЕсли ОчереднойЗнак = "S" Тогда    
    	Возврат "28";
    ИначеЕсли ОчереднойЗнак = "T" Тогда    
    	Возврат "29";
    ИначеЕсли ОчереднойЗнак = "U" Тогда    
    	Возврат "30";
    ИначеЕсли ОчереднойЗнак = "V" Тогда    
    	Возврат "31";
    ИначеЕсли ОчереднойЗнак = "W" Тогда    
    	Возврат "32";
    ИначеЕсли ОчереднойЗнак = "X" Тогда    
    	Возврат "33";
    ИначеЕсли ОчереднойЗнак = "Y" Тогда    
    	Возврат "34";
    ИначеЕсли ОчереднойЗнак = "Z" Тогда    
    	Возврат "35";
    КонецЕсли; 
    
КонецФункции // ВернутьЭквивалент()

Показать

так что мани можно не тратить. сорри.