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 utilizada:

#INCLUDE "TOTVS.CH"

USER FUNCTION xExistCra()

    Local aArea     := GetArea()
    local lRet      :=.F.
    Local lsurri    := SUPERGETMV("MV_TSAIURB")

    DBSELECTAREA("SRA")
    SRA->(DBSETORDER(9))

    if lsurri
        if (NaoVazio() .and. !SRA->(dbSeeK(GetMemVar("RA_CRACHA"))) .and. FreeForUse("SRA",M->CRACHA))              
            lRet:=.T.
        ELSE    
            Help('Cracha',1,'Codigo de cracha ja existente')
        ENDIF
    ELSE
        lRet:=.T.    
    ENDIF   

    RestArea(aArea)

Return lRet



04. DEMAIS INFORMAÇÕES

N/A



05. ASSUNTOS RELACIONADOS