| Produto: |
TOTVS RH
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | RH |
| Módulo: |
TOTVS RH (Linha Protheus) - Gestão de Pessoas (SIGAGPE)
|
| Função: | CRACHA.PRW |
| País: | Brasil |
| Ticket: | |
| Requisito/Story/Issue (informe o requisito relacionado) : | DRHROTPRT-17441 |
Sistema não valida duplicidade de crachás no cadastro de funcionários e sobrescreve informações no Suricato
Criação de uma validação para verificar se existe o número digitado no campo Nr. Crachá (RA_CRACHA).
Pelo Configurador (SIGACFG), alterar o campo RA_CRACHA e incluir a função u_xExistCra() na pasta Validações (Val. Usuário).
Função:
#include "TOTVS.CH"
User Function xExistCra()
Local aArea := GetArea()
Local lRet :=.F.
Local lSuricato := SuperGetMV("MV_TSAIURB")
dbSelectArea("SRA")
SRA->(dbSetOrder(9))
If lSuricato
If (NaoVazio() .and. !SRA->(dbSeeK(GetMemVar("RA_CRACHA"))) .and. FreeForUse("SRA",M->CRACHA))
lRet:=.T.
Else
Help(' ', 1, OemToAnsi('Crachá'), , OemToAnsi('Código de cracha ja existente'), 1, 0)
EndIf
Else
lRet:=.T.
EndIf
RestArea(aArea)
Return lRet
N/A