Пример - Типовые конфигурации системы 1С: Предприятие

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

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

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

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

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

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

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

Иначе

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

Конец Если;

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

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

Ном = 0;

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

Ном = Ном + 1;

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

Конец Цикла;

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

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

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

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

Конец Если;

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

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

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

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

Новый = 1;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

КонецЕсли;

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

Похожие статьи




Пример - Типовые конфигурации системы 1С: Предприятие

Предыдущая | Следующая