.....
ds_xml.dataobject = s_xml_dataobject   
rc = ds_xml.settransobject( SQLCA )
if rc =  1  then
      ds_xml.Object.DataWindow.Import.XML.UseTemplate = s_xml_template
      
      s_TraceFile = ds_xml.Object.DataWindow.Import.XML.TraceFile
      if s_TraceFile <> '' then FileDelete( s_TraceFile )
      
      rc = ds_xml.importfile( XML!, s_file_xml )
      if rc >=  0  then
            Result = True
      else
            choose case rc
               case - 1    
                  s_msg = 'No rows or startrow value supplied is greater than the number of rows in the file'
               case - 2    
                  s_msg = 'Empty file'
               case  3    
                  s_msg = 'Invalid argument'
               case - 4    
                  s_msg = 'Invalid input'
               case  5    
                  s_msg = 'Could not open the file'
               case  6    
                  s_msg = 'Could not close the file'
               case  7    
                  s_msg = 'Error reading the text'
               case  8    
                  s_msg = 'Unsupported file name suffix (must be *.txt, *.csv, *.dbf or *.xml)'
               case  10    
                  s_msg = 'Unsupported dBase file format (not version 2 or 3)'
               case - 11    
                  s_msg = 'XML Parsing Error; XML parser libraries not found or XML not well formed'
               case  12    
                  s_msg = 'XML Template does not exist or does not match the DataWindow'
               case  13    
                  s_msg = 'Unsupported DataWindow style for import'
               case  14    
                  s_msg = 'Error resolving DataWindow nesting'
               case else
                  s_msg = 'ds.importfile( XML!, s_file_xml ) = ' + String(rc)
            end choose
            s_msg = Soob + '~nОшибка закачивания данных в DS из XML файла "' + s_file_xml+ '"~n' + s_msg 
            uf_log( s_msg )
            if MessageBox('Ошибка !!!', s_msg + &
               '~n~nЖелаете посмотреть файл трассировки импорта данных ?', &
               Question!, YesNo!  ) =  1  then
               if s_TraceFile <> '' then 
                  if FileExists(s_TraceFile ) then
                        OpenwithParm( w_only_look, s_TraceFile )
                  else
                        s_msg = Soob + '~nФайл трассировки "' + s_TraceFile + '" не обнаружен !!!'
                        uf_log( s_msg )
                        MessageBox('Предупреждение !!!', s_msg )
                  end if
               end if
            end if
            return ds_xml.rowcount() >  0 
      end if
else
      s_msg = Soob + '~nОтсутствует связь с базой данных~nds.settransobject( SQLCA ) <> 1'
      uf_log( s_msg )
      MessageBox('Ошибка !!!', s_msg )
end if
.....