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 |