Histórico da Página

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