Вывод в Excel через XML (TFE) лайт версия

Автор:Avantage
Дата:04.02.2020
Просмотров:2052
Скачиваний:559
Оценка:, Оценок - 4
Скачать (rar-файл; Размер - 10765)

Обсудить в форуме

Описание

Быстрое создание отчётов в Excel, не сильно отличающееся от использования стандартной printLn. Использована идея KaMPiLeR по быстрому выводу в Excel через XML и добавлены простота и удобство использования.

Текст примера

 // Простой пример использования TFE_lite

import "TFE_lite.mac";
var xx=TFE("Отчет_2");

  xx.ColSizes("55,80,70,250,80,60,80"); // Зададим размеры колонок

  xx.AddRow("H^№№","H^Клиент","ML^","ML^","H^Сумма","H^Процент","H^Выплата"); //1-я строка заголовков
  xx.AddRow("MU^","H^Код","H^ID","H^Название","MU^","MU^","MU^");             //2-я строка заголовков
  var _ii = 0, _clname = "";
  InitProgress(25,"","Барахчу по клиентам");
  while (_ii < 25)
    _ii = _ii + 1;
    UseProgress(_ii);
    _clname = MkStr(codeFor("А") + Random(30),Random(30)) + "ОВ " 
            + MkStr(codeFor("А") + Random(30),Random(30)) + " " 
            + MkStr(codeFor("А") + Random(30),Random(30)) +"ВИЧ"; //Имена клиентов генератором случайных символов
    // в цикле добавляем строки по клиентам аналогично println()
    xx.AddRow(String("I#^",_ii),                    // номер по порядку 
              String("SBC#^",Random(999999):x),     // код клиента - случайный hex
              String("IC#^",Random(10000)),         // ID клиента 
              String("W#^",_clname),                // ФИО
              String("N#^",Random(9999),Random(9999),".",random(99)), // Случайная сумма вклада
              String("N3#^",(Random(9999)/$1000):0:3), // случайный процент
              "N#^=RC[-2]*RC[-1]/100");                // формула Вклад * процент /100 
  end;
  xx.AddRow("","","","SCR^ИТОГО:","GNB#^=SUM({UPROW})","","NYB#^=SUM({UPROW})"); //Итоговая строка с формулами и раскраской ячеек для любителей
  RemProgress;
  xx.Go("$ТЕСТ\\Отчетец"); //Файл будет сохранен в папку "Мои документы\ТЕСТ\" на локальном компе пользователя