Exibir origem

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).

Linha Microsiga Protheus > DRHROTPRT-17441 DT Sistema não valida duplicidade de crachás no cadastro de funcionários e sobrescreve informações no Suricato > image-2024-7-24_11-17-38.png

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

04. DEMAIS INFORMAÇÕES

N/A

05. ASSUNTOS RELACIONADOS

N/A