with TADODataSet.Create(Application) do
         try
           Connection:=AdoOra;
           CommandText:='select * from TMP_NS where 0=1';
           open;
           try
             AdoOra.BeginTrans;
             AdoReceipt.First;
             while not AdoReceipt.Eof do
             begin
               insert;
               for i:=0 to AdoReceipt.Fields.Count-1 do Fields[i].Value:=AdoReceipt.Fields[i].Value;
               post;
               AdoReceipt.Next;
             end;
             AdoOra.CommitTrans;
           except
             AdoOra.RollbackTrans;
           end;
         finally
           free;
         end;