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

    −126

    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
    Если ЗаполненАдрес=0 Тогда
	Если  ПустаяСтрока(Запрос.ЭлПочта)=0 Тогда
		Продолжить;
	Иначе
		ТЗ.НоваяСтрока();
		ТЗ.Код			= Запрос.Контрагенты.Код;
		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
	КонецЕсли;
иначе
	Если  ПустаяСтрока(Запрос.ЭлПочта)=1 Тогда
		Продолжить;
	Иначе
		ТЗ.НоваяСтрока();
		ТЗ.Код			= Запрос.Контрагенты.Код;
		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
	КонецЕсли;
Конецесли;

    ЗаполненАдрес - это чекбокс.
    Если сократить код, то получится:

    Если ЗаполненАдрес<>ПустаяСтрока(Запрос.ЭлПоч та) Тогда
    ТЗ.НоваяСтрока();
    ТЗ.Код = Запрос.Контрагенты.Код;
    ТЗ.Контрагент = Запрос.Контрагенты.Наименование;
    ТЗ.ЭлАдрес = Запрос.ЭлПочта;
    КонецЕсли;

    Запостил: noncode, 12 Января 2015

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

    • ava nixel 12.01.2015 13:42 # +1

      Вы хоть сразу пишите, что это семерка. А то меня замкнуло на фразе "это чекбокс" и проверке на ноль.
      Ответить

      • ava Dummy00001 12.01.2015 16:45 # 0

        меня затормозило на строке №3, потому что читая по диагонали, случайно прочитал "Положить".
        Ответить

    • ava Анонимус 13.01.2015 22:38 # 0

      >>ПустаяСтрока(Запрос.ЭлПочта)=1
      Выразительный какой язык.
      Ответить

      • ava bormand 13.01.2015 23:19 # 0

        И ведь всяко можно написать Если ПустаяСтрока(Запрос.ЭлПочта) Тогда...
        Ответить

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