ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Переводим ФИО в верхний регистр

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Переводим ФИО в верхний регистр
 
Одно время было обязательным требованием - занесение данных работника в верхнем регистре.
В последнее время акцент на этом делать перестали, и картотека начала "пестрить" на разные лады.
Если кто-то сталкивался с такой проблемой, то нижеприведенный плагин может помочь.
Запускать из картотеки в кадрах.
Код
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
С уважением,
Ильин Евгений
Страницы: 1
Читают тему (гостей: 2)