Заголовок



?(Условие, ЕслиУсловиеВыполняется, ЕслиУсловиеНеВыполняется)



Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДок", ЭтотОбъект.Ссылка);
Запрос.Текст = "
    |ВЫБРАТЬ
    |    Поле1,
    |    Поле2,
    |    ВЫБОР
    |        КОГДА
    |            (Регистратор ССЫЛКА Документ.НалоговаяНакладная)
    |        ТОГДА
    |            ВЫРАЗИТЬ (Регистратор.Договор.НаименованиеПолное КАК СТРОКА(100))
    |        КОГДА
    |            (Регистратор ССЫЛКА Документ.ГТД)
    |        ТОГДА
    |            Регистратор.Контрагент.Наименование
    |        КОНЕЦ КАК ДоговорИлиКонтрагент
    |ИЗ"
+
    ?(Экспортируем = Истина, "РегистрНакопления.НалоговыеОбязательства КАК Рег", "РегистрНакопления.НалоговыйКредит КАК Рег") + "
    |ГДЕ
    |   Фильтр = &ТекущийДок
    |        И НЕ
    |    Рег.Регистратор ССЫЛКА Документ.ИмпортНДСНалоговыеОбязательстваКредит
    |"
;
Результат = Запрос.Выполнить();
Тз = Новый ТаблицаЗначений;
Тз = Результат.Выгрузить();
Тз.ВыбратьСтроку();



If vbCancel = MsgBox("Вы хотите выйти из программы ?", vbOKCancel + vbQuestion, "Сообщение") Then
      Exit Sub
End If