Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

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


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(' ', 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