-
−123
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
//***************************************************************************
Функция ИмяМесяца(Дата)
Если ТипЗнч(Дата) = Тип("Дата") тогда
НомерМесяца = Месяц(Дата);
НомерГода = Год(Дата);
Иначе
НомерМесяца = Число(Сред(Дата,5,2));
НомерГода = Число(Лев(Дата,4));
КонецЕсли;
Если НомерМесяца = 1 тогда
ИмяМесяца = "Январь";
ИначеЕсли НомерМесяца = 1 тогда
ИмяМесяца = "Январь";
ИначеЕсли НомерМесяца = 2 тогда
ИмяМесяца = "Февраль";
ИначеЕсли НомерМесяца = 3 тогда
ИмяМесяца = "Март";
ИначеЕсли НомерМесяца = 4 тогда
ИмяМесяца = "Апрель";
ИначеЕсли НомерМесяца = 5 тогда
ИмяМесяца = "Май";
ИначеЕсли НомерМесяца = 6 тогда
ИмяМесяца = "Июнь";
ИначеЕсли НомерМесяца = 7 тогда
ИмяМесяца = "Июль";
ИначеЕсли НомерМесяца = 8 тогда
ИмяМесяца = "Август";
ИначеЕсли НомерМесяца = 9 тогда
ИмяМесяца = "Сентябрь";
ИначеЕсли НомерМесяца = 10 тогда
ИмяМесяца = "Октябрь";
ИначеЕсли НомерМесяца = 11 тогда
ИмяМесяца = "Ноябрь";
ИначеЕсли НомерМесяца = 12 тогда
ИмяМесяца = "Декабрь";
КонецЕсли;
Возврат ИмяМесяца + " " + Формат(НомерГода,"ЧГ=0");
КонецФункции
Неделю умилялся и плакал от счастья=)
safer_bwd,
31 Января 2014
-
−134
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
Функция ПолучитьОбратнуюМетрику(Знач Метрика) Экспорт
ТаблицаКоординат = СоздатьТаблицуКоординат();
ПреобразоватьМетрикуВТаблицуКоординат(Метрика,ТаблицаКоординат);
ТаблицаКоординат.Колонки.Добавить("ПорядковыйНомер");
Сч = 1;
Для каждого СтрокаТаблицаКоординат Из ТаблицаКоординат Цикл
СтрокаТаблицаКоординат.ПорядковыйНомер = Сч;
Сч = Сч + 1;
КонецЦикла;
ТаблицаКоординат.Сортировать("ПорядковыйНомер УБЫВ");
ОбратнаяМетрика = "";
ПреобразоватьТаблицуКоординатВМетрику(ТаблицаКоординат,ОбратнаяМетрика);
Возврат ОбратнаяМетрика;
КонецФункции
TamerlanDE,
20 Декабря 2013
-
−104
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
Функция Дистанция(Откуда, Куда) Экспорт
Пи = 3.1415926535897932;
ОткудаШиротаВРадианах = Откуда.Широта * Пи / 180;
ОткудаДолготаВРадианах = Откуда.Долгота * Пи / 180;
КудаШиротаВРадианах = Куда.Широта * Пи / 180;
КудаДолготаВРадианах = Куда.Долгота * Пи / 180;
Аргумент = Sin(КудаШиротаВРадианах) * Sin(ОткудаШиротаВРадианах) +
Cos(КудаШиротаВРадианах) * Cos(ОткудаШиротаВРадианах) * Cos(КудаДолготаВРадианах - ОткудаДолготаВРадианах);
Аргумент = ?(Аргумент > 1, 1, Аргумент);
Аргумент = ?(Аргумент < -1, -1, Аргумент);
Возврат Окр(6378000 * ACos(Аргумент));
КонецФункции
TamerlanDE,
20 Декабря 2013
-
−131
- 1
- 2
- 3
- 4
- 5
Процедура ОбработкаЗаполения(Основание)
// Другой говнокод
КонецПроцедуры
Стажёр подошёл с вопросом, почему не обрабатывается ввод на основании, а до этого бился не менее часа.
Voittamaton,
03 Декабря 2013
-
−165
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
Запрос.Текст = ""
//...
ГДЕ
ВЫБОР
КОГДА ЕСТЬNULL(ВТМоделиПоставщика.КодМоделиПоставщика, "") = ""
ТОГДА 0
ИНАЧЕ 1
КОНЕЦ = 0
//...
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если СтрДлина(ВыборкаДетальныеЗаписи.КодМоделиПоставщика) <> 0 Тогда
//...
КонецЕсли;
КонецЦикла;
Масло масляное. Захочешь нарочно такое придумать - не получится.
rull9ss,
20 Ноября 2013
-
−168
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
Процедура ПараметрНачалоВыбора(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
ПараметрВладелец=Справочники.ПараметрыНоменклатуры.ПустаяСсылка();
ТипМетаданных = Метаданные.НайтиПоТипу(ТипЗнч(Элемент.Значение));
ОткрываемаяФорма = ПолучитьФорму(ТипМетаданных.ПолноеИмя()+".ФормаВыбора");
Отборы = Новый Структура("ТипПараметра,Подчинен",ВидНоменклатуры[Элемент.Имя],ПараметрВладелец);
Для Каждого ЭлементСтруктуры из Отборы Цикл
ЭлементОтбора = ОткрываемаяФорма.Отбор.Найти(ЭлементСтруктуры.Ключ);
Если Не ЭлементОтбора = Неопределено Тогда
ЭлементОтбора.Установить(ЭлементСтруктуры.Значение);
КонецЕсли;
КонецЦикла;
ОткрываемаяФорма.НачальноеЗначениеВыбора = Элемент.Значение;
ОткрываемаяФорма.ОткрытьМодально();
ЭтотОбъект[Элемент.Имя] = ОткрываемаяФорма.ТекущийЭлемент.ТекущаяСтрока;
ПараметрПриИзменении(Элемент);
КонецПроцедуры
Процедура НачалоВыбора в конфе одного из клиентов. Что-то смущает, но не могу понять что.
rull9ss,
19 Ноября 2013
-
−94
- 1
- 2
- 3
ЦЫТАТЫ ВЕЛИКЕХ ЛЮДЕЙ:
"МАМКУ ТВАЙУ И БАЛ ЛАЛКА ЗАТРАЛИНАЯ)))0)0000))00"
-PragramistOtBoga
PragramistOtBoga,
22 Октября 2013
-
−167
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
Попытка
ДокументВозврата.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
Исключение
Попытка
ДокументВозврата.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
Исключение
Сообщить("Не удалось записать/провести документ возврата в ИБ " + ДокументВозврата, СтатусСообщения.ОченьВажное);
КонецПопытки;
ДокументВозврата.Записать(РежимЗаписиДокумента.Запись);
КонецПопытки;
Что делать, если не получилось провести документ? Правильно! Попробовать еще раз!
А потом еще и записать.
Для надежности.
zfilin,
15 Октября 2013
-
−167
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
Если ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003726") Тогда //000003726 - Автолюкс
СлужбаДоставкиВСМС = "AvtoLux";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003727") Тогда //000003727 - Гюнсел
СлужбаДоставкиВСМС = "GUNSEL";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003725") Тогда //000003725 - Интайм
СлужбаДоставкиВСМС = "InTime";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003826") Тогда //000003826 - Мист экспресс
СлужбаДоставкиВСМС = "Meest-express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003932") Тогда //000003932 - Киевские ведомости
СлужбаДоставкиВСМС = "Kievskie vedomosti"
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003722") Тогда //000003722 - Новая почта
СлужбаДоставкиВСМС = "Nova Poshta";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003729") Тогда //000003729 - Ночной экспресс
СлужбаДоставкиВСМС = "Nochnoi express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003728") Тогда //000003728 - САТ
СлужбаДоставкиВСМС = "CAT";
//.....
КонецЕсли;
Почти универсальный способ транслитизации наименования контрагента.
rull9ss,
10 Сентября 2013
-
−102
сиводня празник у шкалаты как харашо што мне в школу ни нада я жы ни шкалата у миня дажы пачка сигарет есть магу фото кинуть если ни верите што я взрослый
PragramistOtBoga,
02 Сентября 2013