ТиС, код добавлен в последних релизах

//******************************************************************************  
//
//глПолучитьСклонениеНомераСтраницы(НомерЛиста)
//
//Параметры:
// НомерЛиста - номер листа, склонение которого надо возвратить
//
//Возвращаемое значение:
// номер листа в правильном падеже
//
Функция глПолучитьСклонениеНомераСтраницы(НомерСтраницы) Экспорт                      
	
	Если (НомерСтраницы = 1) или (НомерСтраницы = 21)
	или (НомерСтраницы = 31) или (НомерСтраницы = 41)
	или (НомерСтраницы = 51) или (НомерСтраницы = 61)
	или (НомерСтраницы = 71) или (НомерСтраницы = 81)
	или (НомерСтраницы = 91) или (НомерСтраницы = 101) Тогда
		
		Возврат "листе"; 
	КонецЕсли;
	
	Возврат "листах";	
	
КонецФункции  

Так семёрошники...

(1) Если НомерСтраницы % 10 = 1 Тогда
в семерке работает ничуть не хуже )

(1) в 1с уже давно нет 7-ников, и конфы для 7.7 допиливают 8-ники, это видно по многим косвеным признакам

(4) угу, только на семерке не взлетит :)

(5) чёйта?

(6) условия в скобки надо брать :)

(7) даладна

(8) Вот те крест ┼

(9) убедил

Возврат ?((НомерСтраницы % 10 = 1) И (НомерСтраницы % 100 <> 11), "листе", "листах");

ЗЫ мне простительно, я в код 7-ки сейчас дай бог раз в месяц захожу, не чаще, а уж что-то глобальное забыл когда писал

(10) нет тебе прощения...

(11) синтакс-контроль приде - порядок навидэ

(12) ни фига, позор тебе!

Евангелие от Иоанна, гл. 8, ст. 7

(3) +1

это особенно было видно в 2010 году, когда чудные алгоритмы лепили по страховым взносам

интересно, а шестерочники [...], что эта семерочная молодежь уже не торт?

а где тут гомнокод

(19) скорее, кодер получает з/п от кол-ва строк

тут даже можно пофантазировать и вообще поменять модель
ну, например, не склонять в принципе - писать "на листе(листах" или "количество листов ="
вот это уже мыслительный уровень посерьёзнее будет

(18) разбираешься в сортах говна?

andrewks (18) разбираешься в сортах говна?

lurk:Индусский_код

(25) В торг-12 и в счет-фактуре в колонтитулах используется

так же и со склонением ФИО
ну нахрена их склонять-то?!
"Адресат: Иванов", а не "Кому: Иванову"
Да хоть "Кому (им. падеж): Иванов"
А то блять напридумывают всякой шелухи, потом ещё .dll надо подрубать

(29) щас договоришься, откомандируем тебя в правительство

andrewks (29) щас договоришься, откомандируем тебя в правительство

давно пора порядок там навести
пошерстить бух учёт, нормы и т.п.

там алкашей и без тебя хватает...

V777 там алкашей и без тебя хватает...

я не алкаш

(0) Значит, на поддержку 7.7 набирают по остаточному принципу.

Функция ПолучитьСведенияОКомиссии(ДокументОбъект) Экспорт
							  

	МенеджерВременныхТаблиц =  Новый МенеджерВременныхТаблиц;
	Запрос = Новый Запрос;
	Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
	
	Запрос.УстановитьПараметр("НаДату",				ДокументОбъект.Дата);
    Запрос.УстановитьПараметр("ПК",					ДокументОбъект.ПредседательКомиссии);
	Запрос.УстановитьПараметр("Организация", 		ДокументОбъект.Организация);
	
	
	Запрос.Текст = "ВЫБРАТЬ
	               |	ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, РаботникиОрганизацийСрезПоследних.Сотрудник) КАК ФИО,
	               |	РаботникиОрганизацийСрезПоследних.Должность
	               |ПОМЕСТИТЬ ПК
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций.СрезПоследних(
	               |			&НаДату,
	               |			Сотрудник.ФизЛицо = &ПК
				   |				И Организация = &организация
	               |				И ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
	               |				И Сотрудник.ВидЗанятости <> ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ВнутреннееСовместительство)) КАК РаботникиОрганизацийСрезПоследних
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&НаДату, ) КАК ФИОФизЛицСрезПоследних
	               |		ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ
	               |	ПК.ФИО КАК ПредседательКомиссииФИО,
	               |	ПК.Должность КАК ПредседательКомиссииДолжность
	               |ИЗ
	               |	ПК КАК ПК";
				   
	ПК = Запрос.Выполнить().Выбрать();
	ПК.Следующий();
	
	СоставКомиссии = Новый Структура;
	СоставКомиссии.Вставить("ПредседательКомиссииФИО" ,ПК.ПредседательКомиссииФИО);
	СоставКомиссии.Вставить("ПредседательКомиссииДолжность", ПК.ПредседательКомиссииДолжность);
	
	//Получим информацию о первом члене комиссии
	МенеджерВременныхТаблиц =  Новый МенеджерВременныхТаблиц;
	Запрос = Новый Запрос;
	Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
	
	Запрос.УстановитьПараметр("НаДату",				ДокументОбъект.Дата);
    Запрос.УстановитьПараметр("ЧК1",				ДокументОбъект.ПервыйЧленКомиссии);
	Запрос.УстановитьПараметр("Организация", 		ДокументОбъект.Организация);
	
	
	Запрос.Текст = "ВЫБРАТЬ
	               |	ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, РаботникиОрганизацийСрезПоследних.Сотрудник) КАК ФИО,
	               |	РаботникиОрганизацийСрезПоследних.Должность
	               |ПОМЕСТИТЬ ЧК1
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций.СрезПоследних(
	               |			&НаДату,
	               |			Сотрудник.ФизЛицо = &ЧК1
				   |				И Организация = &Организация
	               |				И ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
	               |				И Сотрудник.ВидЗанятости <> ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ВнутреннееСовместительство)) КАК РаботникиОрганизацийСрезПоследних
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&НаДату, ) КАК ФИОФизЛицСрезПоследних
	               |		ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ
	               |	ЧК1.ФИО КАК ПервыйЧленКомиссииФИО,
	               |	ЧК1.Должность КАК ПервыйЧленКомиссииДолжность
	               |ИЗ
	               |	ЧК1 КАК ЧК1";
				   
	ЧК1 = Запрос.Выполнить().Выбрать();
	ЧК1.Следующий();
	
	СоставКомиссии.Вставить("ПервыйЧленКомиссииФИО", ЧК1.ПервыйЧленКомиссииФИО);
	СоставКомиссии.Вставить("ПервыйЧленКомиссииДолжность", ЧК1.ПервыйЧленКомиссииДолжность);
	
	//Получим информацию о втором члене комиссии
	МенеджерВременныхТаблиц =  Новый МенеджерВременныхТаблиц;
	Запрос = Новый Запрос;
	Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
	
	Запрос.УстановитьПараметр("НаДату",				ДокументОбъект.Дата);
    Запрос.УстановитьПараметр("ЧК2",				ДокументОбъект.ВторойЧленКомиссии);
	Запрос.УстановитьПараметр("Организация", 		ДокументОбъект.Организация);
	
	
	Запрос.Текст = "ВЫБРАТЬ
	               |	ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, РаботникиОрганизацийСрезПоследних.Сотрудник) КАК ФИО,
	               |	РаботникиОрганизацийСрезПоследних.Должность
	               |ПОМЕСТИТЬ ЧК2
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций.СрезПоследних(
	               |			&НаДату,
	               |			Сотрудник.ФизЛицо = &ЧК2
				   |				И Организация = &Организация
	               |				И ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
	               |				И Сотрудник.ВидЗанятости <> ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ВнутреннееСовместительство)) КАК РаботникиОрганизацийСрезПоследних
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&НаДату, ) КАК ФИОФизЛицСрезПоследних
	               |		ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ
	               |	ЧК2.ФИО КАК ВторойЧленКомиссииФИО,
	               |	ЧК2.Должность КАК ВторойЧленКомиссииДолжность
	               |ИЗ
	               |	ЧК2 КАК ЧК2";
				   
	ЧК2 = Запрос.Выполнить().Выбрать();
	ЧК2.Следующий();
	
	СоставКомиссии.Вставить("ВторойЧленКомиссииФИО", ЧК2.ВторойЧленКомиссииФИО);
	СоставКомиссии.Вставить("ВторойЧленКомиссииДолжность", ЧК2.ВторойЧленКомиссииДолжность);

	//Получим информацию о третьем члене комиссии
	МенеджерВременныхТаблиц =  Новый МенеджерВременныхТаблиц;
	Запрос = Новый Запрос;
	Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
	
	Запрос.УстановитьПараметр("НаДату",				ДокументОбъект.Дата);
    Запрос.УстановитьПараметр("ЧК3",				ДокументОбъект.ТретийЧленКомиссии);
	Запрос.УстановитьПараметр("Организация", 		ДокументОбъект.Организация);
	
	
	Запрос.Текст = "ВЫБРАТЬ
	               |	ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, РаботникиОрганизацийСрезПоследних.Сотрудник) КАК ФИО,
	               |	РаботникиОрганизацийСрезПоследних.Должность
	               |ПОМЕСТИТЬ ЧК3
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций.СрезПоследних(
	               |			&НаДату,
	               |			Сотрудник.ФизЛицо = &ЧК3
				   |				И Организация = &Организация
	               |				И ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
	               |				И Сотрудник.ВидЗанятости <> ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ВнутреннееСовместительство)) КАК РаботникиОрганизацийСрезПоследних
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&НаДату, ) КАК ФИОФизЛицСрезПоследних
	               |		ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ
	               |	ЧК3.ФИО КАК ТретийЧленКомиссииФИО,
	               |	ЧК3.Должность КАК ТретийЧленКомиссииДолжность
	               |ИЗ
	               |	ЧК3 КАК ЧК3";
				   
	ЧК3 = Запрос.Выполнить().Выбрать();
	ЧК3.Следующий();
	
	СоставКомиссии.Вставить("ТретийЧленКомиссииФИО", ЧК3.ТретийЧленКомиссииФИО);
	СоставКомиссии.Вставить("ТретийЧленКомиссииДолжность", ЧК3.ТретийЧленКомиссииДолжность);

	
	Возврат СоставКомиссии

КонецФункции // ПолучитьСведенияОКомиссии()

Вот как это назвать?

вообще по коду в типовых я думаю, что у фирмы 1с либо нихрена нет денег на зарплату сотрудникам, либо они жмоты в степени 80 лвл

(35) мне как то пофигу выходит алкаш при этом из себя или нет...))

методологи тоже [...] пойми чем занимаются
то добавляют реквизиты, то удаляют
бесяцо шоле?!

(41) я и не юморил...а ты тряпка и алкаш...))

(39)(41) хорош срацца, лучше бы запостили какой-нибудь трэш из типовых

andrewks (39)(41) хорош срацца, лучше бы запостили какой-нибудь трэш из типовых

этот обормот назвал меня алкашом
какое он имел право?

(43) накой тебе трэш из кахастанских типовых???) да я с ним сейчас и не работаю практически...

andrewks (37) это из какой конфы?

документ Ынвентаризация
по ходу любая типовая

(46) выше этого но ниже всего остального...ибо алкаш...))

V777 накой тебе трэш из кахастанских типовых???)

ну, поржать, постебаться

V777 (46) выше этого но ниже всего остального...ибо алкаш...))

невоспитанный хам

(51) ага...ща убьюсь об стенку от оскорбления вежливого алкаша...)))

(51)(52) может, вам отдельную веточку завести? ну, для бэттла

отраслёвка Континент страхование:

Процедура ОбработкаПроведения(Отказ, Режим)
....

	спОрганизаций = СписокОрганизацийДляРасчета();

	СписываемСтарыйРезерв(спОрганизаций);
	РассчитатьРезерв(спОрганизаций);
	Записать(РежимЗаписиДокумента.Запись);

(54) ппц

(54) документ меняется при проведении?

(54)+ там треш полный
вкратце, в при проведениие в процедуре РасчитатьРезерв(), создаются три таб. дока, и загоняются в реквизиты с типом хранилище

хорошая годная ветка.
присоединяюсь к негодованиям

(44) Управление торговым предприятием для Украины, в РФ такой конфы нет

(59) надо к этой конфе Россиян пригласить

в Казахстане тоже УТП есть...

(59) и кто разработчик сего чуда?

кстати, кто знает, почему БП для Крыма выпустили с релиза 1.0.хх ?
почему не допилили БП 3.0? Это ведь же наш регион, а налоговые послабления можно было в учетной политике отразить

(63) чтобы потом содрать бабло за перенос данных