Программы системы 1С: Предприятие. Конфигурирование и администратирование в программах 1С: Предприятие (стр. 7 из 7)

Рассмотрим часть модуля документа «Счет» в программе «1С:Бухгалтерия»

Процедура «Печать» - создание печатной формы документа.

Процедура Печать()

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

ИмяФайлаПечатнойФормы = КаталогИБ()+"ExtForms\PrnForms\1cbs.mxl";

Если ФС.СуществуетФайл(ИмяФайлаПечатнойФормы) = 1 Тогда

Таб.ИсходнаяТаблица(ИмяФайлаПечатнойФормы);

Иначе

Таб.ИсходнаяТаблица("Таблица");

КонецЕсли;

Таб.ВывестиСекцию("Шапка");

ВыбратьСтроки();

Ном = 0;

Пока ПолучитьСтроку()=1 Цикл

Ном = Ном + 1;

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Итого");

Таб.ВывестиСекцию("НДС");

Если УчитыватьНП = 1 Тогда

Таб.ВывестиСекцию("НП");

КонецЕсли;

Таб.ВывестиСекцию("Подвал");

КонецПроцедуры

Процедура «Ввод на основании» - документ будет выводиться на основании другого документа.

Процедура ВводНаОсновании(ДокОсн) //предопределенная

Новый = 1;

Если ДокОсн.Вид() = "РасходнаяНакладная" Тогда

РасчетныйСчет = ДокОсн.РасчетныйСчет;

Контрагент = ДокОсн.Контрагент;

Договор = ДокОсн.Договор;

Плательщик = ДокОсн.Контрагент;

ВариантРасчетаНалогов = ДокОсн.ВариантРасчетаНалогов;

ДокОсн.ВыбратьСтроки();

Пока ДокОсн.ПолучитьСтроку() = 1 Цикл

НоваяСтрока();

Товар = ДокОсн.Товар;

Количество = ДокОсн.Количество;

Цена = ДокОсн.Цена;

Сумма = ДокОсн.Сумма;

НДС = ДокОсн.НДС;

НП = ДокОсн.НП;

Всего = ДокОсн.Всего;

КонецЦикла;

КонецЕсли;

КонецПроцедуры //ВводНаОсновании