Натуля писал(а) 06. Октября 2009 :: 06:17:

Отчет врет уже в первой строке ?
Т.е для первой строки колонка 1 правильная остальные колонки неправильные ? какие значения в неправильных колонках ?

JohnyDeath писал(а) 06. Октября 2009 :: 06:29:

это все не обязательно.
там еще проблема с подразделением скорее всего его не задают
и получается список в пустой что окончательно все добивает.

(0) Какой тип имеет поле СостояниеФизлица в справочнике сотрудники ?

     Процедура Ф1Т()
    Форм="1-Т";
     Запрос = СоздатьОбъект("Запрос");
     Запрос.ВключитьSQL(0);
     //На конец года 
     ПредДата = КонМесяца(Дата2);
     ВыбДата = Дата(ПредДата+1);
     //ДатаНачГода = КонГода(Дата2);
     Запрос = СоздатьОбъект("Запрос");
     ТекстЗапроса = "
     |//{{ЗАПРОС(ДвижениеКадров)
     |Период с ВыбДата по ВыбДата; 
     |ОбрабатыватьДокументы Все;
     |Х_Сотрудник=      Справочник.Сотрудники.ТекущийЭлемент;   
     |Х_Подразделение =Справочник.Сотрудники.Подразделение;
     |Х_ДатаРождения =Справочник.Сотрудники.ДатаРождения;
     |Х_Категория                  =      Справочник.Сотрудники.Должность.Категория;
     |Х_Образование               =      Справочник.Сотрудники.Образование;
     |Х_Ставка                  =      Справочник.Сотрудники.Ставка;
     |Х_СостояниеФизлица      =      Справочник.Сотрудники.СостояниеФизлица;
     |Функция Кол      =      Счётчик();
     |Функция МОП      =      Счётчик() Когда(Х_Категория=Перечисление.КатегорииСотрудников.МОП);
     |Функция Служ      =      Счётчик() Когда(Х_Категория=Перечисление.КатегорииСотрудников.Служащие);
     |Функция Раб      =      Счётчик() Когда(Х_Категория=Перечисление.КатегорииСотрудников.Рабочие);
     |Функция Рук      =      Счётчик() Когда(Х_Категория=Перечисление.КатегорииСотрудников.Руководители);
     |Функция Спец      =      Счётчик() Когда(Х_Категория=Перечисление.КатегорииСотрудников.Специалисты);
     |Функция Жен      =      Счётчик() Когда(Х_Сотрудник.Пол.Наименование="""+"Женский"+""");
     |Условие(ПустоеЗначение(Х_СостояниеФизлица)=0);
    |";
     ЕстьПодразделения = 0;
     Если ТипЗначенияСтр(СписокПодразделений) = "СписокЗначений" Тогда
           Если СписокПодразделений.РазмерСписка() > 0 Тогда
                 ЕстьПодразделения = 1;
                 ТекстЗапроса = ТекстЗапроса + "
                 |Условие(Х_Подразделение в СписокПодразделений);
           КонецЕсли;      
     КонецЕсли;      
     //(Лев(Образование,6)="""+"Высшее"+""");
     //(Лев(Образование,18)="""+"Средне-техническое"+""");
     //(Лев(Образование,19)="""+"Среднее специальное"+""");
     //(Лев(Образование,12)="""+"Среднее проф"+""");
     //(Лев(Образование,16)="""+"Среднее (полное)"+""");    51-72-87 Сергей 
     Сообщить("Строка 1");
     Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
           Возврат;
     КонецЕсли; 
     К=0;
     Таблица=СоздатьОбъект("Таблица");
     Таблица.ИсходнаяТаблица(Форм); 
     Таблица.ИспользоватьФормат("Ч-4.0. ");
     Таблица.ВывестиСекцию("Шапка");
     Таблица.ВывестиСекцию("Строка1");

     Сообщить("Строка 2");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(Лев(Х_Образование,6)="""+"Высшее"+""");"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка2");
     
     Сообщить("Строка 3");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Лев(Х_Образование,18)="""+"Средне-техническое"+""")
           |или(Лев(Х_Образование,19)="""+"Среднее специальное"+""")
           |или(Лев(Х_Образование,12)="""+"Среднее проф"+""")
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка3");
     
     Сообщить("Строка 4");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие((
       |(Лев(Х_Образование,6)<>"""+"Высшее"+""")
           |и(Лев(Х_Образование,18)<>"""+"Средне-техническое"+""")
           |и(Лев(Х_Образование,19)<>"""+"Среднее специальное"+""")
           |и(Лев(Х_Образование,12)<>"""+"Среднее проф"+""")
           |));"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка4");

     Сообщить("Строка 5");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |Число(ВыбДата-Х_ДатаРождения)/365.25<16
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка5"); 
     
              Сообщить("Строка 6");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=16)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<18)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка6");
     
     
     
     Сообщить("Строка 7");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=18)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<25)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка7");
     
     Сообщить("Строка 8");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=25)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<30)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка8");
     
     Сообщить("Строка 9");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=30)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<40)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка9");
     
     Сообщить("Строка 10");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=40)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<50)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка10");
     
     Сообщить("Строка 11");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=50)
           |и(Число(ВыбДата-Х_ДатаРождения)/365.25<55)
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка11");
     
     Сообщить("Строка 12");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |Число(ВыбДата-Х_ДатаРождения)/365.25>=55
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка12");      
     Сообщить("Строка 13");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=55)
           |и(Х_Сотрудник.Пол.Наименование="""+"Женский"+""")
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка13");            
     Сообщить("Строка 14");
     Если Запрос.Выполнить(ТекстЗапроса+
           "Условие(
           |(Число(ВыбДата-Х_ДатаРождения)/365.25>=60)
           |и(Х_Сотрудник.Пол.Наименование="""+"Мужской"+""")
           |);"
           )=0 Тогда
           Возврат;
     КонецЕсли; 
     Таблица.ВывестиСекцию("Строка 15");

Запрос = СоздатьОбъект("Запрос");
Запрос.ВключитьSQL(0);
первый раз поставила тут:

Процедура Ф1Т()
    Форм="1-Т";
     Запрос = СоздатьОбъект("Запрос");
     Запрос.ВключитьSQL(0);

     //На конец года 
     ПредДата = КонМесяца(Дата2);
     ВыбДата = Дата(ПредДата+1);
     
     //ДатаНачГода = КонГода(Дата2);
     Запрос = СоздатьОбъект("Запрос");

не сработало...

второй раз поставила тут:

Процедура Ф1Т()
    Форм="1-Т";
     Запрос = СоздатьОбъект("Запрос");
     
     //На конец года 
     ПредДата = КонМесяца(Дата2);
     ВыбДата = Дата(ПредДата+1);
     
     //ДатаНачГода = КонГода(Дата2);
     Запрос = СоздатьОбъект("Запрос");
     Запрос.ВключитьSQL(0);
     ТекстЗапроса = "

всё считает правильно

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

     

попробовала вставить вашу версию модуля, опять начал врать(

Первым оператором в этой процедуре поставьте
Зн_ПустоеФизЛицо=ПолучитьПустоеЗначение("Перечисление.СостояниеФизлица");

не поняла куда именно его вставить(

JohnyDeath писал(а) 06. Октября 2009 :: 09:09:

даа опечатался хотя  может быть это и  не важно
приставка Х_ все спасает

если заменить данный кусов то при формировании отчёта выдаются след ошибки:

Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
{Отчет.ДвижениеКадров.Форма.Модуль(2732)}:  <<?>> Х_СостояниеФизлица<> Зн_ПустоеФизЛицо;
Запрос[19] : Переменная 'Х_СостояниеФизлица' определена более одного раза
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
{Отчет.ДвижениеКадров.Форма.Модуль(2732)}: Х_СостояниеФизлица <<?>> <> Зн_ПустоеФизЛицо;
Запрос[19] : Ожидается  '=' перед '<>'