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).
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
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas