// простейший пример экспорта в 1С

const OutputFileName = 'c:\temp\1C\export1s.txt';

 var
   DATASET :TDATASET; // предопределенный DATASET, сформированный программой
   MINDATE :TDATETIME; // предопределенная минимальная дата
   MAXDATE :TDATETIME; // предопределенная максимальная дата

   CheckOutput :boolean; // предопределенный (выводятся ли расх.накладные)
   CheckInput  :boolean; // предопределенный (выводятся ли прих.накладные)
   CheckInputMoney :boolean;  // предопределенный (выводятся ли выплаты покупателей)

   MyStr :string;
   i :integer;
   //table :TTable;
begin
   MyStr := '';

   with TMyWait.create('Идет экспорт данных в 1С') do
   try
     //table := Ttable.create(nil);
     //table.databasename := 'dbkassa';
     //table.tablename := 'tovar';
     //table.open;
     //dataset := table;


     for i := 0 to dataset.fieldcount -1 do begin
      if i>0 then  MyStr := MyStr + #9;
      MyStr := MyStr + dataset.fields[i].fieldname;
     end;
     MyStr := MyStr +  #13+#10;

     Text := 'Передача данных '; //+ inttostr(dataset.recordcount); // нет пока свойства  recordcount

     dataset.disablecontrols;
     try
       dataset.first;

       //progressbarpos := dataset.recordcount; нет пока у tdataset свойства recordcount и recno
       while not dataset.eof do begin
         //incprogress;
         for i := 0 to dataset.fieldcount -1 do begin
           if i>0 then  MyStr := MyStr + #9;
           MyStr := MyStr + dataset.fields[i].asstring;
         end;
         MyStr := MyStr +  #13+#10;

         dataset.next;
       end;
     finally
       dataset.enablecontrols;
     end;

     Text := 'сохранение информации';
     stringtofile(OutputFileName,MyStr);
     //CreateHInt('Файл создан','',20); // Здесь пока ошибка с TMsgDlgType
     bvMessage('Процедура окончена');


     //table.free;
   finally
     free
   end;

end.
