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

(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) Да, хотелось бы видеть именно так
только первая оршибка в следующей строке от документа и в следующем столбце (я уже кажется сообразил как)

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

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