Модуль объекта

Процедура ОбработкаПроведения(Отказ, Режим)

Движения.Взаиморасчеты.Записывать = Истина;

Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Контрагент = Контрагент;

Движение.Документ = Ссылка;

Движение.Сумма = СуммаПоДокументу;

КонецЦикла;

Движения.ОтгрузкиТоваров.Записывать = Истина;

Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл

Движение = Движения.ОтгрузкиТоваров.Добавить();

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСписокНоменклатуры.Номенклатура;

Движение.КоличествоОтправлено = ТекСтрокаСписокНоменклатуры.Количество;

КонецЦикла;

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

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

СуммаПоДокументу = СписокНоменклатуры.Итог("Сумма");

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

2. Документ «Приход денег» - предназначен для добавления нового поступления денег и сведений о нем.

Модуль объекта:

Процедура ОбработкаПроведения(Отказ, Режим)

Движения.Взаиморасчеты.Записать();

Движения.Взаиморасчеты.Записывать = Истина;

Блокировка = Новый БлокировкаДанных;

ЭлементБлокировки = Блокировка.Добавить("РегистрНакопления.Взаиморасчеты");

ЭлементБлокировки.УстановитьЗначение("Контрагент", Контрагент);

ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;

ЭлементБлокировки.ИсточникДанных = СписокНакладных;

ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Документ", "Накладная");

Блокировка.Заблокировать();

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| ПриходДенегСписокНакладных.Накладная КАК Накладная

|ПОМЕСТИТЬ ВТСписок

|ИЗ

| Документ.ПриходДенег.СписокНакладных КАК ПриходДенегСписокНакладных

|ГДЕ

| ПриходДенегСписокНакладных.Ссылка = &Ссылка

|

|ИНДЕКСИРОВАТЬ ПО

| Накладная

|;

|

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ

| ВТСписок.Накладная,

| ЕСТЬNULL(ВзаиморасчетыОстатки.СуммаОстаток, 0) КАК СуммаОстаток

|ИЗ

| ВТСписок КАК ВТСписок

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Взаиморасчеты.Остатки(

| &Момент,

| Документ В

| (ВЫБРАТЬ

| Т.Накладная

| ИЗ

| ВТСписок КАК Т)

| И Контрагент = &Контрагент) КАК ВзаиморасчетыОстатки

| ПО ВТСписок.Накладная = ВзаиморасчетыОстатки.Документ

|

|УПОРЯДОЧИТЬ ПО

| ВТСписок.Накладная.МоментВремени

|ИТОГИ

| СУММА(СуммаОстаток)

|ПО

| ОБЩИЕ";

Запрос.УстановитьПараметр("Ссылка", Ссылка);

Запрос.УстановитьПараметр("Момент", ?(Режим = РежимПроведенияДокумента.Неоперативный, МоментВремени(), Неопределено));

Запрос.УстановитьПараметр("Контрагент", Контрагент);

Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Если Выборка.Следующий() Тогда

Превышение = СуммаПоДокументу + Выборка.СуммаОстаток;

Если Превышение > 0 Тогда

Отказ = Истина;

Сообщить("Сумма оплаты превышает имеющуюся задолженность на " + Превышение);

Возврат;

КонецЕсли;

КонецЕсли;

ВыборкаДет = Выборка.Выбрать();

СуммаРаспределения = СуммаПоДокументу;

Пока ВыборкаДет.Следующий() И СуммаРаспределения > 0 Цикл

ТекСумма = Мин(СуммаРаспределения, -ВыборкаДет.СуммаОстаток);

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Контрагент = Контрагент;

Движение.Документ = ВыборкаДет.Накладная;

Движение.Сумма = ТекСумма;

СуммаРаспределения = СуммаРаспределения - ТекСумма;

КонецЦикла;

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

3. Документ «Акт приема-передачи» предназначен для фиксации факта передачи документов от одной стороны другой.

Модуль объекта:

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

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

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РасходнаяНакладная") Тогда

// Заполнение шапки

Накладная = ДанныеЗаполнения.Ссылка;

Контрагент = ДанныеЗаполнения.Контрагент;

Для Каждого ТекСтрокаСписокНоменклатуры Из ДанныеЗаполнения.СписокНоменклатуры Цикл

НоваяСтрока = СписокНоменклатуры.Добавить();

НоваяСтрока.КоличествоОтправлено = ТекСтрокаСписокНоменклатуры.Количество;

НоваяСтрока.Номенклатура = ТекСтрокаСписокНоменклатуры.Номенклатура;

НоваяСтрока.Сумма = ТекСтрокаСписокНоменклатуры.Сумма;

НоваяСтрока.Цена = ТекСтрокаСписокНоменклатуры.Цена;

КонецЦикла;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр ОтгрузкиТоваров

Движения.ОтгрузкиТоваров.Записывать = Истина;

Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл

Движение = Движения.ОтгрузкиТоваров.Добавить();

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСписокНоменклатуры.Номенклатура;

Движение.КоличествоПолучено = ТекСтрокаСписокНоменклатуры.КоличествоПолучено;

КонецЦикла;

// Снижение долга при недопоставке

Движения.Взаиморасчеты.Записать();

Движения.Взаиморасчеты.Записывать = Истина;

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| АктПриемаПередачиСписокНоменклатуры.Номенклатура КАК Номенклатура,

| СУММА(АктПриемаПередачиСписокНоменклатуры.КоличествоОтправлено) КАК КоличествоОтправлено,

| СУММА(АктПриемаПередачиСписокНоменклатуры.КоличествоПолучено) КАК КоличествоПолучено,

| СУММА(АктПриемаПередачиСписокНоменклатуры.Цена) КАК Цена

|ПОМЕСТИТЬ ВТСписок

|ИЗ

| Документ.АктПриемаПередачи.СписокНоменклатуры КАК АктПриемаПередачиСписокНоменклатуры

|ГДЕ

| АктПриемаПередачиСписокНоменклатуры.Ссылка = &Ссылка

|

|СГРУППИРОВАТЬ ПО

| АктПриемаПередачиСписокНоменклатуры.Номенклатура

|

|ИНДЕКСИРОВАТЬ ПО

| Номенклатура

|;

|

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ

| ВТСписок.Номенклатура,

| ВЫБОР

| КОГДА ВТСписок.КоличествоОтправлено - ВТСписок.КоличествоПолучено <= ВТСписок.КоличествоОтправлено * ЕСТЬNULL(НормыУбыли.НормаУбылиПроцент, 0) / 100

| ТОГДА 0

| ИНАЧЕ ВТСписок.КоличествоОтправлено - ВТСписок.КоличествоПолучено - ВТСписок.КоличествоОтправлено * ЕСТЬNULL(НормыУбыли.НормаУбылиПроцент, 0) / 100

| КОНЕЦ КАК ПревышениеПотерь,

| ВТСписок.Цена,

| ВТСписок.КоличествоОтправлено - ВТСписок.КоличествоПолучено КАК ПотериФакт

|ИЗ

| ВТСписок КАК ВТСписок

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НормыУбыли КАК НормыУбыли

| ПО ВТСписок.Номенклатура = НормыУбыли.Номенклатура";

Запрос.УстановитьПараметр("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

СнижениеДолга = 0;

Пока Выборка.Следующий() Цикл

Если Выборка.ПревышениеПотерь > 0 Тогда

СнижениеДолга = СнижениеДолга + Выборка.Цена * Выборка.ПотериФакт;

КонецЕсли;

КонецЦикла;

Если СнижениеДолга > 0 Тогда

Движение = Движения.Взаиморасчеты.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Контрагент = Контрагент;

Движение.Документ = Накладная;

Движение.Сумма = СнижениеДолга;

КонецЕсли;;

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

4. Регистр накопления «Взаиморасчеты» - предназначен для хранения информации о взаимных расчетах с контрагентами.

5. Регистр накопления «Отгрузки товаров» - предназначен для хранения информации об отгрузках товаров контрагентам.

Отчеты