Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

Função:


Bloco de código
#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

...