Имя: Пароль:
1C
 
Печатная форма недоступна
0 ZloyRafa
 
04.04.17
09:48
Добрый день!
УТ 11 платформа 8.3.9
Создал ВПФ УПД РеализацияТоваровИУслуг, взял процедуры, которые требуется, при печати пишет, что ПФ не доступна, в чем проблема ?
1 1dvd
 
04.04.17
09:50
подробнее, что пишет. И когда переносил процедуры, ты их допиливал?
2 ZloyRafa
 
04.04.17
09:51
Пока что не дорабатывал.
В пользовательском режиме "Печатная форма недоступна"
3 1dvd
 
04.04.17
09:53
Макет смотри, и как ты его открываешь
4 ZloyRafa
 
04.04.17
10:03
Макет передается с параметрами ОбщийМодуль - УправлениеПечтью
5 2dolist
 
04.04.17
10:17
Когда данных нет так пишет ещё
6 Джаффар
 
04.04.17
10:19
а пользователю печформа доступна? не знаю, как в УТ, но в БП прописывается список пользователей, которым доступна каждая печформа.
7 Мимохожий Однако
 
04.04.17
10:20
Не хочешь показывать код - воспользуйся отладчиком
8 ZloyRafa
 
04.04.17
10:31
Еще и код не отправляется, круто
9 Мимохожий Однако
 
04.04.17
10:32
(8) выделить, копи-паста
10 ZloyRafa
 
04.04.17
10:33
просто нажимаю "отправить" гтчего не происходит
11 Альбатрос
 
04.04.17
10:34
(10) Матфильтр не проходит? =)
12 Мимохожий Однако
 
04.04.17
10:36
(10) скопируй сначала в блокнот, а потом из него выдели и вставь
13 ZloyRafa
 
04.04.17
10:37
не заезжает (12)
14 ZloyRafa
 
04.04.17
10:39
ОШИБКА: Сработал фильтр на язык падонков (удафком) на слово ....название процедуры. Пишите по-русски!
Внимание: Если есть пароль, то его нужно ввести заново.
15 Любопытная
 
04.04.17
10:41
Клёвое название процедуры :)
16 2dolist
 
04.04.17
10:41
ну назови процедуру проще
17 ZloyRafa
 
04.04.17
10:42
получить таблицу команд
только слитно, ругает
18 Джаффар
 
04.04.17
11:02
(17) скопируй сначала в блокнот, измени название процедуры на "Моя", а потом из него выдели и вставь сюда
19 1dvd
 
04.04.17
11:16
Автор победитель по жизни
Действительно матофильтр не пускает
http://savepic.ru/13494305.jpg
20 1dvd
 
04.04.17
11:18
конкретно, ему не нравится сочетание ц-у-к-о
21 Джаффар
 
04.04.17
11:25
(19) прошло 40 минут после (16) и 20 минут после (18) - уже можно было вручную здесь напечатать все содержимое процедуры...
(17) обнови страничку мисты (открой другую ветку в другом окне), прежде чем постить сюда текст процедуры с другим именем
22 dezss
 
04.04.17
11:40
Да давай уже скриншот
23 ZloyRafa
 
04.04.17
11:49
поправил процедуры.
либо много букв в коде, обрабатывает долго либо чего, не понимаю
24 Альбатрос
 
04.04.17
11:50
(23) )))))))))
25 ZloyRafa
 
04.04.17
12:09
26 ZloyRafa
 
04.04.17
12:10
Этот код не отправляется, только это малая часть регистрации
27 Джаффар
 
04.04.17
12:12
"номенлатуры", "зарегестрирована"
конечно матофильтр не выдерживает!
28 Любопытная
 
04.04.17
12:13
(25) Ты код процедуры печати давай, нафига нам сведения о внешней обработке, если она подключается адекватно
29 ZloyRafa
 
04.04.17
12:16
//процедуры и функции
Функция Печать(МассивОбъектов,КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
    
    СтруктураТипов = ОбщегоНазначенияУТ.СоответствиеМассивовПоТипамОбъектов(МассивОбъектов);
    
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
            КоллекцияПечатныхФорм,
            "УПД_Серии", "УПД_Серии",
            СформироватьПечатнуюФормуУПД_Серии(СтруктураТипов,МассивОбъектов,, ОбъектыПечати));
        
    ФормированиеПечатныхФорм.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, СтруктураТипов, КоллекцияПечатныхФорм);
    
КонецФункции
30 ZloyRafa
 
04.04.17
12:16
Функция СформироватьПечатнуюФормуУПД_Серии(СтруктураТипов, ОбъектыПечати, ПараметрыПечати = Неопределено, КомплектыПечати = Неопределено) Экспорт
    
    УстановитьПривилегированныйРежим(Истина);
    
    ТабличныйДокумент = Новый ТабличныйДокумент;
    ТабличныйДокумент.АвтоМасштаб = Истина;
    ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    
    ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_УПД_Серии";
    
    СтруктураТиповНаПечать              = Новый Структура;
    МассивСчетФактураВыданный           = Новый Массив;
    МассивСчетФактураПолученный         = Новый Массив;
    ОснованияНаРеализацию               = Новый Массив;
    ОснованияСчетФактураПолученный      = Новый Массив;
    ДокументыБезВыданногоСчетаФактуры   = Новый Массив;
    ДокументыБезПолученногоСчетаФактуры = Новый Массив;
    
    Если ПараметрыПечати = Неопределено Тогда
        ПараметрыПечати = Новый Структура;
    КонецЕсли;
    
    Для Каждого СтруктураОбъектов Из СтруктураТипов Цикл
        
        ИмяОбъекта = Сред(СтруктураОбъектов.Ключ, 10);
        
        Если ИмяОбъекта = "ОтчетКомитентуОСписании" Или ИмяОбъекта = "ОтчетКомиссионераОСписании" Тогда
            Продолжить;
        КонецЕсли;
        
        Если ИмяОбъекта = "СчетФактураВыданный" Тогда
            
            ОбщегоНазначенияКлиентСервер.ДополнитьМассив(МассивСчетФактураВыданный, СтруктураОбъектов.Значение);
            
        Иначе
            
            ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ОснованияНаРеализацию, СтруктураОбъектов.Значение);
            
        КонецЕсли;
        
        Если ПараметрыПечати.Свойство("ДополнитьПолученнымиСчетамиФактуры")
                И ПараметрыПечати.ДополнитьПолученнымиСчетамиФактуры Тогда
            
            ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ОснованияСчетФактураПолученный, СтруктураОбъектов.Значение);
            
        КонецЕсли;
        
    КонецЦикла;
    
        
    Если ОснованияСчетФактураПолученный.Количество() > 0 Тогда
        
        РезультатАнализа = Документы.СчетФактураПолученный.ПолучитьСчетаФактурыНаПечать(ОснованияСчетФактураПолученный);
        
        ПараметрыПечати.Вставить("МассивСчетФактураПолученный", РезультатАнализа.СчетаФактурыНаПечать);
        
        Для Каждого СтрокаТаблицыОшибок Из РезультатАнализа.ТаблицаОшибок Цикл
            Если СтрокаТаблицыОшибок.НеВыставленСчетФактура Тогда
                ДокументыБезПолученногоСчетаФактуры.Добавить(СтрокаТаблицыОшибок.ДокументОснование);
            КонецЕсли;
        КонецЦикла;
        
    КонецЕсли;
    
    Если МассивСчетФактураВыданный.Количество() > 0 Тогда
        СтруктураТиповНаПечать.Вставить("СчетФактураВыданный", МассивСчетФактураВыданный);
    КонецЕсли;
    
    Для Каждого Документ Из ДокументыБезВыданногоСчетаФактуры Цикл
        
        ИмяОбъекта = Документ.Метаданные().Имя;
        Если СтруктураТиповНаПечать.Свойство(ИмяОбъекта) Тогда
            СтруктураТиповНаПечать[ИмяОбъекта].Добавить(Документ);
        Иначе
            МассивДокументовТипа = Новый Массив;
            МассивДокументовТипа.Добавить(Документ);
            СтруктураТиповНаПечать.Вставить(ИмяОбъекта, МассивДокументовТипа);
        КонецЕсли;
        
    КонецЦикла;
    
    НомерТипаДокумента = 0;
    
    Для Каждого СтруктураОбъектов Из СтруктураТиповНаПечать Цикл
        
        НомерТипаДокумента = НомерТипаДокумента + 1;
        Если НомерТипаДокумента > 1 Тогда
            ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        
        МенеджерОбъекта = Документы[СтруктураОбъектов.Ключ];
        
        ПараметрыПечати.Вставить("НеВыводитьУПД_СерииПосредника", Истина);
        
        ДанныеДляПечати = МенеджерОбъекта.ПолучитьДанныеДляПечатнойФормыУПД_Серии(ПараметрыПечати, СтруктураОбъектов.Значение);
        
        ЗаполнитьТабличныйДокументУПД_Серии(ТабличныйДокумент, ДанныеДляПечати, ОбъектыПечати, КомплектыПечати);
        
    КонецЦикла;
    
    СтруктураТиповНаПечать.Очистить();
    Для Каждого Документ Из ДокументыБезПолученногоСчетаФактуры Цикл
        
        ИмяОбъекта = Документ.Метаданные().Имя;
        Если СтруктураТиповНаПечать.Свойство(ИмяОбъекта) Тогда
            СтруктураТиповНаПечать[ИмяОбъекта].Добавить(Документ);
        Иначе
            МассивДокументовТипа = Новый Массив;
            МассивДокументовТипа.Добавить(Документ);
            СтруктураТиповНаПечать.Вставить(ИмяОбъекта, МассивДокументовТипа);
        КонецЕсли;
        
    КонецЦикла;
    
    Для Каждого СтруктураОбъектов Из СтруктураТиповНаПечать Цикл
        
        ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        
        МенеджерОбъекта = Документы[СтруктураОбъектов.Ключ];
        
        ПараметрыПечати.Вставить("НеВыводитьУПД_СерииПосредника", Ложь);
        ПараметрыПечати.Вставить("НеВыводитьОсновнойУПД_Серии", Истина);
        
        ДанныеДляПечати = МенеджерОбъекта.ПолучитьДанныеДляПечатнойФормыУПД_Серии(ПараметрыПечати, СтруктураОбъектов.Значение);
        
        ЗаполнитьТабличныйДокументУПД_Серии(ТабличныйДокумент, ДанныеДляПечати, ОбъектыПечати, КомплектыПечати);
        
    КонецЦикла;
    
    Возврат ТабличныйДокумент;
    
КонецФункции
31 Джаффар
 
04.04.17
12:27
отладчик что говорит? на какой строке ошибка?
32 Джаффар
 
04.04.17
12:28
где процедура про "получить таблицу команд "?
33 СвинТуз
 
04.04.17
12:33
Функция "СформироватьПечатнуюФормуУПД_Серии" возвращает пустой табличный документ
34 СвинТуз
 
04.04.17
12:34
забей ... снаряд в пушку туго