Histórico da Página

#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