- 1
- 2
Если ЭтоКонецПрихода = 1 Тогда
ЭтоКонецПрихода = ЭтоКонецПрихода+1;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+2
Если ЭтоКонецПрихода = 1 Тогда
ЭтоКонецПрихода = ЭтоКонецПрихода+1;
1. Реальный код
2. Переменная используется как логическая, 0 и 1
+2
Функция ПолучитьЗначениеПеременной(Имя) Экспорт
ИмяПараметраВР = ВРег(Имя);
НайденноеЗначение = Неопределено;
Кэш = Неопределено;
ПоместитьВКэш = Ложь;
НайденноеЗначение = Неопределено;
Если НайденноеЗначение = Неопределено Тогда
//...
КонецЕсли;
Типовая УПП, общий модуль "РаботаСОбщимиПеренменными". Интересно, а бывает ситуация когда после двух присвоений переменной значения, она все таки не неопределено
0
Набор = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
Отбор = Набор.Отбор;
Отбор.Объект.Использование = Истина;
Отбор.Объект.ВидСравнения = ВидСравнения.Равно;
Отбор.Свойство.ВидСравнения = ВидСравнения.Равно;
Отбор.Объект.Значение = Грузополучатель;
Отбор.Свойство.Значение = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("GLN").Ссылка;
Набор.Прочитать();
GLN_получ = "";
Если Набор.Количество() > 0 Тогда
Для нумер = 0 по Набор.Количество()-1 Цикл
Свво = Набор.Получить(нумер).Свойство;
Если СокрЛП(Свво.Наименование) = "GLN" Тогда
GLN_получ = Набор.Получить(нумер).Значение;
КонецЕсли;
КонецЦикла;
КонецЕсли;
ОбластьМакета.Параметры.GLN_получ = GLN_получ;
0
СтраницыПанели = ЭтаФорма.ЭлементыФормы.ОсновнаяПанель.Страницы;
Для Каждого Страница Bз СтраницыПанели Цикл
Если ПакетныйВводКонтрагентов = Истина Тогда
Если Страница.Имя = "стрКонтрагенты" Тогда
Страница.Доступность = Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
+3
Мес = ?(Месяц(ДатаДок) > 9 ,Строка(Месяц(ДатаДок)) ,"0"+ Строка(Месяц(ДатаДок)));
Формат(ДатаДок, "ДФ=MM") придуман для неудачников!
+2
ВЫБРАТЬ
КОЛИЧЕСТВО ( РАЗЛИЧНЫЕ УвольнениеИзОрганизации.Сотрудник) КАК Сотрудник
Кадровая история сотрудников спецслужб их.Подразделение,
ЕСТЬNULL (КОЛИЧЕСТВО ( РАЗЛИЧНЫЕ ВЫБОР
КОГДА УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование = "" По собой желанию, на учебу пункт 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию, по уходу за инвалидном п.3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование = "" По соб желанию, ребёнок-инвалид до 18 л., А 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию , с переменой м. ж., пункт 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию, по уходу за ребенком до 14 лет, п 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию , на пенсию, п 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" по соб желанию, п.3 статьи 77 ТК РФ""
ТОГДА УвольнениеИзОрганизаций.Сотрудник
КОНЕЦ ), 0) КАК увПоСобств,
ЕСТЬNULL (ВЫБОР
КОГДА УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" За прогулы, подпункт """" а"""" пункта 6 статьи 81 ТК РФ""
ТОГДА УвольнениеИзОрганизаций.Сотрудник
КОНЕЦ ,0) КАК УвПрогул,
ЕСТЬNULL ( КОЛИЧЕСТВО ( РАЗЛИЧНЫЕ УвольнениеИзОрганизации.Сотрудник
),0) Как УвВсего
ИЗ Документ.Увольнение.Сотрудник КАК УвольнениеИзОрганизации
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КадроваяИсторияСотрудников.СрезПоследних как КадроваяИсторияСотрудниковСрезПоследних
ПО Сотрудник КАК УвольнениеИзОрганизации.Сотрудник = КадроваяИсторияСотрудниковСрезПоследних.Сотрудник
ГДЕ
УвольнениеИзОрганизации.Ссылка.Организации в ИЕРАРХИИ (& Организация)
И УвольнениеИзОрганизации.ДатаУвольнения >=& НачалоГода
И (УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию, по уходу за инвалидном п.3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование = "" По соб желанию, ребёнок-инвалид до 18 л., А 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию , с переменой м. ж., пункт 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию, по уходу за ребенком до 14 лет, п 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" По соб желанию , на пенсию, п 3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" по соб желанию, п.3 статьи 77 ТК РФ""
ИЛИ УвольнениеИзОрганизаций.СтатьяТКРФ.Наименование ="" За прогулы, подпункт """" а"""" пункта 6 статьи 81 ТК РФ""
)
СГРУППИРОВАТЬ ПО
КадроваяИсторияСотрудниковСрезПоследних.Подразлеление
ЕСТЬNULL (ВЫБОР
КОГДА Увольнение Зоран зайти.СтатьяТКРФ.Наименование = "" За прогулы, подпункт """" а"""" пункта 6 статьи 81 ТК РФ""
ТОГДА УвольнениеИзОрганизации.Сотрудник
КОНЕЦ ,0);
Зачем ему конфигуратор? Он и так может отчеты выводить в табДок через блокнот)))
Ссылка на источник ТУТ - http://www.cyberforum.ru/1c/thread2394049.html
+1
// Проверим необходимость проведения авторизаций безналичных платежей
АвторизацийБПЕсть = НЕ (НетОплатПлатежнойКартой()
Если АвторизацийБПЕсть Тогда
// Выполняем авторизации безналичных платежей
Если НЕ ВыполнитьАвторизациюБП() Тогда
.....
Функция НетОплатПлатежнойКартой()
НетОплатПлатежнойКартой = Истина;
Для Каждого СтрокаОплаты Из Оплаты Цикл
Если СтрокаОплаты.ТипОплаты.Объект = Перечисления.ТипыОплатыВРознице.Безналичные Тогда
НетОплатПлатежнойКартой = Ложь;
Прервать;
КонецЕсли;
КонецЦикла;
Возврат НетОплатПлатежнойКартой;
КонецФункции
Нужно больше инверсий!
+4
Если ЭтаФорма.ВладелецФормы.ВладелецФормы.Объект.Заголовок = "Согласование контрагента " Или ЭтаФорма.ВладелецФормы.ВладелецФормы.Объект.Заголовок = "" Тогда
ЭтаФорма.ВладелецФормы.ВладелецФормы.Объект.Заголовок = "Согласование контрагента " + КонтрагентДО;
КонецЕсли;
Просто оставлю это здесь.
Когда ж вы все передохните любители ВладельцевФормы через ВладельцаФормы.
+1
Функция ИдентификаторЦепочки(Ссылка) Экспорт
Результат = Документы.ЭтапПроизводства2_2.ПустаяСсылка();
Запрос = Новый Запрос(
"ВЫБРАТЬ
| Таблица.ИдентификаторЦепочки КАК ИдентификаторЦепочки
|ИЗ
| Документ.ЭтапПроизводства2_2 КАК Таблица
|ГДЕ
| Таблица.Ссылка = &Ссылка");
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Результат = Выборка.ИдентификаторЦепочки;
КонецЕсли;
Возврат Результат;
КонецФункции
Функция из типовой, возвращает реквизит документа через жопу. Можно заменить на
возврат ?(ЗначениеЗаполнено(Ссылка.Идентификатор Цепочки), Ссылка.ИдентификаторЦепочки, Документы.ЭтапПроизводства2_2.ПустаяСсыл ка()).
А можно вообще нихуя не делать, потому что если реквизит не заполнен, там и так пустая ссылка.
Нахуй так жить
0
Сумма = Цел(Окр(Сумма * 1000, 0, 1)) / 1000;
Или я мандаринов переел, или от этого портал должен открыться