Переводим ФИО в верхний регистр

Одно время было обязательным требованием - занесение данных работника в верхнем регистре.
В последнее время акцент на этом делать перестали, и картотека начала "пестрить" на разные лады.
Если кто-то сталкивался с такой проблемой, то нижеприведенный плагин может помочь.
Запускать из картотеки в кадрах.

Код

usr_FioUp()

  Function usr_FioUp()
    Local cFam,cName,cPatr,cFior,cFiod,cFiov
    dbpush()
    PROGRESSINIT(3,"Идет перебор картотеки..")
    //
    ProgressUpdate(1)
    NetUse("u_people",B6_DBF_PATH+"people.dbf")//открываем картотеку
    Go top
    Do While (u_people->(!EoF()))
      cFam:=Upper(AllTrim(u_people->shortname))
      cName:=Upper(AllTrim(u_people->Name1))
      cPatr:=Upper(AllTrim(u_people->Name2))
      RLock()
      u_people->shortname:=cFam
      u_people->name1:=cName
      u_people->name2:=cPatr
      DbUnLock()
      u_people->(DbSkip())
    EndDo
    u_people->(DbCloseArea())
    //
    ProgressUpdate(2)
    NetUse("u_cardssec",B6_DBF_PATH+"kadry\cardssec.dbf")//открываем картотеку
    Go top
    Do While (u_cardssec->(!EoF()))
      cFam:=Upper(AllTrim(u_cardssec->Fam))
      cName:=Upper(AllTrim(u_cardssec->Name))
      cPatr:=Upper(AllTrim(u_cardssec->Patr))
      cFior:=Upper(AllTrim(u_cardssec->Fio_r))
      cFiod:=Upper(AllTrim(u_cardssec->Fio_d))
      cFiov:=Upper(AllTrim(u_cardssec->Fio_v))
      RLock()
      u_cardssec->fam:=cFam
      u_cardssec->name:=cName
      u_cardssec->Patr:=cPatr
      u_cardssec->Fio_r:=cFior
      u_cardssec->Fio_d:=cFiod
      u_cardssec->Fio_v:=cFiov
      DbUnLock()
      u_cardssec->(DbSkip())
    EndDo
    u_cardssec->(DbCloseArea())
    //
    ProgressUpdate(3)
    NetUse("u_cardspri",B6_DBF_PATH+"salary\cardspri.dbf")//открываем картотеку
    Go top
    Do While (u_cardspri->(!EoF()))
      cFam:=Upper(AllTrim(u_cardspri->Fam))
      cName:=Upper(AllTrim(u_cardspri->Name))
      cPatr:=Upper(AllTrim(u_cardspri->Patr))
      RLock()
      u_cardspri->fam:=cFam
      u_cardspri->name:=cName
      u_cardspri->Patr:=cPatr
      DbUnLock()
      u_cardspri->(DbSkip())
    EndDo
    u_cardspri->(DbCloseArea())
    PROGRESSHIDE()
    dbpop()
    Return

Форум