Бухгалтерия / Говнокод #26704 Ссылка на оригинал

0

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

Типовая УХ

Запостил: aumsej aumsej, (Updated )

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

  • ava MAKAKA # Ссылка на оригинал 0 

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

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

    • ava aumsej # Ссылка на оригинал 0 ⇈

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

    • ava HIV # Ссылка на оригинал 0 ⇈

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

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

      • ava aumsej # Ссылка на оригинал 0 ⇈

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

      • ava VladC # Ссылка на оригинал 0 ⇈

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

    • ava nemyx # Ссылка на оригинал 0 ⇈

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

        • ava nemyx # Ссылка на оригинал 0 ⇈ 

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

          • ava guest # 0 ⇈

            Моя думать, что язык 1С писался под впечатлением басика конечно.

            Кстати, код вполне читаемый и внятный.
            Ответить

            • ava nemyx # Ссылка на оригинал 0 ⇈

              Интересно, что знак = и в «Бейсике», и в «1С», и в «SQL» играет две роли: оператор присвоения и оператор сравнения. При этом неоднозначностей не возникает, потому что присваивать внутри условия оператора IF или цикла нельзя, в отличие от сишки.
              Ответить

              • ava MAKAKA # Ссылка на оригинал 0 ⇈

                То-есть присвоение не является выражением со значением?
                Ответить

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

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓