| Генерация СИК 1C 8
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
#3 Пт Июн 27, 2008 23:54:37
|
Сообщить модератору
|
|
1. Индивидуальный идентификационный номер (далее - ИИН) содержит 12 цифр и состоит из четырех частей:
1) первая часть - состоит из 6 цифр и включает в себя год рождения (две последние цифры), месяц и дату рождения физического лица;
2) вторая часть - состоит из 1 цифры и включает в себя пол физического лица и век его рождения и определяется следующим образом:
1 - для мужчин, родившихся в 19 веке;
2 - для женщин, родившихся в 19 веке;
3 - для мужчин, родившихся в 20 веке;
4 - для женщин, родившихся в 20 веке;
5 - для мужчин, родившихся в 21 веке;
6 - для женщин, родившихся в 21 веке.
В дальнейшем при необходимости применяются резервные цифры 7, 8, 9, 0, использование которых возможно по истечении XXI века, при этом применяются нечетные цифры - для мужчин, четные - для женщин;
3) третья часть - состоит из 4 цифр и включает в себя порядковый номер регистрации в системе;
4) четвертая часть - состоит из 1 цифры, определяемой автоматически и являющейся контрольной цифрой.
2. При государственной регистрации индивидуального предпринимателя, осуществляющего свою деятельность в виде личного предпринимательства, используется ИИН, присвоенный физическому лицу.
5. Бизнес - идентификационный номер (далее - БИН) - содержит 12 цифр и состоит из пяти частей:
1) первая часть - состоит из 4 цифр и включает в себя год (две последние цифры) и месяц государственной (учетной) регистрации или перерегистрации юридического лица, филиалов и представительств или индивидуального предпринимателя, осуществляющего деятельность в виде совместного предпринимательства (далее – ИП (С);
2) вторая часть - состоит из 1 цифры и означает тип юридического лица или ИП(С).
Конкретные значения типа юридического лица или ИП(С):
4 - для юридических лиц-резидентов;
5 - для юридических лиц-нерезидентов;
6 - для ИП(С);
3) третья часть - состоит из 1 цифры и является дополнительным признаком и определяется следующим образом:
0 - головного подразделения юридического лица или ИП(С);
1 - филиала юридического лица или ИП(С);
2 - представительства юридического лица или ИП(С);
3 - крестьянское (фермерское) хозяйство, осуществляющее деятельность на основе совместного предпринимательства;
4) четвертая часть - состоит из 5 цифр и включает в себя порядковый номер регистрации в системе юридического лица (филиалов и представительств) или ИП(С);
5) пятая часть - состоит из 1 цифры, определяемой автоматически и являющейся контрольной цифрой.
Взято от сюда:
http://www.justice.kz/site/justice.nsf/Documents/C74BFBE73B64295EC6256E9800302EF4?OpenDocument
|
|
|
|
|
|
|
|
|
#4 Сб Июн 28, 2008 23:58:24
|
Сообщить модератору
|
|
Phantis, товарищу именно СИК нужен, вы прогляделись, наверное. ИИН - это который в удостоверении личности вписан.
Sedна форуме точно что-то подобное было, но очень давно.
Поищите, и я тоже поищу, если найду, дам ссылку.
|
|
|
|
|
|
|
|
|
#5 Вс Июн 29, 2008 01:38:29
|
Сообщить модератору
|
|
ну СИК так СИК  Алгоритм схож как 7.7 так и 8.1
GetSPC(СокрЛП(Врег(Фамилия))+СокрЛП(Врег(Имя))+СокрЛП(Врег(Отчество))+Формат(Дат
аРождения,"ДДДММГГГГ"))
Используется как внешняя компонента, dll в атаче.
Вариант №2:
myObj = CоздатьОбъект("AddIn.ISC");
СИК = myObj.CalcRic(data, номДвойник)
где data = СокрЛП(Врег(Фамилия))+СокрЛП(Врег(Имя))+СокрЛП(Врег(Отчество))+Формат(ДатаРожден
ия,"ДДДММГГГГ")
Если мне память не изменяет в данном алгоритме нет контроля двойников. Но в КЗ я думаю людей имеющих полное соответсвие ФИО и дата рождения не так много, т.е. % ошибки минимальный.
не мое, Автор: Канат Тайпахов (kantic[собак]mail.ru), взято где то в форумах.
Как настроить есть в аттаче.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#10 Вт Июл 01, 2008 18:38:35
|
Сообщить модератору
|
|
__ФИО="ИВАНОВИВАНИВАНОВИЧ";
__ДатаРождения="18021980";
_сик="000000000000000T";
Попытка
дллВраппер = Новый COMОбъект("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);
КонецЕсли;
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#15 Ср Июл 02, 2008 12:12:25
|
Сообщить модератору
|
|
На мой взгляд ты пытаешся использовать библиотеку как в семерке, Phantis тебе дал начало кода
myObj = CоздатьОбъект("AddIn.ISC");
СИК = myObj.CalcRic(data, номДвойник)
Почему AddIn.ISC? Читаем выдержку со статьи ИТС Технология создания внешних компонент
| Цитата: |
|
Для расширения встроенного языка компонента должна реализовать интерфейс ILanguageExtender. Этот интерфейс унаследован от IUnknown и предназначен для расширения встроенного языка 1С:Предприятия. Для использования этого расширения необходимо вызвать функцию СоздатьОбъект (Новый в 1С:Предприятии 8), передав ей строку вида "AddIn.<ИмяРасширения>", где <ИмяРасширения> возвращается методом этого интерфейса Затем можно использовать созданный объект, вызывая его методы и свойства. |
Добавлено спустя 3 минуты 59 секунд:
Да и перед этим ПодключитьВнешнююКомпоненту("tsric32.dll");
К стати какую ошибку он тебе выдал?
И саму библиотеку ты зарегестрировал?
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#17 Вт Авг 12, 2008 10:17:17
|
Сообщить модератору
|
|
УРАААА!!!! Работает в 8.1!!!
Громадное спасибо Канату Тайпахову за компоненту AddInISC.dll
| Код: |
Функция СгенерироватьСИК()
//Замечание: В Windows-каталоге должна быть TSRIC32.DLL
AddInISC = КаталогПрограммы()+"\AddInISC.dll";
Попытка
ЗагрузитьВнешнююКомпоненту(AddInISC);
Сообщить("Компонента AddInISC загружена");
Исключение
Сообщить("Компонента AddInISC не найдена!");
КонецПопытки;
РегФамилия = Врег(СокрЛП(Фамилия));
РегИмя = ВРег(СокрЛП(Имя));
РегОтчество = ВРег(СокрЛП(Отчество));
ДатаР = Формат(ДатаРождения,"ДЛФ = Д");
СтрДатаР = Лев(ДатаР,2)+Сред(ДатаР,4,2)+Прав(ДатаР,4);
DATAСИК = СокрЛП(РегФамилия)+СокрЛП(РегИмя)+СокрЛП(РегОтчество)+СокрЛП(СтрДатаР);
ГенераторСИК = Новый ("AddIn.ISC");
СИК = ГенераторСИК.CalcRic(DATAСИК, 0);
Возврат СИК;
КонецФункции |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#20 Ср Авг 20, 2008 06:46:55
|
Сообщить модератору
|
|
| Alex_FP говорит: |
|
А как быть, если у ФизЛица есть ещё и Фамилия, Имя и Отчество при присвоении СИК? Таких тоже много... |
Вообще-то при проверке/генерации СИКа как раз и используются ФИО, которые были при его присвоении.
|
|
|
|
|
|
|
|
|
#21 Ср Авг 20, 2008 12:49:18
|
Сообщить модератору
|
|
| Armageddon говорит: |
| Alex_FP говорит: |
|
А как быть, если у ФизЛица есть ещё и Фамилия, Имя и Отчество при присвоении СИК? Таких тоже много... |
Вообще-то при проверке/генерации СИКа как раз и используются ФИО, которые были при его присвоении. |
Ага, согласен, у себя в обработке этого я не учел, касяк исправил ....
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#25 Пт Авг 29, 2008 23:15:12
|
Сообщить модератору
|
|
Да, ув.Гость/Нерезидент.
Читать и постить на форуме вы можете и незарегистрированным, а для того, чтобы видеть и скачивать прикрепленный файлы, вам необходимо зарегиться. Это не сложно, зато очень полезно. Добро пожаловать.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Правила
Вход
Личные письма
RSS
Продаются домена BALANS.KZ, TAX.KZ, VEBINAR.KZ по вопросам приобретения обратитесь пожалуйста на 
Клёва ! У меня в итоге вот что получилось: