Имя: Пароль:
1C
1С v8
Данные в печатной форме
,
0 Смертник
 
07.04.14
14:51
Запрос = Новый запрос;
    Запрос.Текст =  "ВЫБРАТЬ
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.ОтветственноеЛицо,
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо,
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.Должность,
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.Основание,
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.СтруктурнаяЕдиница КАК СтруктурнаяЕдиница,
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо.Наименование КАК Наименование
                    |ИЗ
                    |    РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(
                    |            ,
                    |            СтруктурнаяЕдиница ССЫЛКА Справочник.ПодразделенияОрганизаций
                    |                И ОтветственноеЛицо = &ОтветственноеЛицо) КАК ОтветственныеЛицаОрганизацийСрезПоследних
                    |ГДЕ
                    |    ОтветственныеЛицаОрганизацийСрезПоследних.СтруктурнаяЕдиница.Родитель = &СтруктурнаяЕдиница" ;
                    
    Запрос.УстановитьПараметр("ОтветственноеЛицо", Перечисления.ОтветственныеЛицаОрганизаций.Руководитель);
    Запрос.УстановитьПараметр("СтруктурнаяЕдиница", РезультатЗапроса[0].Владелец);
    ОтветственныеЛицаПодразделения = Запрос.Выполнить().Выгрузить();
    ОтвЛицо = "";
    ДолжностьРП = "";
    Если  ОтветственныеЛицаПодразделения.Количество() > 0 Тогда
        КомпонентаСклоненияФИО = глЗначениеПеременной("глКомпонентаСклоненияФИО");
        УниверсальныеМеханизмы.Просклонять(КомпонентаСклоненияФИО,ОтветственныеЛицаПодразделения[0].Наименование,2,,ОтвЛицо);
        Макет.Параметры.Директор = ОтветственныеЛицаПодразделения[0].Наименование;
        Макет.Параметры.Должность = ОтветственныеЛицаПодразделения[0].Должность;
        Макет.Параметры.ДолжностьДиректора = ОтветственныеЛицаПодразделения[0].Должность;        
        
        Если ОтветственныеЛицаПодразделения[0].Должность = "Генеральный директор" тогда
            ДолжностьРП = "генерального директора";
        ИначеЕсли ОтветственныеЛицаПодразделения[0].Должность = "Индивидуальный предприниматель" тогда
            ДолжностьРП = "индивидуального предпринимателя";
        ИначеЕсли ОтветственныеЛицаПодразделения[0].Должность = "Директор" тогда
            ДолжностьРП = "директора";
        Иначе
            УниверсальныеМеханизмы.Просклонять(КомпонентаСклоненияФИО,НРег(ОтветственныеЛицаПодразделения[0].Должность),2,,ДолжностьРП);
        КонецЕсли;
        Макет.Параметры.ДолжностьРП = ДолжностьРП;
        Если ОтветственныеЛицаПодразделения[0].ФизическоеЛицо.Пол = Перечисления.ПолФизическихЛиц.Мужской тогда
            СловоДействующего = "действующего";
        Иначе
            СловоДействующего = "действующей";
        КонецЕсли;
        Макет.Параметры.СловоДействующего = СловоДействующего;
    Иначе
        Макет.Параметры.Директор = "ФИГА";
    КонецЕсли;
В условие попадает норма и значения все получаются, но на просмотр не выводит. Помогите понять в чем дело
1 Wobland
 
07.04.14
14:52
а какой строкой кода предполагается вывод?
2 Смертник
 
07.04.14
14:54
ТабДокумент.Вывести(Макет);
    ТабДокумент.АвтоМасштаб = Истина;
    ТабДокумент.ОтображатьСетку = Ложь;
    
    ТабДокумент.Показать();
3 Смертник
 
07.04.14
14:54
там все параметры выводятся, кроме этого куска
4 Wobland
 
07.04.14
14:57
а что такое макет?
5 el7cartel
 
07.04.14
14:58
(4) о боже, помоги постичь ему СП!
6 Wobland
 
07.04.14
14:59
рисовал специально для таких как ты
https://dl.dropboxusercontent.com/u/64196148/СписокНоменклатуры.epf
7 Kamas
 
07.04.14
15:01
ТабДокумент- это кто, а Макет- это кто
8 Смертник
 
07.04.14
15:04
Запрос = Новый запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ПриемНаРаботуВОрганизациюОсновныеНачисления.Сотрудник,
    |    ПриемНаРаботуВОрганизациюОсновныеНачисления.Ссылка.Организация КАК Организация,
    |    ПриемНаРаботуВОрганизациюОсновныеНачисления.ФизЛицо,
    |    ПриемНаРаботуВОрганизациюРаботникиОрганизации.Должность
    |ИЗ
    |    Документ.ПриемНаРаботуВОрганизацию.ОсновныеНачисления КАК ПриемНаРаботуВОрганизациюОсновныеНачисления
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ПриемНаРаботуВОрганизацию.РаботникиОрганизации КАК ПриемНаРаботуВОрганизациюРаботникиОрганизации
    |        ПО ПриемНаРаботуВОрганизациюОсновныеНачисления.Сотрудник = ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник
    |ГДЕ
    |    ПриемНаРаботуВОрганизациюОсновныеНачисления.Ссылка = &Ссылка";
    Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);
    РезультатСотрудник = Запрос.Выполнить().Выгрузить();

    Запрос = Новый запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    РаботникиОрганизацийСрезПоследних.Должность,
    |    РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации,
    |    ПлановыеНачисленияРаботниковОрганизацийСрезПоследних.Показатель1,
    |    РаботникиОрганизацийСрезПоследних.ПервичныйДокумент,
    |    ПлановыеНачисленияРаботниковОрганизацийСрезПоследних.Организация,
    |    РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Родитель КАК Владелец
    |ИЗ
    |    РегистрСведений.РаботникиОрганизаций.СрезПоследних(, Сотрудник = &Сотрудник) КАК РаботникиОрганизацийСрезПоследних
    |        ПОЛНОЕ СОЕДИНЕНИЕ РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(, Сотрудник = &Сотрудник) КАК ПлановыеНачисленияРаботниковОрганизацийСрезПоследних
    |        ПО РаботникиОрганизацийСрезПоследних.Сотрудник = ПлановыеНачисленияРаботниковОрганизацийСрезПоследних.Сотрудник";
    
    Запрос.УстановитьПараметр("Сотрудник",РезультатСотрудник[0].Сотрудник);
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    
    Макет = ПолучитьМакет("Макет");
    ТабДокумент = Новый ТабличныйДокумент;
    
    Макет.Параметры.НомДоговор = РезультатСотрудник[0].Сотрудник.НомерДоговора;
    Макет.Параметры.ДатаДоговор = Формат(РезультатСотрудник[0].Сотрудник.ДатаДоговора,"ДЛФ=DD");
    РегГород = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
    РегГород.Объект = РезультатЗапроса[0].Владелец;
    РегГород.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Город");
    РегГород.Прочитать();
    Если РегГород.Выбран() Тогда
        Макет.Параметры.Город = РегГород.Значение;
    Иначе
        Макет.Параметры.Город = "";
    КонецЕсли;
    РегАдрес = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
    РегАдрес.Объект = РезультатЗапроса[0].Владелец;
    РегАдрес.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Адрес");
    РегАдрес.Прочитать();
    Если РегАдрес.Выбран() Тогда
        Макет.Параметры.Адрес = РегАдрес.Значение;
    Иначе
        Макет.Параметры.Адрес = "";
    КонецЕсли;

    Макет.Параметры.НаименованиеОрг = РезультатЗапроса[0].Владелец;
    //Макет.Параметры.район = СсылкаНаОбъект.Организация.НаименованиеИМНС;
    ОГРН = СсылкаНаОбъект.Организация.ОГРН;
    ИНН = СсылкаНаОбъект.Организация.ИНН;
    
    Макет.Параметры.Работник = РезультатСотрудник[0].Физлицо.Наименование;
    Удостоверения = РегистрыСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(ТекущаяДата(), Новый Структура("ФизЛицо", РезультатСотрудник[0].ФизЛицо));

    Если Удостоверения.Количество() > 0 Тогда
        Макет.Параметры.СерияПаспорт = Удостоверения[0].ДокументСерия;
        Макет.Параметры.НомерПаспорт = Удостоверения[0].ДокументНомер;
        Макет.Параметры.ВыданПаспорт = Удостоверения[0].ДокументКемВыдан;
        Макет.Параметры.ДатаВыдачи = Формат(Удостоверения[0].ДокументДатаВыдачи,"ДФ=dd.MM.yyyy");
    КонецЕсли;
    Макет.Параметры.Подразделение = РезультатЗапроса[0].ПодразделениеОрганизации;
9 Смертник
 
07.04.14
15:05
это предшествие того что выше. Тут вам и Макет и ТабДокумент
10 Wobland
 
07.04.14
15:06
(9) а у меня ещё и области есть
11 Смертник
 
07.04.14
15:08
А мне и без областей неплохо выводит
12 Смертник
 
07.04.14
15:08
вот только ту часть не выводит
13 Kamas
 
07.04.14
15:12
(0) - не выводит (11) - выводит (12) что то не выводит А что то выводит))
А как должно быть то
14 Kamas
 
07.04.14
15:13
(13) он вам "ФИГУ" не показывает??
15 Смертник
 
07.04.14
15:14
Макет.Параметры.Директор = ОтветственныеЛицаПодразделения[0].Наименование;
        Макет.Параметры.Должность = ОтветственныеЛицаПодразделения[0].Должность;
        Макет.Параметры.ДолжностьДиректора = ОтветственныеЛицаПодразделения[0].Должность;    
Вот это не выводит, хотя если проверяю через внешнюю обработку - значения есть.
А может у кого есть обработка для проверки печатных форм? Раньше была на предыдущей работе.
16 Kamas
 
07.04.14
15:18
не знаю что там за внешняя обработка но как вариант точку остановки поставить и подсмотреть значения параметров можно всегда
17 Смертник
 
07.04.14
15:19
В том то и дело что во внешнюю обработку вставляю - все параметры выдаются и все правильно
18 Kamas
 
07.04.14
15:23
(17) а зачем внешняя обработка
19 Смертник
 
07.04.14
15:50
Все разобрался, всем спасибо