Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Помогите чайнику, Нужно добавить ещ одну кнопку вызывающую новую печатную форму
Вовчик
Вставить ник
сообщение 26:04:2008, 14:29
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 1
Регистрация: 26:04:2008
Пользователь №: 16 906
Специализация: Ремонт оргтехники



Репутация: - 0 +


Люди, помогите пожалуйста чайнику в 1с: - очень срочно нужно.
В документ Оказание Услуг нужно вставить дополнительную кнопку, которая будет вызывать дополнительную печатную форму.
Если можно напишите сразу текст модуля документа, чтобы вставить его туда и все. Форму сам сделал, а печататься не хочет.
Вот исходный текст модуля печати:

//******************************************************************************
// Печать()
//
// Вызывается из формул элементов диалога:
// Кнопка "Печать".
//
// Описание:
// Формирование печатной формы документа.
//
Процедура Печать()

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

АдресТелефон = "";
глДобавитьРеквизит(АдресТелефон, "Адрес: ", глПредставлениеАдреса(Константа.АдресОрганизации));
глДобавитьРеквизит(АдресТелефон, ", тел.: ", Константа.ТелефоныОрганизации);
Таб.ВывестиСекцию("Шапка");

Ном = 0;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Ном = Ном + 1;
Наименование = ?(ПустаяСтрока(Услуга.ПолнНаименование)=1, Услуга.Наименование, Услуга.ПолнНаименование);
Таб.ВывестиСекцию("Строка");
Состояние("Выведено строк: " + НомерСтроки);
КонецЦикла;

Таб.ВывестиСекцию("Итоги");
Если УчитыватьНП = 1 Тогда
Таб.ВывестиСекцию("НП");
КонецЕсли;
Таб.ВывестиСекцию("Подвал");

Таб.Опции(0,0,0,0,"ОпцииПечатиНакладной","ОкноНакладной");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать акта");

КонецПроцедуры // Печать()

//******************************************************************************
// ПоКнопкеПечать()
//
// Вызывается из формул элементов диалога:
// Кнопка "кнПечать".
//
// Описание:
// Определяется соответствующая печатная форма.
//
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)

Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;

Если НомерТекущейФормы = 1 Тогда
Печать();

Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");

ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
КонецЕсли;

КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
// Кнопка "кнВыбПечать".
//
// Описание:
// - открывает список для выбора способа печати.
// - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()

ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
Если ВыбНомер > 0 Тогда
НомерТекущейФормы = ВыбНомер;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
ПоКнопкеПечать();
КонецЕсли;

КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()

//*****************************************************************************


ЗАРАНИЕ БЛАГОДАРЕН ВАМ!!!
Подняться вверх 
 
Сообщение #1
 
Новая тема 
Ответов (1 - 4)
Isabela
Вставить ник
сообщение 26:04:2008, 15:32
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 86
Регистрация: 19:05:2007
Пользователь №: 10 950
Специализация: Программист 1С



Репутация: - 2 +


Посмотри, как устроен вызов разных форм, например, в документе "РасходнаяНакладная" и сделай по аналогии

А уж код за тебя написать - это, извини, иждивенчество
Подняться вверх 
 
Сообщение #2
KiR
Вставить ник
сообщение 4:05:2008, 07:58
Цитата Ответить 


Продвинутый
**

Группа: Программист
Сообщений: 109
Регистрация: 11:09:2007
Пользователь №: 12 702



Репутация: - 0 +


Во первых стоило платформу указать. Это раз. А во-вторых можно покопаться и все сделать конструктором.
Подняться вверх 
 
Сообщение #3
Саид
Вставить ник
сообщение 5:05:2008, 12:17
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 4
Регистрация: 6:12:2007
Из: Р.Д., г. Махачкала
Пользователь №: 14 080
Специализация: Информатик экономист



Репутация: - 0 +


товаришь, ну это просто кошмар, так дело не пойдет для начало хоть чуть чуть поработай над своими знаниями. А так если срочно надо напиши в майл мне помогу чем смогу!
Подняться вверх 
 
Сообщение #4
evgenyatam
Вставить ник
сообщение 5:05:2008, 12:44
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 6
Регистрация: 7:09:2007
Пользователь №: 12 639
Специализация: программист 1С



Репутация: - 0 +


платформа - судя по языку - 7.7 а вот конфа какая нак не поймеш - нето бухгалтерия - не то упрощенка.
дополнительные печатные формы в бугалтерию и упрощенку стоит добавлять как внешние печатные формы.
а чтоб работало надо добавить например такую процедуру:

Код
Процедура ПриОткрытии()      
    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда          
        Докум      = Форма.Параметр.Получить("Контекст");
        Устройство = Форма.Параметр.Получить("Устройство");    
        КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");    
        Печать(Докум, Устройство, КолвоКопий);
        Статусвозврата(0);
        Возврат;
    КонецЕсли;  
    Статусвозврата(0);
    Возврат;
КонецПроцедуры // ПриОткрытии()


соответственно в процедуре Печать (Докум,устройство,колвокопий) изложить алгоритм, причем Докум - документ который печатаем.
Подняться вверх 
 
Сообщение #5


Быстрый ответ  Ответить  Новая тема 

> Быстрый ответ
Полужирный
Курсив
Подчеркнутый
Вставить изображение
Смайлики
Цитата
Код
 
 Отправлять уведомления об ответах на e-mail |  Включить смайлики |  Добавить подпись
   

 

RSS Текстовая версия Сейчас: 17:05:2008 - 07:08
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net