Histórico da Página

...

Pelo Configurador (SIGACFG), alterar o campo RA_CRACHA e incluir a função u_xExistCra() na pasta Validações (Val. Usuário).

Image Modified

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

...