Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 1 minuto

Ponto-de-Entrada: RSPCHKCPF - Validação personalizada


Versões:Microsiga Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos


Descrição:
Esse ponto de entrada tem o objetivo de criar uma validação personalizada para o CPF.
Programa Fonte
RSPA010.PRW
Sintaxe

RSPCHKCPF - Validação personalizada ( [ Param1 ] ) --> lRet

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

Param1

Caracter

Indica o CPF preenchido










Retorno
lRet
    (logico)
  • Indica se o CPF é válido ou não.
Observações

O ponto de entrada deve retornar um valor lógico. Se retornar .T. indica que o CPF é válido e, se retornar .F. indica que o CPF não é valido.

O ponto de entrada não substitui a validação de CPF do sistema.

Exemplos
#INCLUDE 'PROTHEUS.CH'User Function RspChkCPF()Local aArea := GetArea()Local cCPF	:= Paramixb[1]	Local lRet 	:= .T.dbSelectArea("SRA")dbSetOrder(5)If dbSeek(xFilial("SRA")+cCPF)	lRet := MsgNoYes("O CPF já está cadastrado na tabela SRA. Continuar mesmo assim?")EndIf		RestArea(aArea)Return (lRet)
Variáveis



Nome

Tipo

Escopo

Pode Alterar

descrição




Array of Record

Global

Não