Имя: Пароль:
1C
1С v8
Вывод на печать
,
0 artemdm94
 
01.12.15
15:30
При выводе на печать формирует количество печатных форм столько, сколько контрагентов заведено. Т.е. если заведено в программе 5 контрагентов то на печать документа будет выведено 5 копий. Как исправить?

Код:
Процедура Печать(ТабДок, Ссылка) Экспорт
    //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
    перем выб;    
    Макет = Документы.АктПриемкиСдачи.ПолучитьМакет("Печать");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Учреждения.Наименование,
    |    АктПриемкиСдачи.Год,
    |    АктПриемкиСдачи.Дата,
    |    АктПриемкиСдачи.Договор,
    |    АктПриемкиСдачи.Исполнитель,
    |    АктПриемкиСдачи.Контрагент,
    |    АктПриемкиСдачи.Месяц,
    |    АктПриемкиСдачи.Номер,
    |    АктПриемкиСдачи.ОказДопСоцУслНаСум,
    |    АктПриемкиСдачи.Ответственный,
    |    АктПриемкиСдачи.ОУПИП,
    |    АктПриемкиСдачи.ПериодДатаНачало,
    |    АктПриемкиСдачи.ПериодДатаОкончание,
    |    АктПриемкиСдачи.ПрожиточныйМинимум,
    |    АктПриемкиСдачи.СреднедушевойДоход,
    |    АктПриемкиСдачи.СумГаранУслуг,
    |    АктПриемкиСдачи.СумДопУсл,
    |    АктПриемкиСдачи.СумКОплате,
    |    АктПриемкиСдачи.СуммаЗаСоцУслугиПИП,
    |    АктПриемкиСдачи.Экономист,
    |    АктПриемкиСдачи.СотрудникПроживающего,
    |    АктПриемкиСдачи.ДолжностьСотрудника,
    |    АктПриемкиСдачи.Перечень.(
    |        НомерСтроки,
    |        Группа,
    |        Наименование,
    |        Цена,
    |        КОГУ,
    |        КОДУ,
    |        ИтогоСтоимостьГУ,
    |        ИтогоСтоимостьДУ
    |    ),
    |    Договора.НомерДоговора,
    |    Договора.ДатаДоговора
    |ИЗ
    |    Документ.АктПриемкиСдачи КАК АктПриемкиСдачи,
    |    Справочник.Учреждения КАК Учреждения,
    |    Документ.ДоговораНаОказаниеСоциальныхУслуг КАК Договора
    |ГДЕ
    |    АктПриемкиСдачи.Ссылка В(&Ссылка)
    |    И АктПриемкиСдачи.ПометкаУдаления = ЛОЖЬ
    |    И АктПриемкиСдачи.Проведен = ИСТИНА";
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();
    
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьЗаголовокВторой = Макет.ПолучитьОбласть("ЗаголовокВторой");
    ОбластьЗаголовокТретий = Макет.ПолучитьОбласть("ЗаголовокТретий");
    Шапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьПереченьШапка = Макет.ПолучитьОбласть("ПереченьШапка");
    ОбластьПеречень = Макет.ПолучитьОбласть("Перечень");
    ОбластьПереченьИтог = Макет.ПолучитьОбласть("ПереченьИтог");
    Подвал = Макет.ПолучитьОбласть("Подвал");
    
    ТабДок.Очистить();
    
    ВставлятьРазделительСтраниц = Ложь;
    Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        
        ТабДок.Вывести(ОбластьЗаголовок);
        
        ОбластьЗаголовокВторой.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(ОбластьЗаголовокВторой);
        
        ОбластьЗаголовокТретий.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(ОбластьЗаголовокТретий);
        
        Шапка.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(Шапка, Выборка.Уровень());
        
        ТабДок.Вывести(ОбластьПереченьШапка);
        ВыборкаПеречень = Выборка.Перечень.Выбрать();
        Пока ВыборкаПеречень.Следующий() Цикл
            ОбластьПеречень.Параметры.Заполнить(ВыборкаПеречень);
            ТабДок.Вывести(ОбластьПеречень, ВыборкаПеречень.Уровень());
        КонецЦикла;
        
        ОбластьПереченьИтог.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(ОбластьПереченьИтог, Выборка.Уровень());
        
        Подвал.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(Подвал);
        ВставлятьРазделительСтраниц = Истина;
        
    КонецЦикла;
    //}}
КонецПроцедуры
1 Casey1984
 
01.12.15
15:32
//ВставлятьРазделительСтраниц = Истина;
2 DGorgoN
 
01.12.15
15:32
ВставлятьРазделительСтраниц = Истина; убрать
3 НЕА123
 
01.12.15
15:35
|    Справочник.Учреждения КАК Учреждения,
    |    Документ.ДоговораНаОказаниеСоциальныхУслуг КАК Договора

зачем?
4 artemdm94
 
01.12.15
16:34
Параметрами заполняется
5 artemdm94
 
01.12.15
16:39
"ВставлятьРазделительСтраниц = Истина; убрать"

Нет. Это не то! Это просто визуально показывает деление страницы! Копии так же создаются.
6 hhhh
 
01.12.15
16:49
может договоров социальных услуг 5?
7 Nuobu
 
01.12.15
16:49
(6) Может, справочника "Учреждения" пять?
8 artemdm94
 
01.12.15
17:02
может договоров социальных услуг 5?

Нет проверял это из за контрагентов
9 artemdm94
 
01.12.15
17:03
Может, справочника "Учреждения" пять?

Учреждение в программе в виде константы, их не может быть 5.
10 Nuobu
 
01.12.15
17:05
(9)  Справочник.Учреждения КАК Учреждения,
Врёшь ты, фраерок.
11 artemdm94
 
01.12.15
17:05
чтобы лучше понять суть проблемы могу кинуть ссылку на файл конфигурации
12 artemdm94
 
01.12.15
17:06
(9)  Справочник.Учреждения КАК Учреждения,
Врёшь ты, фраерок.

Ошибся
13 Nuobu
 
01.12.15
17:06
(11) ДТ нужна, а не конфа.
14 artemdm94
 
01.12.15
17:06
что такое ДТ?
15 artemdm94
 
01.12.15
17:08
(9)  Справочник.Учреждения КАК Учреждения,
Врёшь ты, фраерок.

Значит как справочник, но учреждение там одно.
16 artemdm94
 
01.12.15
17:09
https://drive.google.com/file/d/0B7zMj9XQbK6jSEtZTXZ4VHhWX0E/view?usp=sharing вот ссылка на конфигурацию
17 Горогуля
 
01.12.15
17:11
(16) лучше объясни необходимость декартова произведения в запросе. предварительно узнав, что это такое, разумеется
18 hhhh
 
01.12.15
17:14
(15) договор тоже один?
19 Горогуля
 
01.12.15
17:53
цфшка забавная, конечно. вроде бы для каких-то практических целей, но так и тянет выразиться: Дееспособность = "(недееспособный)";
20 Горогуля
 
01.12.15
17:55
справочник Года, ректальный запрет на изменение ТЧ документа, справочник Проживающие с фио, полом датой и сотрудником со своим уже фиом, полом, датой... долго можно, в общем
21 Горогуля
 
01.12.15
18:00
отчёт по документам, Наименование1 у номенклатуры, ПриКомпоновкеРезультата() в форме. поделку выкинуть и забыть, программиста заплатить и позвать
22 Горогуля
 
01.12.15
18:21
а вот перечисление год я возьму на вооружение
23 VikingKosmo
 
01.12.15
18:22
(22) наперкуа?
24 Горогуля
 
01.12.15
18:24
(23) устал от чисел
25 VikingKosmo
 
01.12.15
18:24
(24) решил перейти на перечисления?
26 Горогуля
 
01.12.15
18:27
Объекты прикладного решения Перечисление позволяют хранить в информационной базе наборы значений, которые не изменяются в процессе работы прикладного решения.

самое оно
27 artemdm94
 
01.12.15
19:31
очень много слов, но все не по теме! типа выкинь и т.п.
Многое не знаете вот и говорите
Объясняю каждый месяц на каждого проживающего интерната создается акт! (проживающих более 500 человек) и плюс создается ведомость!

ТЧ заблокирована потому что сотруднику не нужно что то добавлять или удалять из ТЧ, так как все автоматически добавляется в ТЧ из номенклатуры по полу человека!!! Например одежда есть женская а есть мужская и таким образом не нужно чтобы женская одежда была у контрагента мужского пола! Номенклатуры тоже много вместе с услугами выходит более 200 видов!!!!!

Отображение в акте дееспособности контрагента обязательно! Так как для дееспособных идет одно начисление, а для недееспособного другое!


Сообщение относится пользователю "Горогуля". Я так понимаю для тебя все системы автоматизации забавные!
28 artemdm94
 
01.12.15
19:33
(15) договор тоже один?

Да договор тоже один!
29 lera01
 
01.12.15
20:20
(0) ТС, у тебя количество документов "ДоговораНаОказаниеСоциальныхУслуг" ведь много, как контрагентов? Посмотрела твой запрос, где Связи?
30 lera01
 
01.12.15
20:24
+ У тебя, как ты говоришь, 5 контрагентов. На каждого по документу с параметрами договора (прикольное решение ну да ладно). Вот у тебя выборка из запроса 5 документов. Посмотри на свою печатную форму. Это не 5 копий, а 5 разных документов, отличающихся номером договора. Свяжи Акт и Договора свои по контрагенту и жизнь сразу наладится.
31 Горогуля
 
01.12.15
20:31
(27) всё настолько плохо, что нет никакого смысла чинить или что-то объяснять. Надо взять и сделать. С самого начала, с бумажки
32 lera01
 
01.12.15
20:35
(31) Учится человек, мы ж не сразу все умеем. "Ну да, ужас. Но не ужас-ужас-ужас".
Желаю успехов ТС.
33 artemdm94
 
01.12.15
20:38
lera01, спасибо)
34 Горогуля
 
01.12.15
20:39
(32) это не ужас, это мертворожденное непоймичто
35 lera01
 
01.12.15
20:42
(34)По крайней мере, парень старался и задал вопрос только когда почувствовал, что зашел в тупик. Выложил свое решение. А не те 99.99999%, которые сразу начинают с вопросов как сделать. Так что надо быть терпимым к ошибкам начинающих.
36 artemdm94
 
01.12.15
20:49
Все исправил, все получилось! Спасибо всем!
37 Горогуля
 
01.12.15
20:51
(35) ну тут парень, конечно, молодец. Научить никто не научил, хоть сам что-то делать стал. Только девать эту нечту некуда. Сразу и безусловно