Имя: Пароль:
1C
1С v8
Доп соглашение к труд договору ЗУП
0 NovichokAlena
 
25.06.15
07:57
Здравствуйте, в макет ВПФ нужно вставить должность работника из справочника "Сотрудники организаций". вся проблема в том, что нужно выбрать должность со вкладки "Кадровые данные". Сейчас в форме у меня выходит должность со вкладки "Трудовой договор"(тут должность, которая была у сотрудника при устройстве, но было перемещение и теперь должность другая.

1С:Предприятие 8.3 (8.3.6.1977),ЗУП, редакция 2.5 (2.5.91.1).

Функция Печать(КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
    
    НаименованиеМакета = "Макет";
    
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ДополнительноеСоглашение_Печать";
    
    // получаем данные для печати
    СотрОбъект = СсылкаНаОбъект.ПолучитьОбъект();
    Выборка = СформироватьЗапросДляПечатиДополнительногоСоглашения().Выбрать();
    
    
    // получаем макет
    Макет = ПолучитьМакет(НаименованиеМакета);
    // выводим данные
    
    Если Выборка.Следующий() Тогда
        Макет.Параметры.ПолноеНазваниеОрганизации = Выборка.ПолноеНазваниеОрганизации;
        Макет.Параметры.ДолжностьРуководителя = Выборка.ДолжностьРуководителя;
        Макет.Параметры.ФИОРуководителя = Выборка.ФИОРуководителя;
        Макет.Параметры.ФИОРаботника = Выборка.ФИОРаботника;
        //24,06,2015
        Макет.Параметры.ДолжностьРаботника = Выборка.Должность;
        //24,06,2015
        Макет.Параметры.ДокументСерия = Выборка.ДокументСерия;
        Макет.Параметры.ДокументНомер = Выборка.ДокументНомер;
        Макет.Параметры.ДокументКемВыдан = Выборка.ДокументКемВыдан;
        Макет.Параметры.АдресРегистрации = Выборка.АдресРегистрации;
        Макет.Параметры.Оклад = Выборка.ТарифнаяСтавка;
        Макет.Параметры.НомерДок = Выборка.НомерДок;
        Макет.Параметры.ДатаДок = Формат (Выборка.ДатаДок, "ДЛФ=DD");
        Макет.Параметры.ТекущаяДата = ТекущаяДата();
        Макет.Параметры.ДатаРожд = Формат(СсылкаНаОбъект.Физлицо.ДатаРождения, "ДФ=dd.MM.yyyy");
        Макет.Параметры.ДолжностьРуководителя = Выборка.ДолжностьРуководителя;
        Макет.Параметры.ФИОРуководителя = Выборка.ФИОРуководителя;
        
        Если ЗначениеЗаполнено(СсылкаНаОбъект.ОбособленноеПодразделение.ОсновнойБанковскийСчет) Тогда
            БанкСчет = СсылкаНаОбъект.Организация.ОсновнойБанковскийСчет;
            РасчетныйСчет = "Р/с " + БанкСчет.НомерСчета + " в " + БанкСчет.Банк.Наименование + " к/с " +БанкСчет.Банк.КоррСчет + ", БИК " + БанкСчет.Банк.Код;
        КонецЕсли;
        
        Макет.Параметры.НазваниеОрганизации = Выборка.НазваниеОрганизации;
        Макет.Параметры.ИНН = Выборка.ИНН;
        Макет.Параметры.КПП  = СсылкаНаОбъект.Организация.КПП;
        Макет.Параметры.РасчетныйСчет = РасчетныйСчет;
        Макет.Параметры.ОГРН = СсылкаНаОбъект.Организация.ОГРН;
        Макет.Параметры.ОКПО = СсылкаНаОбъект.Организация.КодПоОКПО;
        
        ТабДокумент.Вывести(Макет);    
    КонецЕсли;
    
            
    Возврат ТабДокумент;
        //Возврат УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, "Дополнительное соглашение");    
    КонецФункции
    
    // Формирует запрос по документу
//
// Возвращаемое значение:
//  Результат запроса
//
Функция  СформироватьЗапросДляПечатиДополнительногоСоглашения()
    
    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
    
    // Установим параметры запроса
    Запрос.УстановитьПараметр("СправочникСсылка", СсылкаНаОбъект.Ссылка);
    Запрос.УстановитьПараметр("Физлицо", СсылкаНаОбъект.Физлицо);
    Запрос.УстановитьПараметр("Организация", СсылкаНаОбъект.ОбособленноеПодразделение);
    Запрос.УстановитьПараметр("ДатаДокумента",     СсылкаНаОбъект.ДатаДоговора);
    
    // Выберем (если есть доступ) ответственное физлицо
    Запрос.Текст =
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо КАК Физлицо,
    |    ОтветственныеЛицаОрганизацийСрезПоследних.Должность,
    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо.Наименование КАК НаименованиеФизлица,
    |    ФизическиеЛица.Комментарий
    |ПОМЕСТИТЬ ВТОтветственноеЛицо
    |ИЗ
    |    РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(
    |            &ДатаДокумента,
    |            ОтветственноеЛицо = ЗНАЧЕНИЕ(Перечисление.ОтветственныеЛицаОрганизаций.Руководитель)
    |                И СтруктурнаяЕдиница = &Организация) КАК ОтветственныеЛицаОрганизацийСрезПоследних
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
    |        ПО ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо = ФизическиеЛица.Ссылка";
    Запрос.Выполнить();
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ОтветственноеЛицоОрганизации.Должность КАК ДолжностьРуководителя,
    |    ТрудовойДоговор.НомерДоговора КАК НомерДок,
    |    ТрудовойДоговор.ДатаДоговора КАК ДатаДок,
    |    ТрудовойДоговор.Организация.НаименованиеПолное КАК ПолноеНазваниеОрганизации,
    |    ЕСТЬNULL(ФИООтветственныхЛиц.Фамилия + "" "" + ФИООтветственныхЛиц.Имя + "" "" + ФИООтветственныхЛиц.Отчество, ОтветственноеЛицоОрганизации.НаименованиеФизлица) КАК ФИОРуководителя,
    |    ЕСТЬNULL(ФИОФизЛиц.Фамилия + "" "" + ФИОФизЛиц.Имя + "" "" + ФИОФизЛиц.Отчество, ТрудовойДоговор.Физлицо.Наименование) КАК ФИОРаботника,
    |    ТрудовойДоговор.ДатаОкончания КАК ДатаУвольнения,
    |    ТрудовойДоговор.ДатаНачала КАК ДатаПриема,
    |    ТрудовойДоговор.Должность.Наименование КАК Должность,
    |    ТрудовойДоговор.ЗанимаемыхСтавок,
    |    ТрудовойДоговор.ИспытательныйСрок,
    |    ТрудовойДоговор.ПодразделениеОрганизации.Наименование КАК Подразделение,
    |    ВЫБОР
    |        КОГДА ТрудовойДоговор.ВидЗанятости = ЗНАЧЕНИЕ(Перечисление.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы)
    |            ТОГДА ""основной работе""
    |        ИНАЧЕ ""совместительству""
    |    КОНЕЦ КАК ВидЗанятости,
    |    ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,
    |    ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,
    |    ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,
    |    ВЫРАЗИТЬ(ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан КАК СТРОКА(300)) КАК ДокументКемВыдан,
    |    АдресРегистрации.Представление КАК АдресРегистрации,
    |    ТелефонДомашний.Представление КАК Телефоны,
    |    КонтактнаяИнформация.Представление КАК АдресОрганизации,
    |    ТелефонОрганизации.Представление КАК ТелефоныОрганизации,
    |    ТрудовойДоговор.Организация.Наименование КАК НазваниеОрганизации,
    |    ТрудовойДоговор.Организация.ИНН + ""/"" + ТрудовойДоговор.Организация.КПП КАК ИНН,
    |    ТрудовойДоговор.ГрафикРаботы.ВидГрафика КАК ВидГрафика,
    |    ТрудовойДоговор.ГрафикРаботы.ДлительностьРабочейНедели КАК ДлительностьРабочейНедели,
    |    ТрудовойДоговор.ВидРасчета,
    |    ТрудовойДоговор.ТарифнаяСтавка,
    |    ТрудовойДоговор.ВалютаТарифнойСтавки.Наименование КАК ВалютаТарифнойСтавки,
    |    ТрудовойДоговор.ПерсональныеНадбавки.(
    |        Ссылка,
    |        НомерСтроки,
    |        Надбавка КАК Надбавка,
    |        Показатель1
    |    )
    |ИЗ
    |    Справочник.СотрудникиОрганизаций КАК ТрудовойДоговор
    |        ЛЕВОЕ СОЕДИНЕНИЕ ВТОтветственноеЛицо КАК ОтветственноеЛицоОрганизации
    |        ПО (ИСТИНА)
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(
    |                &ДатаДокумента,
    |                Физлицо В
    |                    (ВЫБРАТЬ
    |                        Ответственные.Физлицо
    |                    ИЗ
    |                        ВТОтветственноеЛицо КАК Ответственные)) КАК ФИООтветственныхЛиц
    |        ПО (ИСТИНА)
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&ДатаДокумента, Физлицо = &Физлицо) КАК ФИОФизЛиц
    |        ПО (ИСТИНА)
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(&ДатаДокумента, Физлицо = &Физлицо) КАК ПаспортныеДанныеФизЛицСрезПоследних
    |        ПО (ИСТИНА)
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресРегистрации
    |        ПО ТрудовойДоговор.Физлицо = АдресРегистрации.Объект
    |            И (АдресРегистрации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ТелефонДомашний
    |        ПО ТрудовойДоговор.Физлицо = ТелефонДомашний.Объект
    |            И (ТелефонДомашний.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛица))
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
    |        ПО ТрудовойДоговор.Организация = КонтактнаяИнформация.Объект
    |            И (КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресОрганизации))
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ТелефонОрганизации
    |        ПО ТрудовойДоговор.Организация = ТелефонОрганизации.Объект
    |            И (ТелефонОрганизации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонОрганизации))
    |ГДЕ
    |    ТрудовойДоговор.Ссылка = &СправочникСсылка";
    
    Возврат Запрос.Выполнить();
    
КонецФункции // СформироватьЗапросДляПечати()
1 SeraFim
 
25.06.15
08:03
РегистрСведений РаботникиОрганизаций
2 RomaH
 
naïve
25.06.15
08:03
СотрОбъект = СсылкаНаОбъект.ПолучитьОбъект();

это зачем?
3 NovichokAlena
 
25.06.15
08:04
(2) не знаю..мне нужно ее лишь немного дописать, а это не мое
4 RomaH
 
naïve
25.06.15
08:05
|        ПО ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо = ФизическиеЛица.Ссылка";
    Запрос.Выполнить();
    
    Запрос.Текст =
    "ВЫБРАТЬ

сейчас принято так писать:

    |        ПО ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо = ФизическиеЛица.Ссылка
|;
|ВЫБРАТЬ
5 RomaH
 
naïve
25.06.15
08:07
поищи в ЗУП текст запросов с текстом
ПериодЗавершения <> ДАТАВРЕМЯ(1,1,1) Тогда
РаботникиОрганизации.ДолжностьЗавершения ИНАЧЕ .... Должность КОНЦЕ КАК
6 RomaH
 
naïve
25.06.15
08:09
Запрос.УстановитьПараметр("ДатаДокумента",     СсылкаНаОбъект.ДатаДоговора);
    
    // Выберем (если есть доступ) ответственное физлицо

    Запрос.Текст =
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо КАК Физлицо,
    |    ОтветственныеЛицаОрганизацийСрезПоследних.Должность,
    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо.Наименование КАК НаименованиеФизлица,
    |    ФизическиеЛица.Комментарий
    |ПОМЕСТИТЬ ВТОтветственноеЛицо
    |ИЗ
    |    РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(
    |            &ДатаДокумента,

он уж умер давно, а вы его в подписанты
7 RomaH
 
naïve
25.06.15
08:14
Ай-яй-яй!
https://www.google.ru/search?tbs=sbi:AMhZZitynzrQBrKccJdon4WqOzMM1Ewn3WZ04XVaehp83x6r083q-NpIFYG905IZpfFK2DGyksTgL8DhkF_15wHJOFVUrO9DXtapMNVtbWhNgaVLXY-RO1TUn3VtnRALxb-OtjozV1ZkTCPhEH-iwo8Vrdj_1Z8TXpUtbd_1JJdItfGggfzfXqti34E3rrfmqmJJ2J2QbQK0MiJibpyVB3lj7vhnZ22tUIpU14GGGhk_14edRKTWR7snFKNQTJGzF7pWlKX-0fe1A_1AJWAV6J6DgoCwZ0OOOubm4JwpvdQbg6cMxeBIVWo7jE-LMkvgUY_1UKpxtGnAolgCb8xuxkITp-OrOdaqERVRkRuTyTjEm6PQJJlWJ-bLwzpiJn4iwftA03bmL1cQe024HPDYAJngA_11dRjby7oDw5GjXXSmgByC1s8jXep1Zfpw5LzroQRYNSYiAvCpAcBKUZHE4tpqKGEwo830T-SvilBOkUzMowc-wvhE1cLljfpF8hyGngT-C1YDcQPY6YUhvGvN3tfW8I8funEuDfJooBqeZ2HX14a13wgD8k-KqdfTLWoy7PEmVfI7ErmEFZo4c1-2qfks1_1WXI_1jzQyR0c5vw2EuK0vGmLjM4mQti7YPag88PjJfgEzTRFw185o0HV0ABdZlrMypblMVx3oSL5BAWt52il8i0VsAjOOerDTJ3s0NWE5d26GRwXuKF-gKBpI4xh0z-T2tJmobHvpoXe7wFPpmymY7W6ai0svILiTht9QxRGFNBIi6wpB-tkv-IAwpmShGE7j94wo9YIep-LzmsIZB6PvB4nbY4RwikutamDFY3XrSJTj5R1M2ijU3QoM2gL39OJkTtW7QjRml-YIBxL5NVAA_1pI-8jnCSNldFIz0tpnilaldn_1b5ttG4pUbTFq073PKi0O1UUBrqAYy9sKmtaTAcf4FbPUZQBi5p2BpzTEeU_16pHq_1imcFb_14PNuWVFE4XkocEyNQ3B2vzAJrRnXJmpL4uiB79eqga0FeRHKqAcRhwZexrDK_1s9J51r4-dJOLe1U5AR4M-cYCoddXtKdk9qX7DuOGeMsJl79eiuTaV664Oe28hZIkNDxwxhd9VmHU9aW_1fAtG-69VBT-yr3ldP8jh8RGvRjzsKUUe71UWFvORF-VX39kBgJewu2ENqh9JFsIRLweuDgz28JtuIpADVgY_14OjR-bCvy3f0Ok5EpcTggc0BMYtsjSBku-Whk6wQrgErfVD62qRUlVpk3HK9dNLFDLOh3j5p3p9VhDmgM3fbTePCRk174id6NNoOz_1ySeW2sCaG3iXwIgJtt2g75aBO6Glhqj05eJ8dORDhWXtoB5tA8ECKBrVPE8eJOJrd_1RLkpGR7AYyBGfq2LSLJab5NUvdbetUgahESGLFi2jTgov91Lb5V9caelXu2rKhxtMCMBb6IDqieqLfU94azLzYelcKUFHSAqulcvU17Fajtrfp1wK3TW67oo1lvBvGVZp57SmNeNjMvZ_1Ntgnkjw6gOhnbPdADW8RoNe990A99w9Ub1MbvXZhXPZ4eCa
8 NovichokAlena
 
25.06.15
08:16
(7)исправлю как нибудь..просто некогда
9 шаэс
 
25.06.15
08:29
(7) ой, ну а Вы конечно помогаете только за фотографию...