Добрый день

с помощью получаю все заполненные у сотрудника ПКГ (пусть для примера подразделения)

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

а как получить все данные ПКГ (подразделения) и привязать к ним сотрудников и получить ПКГ СОТРУДНИКИ и ПКГ у которых не выбран ни один сотрудник?

(0) Вам нужно вывести все подразделения и кто когда в них работал/не работал?

Мне нужно вывести все подразделения, всех людей которые работали в этих подразделениях и если есть подразделения пустышки их тоже вывести.

ТЗПодр - справочник подразделения
ТЗСотр - История по сотрудникам реквизита подразделения
ТЗИтог - влить  ТЗПодр и ТЗСотр и свернуть по реквизиту подразделения

пример можно?

http://forum.codeby.net/topic34776.html

или
перебираешь справочник подразделения, спозиционировался, идешь в справочник сотрудники и перебираешь историю реквизита подразделения. Если совпадает - выводишь сотрудника.

Т.е. придется перелопатить справочник сотрудники столько раз, сколько элементов с правочнике подразделения.

или

заполнить одну таблицу подразделениями

заполнить другую таблицу сотрудниками с историей

сделать соединение двух таблиц

1С++

(6) землячка))

Сделал так

Процедура Сформировать()
   
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);    

   
   ТЗПКГ = СоздатьОбъект("ТаблицаЗначений");
   ТЗПКГ.НоваяКолонка("Родитель",,,);
   ТЗПКГ.НоваяКолонка("ПКГ",        "Справочник.ПКГ");
   ТЗПКГ.НоваяКолонка("Оклад",    "Число", 19,2);
   
   ТЗПКГСотрудник = СоздатьОбъект("ТаблицаЗначений");
   ТЗПКГСотрудник.НоваяКолонка("ПКГ",        "Справочник.ПКГ");
   ТЗПКГСотрудник.НоваяКолонка("Родитель",,,);
   ТЗПКГСотрудник.НоваяКолонка("Оклад",    "Число", 19,2);
   ТЗПКГСотрудник.НоваяКолонка("Сотрудник",        "Справочник.Сотрудники");
   ТЗПКГСотрудник.НоваяКолонка("ОкладС",    "Число", 19,2); //оклад у сотрудника
   ТЗПКГСотрудник.НоваяКолонка("Дата",    "Дата",,);
   

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

КонецПроцедуры


Но все равно не вижу пустые ПКГ у которых нет привязанных сотрудников

ПКГ справочник у спр. Сотрудники поле с выбором ПКГ

Хочу получить весь справочник ПКГ с выбранными Сотрудниками и датой выбора

у тебя есть типовая конфигурация? если есть, там есть обработка ЗначенияПериодическихРеквизитов посмотри как сделано

Выгрузить для ТЗ удаляет строки из ТЗ азначения

ТЗПКГ.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад"); ТЗПКГСотрудник.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад,Сотрудник, ОкладС, Дата");

Выгрузи по сотрудникам, а потом в цикле добей не встречающимися в ТЗПКГСотрудник.

(12) это вообще бесполезная строка

(14) Ну я и показал где косяк.
Вообще да, выгружать никуда не надо, в ТЗПКГСотрудник добить остальными ПКГ.

костыль:
это заменить
   ТЗПКГ.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад");
   ТЗПКГСотрудник.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад,Сотрудник, ОкладС, Дата");
//    ТЗПКГОбщий.Свернуть("Родитель, ПКГ, Оклад","Сотрудник, ОкладС, Дата");
на
   //ТЗПКГ.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад");
   ТЗПКГСотрудник.Выгрузить(ТЗПКГОбщий, , ,"Родитель, ПКГ, Оклад,Сотрудник, ОкладС, Дата");
//    ТЗПКГОбщий.Свернуть("Родитель, ПКГ, Оклад","Сотрудник, ОкладС, Дата");

и в последнем цикле удалять имеющиеся в ТЗПКГ, остаток вывести после цикла

(8) ))привет

(17) эти приветы удаляют))

Добрый вечер
сделал
http://saveimg.ru/show-image.php?id=2ecd6bb829c6be60ac945779bb0a1bf6

но как убрать повторяющие?


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

   Пока ТЗПКГСотрудник.ПолучитьСтроку() = 1 Цикл
       ННомер = ННомер +1;
       ПКГ = СокрЛП(ТЗПКГСотрудник.ПКГ);
       Родитель = СокрЛП(ТЗПКГСотрудник.Родитель);
       Оклад = ТЗПКГСотрудник.Оклад;
       Сотрудник = СокрЛП(ТЗПКГСотрудник.Сотрудник);
       ОкладС = ТЗПКГСотрудник.ОкладС;
       ТДата =ТЗПКГСотрудник.Дата;
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;  
   
   Таб.ВывестиСекцию("Подвал");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать","");

КонецПроцедуры

три раза выводится 2 уровень, хотя должен быть 2 раза, как свернуть ТЗ при этом?

Во первых - нафига ты к строке приводишь ссылочный тип даннх

ТЗПКГСотрудник.Родитель = СокрЛП(пер.Значение.Родитель);
ТЗПКГСотрудник.ПКГ = СокрЛП(пер.Значение);

Оставь лучше ссылки и типизируй эти колонки при создании ТЗ, тогда

  Пока СпрПКГ.ПолучитьЭлемент() = 1 Цикл
       Если СпрПКГ.ЭтоГруппа()=0 Тогда
           НомСтр =  ;
           Если ТЗПКГСотрудник.НайтиЗначение(СпрПКГ.ТекущийЭлемент(),НомСтр,"ПКГ") = 1 Тогда
                Продолжить ;
           КонецЕсли ;

*            НомСтр = 0 ;

Либо вариант (16), но пустоые выйдут в самом конце.