Форум

Function bnk_imp()
Local cFileBnkSeek
Local cPath:="c:\"
Local cMask:="*.dbf"
Local aFileFilter:={{"Базы данных","*.dbf"}}
Local cFilename:="bnkseek.dbf"
Local cMess:="Выбор файла BNKSEEK.DBF"
cFileBnkSeek:=PopFile(,cPath,cMask,cMess,aFileFilter) //ищем где находится файл
If Empty(cFileBnkSeek)
  SayAndWait("Не выбран файл")
Else
  SayAndWait(cFileBnkSeek)
EndIf   
Use (Loadpath()+"bank.dbf") Index('bank.cdx') New Alias bank shared//открываем справочник банков БЭСТа
bank->(ordSetFocus('tag_code')) // выбираем сортировку по БИКу
Go top
DbUseArea(.T.,,(cFileBnkSeek),"bnkseek",.t.,.F.,) //открываем классификатор банков РФ
Index On newnum tag tag_bik To "bnkseek.cdx" //делаем индекс для поиска
Go top
///перенос данных
Select bnkseek
Do While !EoF()
  Select bank
  If !DbSeek(bnkseek->newnum)
    Select bank
    Append Blank
    bank->bnk_id:=XGUID()
    bank->bnk_code:=bnkseek->newnum
    bank->bnk_name:=oemtoansi(AllTrim(bnkseek->namep))+" г."+oemtoansi(AllTrim(bnkseek->nnp))
    bank->acnt_rule:="1"
    bank->acnt_korr:=bnkseek->ksnp
    bank->addr:=AllTrim(bnkseek->ind)+", ";
                        +oemtoansi(AllTrim(bnkseek->nnp))+", ";
                        +oemtoansi(AllTrim(bnkseek->adr))+", ";
                        +oemtoansi(AllTrim(bnkseek->telef))
    DbUnLock()
  Else
  EndIf   // !DbSeek(bnkseek->newnum)
  Select bnkseek
  bnkseek->(DbSkip())
EndDo   // !EoF()
sayandwait("Перенос завершен")
bnkseek->(DbCloseArea()) //закрываем таблицу
bank->(DbCloseArea()) //закрываем таблицу
Return .t.

Function bnk_sync()
Local cFileBnkSeek
Local cPath:="c:\"
Local cMask:="*.dbf"
Local aFileFilter:={{"Базы данных","*.dbf"}}
Local cFilename:="bnkseek.dbf"// скачивать здесь http://www.pvision.ru/bik.htm
Local cMess:="Выбор файла BNKSEEK.DBF"
cFileBnkSeek:=PopFile(,cPath,cMask,cMess,aFileFilter) //ищем где находится файл
If Empty(cFileBnkSeek)
  SayAndWait("Не выбран файл")
EndIf   // Empty(cFileBnkSeek)
Use (Loadpath()+"bank.dbf") Index('bank.cdx') New Alias bank shared//открываем справочник банков БЭСТа
bank->(ordSetFocus('tag_code')) // выбираем сортировку по БИКу

DbUseArea(.T.,,(cFileBnkSeek),"bnkseek",.t.,.F.,) //открываем классификатор банков РФ
Index On newnum tag tag_bik To "bnkseek.cdx" //делаем индекс для поиска
Go top 
Select bank //встаем в справочник банков Б5
Go top //на первую запись
Do While !EoF() // перебор системного справочника банков БЭСТ-5
  Select bnkseek //перемещаемся в область справочника банков bnkseek
  If DbSeek(bank->bnk_code) // проверка на наличие записи с кодом БИК из БЭСТ-5
    Select bank // если есть такой банк в справочнике то обновляем его реквизиты в БЭСТ-5
    RLock()
    bank->bnk_name:=oemtoansi(AllTrim(bnkseek->namep))+" г."+oemtoansi(AllTrim(bnkseek->nnp)) //Название банка, город
    bank->bnk_code:=bnkseek->newnum//БИК
    bank->acnt_korr:=bnkseek->ksnp//корсчет
    bank->addr:=AllTrim(bnkseek->ind)+", ";
                        +oemtoansi(AllTrim(bnkseek->nnp))+", ";
                        +oemtoansi(AllTrim(bnkseek->adr))+", ";
                        +oemtoansi(AllTrim(bnkseek->telef))//индекс, город, адрес, телефон
    DbUnLock()
  Else // если нет такого банка в справочнике (устаревшая запись, либо ошибочная)
    Select bank //делаем отметку такой записи в справочнике Б5
    If Left(bank->bnk_name,2)<>"!("// проверка на повторный запуск этой функции,
      RLock()
      bank->bnk_name:="!(нет в спр-ке БИК) "+AllTrim(bank->bnk_name)
      DbUnLock()
    EndIf   // Left(bank->bnk_name,2)<>"!("// проверка на повторный запуск этой функции,
  EndIf   // DbSeek(bank->bnk_code) // проверка на наличие записи с кодом БИК из БЭСТ-5
  Select bank // дело сделано, идем к другой записи по справочнику банков БЭСТ-5
  bank->(DbSkip())
EndDo   // !EoF() // перебор системного справочника банков БЭСТ-5
sayandwait("Сихнронизация справочника завершена!")
bnkseek->(DbCloseArea()) //закрываем таблицу
bank->(DbCloseArea()) //закрываем таблицу
Return .t.

/*$$$
Функция: optbank
Категория: утилита для оптимизации справочника банков, удаления дубликатов
Параметры: без параметров
Результат: обновленный справочник банков, не содержащий дубли БИКов
Пример:  добавляем запись в userbdll.txt:
Дополнительно\Утилиты пользователя;Оптимизация справочника БАНКОВ;optbank;tools;1;
Примечания:
$$$*/

Function optbank()
Private t_bnk_id, t_bnk_code // переменные для сравнения значений соседних строк по индексу TAG_CODE
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()
      Delete
      DbUnLock()
      bank->(DbSkip())
    EndDo   //  bank->bnk_code=t_bnk_code // проверка, если по этому БИКу запись повторяется
  EndIf   // Len(AllTrim(bnk_code))<>9 // проверка на корректность значения БИК (9 символов)
EndDo   // !EoF() // цикл на перебор записей справочника банков
messagebox("Оптимизация справочника банков завершена.")
bank->(DbCloseArea()) //закрываем таблицу
prt_acnt->(DbCloseArea()) //закрываем таблицу
Return .t.