| Генерация СИК
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
 |
|
|
|
#2 Пн Сен 10, 2007 20:05:58
|
|
|
| Гость говорит: |
|
знаю. от жадности франчей. |
потому что нет алгоритма и официального контакта с ГЦВП, чтобы отвечать за проверку.
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
#6 Вт Сен 11, 2007 10:00:16
|
|
|
| Compas говорит: |
|
Нет алгоритма, официально полученного от гцвп. |
Сама генерация есть в любой слабоумной конфе. А у тебя Сирожа 8.0 видать. А мы с Семеном про 7 говорим.
Добавлено спустя 4 минуты 54 секунды:
Прекрасная карточка сотра. Мне нравится. Кстати у меня спрашивают покупал ли я красивый номер на водительские права, ул личности, РНН личный, РНН предприятия, отвечаю "нет". А так мои номера типа 031411336622 (это рнн)
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
#7 Вт Сен 11, 2007 12:02:49
|
Сообщить модератору
|
|
по СИКам.
| Цитата: |
|
Я может не туда смотрю? |
Не туда. Эта кнопка "Проверить СИК" - для лохов, а я тебя к ним не отношу. Ты глянь в коде, что она делает....она -
| Цитата: |
Функция СИКСоответствуетТребованиям(Знач СИК) Экспорт
СИК = СокрЛП(СИК);
ДлинаСИК = СтрДлина(СИК);
//Проверка на длину СИК
Если ДлинаСИК < 16 Тогда
Сообщить("Количество знаков в СИК меньше 16!");
Возврат Ложь;
КонецЕсли;
// Проверка на одинаковость всех цифр
Если СтрЧислоВхождений(СИК, Лев(СИК, 1)) = 16 Тогда
Сообщить("Цифра " + Лев(СИК, 1) + " повторяется 16 раз!");
Возврат Ложь;
КонецЕсли;
// Проверка на наличие символов, отличных от букв латинского алфавита
Для Н = 1 По ДлинаСИК Цикл
Если Найти("ABCDEFGHIJKLMNPQRSTUVWXYZ0123456789", Сред(СИК, Н, 1)) = 0 Тогда
Сообщить("Недопустимый символ " + Сред(СИК, Н, 1) + " (позиция " + Н + ")");
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
|
| Цитата: |
|
Нет алгоритма, официально полученного от гцвп. |
как странно...у любого приличного франча, доплатив некоторую сумму, можно встроить проверку СИК в 7.7, 8.х (см. прайсы)...значит, у франчей есть алгоритм ? за некторую сумму ? а без суммы нету...
Компас, откройте по СИКам отдельную ветку...
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
#9 Сб Дек 22, 2007 21:30:14
|
Сообщить модератору
|
|
Библиотека tsric32.dll (контроль СИК), является интеллектуальной собственностью ГЦВП. Поэтому в типовые конфигурации офицально Рейтинг не имеет юридических прав встраивать подобный алгоритм. На прямую обращение к данной библиотеке из модулей 1С не возможно, т.к. она не является внешней компонентой 1С. Т.о. обратиться к ней можно только через специально написанную внешнюю компоненту, что и делают некоторые франчи, для своих клиентов, (и не обязательно платно), иногда просто приятно подарить бухгалтеру такую мелочь.
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
#10 Пн Дек 24, 2007 08:20:33
|
Сообщить модератору
|
|
| Ivanov говорит: |
|
На прямую обращение к данной библиотеке из модулей 1С не возможно, т.к. она не является внешней компонентой 1С. Т.о. обратиться к ней можно только через специально написанную внешнюю компоненту |
В качестве такой спец. компоненты можно использовать объект DynamicWrapper (c) Gunter Born http://http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm
Его dll регается в системе и затем позволяет вызывать любые (ну почти любые) функции из обыкновененых dll
| Код: |
Попытка
дллВраппер = CreateObject("DynamicWrapper");
дллВраппер.Register("tsric32.dll", "TestData", "I=ss", "f=s", "R=l");
дллВраппер.Register("tsric32.dll", "TestRic", "I=s", "f=s", "R=l");
Исключение
флаг = -100;
КонецПопытки;
Если флаг <> -100 Тогда
флаг = дллВраппер.TestData(__ФИО+__ДатаРождения, _сик);
флаг = ?(флаг=0,флаг, -20);
Если флаг = 0 Тогда
флаг = дллВраппер.TestRic(_сик);
флаг = ?(флаг=0,флаг, -50);
КонецЕсли;
КонецЕсли;
|
Добавлено спустя 2 минуты 19 секунд:
В ссылке два раза написал http 
Вот верная http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
#11 Пн Дек 24, 2007 23:10:35
|
Сообщить модератору
|
|
Граур Станислав
Спасибо за ссыку. У нас один парнишка, еще в 2001 г. вписал функцию обращения к tsric321.dll, (немного крякнутая tsric32.dll), в rainbow.dll Вот я под этот тандем написал внешнюю обработку для контроля и генерации СИК к нашим типовым. Бухгатера теперь без нее просто жизни себе не представляют.
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
|
|
За помощь кликните ′Спасибо′ →
|
|
|
|
|
Правила
Вход
Личные письма
RSS
Продаются домена BALANS.KZ, TAX.KZ, VEBINAR.KZ по вопросам приобретения обратитесь пожалуйста на 
