// Экспорт инвентарки по скрипту (пример)


var DATASET :TDataset; // датасет, передающий данные
    ID_ORG :integer; // Код контрагента (склада)

var
  Table :TTable;
  Dialog :TsaveDialog;
  Filename :string;
begin
  if not (dataset is TTable) then RaiseException('Таблица имеет неожиданный тип '+dataset.classname+', требуется проверка скрипта на совместимость.');


  Filename := '';
  Dialog := TSaveDialog.create(nil);
  try
    Dialog.Filter := 'Excel-файлы(*.xls)|*.xls|Все файлы(*.*)|*.*';
    Dialog.Title := 'Укажите Excel-файл';
    if Dialog.execute
    then FileName := Dialog.Filename;

  finally
    Dialog.free;
  end;

  if Filename <> '' then
  with tMyWait.create('Идет экспорт инвентарной ведомости') do
  try

    ForceDirectories(extractFilepath(FileName));

    TableCopyD(FileName, Dataset);

    hide; // waitform
    CreateHintI('Операция завершена','Передача инвентарной ведомости',20);
  finally
    free
  end;


end.
