1С: доработка по ТТН

[Mike-dc]

1С:Бухгалтерия 7.7 (с доработками)

Довольно простой вопрос, но я парюсь, т.к. не делал ещё такого

В расходной накладной надо все реквизиты перенести на закладку "РасхНакл" и сделать ещё одну закладку ТТН, куда перенести реквизиты ТТН'ки (ttnprint.ert)

все это для того, чтобы реквизиты ТТН'ки сохранялись в этом документе, чтоб в след. раз открыть и снова их не заполнять, чтоб распечатать ТТН

Собсно подскажите как это сделать в модуле

Добавлено через 8 минут
т.е. ерт-шник чтоб вообще не использовать.

мне надо как работать с закладками. только это

[Viking]

О господи! Еще одна транспортная компания Случаем не ЖелДор?

я свое время, когда осваивал 1С, если было что то не понятно - анализировал
код схожего документа с необходимыми мне элементами и на основании примера
реализовывал свое...

Думаю ниже приведенный код наталкнет тебя на мысль...


Процедура ПриОткрытии()

.....
Форма.ИспользоватьЗакладки(1);
УправлениеДиалогом(0);
Активизировать("НомерДок",);

КонецПроцедуры // ПриОткрытии()

....

Процедура УправлениеДиалогом(УстановитьРеквизиты=0)

Форма.Закладки.УдалитьВсе();
Форма.Закладки.ДобавитьЗначение(1, "Шапка");
Форма.Закладки.ДобавитьЗначение(2, "Табличная часть");
Форма.ИспользоватьСлой("Основной, Шапка", 2);

Форма.ИспользоватьСлой("Грузоотправитель", ?(ВариантОтправки=1,0,1));
Форма.кнПодбор.Видимость(0);

УправлениеКурсом(УстановитьРеквизиты);

КонецПроцедуры // УправлениеДиалогом()
....

Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)

Если НомерЗакладки = 1 Тогда
Форма.ИспользоватьСлой("Основной, Шапка", 2);
Форма.ИспользоватьСлой("Грузоотправитель", ?(ВариантОтправки=1,0,1));
Если ПустоеЗначение(Договор.ВалютаДоговора) = 1 Тогда
Форма.Курс.Видимость(0);
Форма.ПодписьКурса.Видимость(0);
Форма.Валюта.Видимость(0);
Форма.ПодписьВалюта.Видимость(0);
Форма.рВалюта.Видимость(0);
КонецЕсли;

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

Активизировать("НомерСтроки");
КонецЕсли;

КонецПроцедуры // ПриВыбореЗакладки()

удачи в освоение этого "Бейсика"

[Mike-dc]

спасибо большое!

Добавлено через 55 секунд
PS: не, не ЖелДор. один из заводов на бразе

Добавлено через 8 минут
на самом деле, когда я это прочитал, уже сам все сделал

я сделал так: закладка "РасхНакл" и закладка "ТТН" (пример использования закладок взял из сч/ф.полученных)

дальше заполняем реквизиты ТТН на форме документа, жмем на кнопку "ТТН", запускается ЕРТ-шник ttnprint.ert, где прописано в "ПриОткрытии" заполнение реквизитов ерт-шника из формы. в нем уже жмем печать - выпадает печатная форма ТТН-ки. Хотел сначала засунуть модуль печати засунуть в документ - заморочился подгонкой, да так, что все работать перестало (((: но все же нашел более рациолнальный путь.

спасибо, Viking!