![]() |
|
Доп соглашение к труд договору ЗУП | ☑ | ||
---|---|---|---|---|
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
|
||||
8
NovichokAlena
25.06.15
✎
08:16
|
(7)исправлю как нибудь..просто некогда
|
|||
9
шаэс
25.06.15
✎
08:29
|
(7) ой, ну а Вы конечно помогаете только за фотографию...
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |