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 RemovedImage Added

Função utilizada:

#INCLUDE #include"TOTVS.CH"
USER FUNCTION UserFunctionxExistCra()
    LocalaArea         :=GetArea()
    locallRet          :=.F.
    Local lsurri   lSuricato   := SUPERGETMVSuperGetMV("MV_TSAIURB")

    DBSELECTAREAdbSelectArea("SRA")
    SRA->(DBSETORDERdbSetOrder(9))

    if lsurriIflSuricato
        if If (NaoVazio() .and. !SRA->(dbSeeK(GetMemVar("RA_CRACHA"))) .and.FreeForUse("SRA",M->CRACHA>CRACHA))              
            lRet:=.T.
        ELSE Else    
            Help('CrachaCrachá',1,'Codigo Código de cracha ja existente')
        ENDIFEndIf
    ELSEElse
        lRet:=.T.    
    ENDIF   EndIf  

    RestArea(aArea)

ReturnlRet

04. DEMAIS INFORMAÇÕES

N/A

...