(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › Курилка › Разработчики 1С веселятся?
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Разработчики 1С веселятся? (число прочтений - 1332 )
nicolas
Full Member
***
Отсутствует


I Love YaBB 2!

Сообщений: 148
Зарегистрирован: 24. Мая 2006
Разработчики 1С веселятся?
10. Августа 2013 :: 18:56
Печать  
Попросили написать обработку для ТиСа. Давно не занимался 7-кой, ну ладно давайте, релиз 974
Понадобился ИНН, думаю есть в глобальнике функция, которая вернет ИНН. Ага сейчас, нет ее!
Но в различных местах натыкана вот такая:

Код
Выбрать все
Функция ПолучитьИНН(ИННКПП)
	Если Найти(ИННКПП, "\") <> 0 Тогда
		// найден разделитель
		Возврат Лев(ИННКПП, Найти(ИННКПП, "\") - 1);
	Иначе
		Возврат СокрЛП(ИННКПП);
	КонецЕсли;
КонецФункции // ПолучитьИНН()


В
Пяти Документах,
Трех Отчетах
Трех Обработках

Вру в обработке ПредприятиеКлиент отличается
Код
Выбрать все
Функция ПолучитьИНН(ИННКПП)
	Стр = СокрЛП(ИННКПП);
	Если СтрДлина(Стр) = 10 Тогда // только ИНН Юр Лица
		Возврат Стр;
	ИначеЕсли СтрДлина(Стр) = 12 Тогда // только ИНН ФизЛица
		Возврат Стр;
	Иначе
		РазделительИННКПП = Сред(Стр,11,1);
		Если Найти("1234567890", РазделительИННКПП) = 0 Тогда
			Возврат Лев(Стр, 10);
		Иначе
			Возврат Лев(ИННКПП, 12);
		КонецЕсли;
	КонецЕсли;
КонецФункции // ПолучитьИНН()


Им со строки платят?
  
Наверх
 
IP записан
 
Satans Claws
God Member
*****
Отсутствует


1C++ rocks!

Сообщений: 721
Зарегистрирован: 29. Ноября 2010
Re: Разработчики 1С веселятся?
Ответ #1 - 12. Августа 2013 :: 02:53
Печать  
Это ты еще ПУБ или Комплексную не ковырял...
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge