Документ с двумя таблицами печатной формы

@Aisha12 · Регистрация: 01.08.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, Всем! Очень нужна помощь, я новичок в программировании, а мне тут дали работать с 1C:Предприятие 7.7 .
Имеется 2 базы, в одну базу надо сделать 2 таблицы печатной формы в одном документе: одну оставить старую, а вторую из документа 2 базы. Платформа 1C:Предприятие 7.7 сетевая версия) Бухучет, ред 3.0, та в которую надо перенести, та из которой берем: 1C:Предприятие 7.7 (сетевая версия) Бухучет, ред 2.5. Я сделала выпадающее меню по кнопке Подбор на форме и прописала
Меню=СоздатьОбъект("СписокЗначений");
Меню.ДобавитьЗначение(1,"Старая форма");
Меню.ДобавитьЗначение(2,"Типовая форма Доверенности");

Выбор=0;
Если Меню.ВыбратьЗначение(Выбор,"",0,,1)=0 Тогда
возврат;
КонецЕсли;
Дальше у меня идет код , если выбираем 1 печатную форму, теперь как создать 2 таблицу я не пойму, и таблицу создала вроде, но все равно ругается. Как понять?

@duk337 · 01.08.2013, 16:38

Очень невнятно. От создания пункта меню таблицы не прибавится.
1. Чем отличаются печатные документы: формой, алгоритмом или и тем и другим?
2. Макет (таблицу) можно перетащить, а код надо либо адаптировать, либо создать заново.
3. Заново создать можно так: новый отчет ОБЫЧНОЙ формы конструктором. Далее внедряете код и макет в документ.

Добавлено через 1 минуту

таблицу создала вроде

"Вроде" - это как?

@Aisha12 · 01.08.2013, 16:49 **[ТС]**

Сделала вот так
1. Запускаем два конфигуратора, в одном открываем 1 базу, во втором 2 базу.
2. Открываем нужные документы в режиме Редактирования формы.
3. В документе 1 базы создаем новую таблицу, переходим во 2 базу, отрываем нужную таблицу, выделяем (нажать мышкой левый верхний квадратик), скопировать выделенное в буфер обмена, перейти в 1 базу, в только что созданную таблицу, и вставить содержимое буфера обмена.
4. Задать имя новой таблице.

1C

Процедура Печать()               
    
    Меню=СоздатьОбъект("СписокЗначений");
    Меню.ДобавитьЗначение(1,"Старая форма");
    Меню.ДобавитьЗначение(2,"Типовая форма Доверенности");
    
    Выбор=0;
    Если Меню.ВыбратьЗначение(Выбор,"",0,,1)=0 Тогда
        возврат;
    КонецЕсли;          
    
    Таб=СоздатьОбъект("Таблица"); 
    Таб=СоздатьОбъект("Таблица1");   
    
    
    Если Выбор=1 Тогда
        Таб.ИсходнаяТаблица("Таблица");
    Иначе
        Если Выбор=2 Тогда
            Таб.ИсходнаяТаблица("Таблица1");
    КонецЕсли;

и после этого я прописываю Если Выбор=1 Тогда то есть пишу код для 1 таблицы, потом пишу Иначе и вторую табл, я правильно делаю??

@duk337 · 01.08.2013, 18:21

Бухгалтерия 3.0 - это 77? Отстал я от жизни

Тогда правильно, за исключением тавтологии

1C

1 2	Таб=СоздатьОбъект("Таблица"); Таб=СоздатьОбъект("Таблица1");

Но поскольку Вы связываете новую таблицу с Таб, это не существенно. Ссылка на "Таблица" - по умолчанию и можно ограничиться

1C

1	Если Выбор=2 Тогда Таб.ИсходнаяТаблица("Таблица1");КонецЕсли;

Добавлено через 53 секунды
Ой! Таб=СоздатьОбъект("Таблица1"); - такого объекта нет. Сам туплю

@Aisha12 · 02.08.2013, 00:14 **[ТС]**

Извините, но я запуталась)

@duk337 · 02.08.2013, 00:24

"Таблица" - это абстрактный объект. По умолчанию он связывается с одноимённым макетом (в 77 таблица). Его можно связать с любой таблицей. Если я создал объект Таб (Таб=СоздатьОбъект("Таблица")), то его можно перекинуть на "Таблица1" Таб.ИсходнаяТаблица("Таблица1");

Добавлено через 1 минуту
т.е. Таблица-объект и таблица-макет - две разницы, хоть и звучат одинаково

Добавлено через 2 минуты
"Таблица", "Таблица1", "Торг12" - это изменяемое свойство объекта Таблица

@Aisha12 · 02.08.2013, 12:05 **[ТС]**

Спасибо, спасибо огромное!! Все работает!!!!, это я просто с условиями запуталась

@Aisha12 · 14.11.2013, 19:07 **[ТС]**

Здравствуйте Всем!! Не хотела открывать новую тему, поэтому пишу здесь, как бы в продолжении этой темы. 1С: Бухгалтерия 7.7 (273). Имеется документ Выполнение работ. Заказчики хотят печатную форму документа, как в последнем релизе 8.2 версии. Добавляю опять же это меню по кнопке Печать, чтобы создать новую печатную форму. Но ситуация такая: в этом документе идет выбор печатных документов по галочке.
Вот

Документ с двумя таблицами печатной формы

Вот модуль до изменения

1C

Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)         
    
    Таб = СоздатьОбъект("Таблица");
        
    ПредставлениеРНН_БИНОрганизации   = "";
    РНН_БИНОрганизации             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Организация, ДатаДок, 0, ПредставлениеРНН_БИНОрганизации);
    
    ПредставлениеРНН_БИНКонтрагента   = "";
    РНН_БИНКонтрагента             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Контрагент, ДатаДок, 0, ПредставлениеРНН_БИНКонтрагента);
    
    Если ТипДокумента = 2 Тогда
        ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\prfvrn.mxl";   
        Если (Константа.ИспользоватьВнешниеПечатныеФормы = Да) и (ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1) Тогда
            Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы)
        Иначе
            Таб.ИсходнаяТаблица("Таблица")
        КонецЕсли;
    КонецЕсли; 
    
    Если ТипДокумента = 1 Тогда
        
        ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\prfvra.mxl";   
        Если (Константа.ИспользоватьВнешниеПечатныеФормы = Да) и (ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1) Тогда
            Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы)
        Иначе
            Таб.ИсходнаяТаблица("Акт");
        КонецЕсли;
        
        Таб.ВывестиСекцию("Шапка");
        
        
        ВыбратьСтроки();
        
        Пока ПолучитьСтроку() = 1 Цикл
            ПечЦена = ?(Количество <> 0, Сумма/Количество,0);
            Таб.ВывестиСекцию("Строка"); 
        КонецЦикла; 
        Таб.ВывестиСекцию("Итоги");
        
        Если ТипДокумента = 2 Тогда
            Таб.ВывестиСекцию("Подвал");
        Иначе  
            Таб.ВывестиСекцию("Подвал");
            Таб.ВывестиСекцию("Разделитель");
        КонецЕсли;
        
        Таб.КоличествоЭкземпляров(2);
        Таб.ЭкземпляровНаСтранице(2);
        
        глЗащитаТаблицы(Таб);
        Таб.Опции(0,0,0,0,"ОпцииВыполнениеРабот");
        
        Таб.ТолькоПросмотр(1);
        Таб.Показать("Печать выполнения работ","");
 
    
КонецЕсли;
КонецПроцедуры // Печать()

и после того, что я добавила

1C

Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)         
    
    Меню=СоздатьОбъект("СписокЗначений");
    Меню.ДобавитьЗначение(2,"Типовая казахстанская форма Акта выполненных работ");
    
    Выбор=0;
    Если Меню.ВыбратьЗначение(Выбор,"",0,,1)=0 Тогда
        возврат;
    КонецЕсли;  
    
    Таб = СоздатьОбъект("Таблица");
    
    
    ПредставлениеРНН_БИНОрганизации   = "";
    РНН_БИНОрганизации             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Организация, ДатаДок, 0, ПредставлениеРНН_БИНОрганизации);
    
    ПредставлениеРНН_БИНКонтрагента   = "";
    РНН_БИНКонтрагента             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Контрагент, ДатаДок, 0, ПредставлениеРНН_БИНКонтрагента);
    
    Если ТипДокумента = 2 Тогда
        ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\prfvrn.mxl";   
        Если (Константа.ИспользоватьВнешниеПечатныеФормы = Да) и (ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1) Тогда
            Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы)
        Иначе
            Таб.ИсходнаяТаблица("Таблица")
        КонецЕсли;
    КонецЕсли; 
    
    Если ТипДокумента = 1 Тогда
        
        ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\prfvra.mxl";   
        Если (Константа.ИспользоватьВнешниеПечатныеФормы = Да) и (ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1) Тогда
            Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы)
        Иначе
            Таб.ИсходнаяТаблица("Акт");
        КонецЕсли;
        
        Таб.ВывестиСекцию("Шапка");
        
        
        ВыбратьСтроки();
        
        Пока ПолучитьСтроку() = 1 Цикл
            ПечЦена = ?(Количество <> 0, Сумма/Количество,0);
            Таб.ВывестиСекцию("Строка"); 
        КонецЦикла; 
        Таб.ВывестиСекцию("Итоги");
        
        Если ТипДокумента = 2 Тогда
            Таб.ВывестиСекцию("Подвал");
        Иначе  
            Таб.ВывестиСекцию("Подвал");
            Таб.ВывестиСекцию("Разделитель");
        КонецЕсли;
        
        Таб.КоличествоЭкземпляров(2);
        Таб.ЭкземпляровНаСтранице(2);
        
        глЗащитаТаблицы(Таб);
        Таб.Опции(0,0,0,0,"ОпцииВыполнениеРабот");
        
        Таб.ТолькоПросмотр(1);
        Таб.Показать("Печать выполнения работ","");
 
        
        
    Иначе     
        Меню.ДобавитьЗначение(2,"Типовая казахстанская форма Акта выполненных работ");
        
        ПредставлениеРНН_БИНОрганизации   = "";
        РНН_БИНОрганизации             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Организация, ДатаДок, 0, ПредставлениеРНН_БИНОрганизации);
        
        ПредставлениеРНН_БИНКонтрагента   = "";
        РНН_БИНКонтрагента             = глПолучитьРегистрационныйНомерОрганизацииКонтрагентаВПечатнуюФорму(Контрагент, ДатаДок, 0, ПредставлениеРНН_БИНКонтрагента);
        
 
            
    КонецЕсли;
        
    
КонецЕсли;
КонецПроцедуры // Печать()

@duk337 · 14.11.2013, 20:11

А где реакция на переменную Выбор? Я так понял, что весь огород нагорожен, чтобы выбрать тип формы? Проще переключатель добавить, а то что-то накосячено и с алгоритмом и с использованием того, что в алгоритме.

@Aisha12 · 14.11.2013, 23:08 **[ТС]**

Вот вот проще добавить переключатель, но он там не нужен, так как переключатели уже есть, или может сделать просто отдельную кнопку, при нажатии на которую, выходит печатная форма нового акта? Но это будет отдельная процедура Печать?

@duk337 · 14.11.2013, 23:50

Сообщение от Aisha12

но он там не нужен, так как переключатели уже есть

Так он же всего лишь двухходовой! Процедура может быть та же, но с параметром вариации действий. Кнопка, конечно, это приемлемый вариант.

@Aisha12 · 18.11.2013, 15:13 **[ТС]**

Спасибо, сделала!!! теперь такой вопрос можно ли сделать в документе Авансовый отчет 2 печатные формы, чтобы до определенной даты выбиралась 1 форма, а после другая, таблицу(печатную форму) создала, как теперь соединить 2 таблицы, как прописать условие даты?

1C

Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)   
 
    
    Перем СубСчетДебет, СубСчетКредит;
    Перем СуммаБух;
    
    Если Валюта.Выбран() = 1 Тогда
        Кратность = Валюта.Кратность.Получить(ДатаДок);
        Кратность = ?(Кратность = 0, 1, Кратность);
    Иначе
        Кратность = 1;
    КонецЕсли;
    
    СохранитьЗначение("АвансовыйОтчет_ПереводСтраницы", ПереводСтраницы);
    
    Таб = СоздатьОбъект("Таблица");
    
    ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\prfao.mxl";    
    Если (Константа.ИспользоватьВнешниеПечатныеФормы = Да) и (ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1) Тогда
        Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы)
    Иначе
        Таб.ИсходнаяТаблица("Таблица")
    КонецЕсли;
        
    РНН_БИН               = Организация.ИдентификационныйНомер;
    
    ПредставлениеРуководителя       = ФИО(Организация.Руководитель.Получить(ДатаДок));   
    ПредставлениеГлавногоБухгалтера = ?(ПустаяСтрока(Организация.ГлавныйБухгалтер.Получить(ДатаДок))=0, ФИО(Организация.ГлавныйБухгалтер.Получить(ДатаДок)), "Не предусмотрен"); 
    
    
    // Подготовим таблицу бух. записей, сгруппированных  по счетам затрат 
    ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
    ВыгрузитьТабличнуюЧасть(ТаблицаДокумента,"КорСчет,ВалСумма,Сумма,СуммаНДС");
        
    НДС     = ТаблицаДокумента.Итог("СуммаНДС");
    СчетНДС = СчетПоКоду("142");
    Если НДС <> 0 Тогда
        ТаблицаДокумента.НоваяСтрока();
        ТаблицаДокумента.КорСчет  = СчетНДС;
        ТаблицаДокумента.Сумма    = НДС;
        ТаблицаДокумента.ВалСумма = 0;
    КонецЕсли;
    
    ТаблицаДокумента.Свернуть("КорСчет","Сумма,ВалСумма"); 
    ТаблицаДокумента.Сортировать("КорСчет");
 
    Если (Счет.Валютный = 1) и (ПредОстаток <> 0) и (Валюта.Выбран() = 1) и (Валюта <> глВалютаБухУчета) Тогда
        ПредОстатокВВалютеБухУчета = ПредОстаток * Курс / Кратность;
        СтрПредОстаток = "" + Формат(ПредОстатокВВалютеБухУчета,"Ч015.2- ");
        СтрПредОстаток = СтрПредОстаток +  РазделительСтрок + Формат(ПредОстаток, "Ч015.2- ") + " " + СокрЛП(Валюта.Наименование);
    Иначе
        СтрПредОстаток = "" + Формат(ПредОстаток,"Ч015.2- ");
    КонецЕсли;
    Если ТипОстатка = 1 Тогда
        СтрНачальныйОстаток    = СтрПредОстаток;
        СтрНачальныйПерерасход = "";
    Иначе
        СтрНачальныйОстаток    = "";
        СтрНачальныйПерерасход = СтрПредОстаток;
    КонецЕсли;
    
    
    Таб.ВывестиСекцию("Шапка1");
    
    Шаг = 0;
    Для Шаг = 1 По 3 Цикл
        Таб.ВывестиСекцию("Секция_" + Шаг + "|ДоТаблицы");
        ПодготовитьСекциюБухЗаписи(ТаблицаДокумента, СубСчетДебет, СубСчетКредит, СуммаБух);
        Таб.ПрисоединитьСекцию("Секция_1|Таблица");
    КонецЦикла;
    
    ИтогоПолучено = 0;
    ИтогоПолученоВВалютеБухУчета = 0;
    Шаг = 0;
    Для Шаг = 1 По 3 Цикл
        СуммаИсточника = ПолучитьАтрибут("Сумма" + Шаг);
        ИтогоПолучено  = ИтогоПолучено + СуммаИсточника;
        Если (Счет.Валютный = 1) и (СуммаИсточника <> 0) и (Валюта.Выбран() = 1) и (Валюта <> глВалютаБухУчета) Тогда
            СуммаИсточникаВВалютеБухУчета = СуммаИсточника * Курс / Кратность;
            ИтогоПолученоВВалютеБухУчета  = ИтогоПолученоВВалютеБухУчета + СуммаИсточникаВВалютеБухУчета;
            СуммаДеталь = "" + Формат(СуммаИсточникаВВалютеБухУчета,"Ч015.2- ");
            СуммаДеталь = СуммаДеталь +  РазделительСтрок + Формат(СуммаИсточника, "Ч015.2- ") + " " + СокрЛП(Валюта.Наименование);
        Иначе
            СуммаДеталь = "" + Формат(СуммаИсточника,"Ч015.2- ");
        КонецЕсли;
        
        НомерИсточника =  "" + Шаг + ". ";
        СтрИсточник    = СокрЛП(ПолучитьАтрибут("Получено" + Шаг));
        ДатаИсточника  = ПолучитьАтрибут("Дата" + Шаг);
        СтрДатаИсточника = ?(ПустоеЗначение(ДатаИсточника) = 1, "",Формат(ДатаИсточника,"Д ДДММГГ"));
        ТекстИсточника = СтрИсточник + "; " + СтрДатаИсточника;
        ТекстИсточника = ?(СокрЛП(ТекстИсточника) = ";", "", СокрЛП(ТекстИсточника));
        
        Если (ТекстИсточника = "") И (СуммаИсточника = 0) И (Шаг = 3) Тогда
            Продолжить;
        КонецЕсли;
        
        ИсточникАванса = НомерИсточника + ТекстИсточника;
        
        Таб.ВывестиСекцию("Секция_Источник|ДоТаблицы");
        ПодготовитьСекциюБухЗаписи(ТаблицаДокумента, СубСчетДебет, СубСчетКредит, СуммаБух);
        Таб.ПрисоединитьСекцию("Секция_1|Таблица");
    КонецЦикла;
    
    Если (Счет.Валютный = 1) и (ИтогоПолученоВВалютеБухУчета <> 0) и (Валюта.Выбран() = 1) и (Валюта <> глВалютаБухУчета) Тогда
        СтрИтогоПолучено = "" + Формат(ИтогоПолученоВВалютеБухУчета,"Ч015.2- ");
        СтрИтогоПолучено = СтрИтогоПолучено +  РазделительСтрок + Формат(ИтогоПолучено, "Ч015.2- ") + " " + СокрЛП(Валюта.Наименование);
    Иначе
        СтрИтогоПолучено = "" + Формат(ИтогоПолучено,"Ч015.2- ");
    КонецЕсли;
    
    СтрИзрасходованоВВалютеБухУчета = "" + Формат(Итог("Сумма"),"Ч015.2- ");
    Если (Счет.Валютный = 1) И (Валюта.Выбран() = 1) И (Валюта <> глВалютаБухУчета) Тогда
        СтрИзрасходовано = "" + Формат(Итог("ВалСумма"),"Ч015.2- ");
        Пропись(Валюта.ИмяФайлаПрописи);
        СтрИзрасходованоПрописью = Формат(Итог("ВалСумма"),"ЧПДС");
        Пропись("");
    Иначе
        СтрИзрасходовано = "" + Формат(Итог("Сумма"),"Ч015.2- ");
        СтрИзрасходованоПрописью = Формат(Итог("Сумма"),"ЧПДС");
    КонецЕсли;
    Если (Счет.Валютный = 1) и (ПустоеЗначение(СтрИзрасходовано) = 0) и (Валюта.Выбран() = 1) и (Валюта <> глВалютаБухУчета) Тогда
        СтрИзрасходовано = СтрИзрасходованоВВалютеБухУчета + РазделительСтрок + СтрИзрасходовано + " " + СокрЛП(Валюта.Наименование);
    КонецЕсли;
    
    ТекОстаток = РасчетОстатка();
    КонечныйОстаток = ?(ТекОстаток>0,ТекОстаток,-ТекОстаток);
    СтрТекОстаток = "" + Формат(КонечныйОстаток,"Ч015.2- ");
    Если (Счет.Валютный = 1) и (ПустоеЗначение(СтрТекОстаток) = 0) и (Валюта.Выбран() = 1) и (Валюта <> глВалютаБухУчета) Тогда
        ТекОстатокВВалютеБухУчета = ИтогоПолученоВВалютеБухУчета - Итог("Сумма") + ?(ТипОстатка = 1, ПредОстаток, -ПредОстаток);
        СтрТекОстаток = "" + Формат(ТекОстатокВВалютеБухУчета,"Ч015.2- ") + РазделительСтрок + СтрТекОстаток + " " + СокрЛП(Валюта.Наименование);
        Пропись(Валюта.ИмяФайлаПрописи);
    КонецЕсли;
    Если ТекОстаток > 0 Тогда
        СтрКонечныйОстаток    = СтрТекОстаток;
        СтрКонечныйПерерасход = "";
    Иначе
        СтрКонечныйОстаток    = "";
        СтрКонечныйПерерасход = СтрТекОстаток;
    КонецЕсли;
 
    СтрОстатокПерерасход = КонечныйОстаток;
    СтрОстатокПерерасходПрописью = ?(СтрОстатокПерерасход = 0, "", Формат(СтрОстатокПерерасход, "ЧПДС"));
    Пропись("");
    
    Шаг = 0;
    Для Шаг = 4 По 7 Цикл
        Таб.ВывестиСекцию("Секция_" + Шаг + "|ДоТаблицы");
        ПодготовитьСекциюБухЗаписи(ТаблицаДокумента, СубСчетДебет, СубСчетКредит, СуммаБух);
        Таб.ПрисоединитьСекцию("Секция_1|Таблица");
    КонецЦикла;
    
    Таб.ВывестиСекцию("Шапка2");
    Таб.ВывестиСекцию("Расписка");
    Если (ПереводСтраницы=1)Тогда
        Таб.НоваяСтраница();
    КонецЕсли;
    
    // Печать табличной части.
    Таб.ВывестиСекцию("ШапкаОборотнаяСторона");
    
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл
        Если (Счет.Валютный = 0)  или (Валюта.Выбран() = 0) или (Валюта = глВалютаБухУчета) Тогда
            СуммаСтроки = Формат(Сумма,"Ч015.2- ");
        Иначе
            СуммаСтроки = Формат(Сумма,"Ч015.2- ")+"
            |"+Формат(ВалСумма,"Ч015.2- ")+" "+СокрЛП(Валюта.Наименование);
        КонецЕсли;
        
        СчетДт = КорСчет.Представление;       
        Таб.ВывестиСекцию("СтрокаТабЧасти");
    КонецЦикла;
    
    Если (Счет.Валютный = 0)  или (Валюта.Выбран() = 0) или (Валюта = глВалютаБухУчета) Тогда  
        СуммаВсего = Формат(Итог("Сумма"),"Ч15.2- ");
    Иначе
        СуммаВсего = Формат(Итог("Сумма"),"Ч15.2- ")+"
        |"+Формат(Итог("ВалСумма"),"Ч15.2- ")+" "+СокрЛП(Валюта.Наименование);
    КонецЕсли;
    Таб.ВывестиСекцию("Подвал");
    Таб.ПараметрыСтраницы(,,,10,0,5,,,,);
    
    глЗащитаТаблицы(Таб);
    Таб.Опции(0,0,0,0,"ОпцииАвансовыйОтчет");
    
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Авансовый отчет","");
        
КонецПроцедуры // Печать()

Добавлено через 3 часа 13 минут
Уже нашла ответ, добавила константу с датой и прописала ее в процедуре печать

1C

1	Если ДатаДок > Константа.ДатаПрекращенияВыводаСтаройПечатнойФормыАвансовогоОтчета Тогда..

и выбор таблиц.

@Aisha12 0 / 0 / 0 Регистрация: 01.08.2013 Сообщений: 39
		1
	1C 7.x Документ с двумя таблицами печатной формы 01.08.2013, 10:14. Показов 5272. Ответов 11 Метки нет (Все метки) Здравствуйте, Всем! Очень нужна помощь, я новичок в программировании, а мне тут дали работать с 1C:Предприятие 7.7 . Имеется 2 базы, в одну базу надо сделать 2 таблицы печатной формы в одном документе: одну оставить старую, а вторую из документа 2 базы. Платформа 1C:Предприятие 7.7 сетевая версия) Бухучет, ред 3.0, та в которую надо перенести, та из которой берем: 1C:Предприятие 7.7 (сетевая версия) Бухучет, ред 2.5. Я сделала выпадающее меню по кнопке Подбор на форме и прописала Меню=СоздатьОбъект("СписокЗначений"); Меню.ДобавитьЗначение(1,"Старая форма"); Меню.ДобавитьЗначение(2,"Типовая форма Доверенности"); Выбор=0; Если Меню.ВыбратьЗначение(Выбор,"",0,,1)=0 Тогда возврат; КонецЕсли; Дальше у меня идет код , если выбираем 1 печатную форму, теперь как создать 2 таблицу я не пойму, и таблицу создала вроде, но все равно ругается. Как понять? 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	01.08.2013, 16:38	2
	Очень невнятно. От создания пункта меню таблицы не прибавится. 1. Чем отличаются печатные документы: формой, алгоритмом или и тем и другим? 2. Макет (таблицу) можно перетащить, а код надо либо адаптировать, либо создать заново. 3. Заново создать можно так: новый отчет ОБЫЧНОЙ формы конструктором. Далее внедряете код и макет в документ. Добавлено через 1 минуту таблицу создала вроде "Вроде" - это как? 1

@Aisha12 0 / 0 / 0 Регистрация: 01.08.2013 Сообщений: 39
	02.08.2013, 00:14 [ТС]	5
	Извините, но я запуталась) 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	02.08.2013, 00:24	6
	"Таблица" - это абстрактный объект. По умолчанию он связывается с одноимённым макетом (в 77 таблица). Его можно связать с любой таблицей. Если я создал объект Таб (Таб=СоздатьОбъект("Таблица")), то его можно перекинуть на "Таблица1" Таб.ИсходнаяТаблица("Таблица1"); Добавлено через 1 минуту т.е. Таблица-объект и таблица-макет - две разницы, хоть и звучат одинаково Добавлено через 2 минуты "Таблица", "Таблица1", "Торг12" - это изменяемое свойство объекта Таблица 1

@Aisha12 0 / 0 / 0 Регистрация: 01.08.2013 Сообщений: 39
	02.08.2013, 12:05 [ТС]	7
	Спасибо, спасибо огромное!! Все работает!!!!, это я просто с условиями запуталась 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	14.11.2013, 20:11	9
	А где реакция на переменную Выбор? Я так понял, что весь огород нагорожен, чтобы выбрать тип формы? Проще переключатель добавить, а то что-то накосячено и с алгоритмом и с использованием того, что в алгоритме. 1

@Aisha12 0 / 0 / 0 Регистрация: 01.08.2013 Сообщений: 39
	14.11.2013, 23:08 [ТС]	10
	Вот вот проще добавить переключатель, но он там не нужен, так как переключатели уже есть, или может сделать просто отдельную кнопку, при нажатии на которую, выходит печатная форма нового акта? Но это будет отдельная процедура Печать? 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	14.11.2013, 23:50	11
	Сообщение от Aisha12 но он там не нужен, так как переключатели уже есть Так он же всего лишь двухходовой! Процедура может быть та же, но с параметром вариации действий. Кнопка, конечно, это приемлемый вариант. 1

	18.11.2013, 15:13