Министерство образования и науки РФ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ВОРОНЕЖСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

Факультет автоматики и электромеханики

Кафедра «Автоматизированные и вычислительные системы»

Специальность «Вычислительные машины, комплексы,

системы и сети»

отчет по лабораторным работам № 1-10

по дисциплине «Программирование в среде 1С»

Вариант 9

Выполнила: ст. гр. ВМ-092

Кабанцова В.П.

Преподаватель: Гребенникова Н.И.

Воронеж 2012 г.

Приходная накладная

Модуль документа:

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

//

Процедура ОбработкаПроведения()

Сч19_3 = СчетПоКоду("19.3");

Сч41_1 = СчетПоКоду("41.1");

Сч60_1 = СчетПоКоду("60.1");

Сч68_3 = СчетПоКоду("68.3");

//Проверим, заполнены ли все реквизиты шапки

Если Склад.Выбран()=0 Тогда

Сообщить("Не выбран склад! Документ ""Приходная накладная"" №"+ НомерДок+" от "+ДатаДок+" не проведен.");

НеПроводитьДокумент();

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Контрагент.Выбран()=0 Тогда

Сообщить("Не выбран поставщик! Документ ""Приходная накладная"" №"+НомерДок+" от "+ДатаДок+" не проведен.");

НеПроводитьДокумент();

СтатусВозврата(0);

Возврат;

КонецЕсли;

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

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

Если Сумма > 0 Тогда

Операция.НоваяПроводка();

Операция.Дебет.Счет = Сч41_1;

Операция.Дебет.Товары = Товар;

Операция.Дебет.Склады = Склад;

Операция.Кредит.Счет = Сч60_1;

Операция.Кредит.Контрагенты = Контрагент;

Операция.Количество = Количество;

Операция.Сумма = Сумма;

Операция.СодержаниеПроводки = "Поступили товары";

КонецЕсли;

КонецЦикла;

//Ниже следуют проводки по всему документу

Сумма_НДС = Итог("СуммаНДС");

Если Сумма_НДС > 0 Тогда

//1. Выделяем НДС

Операция.НоваяПроводка();

Операция.Дебет.Счет = Сч19_3;

Операция.Кредит.Счет = Сч60_1;

Операция.Кредит.Контрагенты = Контрагент;

Операция.Сумма = Сумма_НДС;

Операция.СодержаниеПроводки = "Выделен НДС по пост, товарам";

//2. Производим зачет НДС

Операция.НоваяПроводка ();

Операция.Дебет.Счет = Сч68_3;

Операция.Кредит.Счет = Сч19_3;

Операция.Сумма = Сумма_НДС;

Операция.СодержаниеПроводки = "Зачтен НДС по пост, товарам";

КонецЕсли;

Операция.Содержание = "Поступление товаров";

Операция.СуммаОперации = итог("Сумма")+итог("СуммаНДС");

Операция.Записать();

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

Модуль Приходная накладная:

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

ПриЗаписиПерепроводить(1);

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

Функция СуммаПоДокументу()

ИнфоТекст="";

с_Всего=итог("Сумма")+итог("СуммаНДС");

если с_Всего<>0 тогда

ИнфоТекст=ИнфоТекст+"Сумма по документу" + " " + с_Всего+" руб. В т.ч. НДС"+ " "+ итог("суммаНДС")+" руб.";

конецесли;

Возврат(ИнфоТекст);

КонецФункции

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

//Данный фрагмент построен конструктором.

//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!

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

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

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

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

Таб.Опции(0,0,0,0);

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

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

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

КонецЦикла;

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

Таб.ТолькоПросмотр(1);

ВыбОбласть = Таб.Область("R13C2:R14C15");

ВыбОбласть.Шрифт("Cambria");

ВыбОбласть.РазмерШрифта(8);

ВыбОбласть.Полужирный(1);

ВыбОбласть.ЦветФона("170255220");

Таб.Показать("Печать ПриходнаяНакладная","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

//используется как формула в ряде полей ввода таблицы документа: количество, цена, товар.

Процедура пересчитатьсумму();

Сумма=Цена*Количество;

СуммаНДС=Сумма/100*СтавкаНДС.ПроцентНДС;

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

//используется как формула в поле ввода таблицы товар.

Процедура ПриСменеТовара();

Цена=Товар.ЦенаЗакупочная;

Единица=Товар.ЕдиницаИзмерения;

СтавкаНДС=Товар.СтавкаНДС;

пересчитатьсумму();

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

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

Рисунок 1 – Форма Приходная накладная

Рисунок 2 – Таблица Приходная накладная