Форум программистов, компьютерный форум, киберфорум
Наши страницы
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.91/34: Рейтинг темы: голосов - 34, средняя оценка - 4.91
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
1

Данные из текущего документа + Данные из справочника. Внешняя печатная форма

22.08.2013, 15:11. Просмотров 6623. Ответов 35
Метки нет (Все метки)

Волей судьбы пришлось столкнуться с 1С, до этого 1С не видел...
Задача: Создать Внешнюю печатную форму, чтоб пользователь из "Реализация товаров и услуг", мог распечатать договор "на фирменном бланке", подредактировал немного чужой исходник, более менее понял что и как берется из ТЕКУЩЕГО документа, но в документе не хватает параметров, а именно: ФИО руководителя, Должность.. возможно еще чего, это уже не суть.
Листинг:
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Функция ПечатьДокумента()
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |   РеализацияТоваровУслуг.Номер,
    |   РеализацияТоваровУслуг.Дата,
    |   РеализацияТоваровУслуг.Контрагент,
    |   РеализацияТоваровУслуг.Контрагент.Ссылка.НаименованиеПолное КАК НаименованиеПолное,
    |   РеализацияТоваровУслуг.Организация
    |ИЗ
    |   Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |ГДЕ
    |   РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";
        
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); //используем в качетсве параметра реквизит обработки СсылкаНаОбъект
    
    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();
    
    ТабДокумент = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("Макет");
 
    Макет.Параметры.НомерДоговора = "Лицензионный договор №" + Шапка.Номер;
    Макет.Параметры.ДатаДоговора = Шапка.Дата;
    
    Макет.Параметры.Пункт0 = 
                "    Общество с ограниченной ответственностью " 
                + Шапка.Организация + 
                ", именуемое в дальнейшем Лицензиат";
    
    ТабДокумент.Вывести(Макет);
    
    Возврат ТабДокумент;
 
КонецФункции // ПечатьДокумента()
 
Функция Печать() Экспорт
    
    ТабДокумент = ПечатьДокумента();
    Возврат ТабДокумент;
    
КонецФункции // Печать
Собственно и вопрос, как в данный документ подключить ФИО руководителя контрагента?
1С:Предприятие 8.1 (8.1.14.69)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.08.2013, 15:11
Ответы с готовыми решениями:

Внешняя печатная форма с доп.формой. Как перенести данные открытого документа
Доброго всем. Бухгалтерия 2.0 Проф У меня есть внешняя печатная форма,...

Печатная форма, выбирать данные не только из одного документа
Подскажите пожалуйста что нужно написать что бы в печатной форме выбирать...

Внешняя печатная форма в 1С 7.7
Всем доброго дня! Появилась необходимость добавить в 1С 7.7 Бухгалтерию...

Внешняя печатная форма
Необходимо чтобы во внешней печатной форме, вызываемой из документа "Реализация...

Внешняя печатная форма
Подскажите пожалуйста,как привязать внешнюю печатную форму к документу в 1с 8.2

35
Joker_vad
Эксперт 1С
472 / 410 / 92
Регистрация: 26.09.2012
Сообщений: 1,830
22.08.2013, 17:59 2
походу что адекватно никак. Только если в контактные лица лезть и искать того, у кого роль директор, с учетом того что такая роль создана. Но если ее переименовать в руководитель, то будет плохо совсем. Можно конечно с поддержки конфигурацию снять и добавить предопределенную роль или вообще доработать справочник контрагенты, добавить туда реквизит директор. Это уже ваше дело
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
22.08.2013, 18:28  [ТС] 3
Joker_vad, конфу править не дадут, надо внешнюю печатную форму. роль руководителя в нашей конфе создана, но доступна она только в справочники.контактныелица...
может я не верно мысль свою высказал,
Цитата Сообщение от Joker_vad Посмотреть сообщение
Только если в контактные лица лезть и искать того, у кого роль директор, с учетом того что такая роль создана.
вот это и надо сделать, только как у меня тяму не хватает((
0
duk337
2950 / 1762 / 82
Регистрация: 03.11.2011
Сообщений: 8,280
22.08.2013, 21:33 4
Цитата Сообщение от Bukem Посмотреть сообщение
только как у меня тяму не хватает((
Подгляди в типовые печатные формы. Четыре должности должны быть привязаны к организации через регистр св. ОтветственныеЛицаОрг... В юзеровом режиме Справочники.Орг... "Перейти". И есть штатные функции, которые добывают их оттуда
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
23.08.2013, 12:45  [ТС] 5
duk337, у меня в "Бухгалтерия предприятия, редакция 1.6 (1.6.8.3)" такого нет.
идеальным на мой взгляд было бы взять данные из Контрагенты - Контакты - Наименование ЕСЛИ Должность руководитель
но повторюсь, с 1С еще очень очень на Вы
0
SonicQ
282 / 182 / 18
Регистрация: 20.02.2012
Сообщений: 916
23.08.2013, 14:36 6
Bukem, часто ли меняется руководитель ?

на крайняк пропиши руками должность и фамилию =)
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
23.08.2013, 14:43  [ТС] 7
SonicQ, дак ФИО и должность Руководителя контрагента нужно
0
wladimir_ui
Шизофреник
358 / 361 / 83
Регистрация: 25.06.2013
Сообщений: 1,141
23.08.2013, 14:53 8
Цитата Сообщение от SonicQ Посмотреть сообщение
Bukem, часто ли меняется руководитель ?

на крайняк пропиши руками должность и фамилию =)
+1
тоже хотел спросить: не собирается ли директор на пенсию (жёстко впиндюрить в макет).
кстати, хоть это и не по фэншую, но я в начале (когда в 1с бревном был) так и выходил из ситуаций

Добавлено через 3 минуты
Цитата Сообщение от Bukem Посмотреть сообщение
SonicQ, дак ФИО и должность Руководителя контрагента нужно
ОсновноеКонтактноеЛицо в контрагенте, либо из КИ тянуть,... в зависимости от конфы..


из чего нибудь типа счет-фактуры в вашей конфе - оттуда скопипастите
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
23.08.2013, 14:56  [ТС] 9
wladimir_ui, ОсновноеКонтактноеЛицо сделал, но это не совсем то что нужно, ну да ладно... а вот с должностью как быть?
тоже хотел спросить: не собирается ли директор на пенсию (жёстко впиндюрить в макет).
директора не моего, а контрагента, читай клиента, коих много, потому и должна быть переменная, равно как и должность
0
SonicQ
282 / 182 / 18
Регистрация: 20.02.2012
Сообщений: 916
23.08.2013, 14:56 10
Цитата Сообщение от wladimir_ui Посмотреть сообщение
+1
тоже хотел спросить: не собирается ли директор на пенсию (жёстко впиндюрить в макет).
кстати, хоть это и не по фэншую, но я в начале (когда в 1с бревном был) так и выходил из ситуаций
в маленьких конторах прокатывало =) а вот в больших где 50 филиалов и у каждого свой руководитель....

Запросом можно =)
0
wladimir_ui
Шизофреник
358 / 361 / 83
Регистрация: 25.06.2013
Сообщений: 1,141
23.08.2013, 15:03 11
Цитата Сообщение от Bukem Посмотреть сообщение
wladimir_ui, ОсновноеКонтактноеЛицо сделал, но это не совсем то что нужно, ну да ладно... а вот с должностью как быть?

директора не моего, а контрагента, читай клиента, коих много, потому и должна быть переменная, равно как и должность
посмотрите в вашей конфе откель в фактуру (или в иной печатный док) берется с контрагента должность+фио.
1.6 в моем городе скорее всего вообще нет ни у кого... ставить демку - лень, извините..

Добавлено через 2 минуты
Цитата Сообщение от SonicQ Посмотреть сообщение
в маленьких конторах прокатывало =) а вот в больших где 50 филиалов и у каждого свой руководитель....

Запросом можно =)
начинающие с запросами не дружат
0
SonicQ
282 / 182 / 18
Регистрация: 20.02.2012
Сообщений: 916
23.08.2013, 15:46 12
1C
1
2
3
4
5
6
    Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизаций( Организация, КонецДня(ТекущаяДата()),);
    Бухгалтер    = Руководители.ГлавныйБухгалтер;
    Руководитель    = Руководители.Руководитель;
    
    мТаблица.Области.Руководитель.Значение  = Руководитель;
    мТаблица.Области.ГлавныйБухгалтер.Значение  = Бухгалтер;
Так сделано в 8.2 , конфа у меня перепилена 100 раз ... может в 1.6 также... проверяй

Добавлено через 23 секунды
тьфу, тебе не это надо

Добавлено через 3 минуты
а если ты физ лицу товар отгрузишь? что ты в должность поставишь?
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
23.08.2013, 19:07  [ТС] 13
Цитата Сообщение от wladimir_ui Посмотреть сообщение
посмотрите в вашей конфе откель в фактуру (или в иной печатный док) берется с контрагента должность+фио.
1.6 в моем городе скорее всего вообще нет ни у кого... ставить демку - лень, извините..
конечно смотрю другие печатные формы, но пока безрезультатно...
Цитата Сообщение от SonicQ Посмотреть сообщение
а если ты физ лицу товар отгрузишь? что ты в должность поставишь?
должности не будет, соответственно будет просто пробел... с падежами потом еще предстоит повозится, но это пока восьмое
0
Joker_vad
Эксперт 1С
472 / 410 / 92
Регистрация: 26.09.2012
Сообщений: 1,830
24.08.2013, 10:27 14
а перечисление есть ОтвественныеЛицаОрганизаций?
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
27.08.2013, 13:27  [ТС] 15
Цитата Сообщение от Joker_vad Посмотреть сообщение
а перечисление есть ОтвественныеЛицаОрганизаций?
Если честно не понял вопроса (

Добавлено через 2 часа 9 минут
Вот так решил запрос подредактировать, компилируется без ошибок, но данные в печатную форму не подставляет НИКАКИЕ
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |   РеализацияТоваровУслуг.Номер,
    |   РеализацияТоваровУслуг.Дата,
    |   РеализацияТоваровУслуг.Контрагент,
    |   РеализацияТоваровУслуг.Контрагент.Ссылка.НаименованиеПолное КАК НаименованиеПолное,
    |   РеализацияТоваровУслуг.Контрагент.Ссылка.ОсновноеКонтактноеЛицо КАК ОсновноеКонтактноеЛицо,
    |   РеализацияТоваровУслуг.Контрагент.Ссылка.Комментарий КАК Комментарий,
    |   РеализацияТоваровУслуг.СуммаДокумента,
    |   РеализацияТоваровУслуг.Организация,
    |   КонтактныеЛица.Роль КАК Роль
    |ИЗ
    |   Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг,
    |   Справочник.КонтактныеЛица КАК КонтактныеЛица
    |ГДЕ
    |   РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |   И КонтактныеЛица.Роль = &Роль";
    
        
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); //используем в качетсве параметра реквизит обработки СсылкаНаОбъект
    Запрос.УстановитьПараметр("Роль",СоотвРольВашегоКонтрагента);
В чем ошибка, есть идеи?
0
Joker_vad
Эксперт 1С
472 / 410 / 92
Регистрация: 26.09.2012
Сообщений: 1,830
27.08.2013, 13:29 16
Выложи скрином список регистров сведений
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
27.08.2013, 13:54  [ТС] 17
Данные из текущего документа + Данные из справочника. Внешняя печатная форма

Если это не оно, готов исправить, правда нужна подсказка, что такое "список регистров сведений"
0
Joker_vad
Эксперт 1С
472 / 410 / 92
Регистрация: 26.09.2012
Сообщений: 1,830
27.08.2013, 13:59 18
Ну регистр сведений это объект конфигурации, на сколько мне известно. Объектами также являются справочники, документы и т.д. Так вот. Список регистровСведений раскроется если нажать на плюсик напротив название Регистры сведений, в дереве конфигураций

Добавлено через 34 секунды
Он находится сразу после планов видов расчета
0
Bukem
0 / 0 / 0
Регистрация: 01.08.2013
Сообщений: 30
27.08.2013, 14:09  [ТС] 19
Выложил
Кликните здесь для просмотра всего текста
Данные из текущего документа + Данные из справочника. Внешняя печатная форма

Данные из текущего документа + Данные из справочника. Внешняя печатная форма

Данные из текущего документа + Данные из справочника. Внешняя печатная форма

Данные из текущего документа + Данные из справочника. Внешняя печатная форма
0
wladimir_ui
Шизофреник
358 / 361 / 83
Регистрация: 25.06.2013
Сообщений: 1,141
27.08.2013, 18:35 20
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Запрос = Новый Запрос();
    Запрос.Текст =
    "ВЫБРАТЬ
    |   РеализацияТоваровУслуг.Номер,
    |   РеализацияТоваровУслуг.Дата,
    |   РеализацияТоваровУслуг.Контрагент,
    |   РеализацияТоваровУслуг.Контрагент.НаименованиеПолное,
    |   РеализацияТоваровУслуг.Контрагент.ОсновноеКонтактноеЛицо.Должность,
    |   РеализацияТоваровУслуг.Контрагент.ОсновноеКонтактноеЛицо.Фамилия,
    |   РеализацияТоваровУслуг.Контрагент.ОсновноеКонтактноеЛицо.Имя,
    |   РеализацияТоваровУслуг.Контрагент.ОсновноеКонтактноеЛицо.Отчество,
    |   РеализацияТоваровУслуг.СуммаДокумента,
    |   РеализацияТоваровУслуг.Организация,
    |   РеализацияТоваровУслуг.Контрагент.ЮрФизЛицо
    |ИЗ
    |   Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |ГДЕ
    |   РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
    Выборка = Запрос.Выполнить().Выбрать();
    Выборка.Следующий()
    Если Выборка.Контрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда
        //физик
    ИначеЕсли Выборка.Контрагент.ОсновноеКонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка() Тогда
         //нет основного контактного лица
    Иначе
         //есть Контакт, но что нам это даёт, вдруг там какой нибудь курьер, как в демке?
        Должность = Выборка.Должность;
        Фамилия = Выборка.Фамилия
        ///.... и т.д.
    КонецЕсли;
0
27.08.2013, 18:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.08.2013, 18:35

Внешняя печатная форма
Народ! Помогите, пожалуйста! Делаю ВПФ Торг12 для дока ПередачаТоваров. Конфа...

Внешняя печатная форма КС-2 и КС-3
Здравствуйте, я не программист, а бухгалтер. Очень понадобились внешние...

Внешняя печатная форма
Здравствуйте. Я только знакомлюсь с «языком» 1с, поэтому решил обратиться за...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru