01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:CRACHA.PRW
País:Brasil
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :DRHROTPRT-17441


02. SITUAÇÃO/REQUISITO

Sistema não valida duplicidade de crachás no cadastro de funcionários e sobrescreve informações no Suricato

03. SOLUÇÃO

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('Crachá',1,'Código de cracha ja existente')
        EndIf
    Else
        lRet:=.T.    
    EndIf  

    RestArea(aArea)

Return lRet



04. DEMAIS INFORMAÇÕES

N/A



05. ASSUNTOS RELACIONADOS