База скриптов "Собственные отчеты" для программы "Анализ детализаций"
Уважаемые пользователи!
К сожалению, пока база скриптов пуста.
Если Вам не хватает тех отчетов, которые предлагает программа "Анализ детализаций", то напишите нам Ваши пожелания. Попробуем создать необходимый плагин.
В качестве самого простейшего примера, который просто показывает в таблице первые 10 строк из справочника телефонов и
сообщает в отдельном окне сколько было потрачено денег суммарно по данным загруженной сейчас детализации, приведем этот код:
var
Total : currency;
NDS : currency;
TotalWithNDS: currency;
begin
// С помощью SQL-запроса выбираем первые 10 записей из справочника телефонов
Query.SQL.Text := 'select top 10 * from reestr_Phones';
Query.Open;
// Показываем эти записи в таблице
Grid.LoadFromQuery(Query);
// Считаем полную сумму затрат в выбранной детализации
Query.SQL.Text := 'select sum(Cost) as SumCost from $Detail';
Query.Open;
Total := Query.FieldByName('SumCost').AsFloat;
// Вычисляем сумму с НДС и отдельно НДС
TotalWithNDS := Total * 1.18;
NDS := TotalWithNDS - Total;
// Показываем в отдельном окне
ShowMessage ('Всего потрачено: '+FloatToStr(TotalWithNDS)+ ' рублей. В том числе НДС: '+FloatToStr(NDS));
end.
Особой пользы, конечно, в таком отчете нет, но этот пример показывает для специалиста в базах данных как можно
проводить практически любую аналитику с помощью плагинов.
Скриптовый язык базируется на языке Pascal.
|
