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

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Если НЕ Объект.Валютный Тогда
    Объект.ПересчитыватьВалютнуюСумму=Ложь;
Иначе
    Объект.ПересчитыватьВалютнуюСумму=Истина;
КонецЕсли;

    Типовая УХ

    Запостил: aumsej, 29 Мая 2020

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

    • ava HIV 29.05.2020 14:58 # 0

      ЙУХ
      Ответить

    • ava MAKAKA 29.05.2020 16:02 # +1 

      Если НЕ Объект.Валютный Тогда
    Объект.ПересчитыватьВалютнуюСумму=Ложь;
КонецЕсли;

Если Объект.Валютный Тогда
    Объект.ПересчитыватьВалютнуюСумму= Истина;
КонецЕсли;
      Ответить

      • ava aumsej 29.05.2020 16:20 # 0

        Вы будете смеяться, но там рядом с другой парой реквизитов так и есть. Только эти два условия разнесены - одно в форме ПередЗаписью, второе в модуле объекта, ПередЗаписью. Темна вода во облацех!
        Ответить

      • ava HIV 29.05.2020 22:26 # +1

        Надо добавить в 1С особый оператор для присваивания булева:
        Объект.ПересчитыватьВалютнуюСумму Если Объект.Валютный

        Красиво же.
        Ответить

        • ava aumsej 01.06.2020 15:11 # 0

          Может и 1С героем стать, если Perl - герой )))
          Главное, чтобы они сразу оператор die добавили.
          И в ПриНачалеРаботыСистемы, чего мучать людей зазря...
          Ответить

        • ava VladC 07.07.2020 17:23 # 0

          в свистоперделке под названием 1с можно так:
          Объект.ПересчитыватьВалютнуюСумму=Объект .Валютный;
          Ответить

    • ava jojaxon 07.07.2020 17:30 # +1

      Змейка на 1скрипт https://oscript.io/downloads/examples/snake.os
      Ответить

      • ava nemyx 07.07.2020 18:19 # 0

        Не знал про «Адынэсскрипт». Интересно. Выглядит, как «Бейсик».
        Ответить

        • ava guest8 07.07.2020 18:25 # −999

          показать все, что скрытоvanished
          Ответить

          • ava nemyx 07.07.2020 18:26 # 0 

            Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено, СокращатьНепечатаемыеСимволы = Ложь) Экспорт
	
	Результат = Новый Массив;
	
	// Для обеспечения обратной совместимости.
	Если ПропускатьПустыеСтроки = Неопределено Тогда
		ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);
		Если ПустаяСтрока(Строка) Тогда 
			Если Разделитель = " " Тогда
				Результат.Добавить("");
			КонецЕсли;
			Возврат Результат;
		КонецЕсли;
	КонецЕсли;
	//
	
	Позиция = Найти(Строка, Разделитель);
	Пока Позиция > 0 Цикл
		Подстрока = Лев(Строка, Позиция - 1);
		Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда
			Если СокращатьНепечатаемыеСимволы Тогда
				Результат.Добавить(СокрЛП(Подстрока));
			Иначе
				Результат.Добавить(Подстрока);
			КонецЕсли;
		КонецЕсли;
		Строка = Сред(Строка, Позиция + СтрДлина(Разделитель));
		Позиция = Найти(Строка, Разделитель);
	КонецЦикла;
	
	Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда
		Если СокращатьНепечатаемыеСимволы Тогда
			Результат.Добавить(СокрЛП(Строка));
		Иначе
			Результат.Добавить(Строка);
		КонецЕсли;
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции
            Ответить

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