- 1
- 2
СтрокаСуммаСРазделителями = Строка(ТекСсылка.СуммаДокумента);
СтрокаСуммаБезРазделителей = СтрЗаменить(СтрокаСуммаСРазделителями, СимволРазделительСуммы, "");
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−116
СтрокаСуммаСРазделителями = Строка(ТекСсылка.СуммаДокумента);
СтрокаСуммаБезРазделителей = СтрЗаменить(СтрокаСуммаСРазделителями, СимволРазделительСуммы, "");
Видать, использование "Формат" запрещено внутренней политикой =(
+141
adsfasdf
fdas
+27
inline double poly(double x, const double *c, int k) const {
double y = c[k];
switch (k) {
case 15: y = y * x + c[14];
case 14: y = y * x + c[13];
case 13: y = y * x + c[12];
case 12: y = y * x + c[11];
case 11: y = y * x + c[10];
case 10: y = y * x + c[ 9];
case 9: y = y * x + c[ 8];
case 8: y = y * x + c[ 7];
case 7: y = y * x + c[ 6];
case 6: y = y * x + c[ 5];
case 5: y = y * x + c[ 4];
case 4: y = y * x + c[ 3];
case 3: y = y * x + c[ 2];
case 2: y = y * x + c[ 1];
case 1: y = y * x + c[ 0];
case 0: break;
}
return y;
}
Схема Горнера для вычисления значения многочлена в точке
+125
<ul class="select"><li><a href="#nogo"><b>Clients</b><!--[if IE 7]><!--></a><!--<![endif]-->
<!--[if lte IE 6]><table><tr><td><![endif]-->
<div class="select_sub">
<ul class="sub">
<li><a href="#nogo">Clients Details 1</a></li>
<li><a href="#nogo">Clients Details 2</a></li>
<li><a href="#nogo">Clients Details 3</a></li>
</ul>
</div>
<!--[if lte IE 6]></td></tr></table></a><![endif]-->
</li>
</ul>
Год выпуска неизвестен, но попалось сегодня....
+136
var defaultMapping = (mappings.ContainsKey((Int32?)null)) ? mappings[(Int32?)null] : null;
−163
ALTER PROCEDURE [dbo].[prodam_Получить_Начисления_По_ЛС]
@кодЛС uniqueidentifier,
@дата date,
@источникНачислений nvarchar(50)
AS
BEGIN
SET NOCOUNT ON;
IF @источникНачислений = 'AccountCharge_Lain'
BEGIN
SELECT
CAST(MONTH(@дата) as nvarchar(2))+'.'+CAST(YEAR(@дата) as nvarchar(4)) as 'Расчетный период'
,ach.ID as 'Начисление'
,suc.Title as 'Услуга'
,ach.[Formula] as 'Формула'
,ach.[FormulaWithValues] as 'Формула со значениями'
,CAST(ach.[SumOfPaymentEnteredTheLastMonth] as decimal(19,2)) as 'Оплаты поступившие в предыдущем месяце (руб.)'
,CAST(ach.[SumOfRecalculationForTheLastMonth]as decimal(19,2)) as 'Перерасчет за предыдущий период (руб.)'
,CAST(ach.[SumOfDebtOrOverpayment]as decimal(19,2)) as 'Долг (+), переплата (-) (руб.)'
,um.Title as 'Единица измерения (по нормативу / приборам учета)'
,CAST(ach.[SumOfTariffForUnitOfService]as decimal(19,2)) as 'Тариф за единицу услуги (руб.)'
,CAST(ach.[SumOfChargeForMonthUnderTheTariff]as decimal(19,2)) as 'Начислено за месяц по тарифу (руб.)'
,CAST(ach.[SumOfShortShipmentOfService]as decimal(19,2)) as 'Сумма недопоставки (руб.)'
,CAST(ach.[SumOfPaymentInViewOfShortShipment]as decimal(19,2)) as 'Начислено к оплате с учетом недопоставки (руб.)'
,CAST(ach.[AmountOfDaysOfShortShipmentOfService]as decimal(19,2)) as 'Недопоставка услуг (дней)'
,suc.ID as 'ID'
FROM
[RegionDBNew].[dbo].Account acc
INNER JOIN [RegionDBNew].[dbo].[AccountCharge_Lain] ach ON
ach.CalculationYear = YEAR(@дата) AND
ach.CalculationMonth = MONTH(@дата) AND
ach.AccountID = acc.ID
LEFT JOIN [RegionDBNew].[dbo].UnitOfMeasure um ON ach.[UnitOfMeasureID] = um.ID
LEFT JOIN [RegionDBNew].[dbo].[ServiceUnderAccount] suc ON suc.ID = ach.ServiceUnderAccountID
WHERE
acc.ID = @кодЛС
ORDER BY
suc.Title;
END
ELSE IF @источникНачислений = 'AccountCharge_Prodam'
BEGIN
SELECT
CAST(MONTH(@дата) as nvarchar(2))+'.'+CAST(YEAR(@дата) as nvarchar(4)) as 'Расчетный период'
,ach.ID as 'Начисление'
,suc.Title as 'Услуга'
,ach.[Formula] as 'Формула'
,ach.[FormulaWithValues] as 'Формула со значениями'
,CAST(ach.[SumOfPaymentEnteredTheLastMonth] as decimal(19,2)) as 'Оплаты поступившие в предыдущем месяце (руб.)'
,CAST(ach.[SumOfRecalculationForTheLastMonth] as decimal(19,2)) as 'Перерасчет за предыдущий период (руб.)'
,CAST(ach.[SumOfDebtOrOverpayment] as decimal(19,2)) as 'Долг (+), переплата (-) (руб.)'
,um.Title as 'Единица измерения (по нормативу / приборам учета)'
,CAST(ach.[SumOfTariffForUnitOfService] as decimal(19,2)) as 'Тариф за единицу услуги (руб.)'
,CAST(ach.[SumOfChargeForMonthUnderTheTariff] as decimal(19,2)) as 'Начислено за месяц по тарифу (руб.)'
,CAST(ach.[SumOfShortShipmentOfService] as decimal(19,2)) as 'Сумма недопоставки (руб.)'
,CAST(ach.[SumOfPaymentInViewOfShortShipment] as decimal(19,2)) as 'Начислено к оплате с учетом недопоставки (руб.)'
,CAST(ach.[AmountOfDaysOfShortShipmentOfService] as decimal(19,2)) as 'Недопоставка услуг (дней)'
,suc.ID as 'ID'
FROM
[RegionDBNew].[dbo].Account acc
INNER JOIN [RegionDBNew].[dbo].[AccountCharge_Prodam] ach ON
ach.CalculationYear = YEAR(@дата) AND
ach.CalculationMonth = MONTH(@дата) AND
ach.AccountID = acc.ID
LEFT JOIN [RegionDBNew].[dbo].UnitOfMeasure um ON ach.[UnitOfMeasureID] = um.ID
LEFT JOIN [RegionDBNew].[dbo].[ServiceUnderAccount] suc ON suc.ID = ach.ServiceUnderAccountID
WHERE
acc.ID = @кодЛС
ORDER BY
suc.Title;
END
ELSE IF @источникНачислений = 'AccountCharge'
BEGIN
SELECT
CAST(MONTH(@дата) as nvarchar(2))+'.'+CAST(YEAR(@дата) as nvarchar(4)) as 'Расчетный период'
,ach.ID as 'Начисление'
,suc.Title as 'Услуга'
,ach.[Formula] as 'Формула'
,ach.[FormulaWithValues] as 'Формула со значениями'
,CAST(ach.[SumOfPaymentEnteredTheLastMonth] as decimal(19,2)) as 'Оплаты поступившие в предыдущем месяце (руб.)'
,CAST(ach.[SumOfRecalculationForTheLastMonth] as decimal(19,2)) as 'Перерасчет за предыдущий период (руб.)'
,CAST(ach.[SumOfDebtOrOverpayment] as decimal(19,2)) as 'Долг (+), переплата (-) (руб.)'
,um.Title as 'Единица измерения (по нормативу / приборам учета)'
,CAST(ach.[SumOfTariffForUnitOfService] as decimal(19,2)) as 'Тариф за единицу услуги (руб.)'
,CAST(ach.[SumOfChargeForMonthUnderTheTariff] as decimal(19,2)) as 'Начислено за месяц по тарифу (руб.)'
,CAST(ach.[SumOfShortShipmentOfService] as decimal(19,2)) as 'Сумма недопоставки (руб.)'
,CAST(ach.[SumOfPaymentInViewOfShortShipment] as decimal(19,2)) as 'Начислено к оплате с учетом недопоставки (руб.)'
,CAST(ach.[AmountOfDaysOfShortShipmentOfService] as decimal(19,2)) as 'Недопоставка услуг (дней)'
,suc.ID as 'ID'
FROM
[RegionDBNew].[dbo].Account acc
INNER JOIN [RegionDBNew].[dbo].[AccountCharge] ach ON
ach.CalculationYear = YEAR(@дата) AND
ach.CalculationMonth = MONTH(@дата) AND ach.CalculationMonth = MONTH(@дата) AND
ach.AccountID = acc.ID
LEFT JOIN [RegionDBNew].[dbo].UnitOfMeasure um ON ach.[UnitOfMeasureID] = um.ID
LEFT JOIN [RegionDBNew].[dbo].[ServiceUnderAccount] suc ON suc.ID = ach.ServiceUnderAccountID
WHERE
acc.ID = @кодЛС
ORDER BY
suc.Title;
END
+161
<form action="..." ...>
...
<input type="button" ... onclick="$('form').submit();" />
</form>
Живет на свете один c# девелопер, который всегда всем говорит: "я не верстальщик - я c# девелопер. я не js программист - я c# девелопер" ну и т.д. И вот однажды он решил самостоятельно сделать функционал поиска...
(На самом деле на стороне сервера еще гуще развивались события...но это уже другая история...) с серверным c# кодом вы можете ознакомится тут http://govnokod.ru/user/5616/codes
+100
<?php
/*
Все очень просто. Создаем файл.
Например login.php (что бы никто не догадался=) )
И записываем в него несколько функций
*/
function echoJavaScript($str)
{
echo " <script type=\"text/javascript\">
<!--
window.alert(\"$str\");
//-->
</script>";
}
function JavaScript_href()
{
echo " <script type=\"text/javascript\">
<!--
location.href = '/';
//-->
</script>";
}
?>
<?php
/*Создаем еще один файл, где эти функции мы будем вызывать
Ну, например, у вас имеются на сайте скрипты,
доступные только зарегистрированным пользователям
Получив отрицательный результат проверки юзера,
Вы вызываете эти функции, не забыл, естественно,
предварительно подключить нужный файл
*/
include("login.php");
#Вначале популярно объясняем что к чему
echoJavaScript('Вы не имеете прав доступа к этой странице.');
#А потом перенаправляем на главную страницу
JavaScript_href();
?>
Прячем JavaScript от пользователя.
+130
switch(true){
case isCondFirst():
value = valueFirst();
break;
case isCondSecond():
value = valueSecond();
break;
case isCondThird():
value = valueThird();
break;
default:
value = valueDefault()
}
Занятный баян с хабра. Предложено как замена вложенным тернарным операторам в связи с неочевидным порядком их исполнения в пхп.
value = isCondFirst() ? valueFirst() : (isCondSecond() ? valueSecond() : (isCondThird() ? valueThird() : (valueDefault())));
−104
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ВЫБОР Когда Ном.Ссылка.ЭтоГруппа=Истина Тогда 1 Иначе 0 Конец как этоГруппа,
| 1 как Уровень,
| ВЫБОР Когда Ном.Ссылка.Родитель.Код=""00002"" Тогда """" Иначе Ном.Ссылка.Родитель.Код Конец как кодРодителя,
| Ном.Ссылка.Код как Код,
| Ном.Ссылка.Наименование как Наименование,
| Ном.Ссылка как Элемент
|ИЗ справочник.Номенклатура как Ном";
РЗ = Запрос.Выполнить();
ТЗ = РЗ.Выгрузить();
Сообщить("1. Подготовка таблицы ...");
КК=0;
КМАКС=ТЗ.Количество();
Индикатор1 = ЭлементыФормы.Индикатор;
Индикатор1.МаксимальноеЗначение = ТЗ.Количество();
Индикатор1.Значение = 0;
Для Каждого ТекСтрока ИЗ ТЗ Цикл
Индикатор1.Значение = Индикатор1.Значение + 1;
ОбработкаПрерыванияПользователя();
КК = КК + 1;
Состояние(Формат(КК/КМАКС*100, "ЧЦ=8; ЧДЦ=2"),Цел(КК/КМАКС*100));
ТекСтрока.Уровень = ТекСтрока.Элемент.Уровень()-1;
КонецЦикла;
ТЗ.Сортировать("этоГруппа убыв,Уровень возр,Наименование возр");
Вот такой вот способ получения номенклатуры вместе с иерархией