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 utilizada:
| 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. |
...
RestArea(aArea)
...
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