Аудит конфигурации 1с

(105) "Есть конечно BSL"
Что такое сие?

"За память переживать не стоит, не восьмидесятые года вроде на дворе"

Процедура ИзлюбленныйГовнокодинг()

  МногоТаблиц = ВытащитьИзБазыДлиннющимПакетнымЗапросомПятьГигабайтДанных();

  ПерваяПроцедураНаПолчаса(МногоТаблиц.ПерваяТаблица);// Все 5 Гб висят в памяти

  ВтораяПроцедураНаПолчаса(МногоТаблиц.ВтораяТаблица);// 5 Гб продолжают висеть в памяти

  ТретьяПроцедураНаПолчаса(МногоТаблиц.ТретьяТаблица);// 5 Гб по прежнему висят в памяти

  ЧетвертаяПроцедураНаПолчаса();// Данные уже давно не нужны, но пускай ещё повисят в памяти


КонецПроцедуры// фух, наконец-то память можно очистить

Процедура УчимсяНеРазбазариватьВычислительныеРесурсы()

  ПорцияДанных = ВыполнитьПервыйЗапрос();// Получили только то, что требуется в данный момент

  ПерваяПроцедураНаПолчаса(ПорцияДанных);
  ПорцияДанных = Неопределено;// Удалили из памяти


  ПорцияДанных = ВыполнитьПервыйЗапрос();// Получили только то, что требуется в данный момент

  ПерваяПроцедураНаПолчаса(ПорцияДанных);
  ПорцияДанных = Неопределено;// Удалили из памяти


  ПорцияДанных = ВыполнитьВторойЗапрос();// Получили только то, что требуется в данный момент

  ВтораяПроцедураНаПолчаса(ПорцияДанных);
  ПорцияДанных = Неопределено;// Удалили из памяти


  ПорцияДанных = ВыполнитьТретийЗапрос();// Получили только то, что требуется в данный момент

  ТретьяПроцедураНаПолчаса(ПорцияДанных);
  ПорцияДанных = Неопределено;// Удалили из памяти


  ЧетвертаяПроцедураНаПолчаса();

КонецПроцедуры

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
Запрос.УстановитьПараметр("Касса", Касса);
Запрос.Текст = 
"// Эти данные нужны сразу

|ВЫБРАТЬ
|    ДвижениеТоваровОбороты.Номенклатура КАК Номенклатура,
|    ДвижениеТоваровОбороты.Характеристика КАК Характеристика,
|    ДвижениеТоваровОбороты.ПланируемоеПоступлениеОборот КАК ПланируемоеПоступлениеОборот,
|    ДвижениеТоваровОбороты.ПланируемоеПоступлениеПодЗаказОборот КАК ПланируемоеПоступлениеПодЗаказОборот
|ИЗ
|    РегистрНакопления.ДвижениеТоваров.Обороты(, , , &Номенклатура) КАК ДвижениеТоваровОбороты
|;
|
////////////////////////////////////////////////////////////////////////////////

|// Эти данные понадобятся через 3 тысячи строк кода 

|ВЫБРАТЬ
|    ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
|    ТоварыНаСкладахОстатки.Характеристика КАК Характеристика,
|    ТоварыНаСкладахОстатки.ВНаличииОстаток КАК ВНаличииОстаток,
|    ТоварыНаСкладахОстатки.КОтгрузкеОстаток КАК КОтгрузкеОстаток
|ИЗ
|    РегистрНакопления.ТоварыНаСкладах.Остатки(, Номенклатура = &Номенклатура) КАК ТоварыНаСкладахОстатки
|;
|
////////////////////////////////////////////////////////////////////////////////

|// Эти данные понадобятся через 7 тысяч строк кода

|ВЫБРАТЬ
|    ДенежныеСредстваНаличныеОстатки.СуммаОстаток КАК СуммаОстаток,
|    ДенежныеСредстваНаличныеОстатки.СуммаУпрОстаток КАК СуммаУпрОстаток,
|    ДенежныеСредстваНаличныеОстатки.СуммаРеглОстаток КАК СуммаРеглОстаток
|ИЗ
|    РегистрНакопления.ДенежныеСредстваНаличные.Остатки(, Касса = &Касса) КАК ДенежныеСредстваНаличныеОстатки";
Результат = Запрос.ВыполнитьПакет();

А, нашел)

(174) > обвешавшись ЦУПами и APDEXами

ТаблицаНаСтоТыщСтрок = ПолучитьМассивнуюТаблицу();

// тысяча строк кода, не использующих таблицу

//...

// тысяча-первая строка кода, в которой наконец-то используется полученная таблица

Для Каждого СтрокаТаблицы Из ТаблицаНаСтоТыщСтрок Цикл

что помешало разработчику получить таблицу непосредственно перед использованием? На кой ляд нужно было так разлучать инициализацию переменной и её использование?

Пока Истина Цикл

что касается структур-это еще и модель обьектно-ориентированного подхода
когда структура хранит поля обьекта,а в коныигурации есть модуль с именем обьекта,где все функции типа
функция ИмяКласса_ИмяМетода(АналогThis,ДругиеПараметры)

откуйте меня от батареи :)

то есть крик профессионала о помощи