1. 1C / Говнокод #23260

    −3

    1. 1
    2. 2
    3. 3
    https://github.com/covrom/gonec

1C:Enterprise-like language interpreter written in Go https://covrom.github.io/gonec/

    ГОВНЕЦ (govnec)
    Интерпретатор и платформа создания микросервисов на 1С-подобном языке

    Цели

    Интерпретатор создан для решения программистами 1С множества задач, связанных с высокопроизводительными распределенными вычислениями, создания вэб-сервисов и вэб-порталов для работы тысяч пользователей, работы с высокоэффективными базами данных с использованием синтаксиса языка, похожего, но не ограниченного возможностями языка 1С.

    Включив такой интерпретатор в свое решение, Вы можете предоставить высокий уровень сервиса для своих клиентов, который обгонит решения не только ваших конкурентов на рынке 1С, но и конкурентных платформ в enterprise.

    Интерпретатор разрабатывается “от простого к сложному”. На начальных этапах будет включена базовая функциональность многопоточных вычислений и сетевых сервисов. В перспективе планируется организация работы с различными базами данных и визуализация управляемых форм, созданных в конфигураторе.

    Еще никогда не были так просто доступны программистам 1С возможности:

    * Создать микросервис с произвольным сетевым протоколом, развернуть его на linux, в docker контейнере или кластере kubernetes
    * Выполнить сложную многопоточную вычислительную задачу для десятков тысяч подключающихся пользователей за миллисекунды
    * Взаимодействовать с пользователем через web-браузер с минимальным трафиком
    * Сохранять и получать данные с максимально доступной скоростью в key-value базах данн

    j123123, 12 Августа 2017

    Комментарии (39)

  2. 1C / Говнокод #23244

    +4

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Если Отладка Тогда
				ЗаписьXML.ЗаписатьТекст(СокрЛП(КодИнтернетЗаказа));
			Иначе
				ЗаписьXML.ЗаписатьТекст(СокрЛП(КодИнтернетЗаказа));
			КонецЕсли;

    Безысходность. Судьба предрешена. Бедный Йорик.

    M1CE, 08 Августа 2017

    Комментарии (1)

  3. 1C / Говнокод #23234

    +2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Если ЭтоНовыйОбъект Тогда
		Если Найти(НРег(ЭтотОбъект.ТекстЗаявки),"принтер") > 0 Тогда
			ЭтотОбъект.ВидОбращения = Справочники.ИТ_ПричинаОбращения.НайтиПоНаименованию("Принтер");
		КонецЕсли;
	КонецЕсли;

    Если в тексте заявки есть "принтер", значит это по принтеру, если в тексте "Замените картридж" - peaceDa рулю.

    M1CE, 02 Августа 2017

    Комментарии (1)

  4. 1C / Говнокод #23173

    +2

    1. 1
    2. 2
    3. 3
    4. 4
    defmodule Utils.String do
  @moduledoc false
  def comma_split(str), do: String.split(str, " ", trim: true)
end

    AndrewDryga, 10 Июля 2017

    Комментарии (7)

  5. 1C / Говнокод #23081

    +2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    //Модуль основной формы внешней обработки

&НаКлиенте
Процедура ПродатьСлона(Оферта)
	
	Перем Акцепт;
	
	Если ПустаяСтрока(Оферта) Тогда
		
		Оферта = "Купи слона!";
		
	Иначе
		
		Оферта = "Все говорят """+Оферта+""" а ты купи слона!";
		
	КонецЕсли;	
		
	ВвестиСтроку(Акцепт,Оферта,0, Истина); 	
		
    ПродатьСлона(Акцепт);
	
КонецПроцедуры	

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	ПродатьСлона("");
	
КонецПроцедуры

    Продаём слона!

    informatikmarazmatik, 30 Мая 2017

    Комментарии (11)

  6. 1C / Говнокод #23071

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Попытка
           ЗаблокироватьДанныеФормыДляРедактирования();
Исключение
           ВызватьИсключение КраткоеОписаниеОшибки(ОписаниеОшибки());
КонецПопытки

    Процедура ЗаблокироватьДанныеФормыДляРедактировани я() при невозможности заблокировать данные сама вызывает исключение

    acula98, 26 Мая 2017

    Комментарии (4)

  7. 1C / Говнокод #23056

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    рсДополнительныеСведения = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
СвойствоУведомление = рсДополнительныеСведения.Добавить();
СвойствоУведомление.Объект = ЭтотОбъект.Ссылка;
СвойствоУведомление.Свойство = ДопСведение;
СвойствоУведомление.Значение = Истина;
рсДополнительныеСведения.Записать();

    Код одних франчей.
    причем все ж по ТЗ)) запись записалась? записалась! И побоку, что остальные записи при этом снесли нах)))

    Moonlight, 22 Мая 2017

    Комментарии (1)

  8. 1C / Говнокод #22905

    −264

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Ответ = Вопрос("Будет запущена процедура создания договоров и печати документов. Продолжить?",
          РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да, ЗаголовокОкнаПредупреждения);
    
Если НЕ Ответ = КодВозвратаДиалога.Да Тогда
         Возврат;
КонецЕсли;

    wezug, 05 Мая 2017

    Комментарии (2)

  9. 1C / Говнокод #22823

    −10

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Функция РазностьДатВДнях(Дата1, Дата2, ВключаяГраницы = Истина)
	
	Результат = ?(ВключаяГраницы, 1, 0);
	Если Дата1 < Дата2 Тогда
		ТекущаяДата = НачалоДня(Дата1);
		ДатаОкончания = НачалоДня(Дата2);
	Иначе
		ТекущаяДата = НачалоДня(Дата2);
		ДатаОкончания = НачалоДня(Дата1);
	КонецЕсли;
	Пока ТекущаяДата < ДатаОкончания Цикл
		ТекущаяДата = НачалоДня(ТекущаяДата + 24 * 60 * 60);
		Результат = Результат + 1;
	КонецЦикла;
	Возврат Результат;

КонецФункции

    можно тремя строками заменить:
    ДатаНачала = Мин(НачалоДня(Дата1), НачалоДня(Дата2));
    ДатаОкончания = Макс(НачалоДня(Дата1), НачалоДня(Дата2));
    Возврат ?(ВключаяГраницы, 1, 0) + (ДатаОкончания - ДатаНачала) / 86400

    noncode, 17 Апреля 2017

    Комментарии (14)

  10. 1C / Говнокод #22734

    −98

    1. 1
    2. 2
    Если НоменклатураКонтрагентов.Наличие=Перечисления.ДаНет.Да тогда
....

    Создан новый элемент перечисления "ДаНет" на который ссылается измерение регистра сведений. Джордж Буль продолжает медленно крутиться...

    FesenkoA, 03 Апреля 2017

    Комментарии (5)