Как проверить корреспондентский счёт в 1С 8.3, 8.2
Функция проверяет строку с корреспондентским счетом банка на корректность. БИК банка, передаётся вторым параметром.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
Функция ПроверкаКорреспондентскогоСчёта(Знач ЗначениеКорСч, Знач БАНКБИК) Экспорт Счёт = СокрЛП(ЗначениеКорСч); Если СтрДлина(Счёт) <> 20 Или Не ПопыткаПеревестиВЧисло(Счёт) Тогда Возврат Ложь; КонецЕсли; Возврат ПроверитьСчёт("0" + Сред(БАНКБИК, 5, 2) + Счёт); КонецФункции Функция ПроверитьСчёт(Строка) КоэффициентыЧсл = Новый Массив(23); КоэффициентыЧсл[0] = 7; КоэффициентыЧсл[1] = 1; КоэффициентыЧсл[2] = 3; КоэффициентыЧсл[3] = 7; КоэффициентыЧсл[4] = 1; КоэффициентыЧсл[5] = 3; КоэффициентыЧсл[6] = 7; КоэффициентыЧсл[7] = 1; КоэффициентыЧсл[8] = 3; КоэффициентыЧсл[9] = 7; КоэффициентыЧсл[10] = 1; КоэффициентыЧсл[11] = 3; КоэффициентыЧсл[12] = 7; КоэффициентыЧсл[13] = 1; КоэффициентыЧсл[14] = 3; КоэффициентыЧсл[15] = 7; КоэффициентыЧсл[16] = 1; КоэффициентыЧсл[17] = 3; КоэффициентыЧсл[18] = 7; КоэффициентыЧсл[19] = 1; КоэффициентыЧсл[20] = 3; КоэффициентыЧсл[21] = 7; КоэффициентыЧсл[22] = 1; КонтрольнСумма = 0; Для А = 1 По 23 Цикл Число = Число(Сред(Строка, А, 1)); КонтрольнСумма = КонтрольнСумма + Число * КоэффициентыЧсл[А - 1]; КонецЦикла; КонтрольнЧисло = КонтрольнСумма % 10; Возврат КонтрольнЧисло = 0; КонецФункции |