Оборотно-сальдовая ведомость в разрезе дней

@Den_v · Регистрация: 13.08.2016

Author24 — интернет-сервис помощи студентам

Добрый день. Прошу помощи по созданию Оборотно-сальдовой ведомости.
Знаю, что тема уже неоднократно поднималась, однако, самостоятельно в ней разобраться не удается.
Во вложении мини аналог базы данных с основными необходимыми данными.

Остаток на начало равен первому поступившему доходу (в моем примере на 01.11.2016 - 30 000 руб). В итоге нужен именно запрос, отражающий по дням остатки и обороты.
--Связь в таблицах осуществляется через дату.
--Оригинальная баз состоит из множества таблиц и связь через дату позволяет проще всего сопоставлять различные события/данные (таблицы), поэтому нарушать ее не хотелось бы.
-- Пытался посчитать нарастающими итогами доходы и расходы и от этого считать остаток на конец, а затем и на начало (смещением в один день), однако в силу неопытности, не могу посчитать нарастающие итоги на каждый день.
--Не до конца понимаю как работает DSum.

Подскажите как можно сделать, уже всю голову изломал.
P.S. Не судите слишком строго. Новичок в Аксесс.

@texnik-san · 15.11.2016, 20:38

Пересохраните базу в более раннем формате, пожалуйста (хотя бы 2007. хотя у многих тут только 2003).

Добавлено через 50 секунд
И это.. оборотку обычно делают за месяц, вы точно уверены, что вам по дням нужно?

@corbis · 15.11.2016, 20:41

используйте такой запрос:

SQL

1
2
3

SELECT Доходы.Дата_календарь, SUM(Доходы.Сумма_дохода) AS [Сумма_дохода]
FROM Доходы
GROUP BY Доходы.Дата_календарь;

* сохранить в старом формате не даёт - "используются бла-бла-бла.."

mobile · 15.11.2016, 20:49

Если правильно понял ТЗ, то запрос может быть такой

SQL

SELECT Календарь.Дата_календарь, val(nz(Доходы.Сумма_дохода,0)) AS ДоходТек, 
  val(nz(Расходы.Количество*Расходы.Цена,0)) AS РасходТек,
  (SELECT val(nz(SUM(Сумма_дохода),0))  FROM Доходы WHERE Доходы.Дата_календарь<Календарь.Дата_календарь) AS ДоходПред,
  (SELECT val(nz(SUM(Количество*Цена),0))  FROM Расходы WHERE Расходы.Дата_календарь<Календарь.Дата_календарь) AS РасходПред,
  val(nz(ДоходПред,0)-nz(РасходПред,0)) AS СальдоНач, СальдоНач+ДоходТек-РасходТек AS СальдоКонеч
FROM Календарь, Доходы, Расходы,
Календарь LEFT JOIN Доходы ON Календарь.Дата_календарь = Доходы.Дата_календарь,
Календарь LEFT JOIN Расходы ON Календарь.Дата_календарь = Расходы.Дата_календарь

@Den_v · 15.11.2016, 21:53 **[ТС]**

Mobile, Огромное спасибо! Я очень впечатлен. Вам удалось все это еще и одним запросом сделать. Очень лаконично и элегантно получилось. Взял на вооружение. Это именно то, что нужно было. По коду запроса все понятно. Только поясните, если не сложно как здесь val работает?
P.s. Спасибо, всем кто принял участие. Сохранить в более раннюю версию тоже не получилось. (у меня Аксесс 2013)

mobile · 15.11.2016, 22:07

Сообщение от Den_v

как здесь val работает?

Функция NZ возвращает строку. Число но текстовым типом. Функция Val превращает стринг в числовой тип. Это видно даже по экранному представлению (даташит) запроса: если убрать Val, то значение прижимается к левой границе как текст. С Val к правой как число.

@Den_v · 16.11.2016, 09:18 **[ТС]**

Понял. Спасибо!

@texnik-san · 16.11.2016, 10:00

Сообщение от mobile

Функция NZ возвращает строку.

Точно? Делаю в Immediate

Visual Basic

1 2	?TypeName(Nz(null,0)) Integer

@corbis · 16.11.2016, 10:11

texnik-san, поддерживаю. Не наблюдал некорректных типов от самой функции. Может тут дело в поле на форме? Если тип поля не задан, Access его по-разному может "предоставлять" пользователю?

mobile · 16.11.2016, 11:09

Nz возвращает Variant. Подтип может быть любой. И как мне представляется, когда подтип не удается, по разным причинам, определить точно, задается стринг. В частности, по запросу показанному выше, поведение поля с Nz указывало на стринг - число прижималось к левому краю как текст

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	15.11.2016, 20:38	2
	Пересохраните базу в более раннем формате, пожалуйста (хотя бы 2007. хотя у многих тут только 2003). Добавлено через 50 секунд И это.. оборотку обычно делают за месяц, вы точно уверены, что вам по дням нужно? 0

@Den_v 0 / 0 / 0 Регистрация: 13.08.2016 Сообщений: 9
	15.11.2016, 21:53 [ТС]	5
	Mobile, Огромное спасибо! Я очень впечатлен. Вам удалось все это еще и одним запросом сделать. Очень лаконично и элегантно получилось. Взял на вооружение. Это именно то, что нужно было. По коду запроса все понятно. Только поясните, если не сложно как здесь val работает? P.s. Спасибо, всем кто принял участие. Сохранить в более раннюю версию тоже не получилось. (у меня Аксесс 2013) 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	15.11.2016, 22:07	6
	Сообщение от Den_v как здесь val работает? Функция NZ возвращает строку. Число но текстовым типом. Функция Val превращает стринг в числовой тип. Это видно даже по экранному представлению (даташит) запроса: если убрать Val, то значение прижимается к левой границе как текст. С Val к правой как число. 1

@Den_v 0 / 0 / 0 Регистрация: 13.08.2016 Сообщений: 9
	16.11.2016, 09:18 [ТС]	7
	Понял. Спасибо! 0

@corbis 547 / 274 / 50 Регистрация: 03.04.2015 Сообщений: 926
	16.11.2016, 10:11	9
	texnik-san, поддерживаю. Не наблюдал некорректных типов от самой функции. Может тут дело в поле на форме? Если тип поля не задан, Access его по-разному может "предоставлять" пользователю? 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	16.11.2016, 11:09	10
	Nz возвращает Variant. Подтип может быть любой. И как мне представляется, когда подтип не удается, по разным причинам, определить точно, задается стринг. В частности, по запросу показанному выше, поведение поля с Nz указывало на стринг - число прижималось к левому краю как текст 2

Оборотно-сальдовая ведомость в разрезе дней

Решение