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

Проверка СИКов в 1С

  
Показать сообщения:
Начиная со старых .::. Начиная с новых
Автор: Iliada
Добавлено: #1  Чт Фев 22, 2007 19:51:45
Заголовок сообщения: Проверка СИКов в 1С
Привет!
Помогите решить как-нить эту проблему.
Где можно взять пример проверки правильности СИКа в 1С.
Данная опция реализована в GCVP. Слышала, что такая опция встречается в 1С, но в каких релизах не знаю.

СПАСИБО!

Добавлено спустя 1 минуту 57 секунд:

Для 7.7
Автор: Технический
Добавлено: #2  Чт Фев 22, 2007 19:58:23
Заголовок сообщения:
Код:
Перем ГенСИК Экспорт;
 ГенСИК=0;
Если ЗагрузитьВнешнююКомпоненту("rainbow.dll")=1 Тогда
   // в Windows\System необходимо наличие библиотек mfc42.dll и msvcrt.dll
   tsric32="tsric321.dll";
   Если ФС.СуществуетФайл(ФС.WindowsКаталог()+"\"+tsric32)=0 Тогда
      Если ФС.СуществуетФайл(КаталогИБ()+tsric32)=1 Тогда
         ФС.КопироватьФайл(КаталогИБ()+tsric32,ФС.WindowsКаталог()+"\"+tsric32,0);
         ГенСИК = СоздатьОбъект("Math");
      КонецЕсли;
   Иначе
      ГенСИК = СоздатьОбъект("Math");
   КонецЕсли;
КонецЕсли;
Если ГенСИК=0 Тогда
   Сообщить("Не удается загрузить внешнюю компоненту формирования СИК.","!");
КонецЕсли;


Добавлено спустя 2 минуты 42 секунды:

Компонента райнбоу

Добавлено спустя 1 минуту 20 секунд:

Компонента Сик

Добавлено спустя 1 минуту 21 секунду:

Код:
Функция СгенерироватьСИК(Сотр) Экспорт
   Если ГенСИК=0 Тогда
      Возврат "000000000000000T";
   КонецЕсли;
   Фамилия=ВРег(Сотр.ФамилияПриРегистрации);
   Имя=ВРег(Сотр.ИмяПриРегистрации);
   Отчество=ВРег(Сотр.ОтчествоПриРегистрации);
   ДатаР=Формат(Сотр.ДатаРожд,"ДДДММГГГГ");
   СтрДатаР=Лев(ДатаР,2)+Сред(ДатаР,4,2)+Прав(ДатаР,4);
   Пар = СокрЛП(Фамилия)+СокрЛП(Имя)+СокрЛП(Отчество)+СокрЛП(СтрДатаР);
   СтрСИК = ГенСИК.GetSPC(Пар);
   Возврат СтрСИК;
КонецФункции

//Сама функция

Добавлено спустя 39 минут 7 секунд:

http://balans.kz/download/prog.htm Полезные программы для бухгалтера здесь возмите генерацию СИК и никакая 1С и GCVP не нужна
Автор: Iliada
Добавлено: #3  Пт Фев 23, 2007 14:40:36
Заголовок сообщения:
Спасибо огромное!
Все сделела, все работает.

  

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