Все добрый день!
Прошу совета/подскзки...
Задача такая сделать отчет, который выдает документы (определенного вида) за заданный период, в которых функция глПроверкаЦеныПоКатегории(Конт) "выдала ошибку" (реально функция ошибку вроде как не выдает, она может вывести Сообщение...)
Так вот я что-то опять с ручника не снялся и не пойму с какого конца здесь начать...
Лучше, если кто скажет где в конфигурации можно найти подобный отчет?

(0) начинать нужно с вызова специалиста.

(1) Очень полезный совет!

Ну записываете в ЖР сообщение и потом ЖР по ЖР отчет

(2) я рад что он вам помог.
(3) :)

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

(3) что такое ЖР?

(6) журнал регистрации

Не, реально можно через ВыполняемыйМодуль попробовать.
Но объяснять это ТС...
хватило веток про запросы...
можно тупо скопировать функцию (если, конечно, это нормальная функкция, не меняющая значений) и прогнать выборку через нее.
можно проанализировать функцию, и написать "искалку условий".
вариантов туева хуча...

(7) Что-то я не вижу такого журнала в 1С..

(8) а скорее всего в этой функции идет простое сравнение цены из документа с фиксированной ценой

(8) Ок, какой отчет есть в конфе, который просто перебирает документы?

(11) убейся об стену... с разбега...
ибо утонуть тебе не грозит...

(11) у мну есть отчет "отчет" в конфе, он тупо перебирает документы :)

Санитара вызывали ?
Какие симптомы у пациента ?

(11) Не помогло :)
(14) Не вызывали...

(15) Перебрать документы тебя не спасет. тебе ж нужно к каждому документу применить проверку. так что без вызова программиста не обойтись. Хотя бы удаленно.

открой пофигуратор, открой ЖР в предприятии, выстави там галки - ошибки, далее тыркни по ошибке - поподешь в нужный млдуль в пофигураторе.
Наслаждайся.

(17) у него там не ошибка, у него там сообщение...

+(19) а ошибка у него в другом месте...

Mikeware ты видно такой программист, что за все время от тебя ни одного совета не было - один стеб

(21) «Правильно заданный вопрос – половина ответа»(с)

(21) советовал. Ты не понял.
а "делать за" я не люблю.
поэтому остается стебаться...

(17) говорю же не вижу я ЖР в предприятии, в пункте Журналы?

(24) это все потому, что (20)

(24) Как все запущенно

(25)-(26) А где искать ЖР слабо сказать?

ЖР-журнал регистрации  если че

(28) Да это я уже понял, но я его не вижу ни в конфигураторе ни в предприятии...

(28) см (7)(9) и (24) :-)))

(27) не то что бы слабо... а смысл?

+31 а так... смотри монитор пользователей

типично пятничная ветка...

Вообще, думаю сделать так.. На форме юзер выбирает период...
Докменты РасходнаяНакладная и РасходнаяНАкладнаяН (именно такие документы нужны) за заданный период времени поочередно "открываются" к каждой строке документа применяется переписанная функция и если оригинальная функция в данной строке выдает сообщение, то перписанная функция вернет ошибку, и если документ имеет ошибку - он попадает в итоговый список

(32) То что ЖР в мониторе пользоватлей можно было и сразу сказать, а вообше, он не подходит

(34) сделай
(35) ну с 1С шли такие желтенькие книжечки. Обязательны к прочтению. там как раз про это и было сказано

(34) за 45 минут можно было это уже сделать...

(36) Дак сделаю.. единственное я нифига не помню, потому и прошу подскажите похожий отчет в конфигурации

(38) "не помню" или не знал?

(39) Да нет - не помню, в прошлом месяце я писал какой-то отчет который именно перебирал построчно документы..

(40) ну и память.

(39) Не знал, да еще и забыл....

(41) Ну это у тебя террабайты мозгов
(42) найду то что написал - с я тебе предоставлю то что "не знал"

(43) А если серьезно. Вы уверены что сейчас занимаетесь своим делом? Вы активно задаете вопросы на форуме с 2008 года и не знаете как перебрать документы и вывести их в отчет.

(44) с памятью проблемы...
как сказал Саныч в 1985 году:
"шура, у тебя память - как 1 килобайт! вроде и есть - и куй чо запомнишь!"©

(44) Уверен! Дело в том что еще кроме работы есть много обстоятельств...
А по поводу программирования в данный момент кроме того что на работе 1С, я пишу программу на Дельфи, рнр-скрипты, движки для сайтов, а еще довожу ремонт в квартире до путя....

(0) Ну освой наконец DOCPRINT.ERT

(47) судя по расширению - это внешний отчет - сейчас поищу

+(48) на сервере у нас такого файла (DOCPRINT.ERT) я не нашел

(49): не беда. все равно он тебе не поможет.
ВыбДок=СоздатьОбъект("Документ.ТоШоНадоПроверить");
ВыбДок.ВыбратьДокументы(НачПериода,КонПериода);
Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
 Состояние("Проверка "+ВыбДок+" ...");
 Попытка глПроверкаЦеныПоКатегории(ВыбДок) Исключение
   Сообщить("Документ """+ВбДок+""" >>> ОШИБКА "+?(ПустоеЗначение(ОписаниеОшибки())<>0,"<Неизвестного типа>",""""+ОписаниеОшибки()+""""),"!!");
 КонецПопытки;
КонецЦикла; Состояние("");
как-то так...

А вообще в 1С не мало непоняток, например сейчас вывожу резхультат работы запроса...
код Таб.ТолькоПросмотр(1); означает что даннуб таблицу нельзя редактировать... Ага, разбежались ... запускаю и запроста все поля в таблице редактируются

или в данном случае сработал код Таб.Защита(0);?
Тогда зачем ТолькоПросмотр и Защита, если они друг друга не видят?

(50) Большое СПАСИБО!!!

(51) все это описано в ЖКК. И даже в СП.

(53) Ты как всегда с актуальным советом и во время

Еще, пардон, а в чем разница между функцией и процедурой в языке программирования 1С?

(55)(46) "я пишу программу на Дельфи, рнр-скрипты, движки для сайтов" точно?

+56 или опять, не знал, но забыл?

(56) В рнр - все функции, в дельфи - функция возвращает значение, процедура не возращает значения

(53) Я так и знал что ты тут втихаря СП подрабатываешь :)

Функция глПроверкаЦеныПоКатегории(Конт) Экспорт
   Перем кат,минцена,докцена;
   Если (Константа.ГруппаИсключенияПроверкиЦен.Выбран()=1)и(Конт.ТМЦ.ПринадлежитГруппе(Константа.ГруппаИсключенияПроверкиЦен)=1) Тогда
       Если НазваниеНабораПрав()="Администратор" Тогда
           Сообщить(""+Конт.номерСтроки+"."+Конт.ТМЦ+" исключен из проверки на минимальную цену");
       КонецЕсли;
   КонецЕсли;
   //Если ТМЦ Справочник НазначитьВид(ТМЦ) - ошибка в периодических
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
   Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       Сообщить(""+Конт.номерСтроки+"."+Конт.ТМЦ+" имеет цену ниже приходной");
   КонецЕсли;
   кат=Конт.Доставка.КаналСбытаТТ.КатегорияЦены;
   Если кат.Выбран()=1 Тогда
       минцена=Конт.ТМЦ.ПолучитьАтрибут("Цена"+Число(Прав(кат.Идентификатор(),1)));
       Если Метаданные.Справочник("ТМЦ").Реквизит("Цена"+Число(Прав(кат.Идентификатор(),1))).Периодический=1 Тогда
           минцена=минцена.Получить(Конт.ДатаДок);
       КонецЕсли;
       минцена=минцена*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок));
       Если минцена=0 Тогда
           ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
           Сообщить(""+Конт.номерСтроки+"."+Конт.ТМЦ+" не установлена цена категории "+кат);
       КонецЕсли;
       минцена=Окр(минцена*(1-Конт.Доставка.КаналСбытаТТ.ДопустимаяСкидка/100),2);
       Если докцена<минцена Тогда
           ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
           Сообщить(""+Конт.номерСтроки+"."+Конт.ТМЦ+" имеет недопустимо низкую цену="+докцена+" минимальная="+минцена);
       КонецЕсли;
   КонецЕсли;
КонецФункции // глПроверкаЦеныПоКатегории
А теперь вопрос, КАКОЕ ЗЭНАЧЕНИЕ возвращает эта функция?? (Сообщить?)

(60) никакое. функция используется как процедура.

(60) Тогда почему это функци, а не процедура?...
Ну да черт с ним, а если, например мне нужно чтобы  функция вернула скажем в понятиях 1С таблицу значений, то как это сделать?

+(62) Применительно к моей текущей задаче... если в какой-то строке документа ошмибка, функция возвращает: номер документа и его автора, строку в которой ошибка и описание ошибки

(62) почитать документацию.

(62) "Тогда почему это функци, а не процедура?..." это к автору функции
по существу. точно так же как в дельфях и пэашпэ: Возврат что-то;
(64) [:]||||[] :)

(65) ""Тогда почему это функци, а не процедура?..." это к автору функции" - у них там гнездо!!!

(64)-(66) Так фунгкция может вернут таблицу значений?

(67) конечно.

Хорошо (хотя - хорошего мало).
Такой код:
Функция Разность(Конт)
Перем кат,минцена,докцена;
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       Возврат(""+Конт.номерСтроки+"."+Конт.ТМЦ+" имеет цену ниже приходной");
   КонецЕсли;
Возврат(Конт);
КонецФункции
//*************
т.е. функция в любо случае вернет щанчение
далее код:
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
 Состояние("Проверка "+ВыбДок+" ...");
 Таб.ВывестиСекцию("Проба");
КонецЦикла; Состояние("");

КонецПроцедуры
В результате работы данного скрпта в окне сообщение:
Запр<<?>>.ТМЦ
Переменная не определена (Запр)
Где он или она нашли Запр.ТМЦ?
В таблице в сеции проба только одно поле:
Разность(ВыбДок)

(68) Хоть что-то радует...

(70) оно не радует, оно веселит...

Я смотрю, тут работа идет полным ходом :) Напомню, что сегодня пятница, короткий день и все такое. Так что не засиживайтесь допоздна.

(72) Не смешно, после работы на работе, у меня дома работы непочатый край...

И на последок такой вопрос:
Скажем моя функция возвращает Ложь или таблицу значений как такое сделать. И если функция вернула не ложь то показать таблицу значений ну а если вернула ложь - показать сообщение об ошибке

Незабвенной Светой Семененко повеяло.

(69) возможно в каком-то поле осталась расшифровка.. Запр.ТМЦ

процедура может быть указана в формуле любого реквизита кроме текста, а функция - не может. а в формуле текстового реквизита - наоборот, функция может быть указана, а процедура - не может.

(76) Спасибо, так и было - осталась расшифорвка...

Вопрос касательно вовращаемого значения функцией...
Я НАписал такой код:
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
       ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
       ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);
       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
       Таб.ВывестиСекцию("Проба");
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры
Так вот, работать он работает - но мягко говоря не совсем так как хотелось...
Т.е. если усовие в функции срабатывает то в ТЗ - добавляется значение и все нормлаьно, но, если значение не срабатывает получаюю:
1. Сообщение об ошибке (Поле агрегатного объекта не обнаружено (ДатаДок))
2. Ну и в самой таблице : Разность(ВыбДок).ДатаДок    
Так вот, надо чтобы ну не знаю как сообщить Таблице что мол не надо выводить ТЗ
Как это сделать?

+(79) Или в данном случае надо применять не Таблицу значений, а что-то другое?

Здесь есть кто живой?

Мы слушаем, ты давай пиши :)

Ну или здесь можно примерно так если количесвто строк в ТЗ не равно 0 тогда показать секцию

новые колонки до условия заделай, сразу после объявления ТЗ. остальное ни х не понял

(83) я тебе ни за что не скажу, как у ТЗ узнать количество строк

(82) Рад за вас...
Так вот попробывал проверять количество строк в тпблице значений: выдает ошибку Если ТЗ.КоличествоСтрок()>0 Тогда
Значение не представляет агрегатный объект (КоличествоСтрок)
Хотя далее в коде у меня такая строка (и она работает):
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
Почему в если не проходит?

(86) потому что ТЗ - не ТЗ

(87) Ты сам понял, что написал?

(88) конечно

Если серьезно то: код где я обрпщаюсь к количеству строк в ТЗ такой:
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
         Кол = ТЗ.КоличествоСтрок();
       Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
так вот в цикле Тз.КоличествоСтрок() не проходит ошибку выдает
а вот в последней строке в процедуре - все нормально. почему?

(88) А ты не понял?

(89) Рад за тебя, пожплуйста скажи так чтобы и  я понял...

(88) Ребята, я здесь никогда не шучу, если бы понял - то и не спрашивал бы

(92) 1) переменная ТЗ не является таблицей значений
2) ты врёшь

(94) +100

(93) А, так это не шутки?

(94) 2 - не вру; 1 вот весь код:
Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
       ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
       ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);
       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
         Кол = ТЗ.КоличествоСтрок();
       Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры
т.е Тз переменная, которой потом присваивается ТаблицаЗначений

Про отладчик говорить?

(97) на кой нам тут твоя разность? ТЗ - не ТЗ в Сформировать(). можешь начинать пытаться меня переубедить

СТО!

(98) А разве отладчик с внешними формами работает?

И ты врешь!!

(101) 6ля.

(101) А вот попробовать не судьба?

(101)Да :)

(104) ты новенький в нашем фан-клубе? не судьба

(97) Глазки устали?
//*******************************************

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок()); /// ВОТ ЗДЕСЬ УЖЕ ТЗ. А Вызов твоей мега функции по документу за тебя Пушкин писать будет?
         Кол = ТЗ.КоличествоСтрок();
       Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры

(99) Не понимаю почему в Процедуре Сформировать() Тз в цикле - не ТЗ, а в последней строке процедуре - Тз - это Тз т все нормально!!!

+ Еще как работает, куда приятней работать с обработками в отладчике, нежели с КФ файлом :)

(108) Недума потому что

(108) покажи место, где ТЗ становится таблицей

(108)Где ты вызываешь функцию "Функция Разность(Конт)" ????

(111)Его попросту нет :)

// КОРМИМ ТРОЛЛЯ С РУКИ
//
Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************

Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");

       ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
       ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
       ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);

       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         ТЗ=Разность(ВыбДок);
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
         Кол = ТЗ.КоличествоСтрок();
       Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры

(114) приручить решил?
а потом натравить? :-)

(114)Ну вот, все испортил :)

похоже, сейчас начнёт легчать. повторюсь: создание колонок следует делать сразу после объявления ТЗ

(107) Спасибо!!!

(117) Понял, учту и сделаю в окончательной веосии

(119) надолго не пропадай ;)

(120) +100 ))))

(116) не...
"все еще только начинается..."
шэф дает бананану задачу... бананан никуа не может, и бежит с этой задачей в мизду. в мизде эту задачу,  сжалившись, решает какой-нибудь миздюк... шеф думает, что бананан решил сам, и дает задачу чуть сложнее.... цикл повторяется

(122) Твоими устами бы ...
А вот мне надо провереять несколько видов документов (РасходнаяНакладная, РасходнаяНакладнаяН и РасходнаяНакладнаяВ), так что для писать отдельный код в йункции?

(123) как хочещь...

(124) Сегодне еще не напоминале ему про существование штатных отчетов и обработков?

(125) а смысл?

(126) Вдруг научится :)

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

(126) Следующая тема, наверное, будет как это сделать прямым запросом :)

(127) А из того кода что я здесь показал - 99% код взятый на форуме?!!

(129) Об этом я уже думал, если даный код будет слишком медленно работать - буду писать прямой запрос

(131) НЕЕЕТТ!!!

(127) он вопросы по клюшкам начал задавать в 2008. И до сих пор не научился. смысл напоминать еще раз?

// КОРМИМ ТРОЛЛЯ С РУКИ. 2 серия

//

Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************


Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);

   Конт.ВыбратьСтроки();
   
   Пока Конт.ПолучитьСтроку()=1 Цикл
       
       прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
      докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
          ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
 
       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
       КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************


Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         ТЗ=Разность(ВыбДок);
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
         Кол = ТЗ.КоличествоСтрок();
       Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры

(132) Поздняк метаться :)

(133) А может это не он, а такой передаваемый по рукам ник и место работы? :)

(133)+ (136) , типа если шеф попросит че нить сваять открой форум напиши - ответят :)

Чегой-то ТС затих... Никак (134) ушел проверять. Жалко.
Как пить дать - вылезеть и скажет де медленно дюже...

а на хрена собирать целую ТЗ для проверки на Количество()>0? //я не вчитывался

(139) Тсс... а то следующих серий не дождемся :)

(139) он в (128) просил "в функцию надо добавить усовершенстование.."
.. и не просил менять вывод в табличный документ :)

(141) Усовершенствование надо делать и в самой функцие и в процедуре Сообщить (если к-во строк больше 1 тогда...)

(142) И чо? Сделал?

(142) О как всё запущено...
Сделай, пожалуйста усовершенствование в процедуре встроенного языка Сообщить (Message) :))))

// КОРМИМ ТРОЛЛЯ С РУКИ. 3 серия


//


Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************



Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);


   Конт.ВыбратьСтроки();
   
   Пока Конт.ПолучитьСтроку()=1 Цикл
       
       прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
      докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
           ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");

 
       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
       КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************



Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         ТЗ=Разность(ВыбДок);
         Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
           ТЗ.ВыбрaтьСтроки();
           Пoка ТЗ.ПолучитьCтрoку()=1 Цикл  
//          Кол = ТЗ.КоличествоСтрок();
//        Если Кол>0 Тогда
             Таб.ВывестиСекцию("Проба");
//          КонецЕсли;
           КонецЦикла;  
   КонецЦикла;
     Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры

(145) Спасибо! О цикле пока получить строку я что-то и не подумал

"я что-то и не подумал" - ключевые слова!!

Врт теперь я в упор не понимаю в чем ошибка.
Код такой:
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         ТЗ.ВыбрaтьСтроки();
         Пoка ТЗ.ПолучитьCтрoку()=1 Цикл
             Таб.ВывестиСекцию("Проба");
         КонецЦикла;
   КонецЦикла;
     Состояние("Готово!");    
Выдает ошибку:
 Пoка <<?>>ТЗ.ПолучитьCтрoку()=1 Цикл
{\\server12\vpktest$\ExtForms\БитіДокументи.ert(36)}: Неопознанный операто

сдаётся мне, что год рождения у ТС указан неверно

+(148) в чем была ошибка - не знаю написал по новой слово Пока и заработало

эти две поки даже тут разным цветом

(149) +100500

(151) Ты знал, ты знал :)))))))))))))))))))

(151) Да уже увидел... Но, код работает, но все-равно выдает не совсем то:
Аналіз документів за вибраний період                        
                       
                       
                       
                       
                       
                       
                       
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
03.12.12        АТ-0037210    Шам-ни "Особливі"марин. цілі с/б 314 мл 12шт Чемпіон     має ціну нижчу за прихідну

(154) Чего?

+(154) Те перед документом в которм есть ошибка он почему-то выдал пустые строки и дальше они еще будут не раз...

+(156) еще вопрос: как написать чтобы когда клацаешь мышкой по номеру докемента - этот доукумент открывался бы?

(157) надо написать расшифровка. но смутно помнится мне, что в семёрке это сильно по-другому

(157) В поле расшифровка на макете указать имя переменной, в коей док хранится

(157) это шаманство.
и это шаманство описано в документации :-)))

да, точно, у меня в расшифроке в свойствах так и указано

// КОРМИМ ТРОЛЛЯ С РУКИ. 4 серия



//



Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************




Функция Разность(Конт,Таб)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);



   Конт.ВыбратьСтроки();
   
   Пока Конт.ПолучитьСтроку()=1 Цикл
       
       прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
      докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
           ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");



       ТЗ.НоваяСтрока();
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;
       Таб.ВывестиСекцию("Проба");  
       КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************




Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");
         ТЗ=Разность(ВыбДок);
   КонецЦикла;
   Состояние("Готово!");      
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
   Сообщить("Количество Строк "+ТЗ.КоличествоСтрок());
КонецПроцедуры

(161) В расшифровке написал ТЗ.Номер, все-равно документ не открывается, плюс почему-то есть пустые строки:
Аналіз документів за вибраний період                        
                       
                       
                       
                       
                       
                       
                       
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
03.12.12        АТ-0037210    Шам-ни "Особливі"марин. цілі с/б 314 мл 12шт Чемпіон     має ціну нижчу за прихідну        
03.12.12        АТ-0037211    2*100 ф/п "Magik" чорний 24шт     має ціну нижчу за прихідну        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
 .  .                        
03.12.12        АТ-0037219    Шам-ни "Особливі"марин. цілі с/б 580 мл 12шт Чемпіон     має ціну нижчу за прихідну        
 .  .                        
И еще, таблица выводиться на экран как таблица в режиме редактирования, а не как "лист" бумаги...

с нетерпением жду момента, когда ТС начнёт осваивать снеговика

(162) Добавил код:
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);

Теперь таблицу показывает так как надо, но документ не открывается и остались пустые строки!

Прямо как сводки с полей )))))

(166) Если я чего-то не понимаю или не знаю; - я спрашиваю

Мы тут телепатим, что же у него в секции "Проба" и куда он засунул расшифровку документа, и главное, как назвал :)

(166) скорее, как поле с водки...

(168) Секция проба:
ТЗ.ДатаДок        ТЗ.Номер    ТЗ.Товар    ТЗ.Ошибка
(все выражения) Для поля ТЗ.Номер расшировка: ТЗ.Номер

ТС не томи душу, как там ситуация в полях?

(171) бухают...

(167) крайний раз ты спрашивал десять постов назад. а пока сводки

(173) я ответил на замечание (168)
А вопрос опят же почему документ не открывается?

(174) не документ, а номер

(175) он не понимает разницу.

(170) Ну ты же понимаешь, да, что макет я уже отсериализировать не смогу :))))

Что-то затих, то ли получается, то ли совсем стух. Ты там давай, хоть голос подавай, а то народ волнуется.

(174) Потому что ты говоришь несчастной программе, что по щелчку на номер документа она должна вякнуть тебе его Номер.
Но, не сам документ {место нецензурной брани с волосатым мужиком на б...ть}

(175) Спасибо...
Но... Документ все-равно не открывается... может другие параметры таблицы нужны?

(179) держу пари, пока не сказать, где написать, до него не дойдёт. да и тогда не дойдёт

(180) доходит, не?

бедные клюшки, им, наверное чегтовски обидна :)

(180) Просто якорь :)

+(180) В код добавил:    ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,); Расшифровка поля ТЗ.Номер: ТЗ.Документ

(185) Уже лучше.

(182) Не доходит

(186) Документ не открывается

(185) Добавить тупо колонку аще мало егда заполняй ея

(188) см (189)

(189) Добаувил колонку Документ куда вывожу ТЗ.Документ с расшифровкой Тз.Документ (в поле этом ничепго не выводиться и документ не открываетя)

(191) и чо?

(191) Покажи текущий код, что ты там наваял :)

(192) Читай (191) документ НЕ ОТКРЫВАЕТСЯ

(194) прочитал. не один раз. и чо?

(193)
Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;                  
       ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

(195) Почему документ не открывается (расшифровку написал нужную вроде)

(196) негаразд пишется так: "не горазд"

(184) Зачем так грубо отзываться о якорях?

(198) Я смотрю ты украинский знаэш лучше чем 1С

(200) это только кажется

это перебор...

(196) Колонку ты добавил, а кто ее заполнять будет

(196)

ТЗ.НоваяСтрока();    
ТЗ.Документ = Конт.ТекущийДокумент();

(200)Вот тут "Разность(Конт)" у тебя вообще нет цикла, что ты хочешь? :)

Я думал он начал пустые строки выводить и-за цикла, потому цикл убрал и написал условие количество строк больше 0, но пустые строки он все-равно выводит - в чем проблема
и еще как указать что если значение не помещается в поле: то его значение разбить на несколько строк?

// КОРМИМ ТРОЛЛЯ С РУКИ. 4 серия
Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************

Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");

       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;                  
       ТЗ.Документ= Конт.ТекущийДокумент();
       ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

(204) Обогнал таки :)

(196) Спасибо

+ ВыбДок.ТекущийДокумент() - Пиши так :)

(209) Сам себе спасибо? :)

Я думаю это спасибо 203, 204, 207

+(209) чего-то не то...
вот мой код:
Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;                  
       ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры
Так там вроде так как и вы советовали...

Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
// ГДЕ ЗАПОЛНЕНИЕ КОЛОНКИ ДОКУМЕНТ?????
       ТЗ.ДатаДок = Конт.ДатаДок;
// ГДЕ ЗАПОЛНЕНИЕ КОЛОНКИ ДОКУМЕНТ?????
       ТЗ.Номер   = Конт.НомерДок;
// ГДЕ ЗАПОЛНЕНИЕ КОЛОНКИ ДОКУМЕНТ?????
       ТЗ.Товар   = Конт.ТМЦ;          
// ГДЕ ЗАПОЛНЕНИЕ КОЛОНКИ ДОКУМЕНТ?????          
       ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
// ГДЕ ЗАПОЛНЕНИЕ КОЛОНКИ ДОКУМЕНТ?????

   КонецЕсли;
   Возврат(ТЗ);
КонецФункции

Я опустил добавление в ТЗ значения Документ..
Сейчас это исправил, но документ ВСЕ_РАВНО НЕ ОТКРЫВАЕТСЯ

Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    // А это зачем?
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
      Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");

       ТЗ.ДатаДок = Конт.ДатаДок;
       ТЗ.Номер   = Конт.НомерДок;
       ТЗ.Товар   = Конт.ТМЦ;                  
       ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции

(215) Чего кричим?

(215)
Код! Код! Код!
Шайбу! Шайбу! Шайбу!

(217) Косячит :)

(216) Убрал в коде Тз.НоваяСтрока() так он выдал таблицу только с шапкой!

(219) Он издевается?

Без обиды. Скажи зачем ты это убрал? Тебя ведь просили ЗАПОЛНИТЬ. Сегодня ж не пятница, дай людям поработать :-)

(21) не, он в самом деле такой...

(220) ЗАЧЕМ ?!

(224) Так кто-то из вас советовал... Не вопрос - сейчас опять поставлю...

(224) "а вдруг получится?"
:-)))

Поставил Новая строка - обратно.. Таблица формируется, но
1. Документ не открывается и еще есть много пустых строк в таблице

+(227) Вот какой вид у таблицы сейчас:
Аналіз документів за вибраний період                        
                       
                       
                       
                       
                       
                       
Документ    №    Товар    Поимлка            
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
   АТ-0037210    Шам-ни "Особливі"марин. цілі с/б 314 мл 12шт Чемпіон     має ціну нижчу за прихідну            
   АТ-0037211    2*100 ф/п "Magik" чорний 24шт     має ціну нижчу за прихідну            
                       
                       
                       
                       
                       
                       
                       
   АТ-0037219    Шам-ни "Особливі"марин. цілі с/б 580 мл 12шт Чемпіон     має ціну нижчу за прихідну

Отсюда вопросы:
Почему а таблице есть пустые стркои и как сделать чтобы их не было
Почему документ не открывается и как сделать чтобы он открывался

(225) Где ты там совет такой увидел?

(227) Мы текущий код увидим или продолжим гадать, где именно тебя переклинило?

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

(230) вроде ты такой совет давал:
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
       //ТЗ.НоваяКолонка("Документ", "Документ", , , ,"Документ",,);


   Конт.ВыбратьСтроки();
   
   Пока Конт.ПолучитьСтроку()=1 Цикл
Сейчас покажу весь код

(232)    ТЗ.Документ = Конт.ТекущийДокумент() есть у меня (см (233))

сори даю весь код

Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************
Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   ТЗ.НоваяСтрока();    
   Конт.ВыбратьСтроки();
   Стр = Конт.ПолучитьСтроку();
   прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
   докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
     Если докцена<прихцена Тогда
       ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.Документ = Конт.ТекущийДокумент();
       ТЗ.ДатаДок  = Конт.ДатаДок;
       ТЗ.Номер    = Конт.НомерДок;
       ТЗ.Товар    = Конт.ТМЦ;                  
       ТЗ.Ошибка   = " має ціну нижчу за прихідну ";
   КонецЕсли;
   Возврат(ТЗ);
КонецФункции
//*******************************************
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

(234) см не (233) а (236)

(233)(234)Он то плакал, то смеялся, он над нами издевался

(238) смотри весь код (236)

Наслаждайся

//Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************

Функция Разность(Конт)
//Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
//  ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
//  ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
//  ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар");
   ТЗ.НоваяКолонка("Ошибка");
   ТЗ.НоваяКолонка("Стр");
   Конт.ВыбратьСтроки();
   Пока Конт.ПолучитьСтроку()=1 Цикл
       прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
       докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
       Если докцена<прихцена Тогда
           ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
           ТЗ.НоваяСтрока();    
           ТЗ.Товар   = Конт.ТМЦ;                  
           ТЗ.Ошибка  = " має ціну нижчу за прихідну ";
           ТЗ.Стр     = Конт.НомерСтроки;
       КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы());
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.УстановитьФильтр(1,0);
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
            ПечДок = ВыбДок.ТекущийДокумент();//ПечДок воткнешь в расшифровку и в выражение ячейки
            Таб.ВывестиСекцию("Документ");
            ТЗ.ВыбратьСтроки();
            Пока ТЗ.ПолучитьСтроку()=1 Цикл
               ПечОшибка = ТЗ.Ошибка;
               ПечТовар = ТЗ.Товар;
               ПечНомерСтрокиСОшибкой = ТЗ.Стр;
               Таб.ВывестиСекцию("Ошибка");//ты выведешь детализацию ошибки по документу
            КонецЦикла;
         КонецЕсли;
   КонецЦикла;
   Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

// КОРМИМ ТРОЛЛЯ С РУКИ. 5 серия

Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************

Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   
   Конт.ВыбратьСтроки();
   
   //Стр = Конт.ПолучитьСтроку();
   Пока Конт.ПолучитьСтроку()=1 Цикл
     прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
     докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
   Если докцена<прихцена Тогда
       //ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);
       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");
       ТЗ.НоваяСтрока();      
       ТЗ.Документ = Конт.ТекущийДокумент();
       ТЗ.ДатаДок  = Конт.ДатаДок;
       ТЗ.Номер    = Конт.НомерДок;
       ТЗ.Товар    = Конт.ТМЦ;                  
       ТЗ.Ошибка   = " має ціну нижчу за прихідну ";
       Прервать;
   КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

теперь у него есть выбор: что же скопипастить и в какой последовательности :)))))

Затих ТС... Ушёл копипастить, наверное....

(240) Интересно, понимает ли разницу между (240) и (241)?

(240) Документ все равно НЕ ОТКРЫВАЕТСЯ в поле выражение:ПечДок расшифровка этого поля ПечДок

(244) Ты в отличие от (240) оставил структуру моей таблицы нетронутой, дальше не вникал

(245) не верю.
У ячейки, свойство "Защита" воткнута хоть в макете ?

(247) Да, - воткнута

Лупа появляется, когда подводишь курсор к ячейке ?

Ты точно секцию Документ выводишь ?

(249) Лупа не появляется
(250) Точно

(246) Ну молодец, что не вникал.

И как сделать чтобы (в данном случае) ТЗ.Товар в яцейку выводилось в несколько строк?

(251) ну значит, смотришь значение не у той ячейки, либо в ячейку ничего не записал, либо у таблицы не стоит ТолькоПросмотр(1)

// КОРМИМ ТРОЛЛЯ С РУКИ. 6 серия


Перем ВыбНачПериода, ВыбКонПериода, ТЗ;
//*******************************************


Функция Разность(Конт)
Перем кат,минцена,докцена;
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   
   Конт.ВыбратьСтроки();
   
   //Стр = Конт.ПолучитьСтроку();

   Пока Конт.ПолучитьСтроку()=1 Цикл
     прихцена=Окр(Конт.ТМЦ.Цена_Прих.Получить(Конт.ДатаДок)*(1+Конт.ТМЦ.СтавкаНДС.Ставка.Получить(Конт.ДатаДок)),2);
     докцена=Окр(?(Конт.Кво*Конт.Коэффициент=0,0,Конт.СуммаСНДС/(Конт.Кво*Конт.Коэффициент)),2);
   Если докцена<прихцена Тогда
       //ВсеВыбрано = ?((ДоступАдмина+ДоступБуха)=2,0,ВсеВыбрано);

       //Возврат(Конт.НомерДок+" "+Конт.номерСтроки+"."+Конт.ТМЦ+" має ціну нижчу за прихідну ");

       ТЗ.НоваяСтрока();      
       ТЗ.Документ = Конт.ТекущийДокумент();
       ТЗ.ДатаДок  = Конт.ДатаДок;
       ТЗ.Номер    = Конт.НомерДок;
       ТЗ.Товар    = Конт.ТМЦ;                  
       ТЗ.Ошибка   = " має ціну нижчу за прихідну ";
       Прервать;
   КонецЕсли;
   КонецЦикла;
   Возврат(ТЗ);
КонецФункции
//*******************************************


Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   ВыбДок=СоздатьОбъект("Документ.РасходнаяНакладная");
   ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
   
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ДатаДок", "Дата",,,"Дата", 15);
   ТЗ.НоваяКолонка("Документ", "Документ",,,,"Документ",,);
   ТЗ.НоваяКолонка("Номер", "Строка", 20,,"Номер", 15);
   ТЗ.НоваяКолонка("Товар", "Справочник.ТМЦ",,,,"Товар",,);
   ТЗ.НоваяКолонка("Ошибка", "Строка",,,,"Ошибка",,);
   
   Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
         Состояние("Перевірка "+ВыбДок+" ...");            
         ТЗ=Разность(ВыбДок);            
         Если ТЗ.КоличествоСтрок()>0 Тогда
             ТЗ.ПолучитьСтрокуПоНомеру(1);
             Таб.ВывестиСекцию("Проба");
         КонецЕсли;
   КонецЦикла;
     Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");      
КонецПроцедуры

(254) по поводу последнего:
  Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Негаразд","");
предыдущее сейчас посмотрю

(253)
завести в макете 2 горизонтальные секции, одну обозвать "Документ", вторую "Ошибка"

в секции "Документ" в ячейке написать, тип - выражение, в выражение и расшифровку - печДок

в секции "Ошибка" 3 ячейки - тип выражение, в выражение
ПечОшибка ,ПечТовар и ПечНомерСтрокиСОшибкой

Затем скопировать код из (240) целиком и наслаждаться

Таб.Защита(1);

Ячейку тк смотрю..., записал я (код твой): ПечДок = ВыбДок.ТекущийДокумент();

(253) Сейчас попробую

(259) Ты куда его записал?! В ячейку?!

(258) Спасибо, - заработало!

(261) ПечДок это выражение в ячейке таблицы, не работало потому что было Таб.Защита(0)

Так можно ли сделать чтобы в ячейке таблицы текст разбивался на несколько строк?

Контроль-переносить, высота строки - авто

(265) Спасибо

+(265) правда, я не нашел где задавать высоту строки...

(267) так же как в ехеl

(268) Понял, СПАСИБО

Добрый день!
Такой вопрос можно ли программно (из кода) задать скажем цвет ячейки в таблице и если можно, то как?

(270) цвет фона у области что ль?

(271) Да, но можно и цвет шрифта

(272) благословляю

(272) цвет текста это называется

+(272) Мне просто нужно чтобы нектороые ячейки визуально отрезнялись от других и делать это надо из кода скрипта а не в самой тьаблице

(275) я понял

(274) Спасибо за благословление, но какой код нужно для этого написать?

"Шо, опять?"©ЖБП

(277) а не знаю, давно не писал. все ключевые слова у тебя есть

+(279) предлагаю заняться присвоением

(280) собственно, он как минимум уже два месяца им  занимается.. "незаконным присвоением зарплаты"

Вопрос на макете таблицы ячейка такая (12, 2,12, 2)
Как узнать координаты какие координаты у данной ячейки в данный момент (ячейка выводиться в цикле)?

(282) Используй СП о юный падаван!
В нём вся сила - смотри методы работы с таблицей, в них скрыт ответ твой.

(282) умоляю: не путай координаты внутри ТабДока с координатами внутри области

(283) Смотрел 5 минут...
Так вот там я не нашел об этом ничего

(284) Не понял...

(286) координаты у данной ячейки в данный момент не меняются в общем случае

(285) осталось 2 года, 364 дня, 23 часа и 55 минут

(288) ты излишне оптимистичен...

(287) Хорошо. Сформулирую задачу иначе. На макете таблицы есть ячейка (12, 2, 12, 2) она выводится на экран в цикле...
Как к ней обратиться (по какому адресу на даной итерации она находится?)?

(285) Монитор твой запылился, протри его тряпочкой - возьми себя в руки и еще раз спроси у СП про методы для работы с Таблицей, в особенности про ВысотаТаблицы(), Область() и ЦветФона(),ЦветТекста()

(290) на макете таблицы есть область. часто иногда она состоит из одной строки, так что на каждой итерации она будет иметь те же координаты - (1, 2), к примеру

Есть как минимум, 4 способа расскраски таблицы:

1.выводить заранее раскрашенные секции
2.получать секцию, раскрашивать область в этой секции, выводить эту секцию
3.выводить секцию, раскрашивать область в выведенной таблице
4.просто раскрашивать любую область в выведенной таблице

(291) методы? это новость

(294) мда, уродская семёрка ;)

(291) Монитор мой в порядке...
Просто на макете ячейка имеет координаты 12.2.12.2
в цикле данная ячейка выводиться Н-раз каким методом узнать адрес исходной ячейки на данной итерации цикла?
Область - Возвращает значение типа ''ОбластьТаблицы'' области секции таблицы или секции таблицы в режиме ввода данных.
Цвета - пропускаем...
ВысотаТаблицы - Возвращает число строк в сформированной результирующей таблице.
И как из этого узнать текущие координаты исходной ячейки??

(295) не трожь кормилицу!

(296) можешь ещё раз обдумать мои слова, высказанные в свете метода №2 по Ёпрсту

(297) ПустоеЗначение()=0 - ну что за пакость? ;)

(296) читай (291), (293) ..много думай, о юный падаван!
Используй силу чтения.
Все ответы даны.

(292) Ты не прав...
код:
Если СтрДлина(ТЗ.Ошибка)>0 Тогда
                       Обл = Таб.Область(12, 2,12, 2);
                       Сообщить(Обл.ЦветФона(1, 1, 1));
                       Сообщить(Обл.ЦветТекста(125, 125, 125));
                       Таб.ВывестиСекцию("Ошибка");
                   
В результирующей таблице ТОЛЬКО ОДНА ЯЧЕЙКА имеет .ЦветФона(1, 1, 1) и ЦветТекста(125, 125, 125)
Эта ячейка принадлежить секции "Ошибка" секция ошибка скажем выводиться 50 раз и каждый раз исходная ячейка будет в итоговой таблице по одинаковому адресу?

(300) О, Йода! Ответов я там не нашел

(301) именно так я и поступал. 50 выводов секции с раскраской ячейки в первой строке области. но в восьмёрке

(302) херовый из тебя ученик, о юный падаван.
Что непонятно тебе в (293) ? Какой путь из 4 тебе непонятен ?

(302) скажи "не распознал"

(298) ты сам-то понял, что сказал?

(306) это реплика ТС

опять же при первой итерации адрес ячейки будет (12, 2, 12, 2) а при второй может так (13, 2, 13, 2)?
Сейчас проверю

(307) ты сказал крамольное слово "обдумать"!

(309) а что, уже никто тут не надеется? ;)

Я смотрю теперь за закраску принялся....

(310) Не все ждут :)

Жесть... он (0) решил в одной ветке всю конфу переписать :)

(313) Не, он теперь красоту наводит :)

(299) Не умное высказывание.

(315) неграмотное высказывание ;)

(316) :))

Что-то вести с полей сегодня скудные ))

(318) удобрений мало....

(318) опасаюсь, как бы он и впрямь не начал думать.. или уж перегрелся

(320) чем?

(321) Он в нее ест ))

Автор, не молчи.

+(308) Как я и предположил к номеру строки нужно плюсовать номер итерации...

Об этом в доке ничего не написано..

(324) он не нужен тебе, о юный падаван.
Всё гораздо проще - используй силу, чтоб прочитать и понять
(293)

(326) он пошёл путём 4, похоже

(327) как ленин, аднако!

(328) ленин хоть документацию читал. и даже писал

А интересно таки, ТС - это ник, передаваемый подаванами 1С из в рук в руки вместе с подопытной конторой, или без? :)

(330) Интрига! ))

(329) "дедушка умер, а дело живет - лучше бы было наоборот!"

(330) во втором конверте?

врят ли тс знает байку про 3 конверта

(334) а может, для него это не байка? :-)

(335) готовит 3 конверта ужо ?

Ушел автор. До завтра видимо ))))

(336) пока только второй открыл...
а там урл мизды,  ник и пароль...

Да не ушел я...

(339) на почту ходил за конвертами ?

(340) Не поверишь - конвертов нет; сказали пользуйся электронкой

постиг ли ты науку раскраски мокселя, о юный падаван ?

(342) фломастеры купил... ему так проще...

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

(343) Фломастеров тоже там нет - кризис
(342) Постиг

(344) И какие мысли и предложения по этому поводу?

(345) Да с одной стороны все просто суммируем поле ставка для всех сотруднков подразделения, а вот как это закодит - не знаю

(347) бедняга... ну, программиста наймие, чтоль...

+347 Сейчас текст запроса такой:
ТекстЗапроса = "//{{ЗАПРОС(СписокСотрудников)
   |Период с {ДатаАктуальности} по {ДатаАктуальности};
   |Сотр = Справочник.Сотрудники.ТекущийЭлемент;
   |Фир = Справочник.Сотрудники.Фирма;
   |Оклад = Справочник.Сотрудники.Оклад;
   |КвоЛьгот = Справочник.Сотрудники.КвоЛьгот;
   |Тариф = Справочник.Сотрудники.Тариф;
   |Пенсионер = Справочник.Сотрудники.Пенсионер;
   |Инвалид = Справочник.Сотрудники.Инвалид;
   |Должность = Справочник.Сотрудники.МестоРаботы;
   |Ставка = Справочник.Сотрудники.Ставка;
   |Совместитель = Справочник.Сотрудники.ТипСотрудника;
   |ДатаПриема = Справочник.Сотрудники.ДатаПриема;
   |ДатаУвольнения = Справочник.Сотрудники.ДатаУвольнения;
   |Функция КолСотр = СчЁтчик();
   |//основные
   |ДатаРождения = Справочник.Сотрудники.ДатаРождения;
   |//координаты
   |ПропискаАдрес = Справочник.Сотрудники.ПропискаАдрес;
   |ФактАдрес = Справочник.Сотрудники.ФактАдрес;
   |//кадровые
   |Стать = Справочник.Сотрудники.Пол;
   |Образование = Справочник.Сотрудники.Образование;
   |СемейноеПоложение = Справочник.Сотрудники.СемейноеПоложение;
   |//идентификация        
   |ИНН = Справочник.Сотрудники.ИНН;
   |ДокВид = Справочник.Сотрудники.ДокВид;
   |ДокСерия = Справочник.Сотрудники.ДокСерия;
   |ДокНомер = Справочник.Сотрудники.ДокНомер;
   |ДокКемВыдан = Справочник.Сотрудники.ДокКемВыдан;
   |ДокКогдаВыдан = Справочник.Сотрудники.ДокКогдаВыдан;
   |//условия запроса и т.д.
   |Условие(Фир=Фирма);
   |Условие (Число(Сотр.Родитель.Код) <> 0);
   |Условие(Сотр в ВыбСотрудник);
   |Условие(ДатаПриема<>Дата(0));
   |Условие(ДатаПриема<=ДатаАктуальности);";
   Если фОсновные=0 Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие(Совместитель=1);";
   КонецЕсли;
   Если фСовместители=0 Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие(Совместитель=0);";
   КонецЕсли;
   Если Пар=1 Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Группировка Сотр Упорядочить По Сотр.Наименование;";
   Иначе
       ТекстЗапроса=ТекстЗапроса+"
       |Группировка Сотр Упорядочить По Сотр.Код;";
   КонецЕсли;
   ТекстЗапроса=ТекстЗапроса+"
   |Функция Окл = Сумма(Оклад);    
   |Функция Тар = Сумма(Тариф);";
         
   
   
   Запрос = СоздатьОбъект("Запрос");
   Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
       Возврат;
   КонецЕсли;

(348) Да, чтобы мы джелали без тових подсказок :(

вот это зачет вообще!

>>> |Условие (Число(Сотр.Родитель.Код) <> 0);

ЗЫ: Подразделение, это у тебя чего ? Реквизит в справочнике, или тупо группа в справочнике ?

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

(351) НЕ понял...

(352) подразделение - конечно же группа в справочнике

(354)

|Ставка = Справочник.Сотрудники.Ставка;
|Функция ИтогоСтавка = Сумма(Ставка);


....

Пока Запрос.Группировка("Сотр")=1 Цикл
 Если.Запрос.ЭтоГруппа()=1 Тогда
      Сообщить("Ипать, а сумма ставок то по подразделению "+Запрос.Сотр +" равна "+Запрос.ИтогоСтавка);
 КонецЕсли;

355 Упс, прошу прощения это уже работает, просто надо чтобы уволенные сотрудники (вернее их ставки) не подсчитывались, я пока сам подумаю - если ничего не получиться - буду у вас спрашивать

(356) используй Когда() при расчете функции, о юный падаван!

А в 1С как определить поле ДатаУвольнения установлено или нет?

(357) Функцию Когда() надо самому написать, о Сенсей?

Ну что 1000 постов потянем. Обгоним про тот мотороллер, котрый не мой. Ну а чтоб не забанили меня за флуд.
------------
А в 1С как определить поле ДатаУвольнения установлено или нет?
------------
Если ПустооеЗначенение(АААААААА)=1 Тогда

КонецЕсли;
-----------
Только там подвох, работает с точностью до наоборот:-)/

(360) В 1С разве что-то есть без подвоха...

(359) Используй силу - открой СП наконец, посмотри на язык запросов и на функции + задание условия в Когда() при расчете функции.

(362) Спасибо за совет - сейчас посмотрю

(363) О, скорость реакции!!!!

(362) Ёпрст, я тебя уважаю и люблю!
Написал так : |Функция ИтогоСтавка = Сумма(Ставка) Когда (ПустоеЗначение(ДатаУвольнения)=1);
Заработал запрсо так как надо!

(364) Иногда я ночую дома

эх.. пол-мисты ему бесплатные советы даёт, а любит и уважает он только Ёпрста...

(367) Во-первых, я не сказал что только его уважаю и люблю, во-вторых Ёпрст, практически всегда дает дельные советы, а не поливает желчю как некоторые другие...

-Мы желчью не поливаем, мы полушутя, и любя подтруниваем :-)

(369) Большинство - подрунивает, а Некоторые - из них только желчь...

(365) Теперь еще подумать как отработать ситуацию, при которой дата увольнения есть, но на дату отчета сотрудник еще работал.

(371) Логично, если нужно (а скорее всего - нужно) - значит сделаю

Добрый день!
Подскаждите, гед ляп:
                   Пока ТЗ.ПолучитьСтроку()=1 Цикл
                       ПечОшибка = ТЗ.Ошибка;
                       ПечТовар = ТЗ.Товар;
                       ПечНомерСтрокиСОшибкой = ТЗ.Стр;
                       Если ПечДок.НомерДок = ПредНомер Тогда
                           Обл = Таб.Область(иф, 1, иф-1, 1);
                           Сообщить(Обл);
                           Обл.Объединить();                

Дык ругается
Значение не представляет агрегатный объект (Объединить)

(373) в "гед"

обл - не область, как обычно

(374) Ты, как всегда с полезным советом, спасибо тебе, о великий печатальник, у которого ни одной опечатки

(375) Не понял

(377) Значение не представляет агрегатный объект

+(378) это оно про Обл

+(377) Если этот кусок кода поставить до цикла - не ругается, а в цикле что изменилось? причем я Обл здесь же и присваиваю

+380 говорю же если этот кусок кода не в теле цикла - все нормально компилируется

(381) открой для себя отладчик...

(381) да, я знаю, отладчик в 7.7 неудобен по сравнению с восьмёркой, но он есть и приносит пользу

+(383) поправка: способен приносить пользу

(381) в отладчике см. чему равны твои иф

По поводу отладчика я несколько раз пробывал - не работает он со внешними формами или я чего то не правильно делаю?

(385) + забыл.. иф надо объявлять-же

(386) ты чего-то неправильно делаешь

(387) иф - это счетчик итераций, и обявляется он вне цикла, далле приведенного код иф
+1, а объявление до кода цикла иф = 1

(386) отжежмлять... у всех работает, а бананану неработающий подсунули...
может, все-таки в соотношении радиусов проблема?

(388) Можеьт.
Но вот сейвчас. запустил отладчик в нем открыл свою внешнюю форму. в коде поставил точку останова... А как теперь запустить??

(389) это строки: первая и последняя.. у тебя последняя выше первой

(398) тогда "Значение не представляет агрегатный объект (Объединить)" - более чем логично

(390) Каких радиусов?

(392) причем одна из них еще и нулевая..

(392) Не понял, привожу код процедуры полностью:
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы());
   ОбДок = "Документ.РасходнаяНакладная";
   СчетИтер = 0;
   Пока СчетИтер<1 Цикл                  
       ВыбДок=СоздатьОбъект(ОбДок);
       Если СчетИтер = 0 Тогда
           ОбДок = "Документ.РасходнаяНакладная";
       Иначе
           ОбДок = "Документ.РасходнаяНакладнаяН";
       КонецЕсли;
       ВыбДок=СоздатьОбъект(ОбДок);
       ВыбДок.УстановитьФильтр(1,0);
       ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
           иф = 1;
       Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
             Состояние("Перевірка "+ВыбДок+" ...");            
             ТЗ=Разность(ВыбДок);            
             Если ТЗ.КоличествоСтрок()>0 Тогда
                ПечДок = ВыбДок.ТекущийДокумент();
                ТЗ.ВыбратьСтроки();
                Пока ТЗ.ПолучитьСтроку()=1 Цикл
                   ПечОшибка = ТЗ.Ошибка;
                   ПечТовар = ТЗ.Товар;
                   Если ТЗ.Стр <> 0 Тогда
                       ПечНомерСтрокиСОшибкой = ТЗ.Стр;
                   Иначе                        
                       ПечНомерСтрокиСОшибкой = "Усі";
                   КонецЕсли;
                   Если СтрДлина(ПечТовар)=0 Тогда
                       ПечТовар = "!!НОЛЬ!!!";
                   КонецЕсли;
                   Таб.ВывестиСекцию("Документ");
                   ПредНомер = "";
                   ПредНомер = ПечДок.НомерДок;
                   Пока ТЗ.ПолучитьСтроку()=1 Цикл
                       ПечОшибка = ТЗ.Ошибка;
                       ПечТовар = ТЗ.Товар;
                       ПечНомерСтрокиСОшибкой = ТЗ.Стр;
                       Если ПечДок.НомерДок = ПредНомер Тогда
                           Обл = Таб.Область(иф, 1, иф-1, 1);
                           Сообщить(Обл);
                           //Обл.Объединить();                
                           Сообщить ("+!!"+иф);
                       КонецЕсли;
                       
                       Сообщить("ПредНомер = "+ПредНомер+" "+иф+"-я итерация НомерДок= "+ПечДок.НомерДок);
                       Если СтрДлина(ТЗ.Ошибка)>0 Тогда
                           Обл = Таб.Область(12+1*иф, 2,(12+1*иф), 2);
                           Обл.ЦветФона(1, 1, 1);
                           Обл.ЦветТекста(125, 125, 125);
                           Таб.ВывестиСекцию("Ошибка");    
                           иф=иф+1;
                       КонецЕсли;
                КонецЦикла;
   
   
                КонецЦикла;
             КонецЕсли;
       КонецЦикла;        
       СчетИтер = СчетИтер + 1;
   КонецЦикла;
   Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Защита(1);
   Таб.Показать("Негаразд","");      
КонецПроцедуры
Так вод в цикле он ругается там оюэъединит зщаремарено

(394) у тебя отношение радиуса кривизны рук к радиусу кривизны извилин стремится к нулю...

Вместо

Обл = Таб.Область(иф, 1, иф-1, 1);

тогда уж

Обл = Таб.Область(иф-1, 1, иф, 1);

да еще и учесть (395)

(397) И как тут не вспомнить о желчи...?

400

Лан, а что в отладчике я непрувильно делаю? Ка ккод запустить на трассировку?

(401) поставь точку останова, и запускай в Предприятии

(401) желчь - это биология. а у меня - чистая математика...

(402) Сейчас попробую

(404) За поясниние работы с отладчимком - спасибо

Никогда не пользуй объединение ячеек - это фактически смерть для мокселя для больших таблиц.
Заместо этого есть галка "По выделенным столбцам"

(406) Сомневаюсь что в моем случае По выделенным столбацм проходит
У меня задача если в ОДНОМ документе несколько ошибок - то номер документа в объединенных ячейках - для б\лучшей читабельности

Код в результате такой написал:
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы());
   ОбДок = "Документ.РасходнаяНакладная";
   СчетИтер = 0;
   Пока СчетИтер<1 Цикл                  
       ВыбДок=СоздатьОбъект(ОбДок);
       Если СчетИтер = 0 Тогда
           ОбДок = "Документ.РасходнаяНакладная";
       Иначе
           ОбДок = "Документ.РасходнаяНакладнаяН";
       КонецЕсли;
       ВыбДок=СоздатьОбъект(ОбДок);
       ВыбДок.УстановитьФильтр(1,0);
       ВыбДок.ВыбратьДокументы(ДатаС,ДатаПо);
           иф = 1;
       Пока ВыбДок.ПолучитьДокумент()<>0 Цикл
             Состояние("Перевірка "+ВыбДок+" ...");            
             ТЗ=Разность(ВыбДок);            
             Если ТЗ.КоличествоСтрок()>0 Тогда
                ПечДок = ВыбДок.ТекущийДокумент();
                ТЗ.ВыбратьСтроки();
                Пока ТЗ.ПолучитьСтроку()=1 Цикл
                   ПечОшибка = ТЗ.Ошибка;
                   ПечТовар = ТЗ.Товар;
                   Если ТЗ.Стр <> 0 Тогда
                       ПечНомерСтрокиСОшибкой = ТЗ.Стр;
                   Иначе                        
                       ПечНомерСтрокиСОшибкой = "Усі";
                   КонецЕсли;
                   Если СтрДлина(ПечТовар)=0 Тогда
                       ПечТовар = "!!НОЛЬ!!!";
                   КонецЕсли;
                   Таб.ВывестиСекцию("Документ");
                   ПредНомер = "";
                   ПредНомер = ПечДок.НомерДок;
                   Пока ТЗ.ПолучитьСтроку()=1 Цикл
                       ПечОшибка = ТЗ.Ошибка;
                       ПечТовар = ТЗ.Товар;
                       ПечНомерСтрокиСОшибкой = ТЗ.Стр;
                       Если ПечДок.НомерДок = ПредНомер Тогда
                           Если иф>1 Тогда
                               Обл = Таб.Область(иф, 1, иф-1, 1);
                           Иначе
                               Обл = Таб.Область(иф, 1, иф, 1);
                           КонецЕсли;
                           Сообщить(Обл);
                           Сообщить ("+!!"+иф);
                       КонецЕсли;
                       
                       Сообщить("ПредНомер = "+ПредНомер+" "+иф+"-я итерация НомерДок= "+ПечДок.НомерДок);
                       Если СтрДлина(ТЗ.Ошибка)>0 Тогда
                           Обл = Таб.Область(12+1*иф, 2,(12+1*иф), 2);
                           Обл.ЦветФона(1, 1, 1);
                           Обл.ЦветТекста(125, 125, 125);
                           Таб.ВывестиСекцию("Ошибка");    
                           иф=иф+1;
                       КонецЕсли;
                КонецЦикла;
   
   
                КонецЦикла;
             КонецЕсли;
       КонецЦикла;        
       СчетИтер = СчетИтер + 1;
   КонецЦикла;
   Состояние("Готово!");      
   Таб.ТолькоПросмотр(1);
   Таб.Защита(1);
   Таб.Показать("Негаразд","");      
КонецПроцедуры
Но он ячейки не объединяет!
Опять я чего-топ пропустил... :(

Ау!!! Поиогите!! Я чего-то ничего не понимаю в коде у меня оди\на Сообщить (она сообщает номер итерации -  т.е 1, 2, ...., Н) А в окне вывода вижу:
12.31.-71
12.31.-71
12.31.-71
12.31.-71
12.31.-71
12.31.-71
13.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
20.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
21.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
22.31.-71
23.31.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
10.20.-71
11.20.-71
11.20.-71

Ну как тебе сказать, всё в топку..
На счет "по выделенным", на вот, просвещайся
http://rusfolder.com/35011089

(410) Сейчас посмотрю
Ну вот за что я "люблю" 1С - так это  за непредказуемость...
Код:
Сообщить(иф+"-я итерация");
Выдает:
1
2
3
ну и т.д.
Вопрос: ПОЧЕМУ???

(410) А по поводу примера, какая связь меджду столбцами в примере и строками в задаче?

Отладчик тебе в помощь, смотри в него и медитируй.

(413) иф, - понятно, числовая переменная, а куда делось "-я итерация"?
И чем здесь отладчик поможет???

как бы тебе сказать..попроще..

хню написал в (408) её и имеешь в итоге.

скажи мне по-русски, какую ячейку ты хочешь раскрасить И я так уж и быть напишу тебе как

(416) Какую ячейку? не знаю как и описать, короче в таблицу идут строки в которіх первій столбец - номердокумента
если в документе встречается несколько ошибок - соответственно строк в которой в первом столбе один и то- же номер документа - тоже нескьольо, так вот хотелось бы соседние ячейки где номердокумента одинаковый - объеденить

>>>У меня задача если в ОДНОМ документе несколько ошибок - то номер документа в объединенных ячейках - для б\лучшей читабельности


И нафига ?
Делаешь такой макет и привет:

http://s61.radikal.ru/i172/1302/28/5e53e05b4f60.jpg

У тебя будет выводится так

Документ №123123123
  ошибка вася лох
  ошибка федя даун
 
Документ №234234234
  ошибка вася крут
  ошибка федя хз

(418) А в итоге ячейка в которой ошибка не будет под ячейкой в которой документ?

"пишу программу на Дельфи, рнр-скрипты, движки для сайтов, а еще довожу ремонт в квартире до путя...." переживаю за заказчиков всего этого

(421) Ах, какой ты сердобольный

(420) будет, а что не устраивает ?

тебе надо в этой же что ли ?
т.е ты хочешь видеть так ?

Документ1 Ошибка Вася
         Ошибка Федя
         Ошибка Бананан
Документ2 Ошибка Вася
         Ошибка Федя
         Ошибка Бананан

(423) Да, хотелось бы видеть именно так
только первая оршибка в следующей строке от документа и в следующем столбце (я уже кажется сообразил как)

Ребята если я к документе обращаюсь так
Док = СоздатьОбъект()...
Как достучаться до поля автор документа? Док.Автор или как?

Док.Автор - не получилось что ли?