Разработка подсистемы учета материальных средств с использованием пакета прикладных программ 1С: Предприятие 8.1 для ГУП СК "Ставрополькоммунэлектро"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
им параметры макета
ТабДокумент.ПолеСверху = 0;
ТабДокумент.ПолеСлева = 0;
ТабДокумент.ПолеСнизу = 0;
ТабДокумент.ПолеСправа = 0;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_ТОРГ12";
Макет = ПолучитьОбщийМакет("ТОРГ12");
ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьМакетаЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаб");
ОбластьМакетаСтрока = Макет.ПолучитьОбласть("Строка");
ОбластьМакетаИтогоПоСтранице = Макет.ПолучитьОбласть("ИтогоПоСтранице");
ОбластьМакетаВсего = Макет.ПолучитьОбласть("Всего");
ОбластьМакетаПодвал = Макет.ПолучитьОбласть("Подвал");
// Выводим общие реквизиты шапки
СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Контрагент, Шапка.ДатаДокумента);
СведенияОГрузоотправителе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузоотправитель, Шапка.ДатаДокумента);
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента);
СведенияОГрузополучателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузополучатель, Шапка.ДатаДокумента);
ОбластьМакетаШапка.Параметры.Заполнить(Шапка);
ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "ПолноеНаименование,ИНН,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
ОбластьМакетаШапка.Параметры.ПредставлениеПлательщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе);
// Если Значение поля Контрагент не заполнено, то это возможно только для
// вида операции "Ответственное хранение (купля-продажа/комиссия)".
// Выводим подвал документа
ОбластьМакетаПодвал.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(КоличествоСтрок,,",,,,,,,,0");
ОбластьМакетаПодвал.Параметры.ВсегоМестПрописью = ?(ИтогоМест = 0, "", ЧислоПрописью(ИтогоМест,,",,,С,,,,,0"));
ОбластьМакетаПодвал.Параметры.СуммаПрописью = РаботаСДиалогами.СформироватьСуммуПрописью(ИтогоСуммаСНДС, мВалютаРегламентированногоУчета);
ОбластьМакетаПодвал.Параметры.ДатаДокументаДень = """ """;
ОбластьМакетаПодвал.Параметры.ДатаДокументаМесяц = "";
ОбластьМакетаПодвал.Параметры.ДатаДокументаГод = " 20 года";
ТабДокумент.Вывести(ОбластьМакетаПодвал);
Возврат ТабДокумент;
КонецФункции // ПечатьТОРГ12ЗаПоставщика()