Говнокод #4680 — 1C — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1C / Говнокод #4680

−121

Процедура УстановкаНомераЛицевогоСчета()
	
	Запрос = Новый Запрос();
	Запрос.Текст =
	"ВЫБРАТЬ
	|	КВП_ЛицевыеСчета.Наименование
	|ИЗ
	|	Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
	|ГДЕ
	|	(НЕ КВП_ЛицевыеСчета.ЭтоГруппа)";
	
	МаксНомер      = 0;
	Выборка        = Запрос.Выполнить().Выбрать();
	ВсегоВариантов = Выборка.Количество();
	ТекВариант     = 1;
	Пока Выборка.Следующий() Цикл
		Номер = ВыбратьТолькоЦифры(Выборка.Наименование);
		Если МаксНомер < Число(Номер) Тогда
			МаксНомер = Число(Номер);
		КонецЕсли;
		Состояние("Поиск максимального лицевого счета: " + ТекВариант + " / " + ВсегоВариантов);
		ТекВариант = ТекВариант + 1;
	КонецЦикла;
	
	МаксНомер = МаксНомер + 1;
	ИмяЛицевогоСчета = "л/с №" + Формат(МаксНомер, "ЧДЦ=0; ЧГ=0");
	
КонецПроцедуры

Процедура для присвоения Кода новому элементу справочника. Из одной серьезной официальной конфигурации.

Запостил:

nickkk, 19 Ноября 2010

Комментарии (21) RSS

Arigato 19.11.2010 12:44 # −1

А где говно (не считая того, что это 1С)?
Ответить
- Анонимус 19.11.2010 12:53 # +1
  
  Номер = ВыбратьТолькоЦифры(Выборка.Наименование) ;
  Ответить
- nickkk 19.11.2010 13:45 # 0
  
  Ну как бы для таких целей используется запрос вида "select max(Код) from Таблица", а не бегание по полной выборке текстовых наименований из всей таблицы с выделением из строки числа. И все это с выводом процесса пользователю.
  Ответить
  - Анонимус 19.11.2010 14:09 # 0
    
    а как у 1С с поддержкой SQL запросов?
    Ответить
    - nickkk 19.11.2010 14:16 # +4
      
      На удивление нормально. По началу парило, что все по-русски, но потом освоил двуязычие и стал писать на обычном SQL. В отличии от стандарта добавлена конструкция TOTALS. Плюс есть поддержка пакетных запросов - одним запросом можно сразу много выборок делать, и при этом промежуточно селектить ими из друг друга.
      Ответить
      - Анонимус 19.11.2010 14:18 # 0
        
        в 2002м году я работал на семерке
        она была еще на dbf, а не на ms-sql.
        
        так вот там кажется sql не было
        видимо что-то изменилось
        Ответить
        
        nickkk 19.11.2010 14:22 # +2
        
        Раньше прогал только на делфи и SQL. К 1С относился как к какой-то херне. Как начал в восьмерке работать, мнение о ней кардинально изменилось.
        Ответить
        
        Анонимус 19.11.2010 14:28 # +1
        
        может восьмерка стала лучше -- хз)
        я знаю, что они перенесли структуру БД из dbf в ms-sql, и даже primary key делают не средставми бд) хотя опять же -- может быть это уже не так
        Ответить
        
        inkanus-gray 16.05.2016 00:19 # 0
        
        Используются базы на основе DBF-файлов в 7.7, собственный формат 1CD с версии 8.0 или СУБД Microsoft SQL Server на любой из этих версий. Кроме того, с версии 8.1 хранение данных возможно в PostgreSQL и IBM DB2, а с версии 8.2 добавилась и Oracle. Имеется возможность использовать и другие сервера баз данных при помощи проектов: CodeBase 6.5, Advantage 8.1/9.1.
        
        Кстати, как дела с языком запросов при обращении к этим СУБД? 1С транслирует свой внутренний SQL-подобный язык в настоящий SQL?
        Ответить
        
        Vasiliy 16.05.2016 08:20 # 0
        
        >1С транслирует свой внутренний SQL-подобный язык
        да
        Ответить
        
        guesto 16.05.2016 13:30 # 0
        
        фууууу Вася
        
        ты не только пхп трогал, но и 1С?
        вот это зашквар!!
        Ответить
        
        Vasiliy 16.05.2016 14:39 # 0
        
        Ну тебя же я не трогал, значит не страшно.
        Ответить
      - sergeante 06.04.2011 09:14 # 0
        
        Плюс неявное соединение таблиц через точку.
        Ответить
3.14159265 22.11.2010 14:49 # +1

ждем 1С-Linq и ОРМ Гибернация 1С
Ответить
- Анонимус 22.11.2010 15:46 # 0
  из справочники.номенклатура выбрать где типНалогообл = налогообложения.упрощенСхема
  Ответить
- 3_dar 16.05.2016 00:01 # +1
  
  Прошло 6 лет.
  
  Сбылось?
  Ответить
  - 3.14159265 16.05.2016 14:54 # 0
    
    Самое смешное что я унижал linq и ORMы до того как это стало мейнстримом.
    
    >Сбылось?
    Да.
    
    https://dev.1c-bitrix.ru/learning/course/?COURSE_ID=43&CHAPTER_ID=05748&LESSON_PA TH=3913.5062.5748
    
    ORM (англ. Object-relational mapping, рус. Объектно-реляционное отображение) - технология программирования, которая связывает базы данных с концепциями объектно-ориентированных языков программирования, создавая «виртуальную объектную базу данных».
    
    В старом ядре на каждую сущность программируется свой GetList, Update, Add, Delete.
    
    Недостатки такой идеологии:
    
    разный набор параметров;
    разный синтаксис полей фильтров;
    события могут быть или не быть;
    иногда разный код под разные БД (Add).
    Цели в новом ядре:
    
    Сделать операции выборки и сохранения в БД однотипными, с одинаковыми параметрами и фильтрами. По возможности, таблицы сущностей должны обслуживаться с минимумом нового кода. Стандартные события добавления/изменения/удаления должны быть доступны автоматически.
    
    Для реализации этих целей были введены понятия:
    
    Cущности (Bitrix\Main\Entity\Base);
    Поля сущностей (Bitrix\Main\Entity\Field и его наследники);
    Датаменеджер (Bitrix\Main\Entity\DataManager).
    
    Ответить
    - inkanus-gray 16.05.2016 15:24 # +2
      
      Так Битрикс и 1С-Предприятие — это же разные проекты.
      Ответить
      - 3.14159265 16.05.2016 15:41 # +2
        
        Ах, простите в сортах говна...
        
        Впрочем да, там русифицированный бейсик, а там пхп+мускуль.
        Ответить
3_dar 16.05.2016 00:00 # 0

В 1с даже SQL на русском? Пхахаха
Ответить
- inkanus-gray 16.05.2016 00:03 # 0
  
  Причём это второй язык компании 1С. Он даже пишется в кавычках, как SQL в PHP. Метапрограммирование!
  Ответить

Говнокод: по колено в коде.

1C / Говнокод #4680

Комментарии (21) RSS

Добавить комментарий