Форум

optbank()
Function optbank()
Local t_bnk_id, t_bnk_code // переменные для сравнивая значений соседних строк по индексу TAG_CODE
dbpush()
Use (Loadpath()+"prt_acnt.dbf") Index('prt_acnt.cdx') New Alias prt_acnt shared
prt_acnt->(ordSetFocus(0))
Use (Loadpath()+"bank.dbf") Index('bank.cdx') New Alias bank shared
bank->(ordSetFocus('tag_code')) // выбираем сортировку по БИКу
DbGoTop() // перемещаем указатель на начало сортированного списка
Do While !EoF() // цикл на перебор записей справочника банков
  If Len(AllTrim(bnk_code))<>9 // проверка на корректность значения БИК (9 символов)
    //действия при некорректном коде
    bank->(DbSkip())
  Else //иначе, код равен 9 символам
    //действия при корректном коде (по количеству символов)
    t_bnk_id:=bank->bnk_id ; t_bnk_code:=bank->bnk_code //Запоминаем значения текущей записи для сравнения с последующими
    bank->(DbSkip()) //идем дальше
    Do While  bank->bnk_code=t_bnk_code // проверка, если по этому БИКу запись повторяется
      Select prt_acnt
      //замена значения банка в справочнике счетов партнеров
      FLock()
      Replace prt_acnt->bnk_id With t_bnk_id ;
              For prt_acnt->bnk_id=bank->bnk_id
      DbUnLock()
      Select bank
      //Отмечаем запись для удаления в справочнике банков
      RLock()
      //      bank->bnk_name:="D->"+bank->bnk_name
      Delete
      DbUnLock()
      bank->(DbSkip())
    EndDo   //  bank->bnk_code=t_bnk_code // проверка, если по этому БИКу запись повторяется
  EndIf   // Len(AllTrim(bnk_code))<>9 // проверка на корректность значения БИК (9 символов)
EndDo   // !EoF() // цикл на перебор записей справочника банков
//messagebox(str(recno()))
//messagebox(bank->bnk_code)
//sayandwait("Ура! Работает!")
messagebox("Оптимизация справочника банков завершена.")
bank->(DbCloseArea()) //закрываем таблицу
prt_acnt->(DbCloseArea()) //закрываем таблицу
dbpop()
Return .t.