Основы автоматизированного бухгалтерского учета - Контрольная работа

САПР и ПК, доктор технических наук _____________ Кравец А.Г. Волгоград, 2014 Задание 1.40 Организация занимается торговлей скоропортящимися продуктами. Необходимо создать отчеты о состоянии взаиморасчетов с покупателями и отгрузках товаров за период. бухгалтерский учет товар оплата Взаиморасчеты с покупателями за период с 01.01.2009 по 31.03.2009 Покупатель Документ Нач. Задолж. Справочник «Номенклатура» - предназначен для хранения информации о товарах. 2. Модуль объекта Процедура ОбработкаПроведения(Отказ, Режим) Движения.Взаиморасчеты.Записывать = Истина; Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл Движение = Движения.Взаиморасчеты.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Период = Дата; Движение.Контрагент = Контрагент; Движение.Документ = Ссылка; Движение.Сумма = СуммаПоДокументу; КонецЦикла; Движения.ОтгрузкиТоваров.Записывать = Истина; Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл Движение = Движения.ОтгрузкиТоваров.Добавить(); Движение.Период = Дата; Движение.Номенклатура = ТекСтрокаСписокНоменклатуры.Номенклатура; Движение.КоличествоОтправлено = ТекСтрокаСписокНоменклатуры.Количество; КонецЦикла; КонецПроцедуры Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) СуммаПоДокументу = СписокНоменклатуры.Итог(Сумма); КонецПроцедуры 2. Модуль объекта: Процедура ОбработкаПроведения(Отказ, Режим) Движения.Взаиморасчеты.Записать(); Движения.Взаиморасчеты.Записывать = Истина; Блокировка = Новый БлокировкаДанных; ЭлементБлокировки = Блокировка.Добавить(РегистрНакопления.Взаиморасчеты); ЭлементБлокировки.УстановитьЗначение(Контрагент, Контрагент); ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный; ЭлементБлокировки.ИсточникДанных = СписокНакладных; ЭлементБлокировки.ИспользоватьИзИсточникаДанных(Документ, Накладная); Блокировка.Заблокировать(); Запрос = Новый Запрос; Запрос.Текст = ВЫБРАТЬ | ПриходДенегСписокНакладных.Накладная КАК Накладная |ПОМЕСТИТЬ ВТСписок |ИЗ | Документ.ПриходДенег.СписокНакладных КАК ПриходДенегСписокНакладных |ГДЕ | ПриходДенегСписокНакладных.Ссылка = &Ссылка | |ИНДЕКСИРОВАТЬ ПО | Накладная |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТСписок.Накладная, | ЕСТЬNULL(ВзаиморасчетыОстатки.СуммаОстаток, 0) КАК СуммаОстаток |ИЗ | ВТСписок КАК ВТСписок | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Взаиморасчеты.Остатки( | &Момент, | Документ В | (ВЫБРАТЬ | Т.Накладная | ИЗ | ВТСписок КАК Т) | И Контрагент = &Контрагент) КАК ВзаиморасчетыОстатки | ПО ВТСписок.Накладная = ВзаиморасчетыОстатки.Документ | |УПОРЯДОЧИТЬ ПО | ВТСписок.Накладная.МоментВремени |ИТОГИ | СУММА(СуммаОстаток) |ПО | ОБЩИЕ; Запрос.УстановитьПараметр(Ссылка, Ссылка); Запрос.УстановитьПараметр(Момент, ?(Режим = РежимПроведенияДокумента.Неоперативный, МоментВремени(), Неопределено)); Запрос.УстановитьПараметр(Контрагент, Контрагент); Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); Если Выборка.Следующий() Тогда Превышение = СуммаПоДокументу Выборка.СуммаОстаток; Если Превышение > 0 Тогда Отказ = Истина; Сообщить(Сумма оплаты превышает имеющуюся задолженность на Превышение); Возврат; КонецЕсли; КонецЕсли; ВыборкаДет = Выборка.Выбрать(); СуммаРаспределения = СуммаПоДокументу; Пока ВыборкаДет.Следующий() И СуммаРаспределения > 0 Цикл ТекСумма = Мин(СуммаРаспределения, -ВыборкаДет.СуммаОстаток); Движение = Движения.Взаиморасчеты.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Приход; Движение.Период = Дата; Движение.Контрагент = Контрагент; Движение.Документ = ВыборкаДет.Накладная; Движение.Сумма = ТекСумма; СуммаРаспределения = СуммаРаспределения - ТекСумма; КонецЦикла; КонецПроцедуры 3.