- 1
удалено
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 7
+101
удалено
Кто делает выгрузка в таком формате???
xml? json? так лучше, епта
+125
https://users.v8.1c.ru/
Делаем размер браузера в пол экрана, справа вверху появляется кнопочка меню.
И правильно, нахуя править дефолтный шаблон Bootstrap.
−160
ДляВырезки = 8;
Если Не Найти(Стр,"маг") = 0 Тогда
Если (Найти(Стр,"маг") + ДляВырезки) > СтрДлина(Стр) Тогда
Обрез = Сред(Стр,Найти(Стр,"Маг"),(Найти(Стр,"Маг") - СтрДлина(Стр)) + 1);
Иначе
Обрез = Сред(Стр,Найти(Стр,"маг"),ДляВырезки);
КонецЕсли;
КонецЕсли;
Возврат ВторойУровеньСумрака(Обрез);
А этот наоборот с именем старается)
−164
аа = регсв.Выгрузить();
аа.Очистить();
Для каждого стр из Комплектующие Цикл
ввв =аа.Добавить();
ввв.Номенклатура = Номенклатура;
ввв.характеристикаНоменклатуры = Характеристиканоменклатуры;
ввв.Комплектующая = стр.Номенклатура;
ввв.ХарактеристикаКомплектующей = стр.ХарактеристикаНоменклатуры;
ввв.количество = стр.КоэффициентКолво;
ввв.единицаИзмерения = стр.ЕдиницаИзмерения;
ввв.ДоляСтоимости = стр.ДоляСтоимости;
Как же сложно нормально назвать переменные((
−162
| КОНЕЦ) КАК ПросроченоПиздецКак,
| СУММА(ВложенныйЗапрос.СуммаОстаток) КАК ДебиторкаВся,
| ВложенныйЗапрос.Договор.СрокОплатыПоДоговору КАК СрокОплаты,
| ВложенныйЗапрос.Сделка.Ответственный КАК Менеджер
| ИЗ
Не говнокод, пример с лурки но все равно улыбает)
−171
Процедура ПересчитатьстоимостьПлан()
Если 1=1 тогда //ВидКомплектации = Перечисления.ВидыКомплектации.Сборка тогда
Для каждого стр из комплектующие Цикл
Если стр.ЦенаПлан = 0 тогда // заполнимЦену
мНоменклатура = Новый массив;
//Для каждого стр из Комплектующие Цикл
мНоменклатура.Добавить(стр.Номенклатура);
//Конеццикла;
Запрос = новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&датаД, ) КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
| И ЦеныНоменклатурыСрезПоследних.Номенклатура В ИЕРАРХИИ(&Номенклатура)";
Запрос.УстановитьПараметр("ДатаД",дата);
Запрос.УстановитьПараметр("типЦен",Склад.ТипЦенРозничнойТорговли);
Запрос.УстановитьПараметр("ссылка",ссылка);
Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);
аа =Запрос.Выполнить().Выгрузить();
Если аа<> неопределено тогда
стр.ЦенаПлан = аа[0].цена;
КонецЕсли;
Конецесли;
стр.ЦенаПлан = стр.ЦенаПлан;
стр.Суммаплан = стр.Количество*стр.ЦенаПлан;
Конеццикла;
// *******************************************************888
иначе
Если СуммаПлан = 0 тогда
возврат;
КонецЕсли;
итСумма = 0;
Для каждого стр из Комплектующие Цикл
//стр.Суммаплан = глОкруглить(стр.ДоляСтоимости*СуммаПлан,0.5);
стр.Суммаплан = Окр(стр.ДоляСтоимости*СуммаПлан,1);
Если стр.Количество = 0 тогда
стр.ЦенаПлан = 0;
иначе
стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
КонецЕсли;
итсумма = итСумма + стр.Суммаплан;
КонецЦикла;
Если итСумма<>Суммаплан тогда
стр.Суммаплан = стр.СуммаПлан - (СуммаПлан-итСумма);
Если стр.Количество = 0 тогда
стр.ЦенаПлан = 0;
иначе
стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
КонецЕсли;
Конецесли;
КонецЕсли;
конецпроцедуры
−166
итСумма = 0;
иткол = 0;
Для каждого стр из комплектующие Цикл
итсумма = итсумма + стр.Суммаплан;
иткол = иткол + стр.КоличествоБезПотерь;
Конеццикла;
Зашел в базу, а там вот это... повторяется...раза 4