» Казахстанский Бухгалтерский форум www.balans.kz

Генерация СИК

  
Показать сообщения:
Начиная со старых .::. Начиная с новых
Автор: Технический
Добавлено: #1  Пн Сен 10, 2007 19:11:51
Заголовок сообщения:
Семен, знаешь почему генерации СИК нет в типовой?
Автор: Технический
Добавлено: #2  Пн Сен 10, 2007 20:05:58
Заголовок сообщения:
Гость говорит:
знаю. от жадности франчей.

потому что нет алгоритма и официального контакта с ГЦВП, чтобы отвечать за проверку.
Автор: Нерезидент Баланса
Добавлено: #3  Пн Сен 10, 2007 21:26:07
Заголовок сообщения:
почему нет ? а вот это что ?
http://web.host.kz/alexor/FAQs.htm
Автор: Технический
Добавлено: #4  Вт Сен 11, 2007 09:35:56
Заголовок сообщения:
Алгоритма, официально полученного от гцвп.
Автор: Cleaner
Добавлено: #5  Вт Сен 11, 2007 09:49:33
Заголовок сообщения:
Compas говорит:
потому что нет алгоритма и официального контакта с ГЦВП, чтобы отвечать за проверку.

Я может не туда смотрю?
Автор: Технический
Добавлено: #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.х (см. прайсы)...значит, у франчей есть алгоритм ? за некторую сумму ? а без суммы нету...

Компас, откройте по СИКам отдельную ветку...
Автор: alevi
Добавлено: #8  Пт Дек 21, 2007 16:23:16
Заголовок сообщения:
зацепи dll и не парься, есть даже приблуды специальные типа SPC чек и т.д. вызывай их в память передавай нужные данные и получай результат а дальше как хочу так и ворочу!
Автор: Нерезидент Баланса
Добавлено: #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 Вот я под этот тандем написал внешнюю обработку для контроля и генерации СИК к нашим типовым. Бухгатера теперь без нее просто жизни себе не представляют. :)
Автор: Z
Добавлено: #12  Вт Фев 24, 2009 12:01:56
Заголовок сообщения:
Здравствуйте! Скиньте пожалуйста TSRIC32.DLL
Автор: Технический
Добавлено: #13  Вт Фев 24, 2009 12:07:24
Заголовок сообщения:
Здравствуйте! Скидываем.

  

Служба поддержки WWW.BALANS.KZ