Создание отчета баланса счета в FastReport4 для программы бухгалтерского учета на Delphi7

Delphi , Базы данных , Отчеты

В процессе разработки программы бухгалтерского учета на Delphi7 может возникнуть необходимость создания отчета баланса счета. Для этого можно использовать компонент FastReport4. В данной статье мы рассмотрим, как создать отчет баланса счета с использованием SQL-запроса и FastReport4 в Delphi7.

Описание задачи

У нас есть таблица «Счета» (Bill) с шестью столбцами: BillID, BillDate, BillDesc, BillPrice, DebitID, CreditID. DebitID и CreditID являются целыми значениями и находятся в отношениях с таблицей «Счета» (Account), которая имеет два столбца: AccID и AccName. Нам нужно создать отчет баланса счета с данными из этих таблиц в FastReport4 для Delphi7.

Решение проблемы

Для создания отчета баланса счета в FastReport4 для Delphi7 можно использовать SQL-запрос. Ниже представлен SQL-запрос, который возвращает необходимые данные:

select BillID , BillDate , BillDesc, b.accid as DebitID, c.accid as CreditID
from Bill
left outer join Account b on Bill.DebitID = b.AccID
left outer join Account c on Bill.CreditID = c.AccID

Затем, в события «OnBeforePrint» полос данных «MasterData/DetailData» отчета, необходимо добавить следующий код для вычисления столбцов «DebitPrice» и «CreditPrice»:

if (b.accid <> '') then
  DebitPrice := BillPrice
else
  CreditPrice := BillPrice

Обратите внимание, что переменные «DebitPrice» и «CreditPrice» являются глобальными.

Альтернативный ответ

В качестве альтернативного решения можно использовать подзапрос. Ниже представлен SQL-запрос, который возвращает необходимые данные:

select a.BillID, a.BillDate, a.BillDesc,
       (select b.BillPrice from Bill b inner join Account c on b.DebitID=c.AccID where b.BillID=a.BillID) as DebitPrice,
       (select d.BillPrice from Bill d inner join Account e on d.CreditID=e.AccID where d.BillID=a.BillID) as CreditPrice
from Bill a

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

Заключение

В данной статье мы рассмотрели, как создать отчет баланса счета в FastReport4 для Delphi7 с помощью SQL-запроса. Мы также представили альтернативное решение с использованием подзапроса. Используя эти методы, вы можете создавать отчеты баланса счета в своей программе бухгалтерского учета на Delphi7.

Создано по материалам из источника по ссылке.

В статье описывается процесс создания отчета баланса счета в FastReport4 для программы бухгалтерского учета на Delphi7 с использованием SQL-запроса.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::