Одно время было обязательным требованием - занесение данных работника в верхнем регистре.
В последнее время акцент на этом делать перестали, и картотека начала "пестрить" на разные лады.
Если кто-то сталкивался с такой проблемой, то нижеприведенный плагин может помочь.
Запускать из картотеки в кадрах.
В последнее время акцент на этом делать перестали, и картотека начала "пестрить" на разные лады.
Если кто-то сталкивался с такой проблемой, то нижеприведенный плагин может помочь.
Запускать из картотеки в кадрах.
Код |
---|
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 |
С уважением,
Ильин Евгений
Ильин Евгений