Local sRezult As String, UsName As String, UsPass As String, dtStart As 
Date, dtEnd As Date, cAcc As String
Local loTherm, lcTask, lnPercent, lnSeconds
If Used("firms") Then
 Thisformset.countrowrest =  0 
 Thisformset.countrowcashflows =  0 

 If Used("acc_val") Then
  If Thisformset.checkdateinterval(dtStart, dtEnd) = .F. Then
* Все сообщения были в функции проверки. Здесь просто выходим и ничего не делаем
   Return
  Endif
  Select acc_val
  Go Top
  Select Count(*) As nCount From acc_val Where codefirms = firms.code_firm Into Cursor sumRec

  nCountAllRec = sumRec.nCount
  Use In sumRec
  loTherm = Newobject("_thermometer","_therm","","Получение данных")
*  loTherm.ShowWindow =  1  && In Top-Level Form
*  lcTask = This.Parent.txtTask.Value
  i= 0 
  loTherm.Show()
  Select acc_val
  Go Top
  Scan
   If !Thisformset.form1.chNewSignIn.Value Then
    If Isnull(acc_val.signin) Then
* Если логина нет, идем дальше
     Loop
    Endif
   Endif

* Пересчет данных для прогрессбара
   lcTask = Alltrim(firms.name_firm) + " р\с - " + acc_val.account
   lnPercent = i/nCountAllRec * 100 
   loTherm.Update(lnPercent, lcTask)

   UsName = Alltrim(acc_val.signin)
   UsPass = Alltrim(acc_val.Pass)
   cAcc = acc_val.account
   nCode_acc = acc_val.code_acc

   sRezult = Thisformset.get_data(UsName, UsPass, dtStart, dtEnd, cAcc, "rest")
   If sRezult <> "-1" And Len(Alltrim(sRezult)) >  0  Then
    Try
     If g_debug Then
      Strtofile(sRezult, "C:\2\1_from_bank.xml")
     Endif
    Catch
    Endtry

* Преобразовываем полученные данные и там-же сохраняем их в базе
    Thisformset.transform_to_cursor(sRezult, nCode_acc, "rest", dtStart, dtEnd)
   Endif
   Thisformset.sleepex( 1 )
*   Wait "Тех. пауза между запросами" Window Timeout  1 
*   Wait Clear
   i = i +  1 
  Endscan
  loTherm.Complete()
  Release loTerm
 Else
  Messagebox("Запросите информацию о юр. лицах и р/счетах", + 0 + 48 + 4096 , "Работа с банком",  5000 )
 Endif
Else
 Messagebox("Запросите информацию о юр. лицах.", + 0 + 48 + 4096 , "Работа с банком",  5000 )
Endif
* Обновляем информацию
Thisform.LockScreen = .F.
Thisform.Refresh()