Индивидуальный отчет.
Есть универсальный модуль для отображения любых запросов к базе данных (в архиве внизу).
1. Создать сам запрос:
- скопировать текст ниже,
- нажать в программе Ctrl+F10,
- вставить скопированный текст, нажать "ОК".
Dim Q As DAO.QueryDef, SQLstr As String
SQLstr="SELECT Documents.UserName AS Пользователь, IIF(Articles.TypeID=1,'товар','работа') AS Тип, Articles.TextName AS Название, Sum(DocumentRows.Quantity) AS [Кол-во], Sum(DocumentRows.Quantity*DocumentRows.PriceReport) AS Сумма "
SQLstr=SQLstr & "FROM (Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID) INNER JOIN Articles ON DocumentRows.ArticleID = Articles.ID "
SQLstr=SQLstr & "WHERE DocumentRows.TransNum=1 AND DocumentRows.AccountType=0 AND DocumentRows.FlagDb=True AND DocumentRows.FlagCr=True AND Documents.TypeID In (2,9) AND Documents.DocDate>=[DStart] And Documents.DocDate<=[DEnd] "
SQLstr=SQLstr & "GROUP BY Documents.UserName, IIF(Articles.TypeID=1,'товар','работа'), Articles.TextName"
Q = DB.CreateQueryDef("1_Пользователь_название_сумма")
Q.SQL = SQLstr2. Извлечь файл "Выборка_данных.add" в папку программы.
В главном окне программы появится кнопка "Выборка_данных", нажать ее.
3. В появившемся окне нажать вверху "Запрос..." и отметить "1_Пользователь_название_сумма".

- 1.png (28.99 КБ) Просмотров: 1382
Нажать "Расчет", выбирать имя или название, использовать фильтры.