Есть цикл, в котором перебирается ТЧ документа. Из ТЧ выбираются некоторые значения ( организации (при чем они повторяются)) и заносятся в обычную переменную. Как сделать чтоб при последующих значениях переменной была проверка, а принимала ли эта переменная такое значение раннее?

Нихрена не понял, но подскажу

Если СтрокаТЧ.Организация = ПеременнаяОрганизация Тогда

(0) Тоже включу вангу и подскажу: сверните ТЧ по организации, тогда повторений не будет.

Заполняй массив, и проверяй на вхождение нового реквизитЕсли Не Массив.Найти(СтрокаТЧ.Организация)=Неопределено тогда
//еще не встречался
Иначе
//уже был
КонецЕсли;
Массив.Добавить(СтрокаТЧ.Организация)

вернее
Если Массив.Найти(СтрокаТЧ.Организация)=Неопределено тогда
//еще не встречался
Иначе
//уже был

КонецЕсли;

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

         КонецЦикла;
    КонецЦикла;



Вот такой код.. надо чтоб много раз по одной орагнизации не печатались.

(5) мде...

(5) То есть все заявки, кроме первой по данной организации побоку?

(7) (6) мне надо чтоб печатались сначала все заявки по одной организации, потом по другой..

(8) отсортируй по организации

(8) Тогда открывайте для себя удивительный мир группировок и обход результата запроса по группировкам.

(10) Ты только что убил Машу наповал. Ей надо, а ты с глупостями (:

Маша, солнышко, если ты хочешь сохранить свой чудо-алгоритм, то не выбирай в первом  запросе заявку. Выбирай различные организации. И ничего больше. За два дня справишься.

(0) массивы уже отменили?

(11) мне надо напечатать все документы! обход по группировкам нужно сделать как было сказано выше.

Кстати она круче Ливингстара-@falselight'а. Надо беречь и сохранять такую трогательную непосредственность!

(13) Конечно-конечно, дорогая, не сердись! Сначала выберешь все организации, а потом все документы. Понятно, рыбка?

Еще одна совершила дерзкий побег с кухни..

(4) Тут больше соответствие подходит. Но непринципиально.

(13) Ответ на вопрос в (0) содержится в (3) (4). Или ты хочешь, чтоб в твой код это за тебя встроили?)

(16) Тише, тише! Сейчас будет топот ножками. Ей. Надо.

(19) Муж с работы придет, а борщ не сварен. Скандал будет!

(18) И левые мужики в коде ковыряются.

(21) И говорят - мужик, борщ вчерашний будешь? Приходи завтра!

(22) (21) (18)
МассивОрганизаций = Новый Массив;
        МассивОрганизаций.Добавить(Выборка.Организация);
        Если НЕ МассивОрганизаций.Найти(Выборка.Организация)=Неопределено Тогда
                    
        ПолучитьНаименованиеОрганизации = Выборка.Организация;  

и далее запрос по организациям всем из ТЧ. неправильно?

(23) ты же понимаешь, что здесь всегда будет истина?

        МассивОрганизаций.Добавить(Выборка.Организация);
        Если НЕ МассивОрганизаций.Найти(Выборка.Организация)=Неопределено Тогда

(23) в (3)
МассивОрганизаций.Добавить(Выборка.Организация);
находится после условия

(24) [Хлопанье ресничками] (:

(14) Круче всех Юля.

(27) Она, к сожалению, похоже отошла от дел. Внуки там и все такое :(

(28) Нет, там же 1с запретили ))

(29) А кстати.

Маша, ты Первертайло по мужу, или так? Как  там у вас сейчас с 1С, строго?

(30) Да вроде не по мужу. Тут уже предлагали как-то мужа с мисты, который решит ей все проблемы)

Никто ее не заинтересовал, так что ждем новых интересных тем )

(31) Не помню...Помню только как Горогуля клеился, жалко только, что ничего не вышло... Горогуля-Первертайло, звучит!

(33) Да-да, точно ))) Именно это я и вспоминал)

(30) (28)
скажите пожалуйста почему у меня идет зацыкливание? печатаются по сто раз документы..

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

    
        КонецЕсли;
КонецЦикла;

(33) Тебя выбрали - отвечай ))

(35) Потому что борщ выкипел.

(36) (37) по идеи - если в массиве определено значение организации - просто выход из цикла идет же, ничего печататься не должно.

(38) Массив в цикле не нужно объявлять, как минимум

(38) дальше тяжело смотреть код

(38) что-то у вас тут уже двоится

          МассивОрганизаций.Добавить(Выборка.Организация);                    
          ПолучитьНаименованиеОрганизации = Выборка.Организация;    
          МассивОрганизаций.Добавить(Выборка.Организация);                    
          ПолучитьНаименованиеОрганизации = Выборка.Организация;

(38) Снова рюмка кофе на столе?   (С)

(35) Потому что в первом запросе ты берешь организацию из заявки, а во втором - из всего документа

(36) Первертайло - Имитация работы, тоже ничего (:

(44) Клиенты начнут что-то подозревать)

(31) А фото в студию, а потом можно 1С-ника циклом подобрать.

(0) А загрузку по Excel закончила?

(46) Бери неглядя - не прогадаешь

(48) (47) (45) (44) (42) (37) всем спасибо огромное. я только набираюсь опыта, для многих может показаться, что очень туплю))
фотку сейчас поставлю. и мужа у меня нет))))))))))

(49) я тоже думаю ,что зря убрала....помощников с фоткой было гораздо больше)

(49) фотку ждем-с.

(49) Маша, я тебя и без фотки нашел. тем более ты моя землячка

(52) + у нас земля талантами богата, LivingStar тоже нашенский

(49) заявочка на успех, глядишь и мужа найдете и не надо будет с запросами разбираться.

И все таки, прочитайте про обход по группировкам, вам это и нужно.
запрос будет выглядеть где то так (ошибки возможны):


Запрос = Новый Запрос;
Запрос.текст = "Выбрать
  Маршрут.Заявка.Организация КАК ЗаявкаОрганизация,
  Маршрут.Заявка КАК Заявка,
  Маршрут.Ссылка КАК Отправка,
  Маршрут.Ссылка.Организация КАК ОтправкаОрганизация
ИЗ Документ.ОтправкаМашины.Маршрут КАК Маршрут
ГДЕ Маршрут.Ссылка = &Отправка
ИТОГИ ПО Заявка, ЗаявкаОрганизация";
ЗапросПоОрганизациям.УстановитьПараметр("Отправка", Отправка);
ВыборкаЗаявки = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаЗаявки.Следующий() Цикл
  ЗаявкаОбъект = ВыборкаЗаявки.Заявка;
  ВыборкаОтправления = ВыборкаЗаявки.Выбрать();
  Пока ВыборкаОтправления.Следующий() Цикл
    //тут код который внутри цикла по второму запросу
КонецЦикла;
КонецЦикла;



(53) Новосибирск которая?)

(53) Нашенски, землячки... а мы это чужие и с другой планеты? что то начинаю подозревать.

(56) Чужие, действительно, с другой планеты  ))

рептилоиды!

Что, однако, признание о незамужестве творит - столько галантных мальчиков сразу повылазило (:

(59) Глупые, фотки то еще не видели :)

(60) Те, кому надо, уже видели)

(61) Эти из разряда "Хитрые")

Дьявол он в мелочах. Надо различать "еще нет" от "уже нет". И сразу 1000 вопросов (:

(0) постановка задачи - дичь какая-то. Но, если отвечать на вопрос так, как он поставлен, то для этого соответствия придуманы:


Организации = новый Соответствие;
Для каждого СтрокаТабличнойЧасти из ТабличнаяЧасть Цикл
   Если Организации[СтрокаТабличнойЧасти.Организация] = Неопределено Тогда
      Организации[СтрокаТабличнойЧасти.Организация] = Истина;
      // вот здесь организация получена в первый раз
   Иначе
      // такая организация уже встречалась ранее
   КонецЕсли;
КонецЦикла;


Еще можно:

Организации = ТабличнаяЧасть.Скопировать("Организация, Сумма");
Организации.Свернуть("Организация","Сумма");
Для каждого СтрокаОрганизация ИЗ Организации Цикл
   СтрокиТабЧасти = ТабличнаяЧасть.найтиСтроки(новый Структура("Организация", СтрокаОрганизации.Организация));
   Для каждого Строка из СтрокиТабЧасти Цикл
      // вот тут строки только с одной организацией

Да тут одни старперы для нее, женихи,блин )

(64) Вот сразу видно женатого капитана

(66) щито?..

(65) Состоятельные кроты

(62) По-моему, вот: http://cs540102.vk.me/c7008/v7008607/1cac/qKLuQmINHn0.jpg
Теребонькайте (:

(67) Вот ваша лодка, говорю (:

а, автор - девочка. Я даже на ник забыл посмотреть почему-то

(70) получается - образно живешь.

(0) Почту прочла?

(71) чой-та?!
просто в какой-то момент решил снизить уровень трололо в своей жизни. Вижу вопрос, на который могу и хочу ответить - отвечаю сразу. Даже вон ливингстару помогаю конструктивно, хотя это стоит мне тектонических (sic!) усилий - горы сворачивать, как мне кажется, проще...

ЛивингСтар наверное икает каждый день без перерыва и трет горящие уши )

(72) Выезжаешь?

(74) легенда местная, куле... он ОДИН затмил даже 86й год

(75) "нам отсюда хорошо видно"

(77) Подсматривать, в таком возрасте... эхь...

(76) Он эталон, да. Был раньше всех и уйдет позже всех.

Помню с ним Мисти сравнивали, как только она пришла - "Что это за Ливингстар в юбке?"

(78) подсматривать и присматривать разные в моем понимании)))