Home

Linha Microsiga Protheus

Páginas filhas
  • PLSVLDC - Validações complementares da matrícula no Portal PLS

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição:

 

O Ponto de entrada PLSVLDC permite fazer validações complementares da matrícula após as validações padrões do sistema no Portal PLS.

 

Programa Fonte:

 

PPLMFUN.PRW

 

Sintaxe:

 

cResult := ExecBlock("PLSVLDC",.F.,.F.,{HttpGet->TrilhaCard,HttpSession->cTipCar,aMatrCartao,cResult})

 

Retorno:

 

cResult - Uma resposta True ou False | mensagem para vizualização do usuário.

 

Exemplo:

 

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

 

...