User Function PLSVLDC() Local cTrilha := PARAMIXB[1]
Local cTipCar := PARAMIXB[2]
Local aMatricula := PARAMIXB[3]
Local cResult := PARAMIXB[4]
Local cCodCls := ""
Local cCodUsr := ""
Local cCodOpe := ""
Local cCodLdp := ""
Local cCodPeg := "AUTO"
Local cFase := "1"
Local cSituac := "1" If !(PrepEnvPor())
Return PWSHtmlAlert( "","Erro ao reenviar a senha",;
"Empresa ou Filial não informadas na chave PREPAREIN do Job do Portal no arquivo de configuração do servidor",;
"W_PORESQSENH.APW", .F.)
EndIf cCodUsr := GetUsrCode()
cCodOpe := PLSINTPAD(RETCODUSR())
cCodLdp := PLSRETLDP(1)
cCodPeg := "AUTO"
cFase := "1"
cSituac := "1"
cCodCls := GetNewPar("FS_CRAPAR","")//"MED" Conout(cCodOpe)
Conout(cCodCls) dbSelectArea("BSO")
BSO->(dbSetOrder(1))
If !(BSO->(dbSeek(xFilial("BSO") + cCodUsr ))) dbSelectArea("BAU")
BAU->(dbSetOrder(7))
If !(BAU->(dbSeek(xFilial("BAU") + BSO->BSO_CODINT))) .And. BAU->BAU_TIPPRE $ cCodCls dbSelectArea("BCI")
BCI->(dbSetOrder(1))//7
If !(BCI->(dbSeek(xFilial("BCI") + cCodOpe + cCodLdp + cCodPeg + cFase + cSituac)))
RecLock("BCI",.T.)
BCI->BCI_FILIAL := xFilial("BCI")
BCI->BCI_CODOPE := cCodOpe
BCI->BCI_CODLDP := cCodLdp
BCI->BCI_CODPEG := cCodPeg
BCI->BCI_FASE := cFase
BCI->BCI_SITUAC := cSituac
BCI->(MsUnlock())
EndIf
RecLock("BD5",.T.)
BD5->BD5_FILIAL := xFilial("BD5")
BD5->BD5_CODOPE := cCodOpe
BD5->BD5_CODLDP := cCodLdp
BD5->BD5_CODPEG := cCodPeg
BD5->BD5_NUMERO := ""
BD5->BD5_SITUAC := cSituac
BD5->BD5_FASE := cFase
BD5->BD5_DATPRO := dDataBase
BD5->BD5_SITUAC := cSituac
BD5->(MsUnlock())
RecLock("BD6",.T.)
BD6->BD6_FILIAL := xFilial("BD6")
BD6->BD6_CODOPE := cCodOpe
BD6->BD6_CODLDP := cCodLdp
BD6->BD6_CODPEG := cCodPeg
BD6->BD6_NUMERO := ""
BD6->BD6_ORIMOV := "1"
BD6->BD6_SEQUEN := PLSA720IPD(.F.)
BD6->BD6_CODPAD := GETMV("MV_PLSTBPD")
BD6->BD6_CODPRO := ""
BD6->(MsUnlock())
RecLock("BD7",.T.)
BD7->BD7_FILIAL := xFilial("BD7")
BD7->BD7_CODOPE := cCodOpe
BD7->BD7_CODLDP := cCodLdp
BD7->BD7_CODPEG := cCodPeg
BD7->BD7_NUMERO := ""
BD7->BD7_ORIMOV := "1"
BD7->BD7_SEQUEN := PLSA720IPD(.F.)
BD7->BD7_CODUNM := ""
BD7->BD7_NLANC := "01"
BD7->(MsUnlock())
cResult := "false|Pontuacao Registrada"
EndIf
EndIf Return cResult | 
